Gambas France BETA

simplifier l'ecriture

Ce sujet est résolu.

1
Auteur	Messages
noucom	#1 Posté le 1/11/2015 à 11:56:23
	Bonjour, Comment simplifier ce code : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 PRIVATE frequence AS INTEGER PUBLIC SUB bfreq_Click() SELECT CASE frequence CASE 0 frequence = 1 CASE 1 frequence = 2 CASE 2 frequence = 3 '....etc etc.... CASE 37 frequence = 38 CASE 38 frequence = 0 END merci pour votre reponse
didier18	#2 Posté le 1/11/2015 à 17:12:01
	Bonjour noucom Je ne comprend pas bien ce que tu veux simplifier (le code ou sa façon de fonctionner ?) Selon la valeur de 'frequence', tu lui ajoute 1 et lorsque cette valeur = 38 alors 'frequence' = 0 public sub bfreq_Click() if frequence <38 then inc frequence else frequence = 0 endif Mais ce n'est peut être pas ce que tu veux...
vuott	#3 Posté le 1/11/2015 à 18:00:45
Ne cedere ineluctabili possimus	didier18, bravo, optime ! « Vita non suavis esse potest, nec Mors amara. »
Flachy Joe	#4 Posté le 1/11/2015 à 19:05:41
Iguane : Il Gambas Uniquement pour Activer ses NEurones	Salut, 1 2 3 4 5 PUBLIC SUB bfreq_Click() frequence = (frequence+1) MOD 38 END Flachy Joe
vuott	#5 Posté le 2/11/2015 à 02:17:51
Ne cedere ineluctabili possimus	Solution très intéressante, Flachy Joe; mais si frequence = 37, alors le résultat est 0 et pas 38. Je crois que devrait être placé MOD 39. En tout cas, félicitations. « Vita non suavis esse potest, nec Mors amara. »
noucom	#6 Posté le 2/11/2015 à 11:20:48
	CQFD merci flachy !
1