Discussion :

[franck1001]

Bonjour,

J'ai un algorithme que j'aimerais passer sous Visual Basic 6, mais j'ai quelques problèmes avec les div et mod...

Voici l'algorithme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var
 
	temps1, temps2, heure, minute, seconde, total : réel
 
Début
 
	Afficher (« Saisir un temps en secondes »
	Saisir (temps1)
 
	heure <- temps1 div 3600
	temps2 <- temps1 mod 3600
	minute <- temps2 div 60
	seconde <- temps2 mod 60
 
	Afficher (heure, « heure », minute, « minutes », seconde, « secondes »)	
 
Fin

Il permet à partir d'un nombre en seconde de l'avoir en heure, minutes et seconde.

Mais je rencontre un problème sous VB6 car je ne sais pas comment "prendre" le reste de la division, pour continuer mes calculs... Auriez-vous une idée ?

Merci d'avance pour votre aide.

[plegat]

Salut,

je ne sais pas comment "prendre" le reste de la division

ça s'appelle un modulo ça... opérateur "mod"... (www.google.fr pour plus d'infos... mots-clefs "vb6 reste division")

[franck1001]

Mais je dois aussi utiliser div et mod dans mon code VB ? Car quand je mets DIV ça me met mon expression en rouge, en gros que c'est une erreur quoi.

Merci tout de même.

EDIT :

Voici ce que j'ai fais et qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub main()
 
Dim temps1, temps2, heure, minute, seconde As Integer
 
temps1 = InputBox("Donnez un temps en secondes")
 
heure = temps1 div 3600
temps2 = temps1 Mod 3600
minute = temps2 div 60
seconde = temps2 Mod 60
 
msgbox (heure "heures", minute "minutes", seconde "secondes")
 
End Sub

[PANORAMIC]

Puisque tu déclares tes variables comme "integer", tu n'as pas besoin d'utiliser "div". D'ailleurs, le compilateur déclare une erreur car il faut utiliser "/" au lieu de "div". Et alors, ton code passe très bien. Comme tes variables sont entières, le résultat d'une division est forcément un nombre entier.
D'autre part, il n'y a pas de problème pour "mod" qui est accepté.

[franck1001]

il faut utiliser "/" au lieu de "div".

Bonjour,

Merci pour cette réponse, mais j'ai trouvé un p'tit mémentos Algo > VB sur le net, et ils disent remplacer div par "\"

Donc c'est se que j'ai fait, mais par contre j'ai a un nouveau un autre soucis pour l'affchage de la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox (heure "heures", minute "minutes", seconde "secondes")

Sa me le met en rouge, comment résoudre ce problème ?

Merci d'avance pour l'aide

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox (cstr(heure) &  " heures, " & cstr(minute) & " minutes, " & cstr(seconde) &  "secondes")