Version instantanée du 27 novembre 2011:PANORAMIC V 0.9.23i1

execute "notepad.exe"
wait 1000
caption 0,handle_form("Sans titre - Bloc-notes")

dim v(10),t$
free v
free t$
dim v(100),t$

LABEL NRETURN
LABEL DIM_MaVariable

GOSUB DIM_MaVariable : ' on simule la cde "DIM MaVariable"
LABEL Test

FOR MaVariable=1 TO 3
  PRINT "Appel n°";MaVariable
  GOSUB Test
NEXT MaVariable

END


Test:
  GOSUB DIM_MaVariable : ' on simule un DIM "local" de la variable "MaVariable"
  ' A partir de maintenant, on peut utiliser "MaVariable" comme une variable locale
  FOR MaVariable = 5 TO 7
    PRINT "  Test:";MaVariable
  NEXT MaVariable
  GOSUB NRETURN  : ' on simule la commande "RETURN"
RETURN


' -----------------------------------------
' Simulation d'une commande DIM "MaVariable"
' -----------------------------------------
' Pour pouvoir utiliser "MaVariable" comme variable locale, il faut vérifier son existence.
' Si elle est déjà déclarée :
'  il faut sauvegarder son contenu dans une DLIST spécifique
' Sinon
'  déclaration de "MaVariable"
'  création d'une DLIST pour les eventuels DIM locaux de MaVariable
' Finsi
DIM_MaVariable:
  IF VARIABLE("MaVariable")=0
    DIM MaVariable
    DIM VAR_MaVariable: VAR_MaVariable = NUMBER_OBJECTS+1
  ELSE
    IF OBJECT_EXISTS(VAR_MaVariable)=0 THEN VAR_MaVariable = NUMBER_OBJECTS+1 : DLIST VAR_MaVariable
    ITEM_ADD VAR_MaVariable, MaVariable
  END_IF
RETURN


' -----------------------------------------
' Simulation "simplifiée" d'une commande RETURN
' -----------------------------------------
' A la fin de la procédure, on teste si la variable "MaVariable" a été sauvegardée
' normalement il faudrait également tester si un DIM local de "MaVariable" a été réalisé...
NRETURN:
 ' si c'est le cas, on lui restitue son contenu
  IF COUNT(VAR_MaVariable)<>0
    MaVariable=VAL(ITEM_READ$(VAR_MaVariable,COUNT(VAR_MaVariable)))
    ' puis on supprime la sauvegarde temporaire
    ITEM_DELETE VAR_MaVariable,COUNT(VAR_MaVariable)
    IF COUNT(VAR_MaVariable)=0 THEN DELETE VAR_MaVariable
  END_IF
RETURN

LABEL Math_Init:GOSUB Math_Init
Racine_param = 5 : GOSUB Racine
PRINT "Racine(";Racine_param;") = ";Racine_return
Factorielle_param = 5: GOSUB Factorielle
PRINT Factorielle_param;"! = ";Factorielle_return
END

' ------------------------------------
' Librairie
' ------------------------------------
Math_Init:
    LABEL Racine : DIM Racine_param, Racine_return
    LABEL Factorielle : DIM Factorielle_param, Factorielle_return
RETURN

' Methode Newton
Racine:
    DIM Racine_i : ' variable pour calcul interne à la procédure
    Racine_return = 7
    FOR Racine_i = 0 TO 6
        Racine_return = ((Racine_param / Racine_return) + Racine_return) / 2
    NEXT Racine_i
    FREE Racine_i
RETURN

Factorielle:
    DIM Factorielle_i
    Factorielle_return = 1
    FOR Factorielle_i = 1 TO Factorielle_param
        Factorielle_return = Factorielle_return * Factorielle_i
    NEXT Factorielle_i
    FREE Factorielle_i
RETURN