Table de multiplication
Page 1 sur 1 • Partagez •
Table de multiplication
- 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
' ==============================================================================
_________________
Papydall-Admin- Admin
- Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

» Table horaire
» mise en place d'une table
» lien vers page php
» [Annulée] Une sorte de "tableau" dans un Message
» Réglages CV
» mise en place d'une table
» lien vers page php
» [Annulée] Une sorte de "tableau" dans un Message
» Réglages CV
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» Les Courbes de Bézier cubiques
» Animation flash
» Mega-Strip
» Les oiseaux de mon jardin
» Création et gestion d’un livre
» Deux questions d’éthique
» La Blague Du Jour
» Branle-Fesse