Version instantanée du 12 septembre 2012 PANORAMIC V0.9.24i2

' Exemple d'appel des procédures
' ==============================================================================
' Ici débute le module principal du programme
dim m% : ' Seule cette variable est globale, toutes les autres sont locales

init()
Affiche("T A B L E  D E  M U L T I P L I C A T I O N",240,10)
Affiche(string$(50,"*"),240,40)
for m% = 2 to 9 : table(m%)  : next m%
end
' Fin du module principal

' ==============================================================================
' ******** INITIALISATION
' Procédure INIT() sans paramètres d'appel mais les parenthèses sont obligatoires
SUB init()
    width 0,800 : height 0,700
    color 0,0,0,0 : font_color 0,0,255,0 : font_size 0,12 : font_bold 0
END_SUB
' ==============================================================================

' ******** Afficher un texte à l'écran
' Le texte ainsi que la position de l'affichage sont passés comme paramètres
' formels par le module appelant
' Procédure Affiche : les 3 paramètres d'appel sont locaux
SUB Affiche(texte$,colonne%,ligne%)
    print_locate colonne%,ligne% : print texte$
END_SUB
' ==============================================================================
' ******** Afficher la table
' Affiche une table de multiplication : le multiplicande(m%) est passé comme
' paramètre formel par le module appelant.
' Le multiplicateur i% est déclaré dans la procédure comme variable locale
SUB table(m%)
    DIM_LOCAL i%,s$,lig%,col% : ' variables locales : à la sortie de la procédures
                                ' elles seront automatiquement éliminées.
    affiche(string$(54,"_"),150,50): ' Une procédure peut appeler une autre
    col% = 150*(m%-1): lig% = 70
    if col% > 600
      col% = col%-600 : lig% = 320
    end_if
    for i% = 1 to 9
        s$ = str$(i%*m%)
        if i%*m% < 10 then s$ = "  "+s$
        print_locate col%,lig% : print str$(i%)+" X "+str$(m%)+" = "+s$
        lig% = lig%+20
    next i%
    affiche(string$(54,"_"),150,270)
    affiche(string$(54,"_"),150,500)
END_SUB
' ==============================================================================

' ------------------------------------------------------------------------------
'  Supprime tous les fichiers du répertoire A$ portant l'extension B$
'  Appel : DelAllFile("C:\TEMP","tmp")
' ------------------------------------------------------------------------------
SUB DelAllFile(A$,B$)
  DIM_LOCAL t$,origin$
  origin$ = DIR_CURRENT$ : B$ = UPPER$(B$)
  DIR_CHANGE A$
  t$ = FILE_FIND_FIRST$
  WHILE t$ <> "_"
    IF UPPER$(RIGHT$(t$,3)) = B$ THEN FILE_DELETE t$
    t$ = FILE_FIND_NEXT$
  END_WHILE
  FILE_FIND_CLOSE
  DIR_CHANGE origin$
END_SUB

A$="C:\TEMP": B$="tmp": GOSUB DelAllFile
...
DelAllFile:
  DIM t$,origin$
  origin$ = DIR_CURRENT$ : B$ = UPPER$(B$)
  DIR_CHANGE A$
  t$ = FILE_FIND_FIRST$
  WHILE t$ <> "_"
    IF UPPER$(RIGHT$(t$,3)) = B$ THEN FILE_DELETE t$
    t$ = FILE_FIND_NEXT$
  END_WHILE
  FILE_FIND_CLOSE
  DIR_CHANGE origin$
  FREE t$: FREE origin$
RETURN

Masub(Fich$, i%, j%, 10)
' ici au retour i% et j% contiennent les valeurs attendues val1 et val2)
...
SUB Masub(f$, p2%, p3%, p4%)
... traitement...
p2% = val1
p2% = val2
END_SUB

' teste
dim a$,b$,c$,a%
b$="envoi "
c$="un code"
a%=123456
teste(10,a%,b$,c$)

for a%=1 to count(10):print item_read$(10,a%):next a% : delete 10
end
sub teste(obj%,a%,b$,c$)

if object_exists(obj%)=0 then dlist obj%
  clear obj%
  item_add obj%,a%*10
  item_add obj%,b$+"reçut"
  item_add obj%,c$+" salutation"
end_sub

MaFonction(12)
print "resultat ="+STR$(MaFonction_retour)
END
SUB MaFonction(x)
  IF VARIABLE("MaFonction_retour")=0 THEN DIM MaFonction_retour
  ...
  ...
END_SUB

DLIST 125
...
ITEM_ADD 125,Param1
ITEM_ADD 125,Param2
...
ITEM_ADD 125,ParamN
MaProcedure(125)
...
END
SUB MaProcedure(N)
  DIM_LOCAL NbParam, i
  ' lecture du nb de paramètre
  NbParam = COUNT(N)
  ' Traitement des paramètres
  FOR i=1 TO NbParam
    ....
  NEXT i
END_SUB