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")

[franck1001]

Merci mais il n'y a pas une autre façon plus simple ? Car j'ai commencé le VB il y a a peine 1 mois et nous n'avons pas encore vu de "cstr" ?

Mais merci déjà !

EDIT : j'ai rien dit, même en enlevant les cstr ça fonctionne quand même ! Merciii


Autre petite question : existe-t-il un signe pour ≠ sous VB6 ?

[OhMonBato]

Autre petite question : existe-t-il un signe pour ≠ sous VB6 ?

<>

[LeForestier]

Bonjour,
Beaucoup plus simple

Code :

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

1
2
3
4
5
6
7
8
9
Sub SecHeure()
Dim Seconde As Long
Dim T As Date
    'Exemple
    Seconde = 6550
    T = TimeSerial(0, 0, Seconde)
    'T= 1:49:10
 
End Sub

Et si tu met Seconde +> tu auras mêmes les jours, les mois et les années.
Pour autant que tu ne dépasse pas les capacités de VB bien sur
EDIT2:
Ca marche pas avec les jours pourtant je l'ai déjà fait, je recherche et revient.
A+

[OhMonBato]

ou encore :

Code :

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

1
2
 
Debug.Print Format( Seconde / 86400, "hh:mm:ss")

[LeForestier]

Bonjour,
Un peu tard mais mon adsl à été HS hier.
Après recherche, le passage en date ne se fait qu'avec les heures d'où...

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
18
19
20
21
22
23
24
25
26
27
28
Private Sub Command1_Click()
Dim a As Long
Dim S As Integer, M As Integer, Hr As Integer
Dim J As Integer, Mois As Integer, An As Integer, h
Dim d As Date
    a = 12240072 'pour le test
    If a > 3600 Then '
        h = a \ 3600 ' Heures totales = 3884
        a = a - (h * 3600)
    End If
        M = a \ 60    'Minute =1
        S = a - (M * 60) 'Seconde = 12
'Suite 1
        'Pour splité les heures en jour,mois,année
        Hr = Hour(TimeSerial(h, M, S)) 'heure = 16
        h = h - Hr
        If h \ 24 > 0 Then J = h \ 24
        'Jour = 21
        If J > 30 Then Mois = (J \ 30): J = J - (Mois * 30)
        'Résultats : Mois = 4 : Année = 0
        If Mois > 12 Then An = Mois \ 12: Mois = Mois - (An \ 12)
'Solution 2
       'Cette façon série les mois en fonction du nombre
       'de jour dans les mois à partir du 1er Janvier
       ' J = Day(TimeSerial(h, M, S)) - 1
        'Mois = Month(TimeSerial(h, M, S)) - 1
        'An = Year(TimeSerial(h, M, S)) - 1900
End Sub

A+
NB: Le split en mois et année n'est indiqué qu'a titre de démonstration ou d'exercice.