Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
_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 3345 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

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^