Boucle et Overflow

Question

Boucle :

D&#233;butant en VB, je ne connais pas les balises servant &#224; faire des boucles.
Mon but est de faire une boucle se r&#233;p&#233;tant sans cesse tant que la condition n'est pas vrai.
Ca doit &#234;tre une question toute b&#234;te, mais n&#233;cessaire.

Overflow :

Dans deux programme que je suis en train de faire, un message d'erreur s'affiche &#224; un moment. Pour seul explication, il me marque : Overflow.

Qu'est-ce ?
Comment r&#233;soudre ce probl&#232;me ?

( J'ai cru comprendre que c'&#233;tait un probl&#234;me li&#233; au calcul )

Merci aux personnes qui m'aideront !

Bye

Gobillot · Answer

While - Wend, Do - Loop, Do until condition ou Do while condition, etc...

ton probl&#232;me doit venir d'une variable qui s'incr&#233;mente et qui d&#233;passe la capacit&#233; maximum, par exemple un Integer qui d&#233;passe la valeur 32767.

Daniel

cs_Merkator · Answer

Merci pour ces pr&#233;cisions mais je n'ai pas r&#233;ussi &#224; mettre en pratique.

J'ai essay&#233; les commandes :
While condition
....
Wend

Do
....
Loop

Do While condition

Le premier ne fonctionne pas.
Le second tourne sans arr&#234;t, il n'y a pas de conditions.
Le troisi&#232;me ne termine pas la boucle (selon ce que tu m'as mis!), comme celui que je n'ai pas essay&#233;.

Par contre en faisant Do - Loop, j'ai pens&#233; &#224; arr&#234;ter la lecture du script ( et ainsi cass&#233; la boucle ) en mettant une balise Stop. Le probl&#234;me c'est que je ne sais pas si cet balise existe et comment s'en servir.

Voil&#224;

Bye

Gobillot · Answer

c'est quoi la condition ?
si elle se r&#233;alise jamais tu as effectivement une boucle infinie.
si c'est un &#233;v&#234;nement ext&#233;rieur que tu attends, il faut inclure un DoEvents dans ta boucle.

Daniel

cs_Merkator · Answer

Non ce n'est pas un &#233;v&#232;nement ext&#233;rieur.

Je vais essay&#233; de t'expliqu&#233; rapidement.

[ Jour ] [ Mois ] [ Ann&#233;e ]
{ OK }
[ Ce jour est un ............ ]

Voil&#224; donc on entre un jour ( de 1 &#224; 31 ), un mois et une ann&#233;e. Ensuite on clique sur OK. Et pour finir le logiciel t'affiche quel est le jour de la semaine correspondant ( du lundi au dimanche ).

Pour cel&#224;, j'ai fait un script assez, je compte le changez. Mais en gros sa marche comme sa :
A chaque retour de boucle je rajoute 1 jour et je rajoute 1 aussi dans le d&#233;compte des jours.
La diff&#233;rence entre les deux c'est qu'au bout de sept retour de boucles on en est &#224; 7 jours, apr&#232;s on recommence &#224; z&#233;ro, l'autre recommence &#224; z&#233;ro quand il arrive &#224; 30 ou 31 jours selon le nombre de jours du moi.

Donc la boucle tourne et tourne encore, ajoutant +1 au jours, puis +1 au mois, pourquoi pas +1 aux ann&#233;es, jusqu'&#224; arriv&#233; pr&#233;cis&#233;ment sur le jour-Mois-Ann&#233;e demand&#233;.
L&#224; il ne suffit plus que de relever le nombre de jour (qui peut aller jusqu'&#224; 7) et on trouve :

Si varjour = 1 on est un lundi
Si varjour = 2 on est un mardi
Si varjour = 3 on est un mercredi ... etc ...

Voil&#224; j'esp&#232;re avoir &#233;t&#233; clair.

Mais si tu pouvais m'expliquer pour la balise Stop se serait encore mieu.

Bye

Gobillot · Answer

Wahouh !!!!!!

excuse ma r&#233;action.
 alors comme &#231;a si on te rentres le 1er janvier 1900 tu va boucler pendant plus de 38350 fois ?
je sais pas en quoi tu programmes, mais est-ce que tu connais Format$, CDate, DateSerial, etc...
je te laisse r&#233;fl&#233;chir pendant que je te pr&#233;pare quelque chose.

Ps: pour sortir d'une boucle Do:
      If Ladate = Date then Exit Do

Daniel

Gobillot · Answer

Private Sub Command1_Click()
    Dim jour  As Integer
    Dim mois  As Integer
    Dim annee As Integer
    Dim dat   As Date
    Dim J(7)  As String
    
    jour = 30
    mois = 4
    annee = 2005
    
    On Error GoTo ERROR
    dat = CDate(jour & "/" & mois & "/" & annee)
    On Error GoTo 0
    
'   le num&#233;ro de la semaine
    MsgBox Format$(dat, "w", vbUseSystemDayOfWeek)
'   le jour de la semaine
    MsgBox Format$(dat, "dddd", vbUseSystemDayOfWeek)
    
'   Table des jours
    J(1) = "Lundi"
    J(2) = "Mardi"
    J(3) = "Mercredi"
    J(4) = "Jeudi"
    J(5) = "Vendredi"
    J(6) = "Samedi"
    J(7) = "Dimanche"
'   par calcul direct
    MsgBox J(((dat - 2) Mod 7 + 1))
    
    Exit Sub
    
ERROR:
    MsgBox "Date fausse"
    
End Sub

Daniel

Gobillot · Answer

&#224; noter que les contr&#244;les dates ne sont pas fiables.
si on inverse jour et mois, on obtient la m&#234;me chose.

    jour = 4
    mois = 30
    annee = 2005

Daniel

cs_Merkator · Answer

Nikel je z'yeute ton script cet ap, je te dit ce que j'en pense.

J'avais d&#233;j&#224; commenc&#233; &#224; chercher un nouveau script. Mais il n'ai pas fini encore. D&#232;s que c'est bon je le mettrai ici.

Bye

PS : Rien &#224; voir, mais sa sert &#224; quoi R&#233;ponse accept&#233;e ! 

Bye

Gobillot · Answer

il y a une correction &#224; faire si date n&#233;gative ( < 30/12/1899)
je la mets de m&#233;moire parce que je l'ai plus.
c'est dans la derni&#232;re partie (calcul direct)

Dim s As Long

'd&#233;passement de capacit&#233; si > 32767 ou < -32768
s = CLng(dat) - 2
'Modulo en n&#233;gatif &#231;a marche !
s = (s Mod 7) + 1
'mais il faut faire une correction
If s < 0 then s = s +1
MsgBox J(s)

Ps:
- &#224; noter qu' en dessous de 1582 (quelque chose comme &#231;a) les dates ne veulent rien dire (calendrier Julien)
- R&#233;ponse accept&#233;e c'est pour signaler aux autres que la r&#233;ponse a &#233;t&#233; trouv&#233;e.

Daniel

cs_Merkator · Answer

C'est du bon boulot.

L'erreur au niveau de l'&#233;change mois jour est un peu cucu, mais elle doit &#234;tre facile &#224; balay&#233;.

Sinon, je ne sais pas si tu as &#233;t&#233; oblig&#233; de faire ainsi, mais c'est vite lourd de voir marquer successivement le num&#233;ro du jour, puis le jour, puis le jour avec une Majuscule &#224; la premi&#232;re lettre.

Ensuite, si on regarde l'ann&#233;e 2100 n'est pas bissextile, l'ann&#233;e 3000 n'ont plus (alors que l'ann&#233;e 2000 l'&#233;tait), par contre les ann&#233;es 2400 et 2800 le sont.
Pas de panique c'est normale .

Bye et merci

PS : Je poursuis toujours mon script perso, que je mettrais ici.
Pendant que j'y suis, justement, est-ce que la balise isInteger existe (un peu comme la balise isNumeric)

Gobillot · Answer

- pour les majuscules c'est pas obligatoire, d'ailleurs toute la deuxième partie fait redondance avec la première, c'est seulement un exemple pour montrer qu'on peut obtenir le jour sans utiliser les Fonctions Vb. - les inversions date et mois c'est à cause des dates anglaises, on peut faire un test du genre si jour < 1 ou jour > 31 then "date fausse", idem si mois < 1 ou mois > 12 then "mois faux" - il n'y a pas de IsInteger .... désolé !!! - IsNumeric() est encore moins fiable que IsDate() voir une source à ce sujet: http://www.vbfrance.com/code.aspx?id=30616 Daniel

cs_Merkator · Answer

Nan mais je m'en fiche de isNum&#233;ric. Je cherche juste une balise pour savoir si
un nombre est multiple de 7.

T'aurais pas une id&#233;e ?

Bye 
(j'ai fait p&#233;t&#233; les smiles)

Gobillot · Answer

oui
If (nombre Mod 7) = 0 Then ... multiple de 7

Mod x = Modulo x 
le reste de la division par x

Daniel

Boucle et Overflow

13 réponses

Discussions similaires