Table de multiplication

par **Papydall-Admin** le Ven 23 Juin - 0:44

Code:: ' ****************************************************************************** ' ' Table_Multiplication.bas ' par Papydall ' ' ****************************************************************************** ' Exemple d'appel des procédures ' ============================================================================== ' Ici débute le module principal du programme ' Il se limite à la seule procédure 'Demarrer' qui fait appel aux autres procédures Demarrer() end : ' Fin du programme ' ****************************************************************************** SUB Demarrer() Init() : ' Appel de la procédure d'initialisation Affiche("T A B L E D E M U L T I P L I C A T I O N",240,10) : ' Appel de la procédure d'affichage Affiche(string$(48,"*"),240,40) : ' 2ème appel de la procédure d'affichage avec d'autres paramètres for m% = 2 to 9 : ' Boucle d'appels de la procédure table avec passage de table(m%) : ' paramètre par valeur next m% END_SUB ' ============================================================================== ' ******** INITIALISATION ' Procédure INIT() sans paramètres d'appel mais les parenthèses sont obligatoires SUB init() dim m% : ' Seule cette variable est globale width 0,800 : height 0,700 : ' Dimension de la fénêtre d'affichage color 0,0,0,0 : font_color 0,0,255,0 : ' Fond noir, texte en vert font_size 0,12 : font_bold 0 : ' Taille de la police et affichage en gras caption 0,"Table de multiplication" : ' Titre de la page principale du programme 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édure ' 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 ' ==============================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31