WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
_gb3.pngDivers - Instructions

Instruction MOD

 


modfunction.jpg


Bonjour,
parfois dans le code, nos devons utiliser une routine qui incrémente de 1 puis reboucle à 0 une fois un maximum atteind.
Comme dans cet exemple programme, nous pourrions écrire ce code ci :

Public Sub Button1_Click()
Select Case mycounter
Case 0
TextBox1.Text = "text for one clic"
Inc mycounter
Case 1
TextBox1.Text = "text for two clic"
Inc mycounter
Case 2
TextBox1.Text = "text for three clic"
Inc mycounter
Case 3
TextBox1.Text = "text for four clic"
Inc mycounter
Case 4
TextBox1.Text = "text for five clic"
Inc mycounter
Case 5
TextBox1.Text = "text to return to the beggining"
mycounter = 0
End Select
LCDLabel1.Value = mycounter
End


Ce code fonctionne très bien mais beaucoup de répétition que nous pouvons retirer en utilisant la fonction MOD, et réécrire le code comme ci dessous :

Select Case mycounter
Case 0
TextBox2.Text = "text for one clic"
Case 1
TextBox2.Text = "text for two clic"
Case 2
TextBox2.Text = "text for three clic"
Case 3
TextBox2.Text = "text for four clic"
Case 4
TextBox2.Text = "text for five clic"
Case 5
TextBox2.Text = "text to return to the beggining"
End Select
mycounter = (mycounter + 1) Mod 6
LCDLabel2.Value = mycounter


L'astuce réside dans cette ligne :
mycounter = (mycounter + 1) Mod 6

6 est le nombre de choix que vous souhaitez.
ic de 0 à 5 (soit 6 choix) puis rebouclage à 0.

Merci de votre attention.



Télécharger les sources de l'exemple.(renommez le fichier en tar.gz pour le decompresser)

Date de création : 31/12/2015 @ 11:09
Dernière modification : 31/12/2015 @ 11:16
Catégorie : Divers
Page lue 1455 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^