[VB] comparer heure
Résolu/Fermé
A voir également:
- [VB] comparer heure
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- 30 go internet équivalent en heure - Forum Mobile
- 1go internet = combien d'heure - Forum Mobile
- 35 go internet équivalent en heure ✓ - Forum Mobile
5 réponses
en effet je pense réussir a faire cette manipulation grace a des comparateur logique <> ......Cependant je n ' y arrive pas . je trouve dans mais variables les bonnes heure mais la comparaison n 'a pas lieu.
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
7 juin 2005 à 12:19
7 juin 2005 à 12:19
;-)
Fais voir ton code...
;-)
Fais voir ton code...
;-)
Integer
Dim nc As Integer
Dim np As Integer
Dim xl As Integer
Dim px As Integer
Dim da As Variant
Dim ha As Variant
Dim dt As Variant
Dim n As Integer
Dim mydate As Variant
Dim mytime As Variant
Dim dir_zero As Boolean
Dim start_soft As Boolean
Dim pos0 As Integer
Dim axe_valide As Boolean
Dim origine_faite As Boolean
Dim mouvement_en_cours As Boolean
Dim pos_act As Integer
Dim position_atteinte As Boolean
Dim nombredecycle As Integer
Private Sub Command3_Click()
px = 0
n = 1
While n < 3
n = n + 1
dir_zero = 0
start_soft = 0
pos0 = 0
dir_zero = 1
start_soft = 1
If axe_valide = 1 Then dir_zero = 0 & start_soft = 0
Wend
off_zero = -300
start_soft = 1
If position_atteinte = 1 Then start_soft = 0
nc = 0
ha = Text2.Text
da = Text1.Text
While ha >= Time
n = n - 1
px = 0
np = 0
nc = nc + 1
xl = Text5.Text
While px < xl
Label8.Caption = np
Label9.Caption = nc
dx = Text3.Text
px = px + dx
np = np + 1
pos0 = px
start_soft = 1
If positionnement_atteinte = 1 & pos_act = px Then start_soft = 0
n = 3
off_zero = 0
startsoft = 1
If positionnement_atteinte = 1 Then start_soft = 0
dt = Text4.Text
Interval = dt
While Interval > 0
Wend
off_zero = -110
start_soft = 1
If positionnement_atteinte = 1 Then start_soft = 0
n = 2
poso = 0
start_soft = 1
If position_atteinte = 1 & pos_act = 0 Then start_soft = 0
Wend
Beep
If position_atteinte = 1 & pos_act = 0 Then start_soft = 0
Wend
End Sub
Private Sub command4_Click()
End
End Sub
Private Sub Label8_Click()
Label8.Caption = np
End Sub
Private Sub Label9_Click()
Label9.Caption = nc
End Sub
Private Sub Text3_Change()
Text3.Text = dx
End Sub
Private Sub Text4_Change()
dt = Text4.Text
End Sub
Private Sub Text1_Change()
da = Text1.Text
End Sub
Private Sub Text2_change()
ha = Text2.Text
End Sub
Private Sub Text5_Change()
xl = Text5.Text
End Sub
Private Sub Text6_Change()
mydate = Date
Text6.Text = Date
End Sub
Private Sub Text7_Change()
mytime = Time
Text7.Text = Time
End Sub
Private Sub Timer1_Timer()
Interval = dt
End Sub
Dim nc As Integer
Dim np As Integer
Dim xl As Integer
Dim px As Integer
Dim da As Variant
Dim ha As Variant
Dim dt As Variant
Dim n As Integer
Dim mydate As Variant
Dim mytime As Variant
Dim dir_zero As Boolean
Dim start_soft As Boolean
Dim pos0 As Integer
Dim axe_valide As Boolean
Dim origine_faite As Boolean
Dim mouvement_en_cours As Boolean
Dim pos_act As Integer
Dim position_atteinte As Boolean
Dim nombredecycle As Integer
Private Sub Command3_Click()
px = 0
n = 1
While n < 3
n = n + 1
dir_zero = 0
start_soft = 0
pos0 = 0
dir_zero = 1
start_soft = 1
If axe_valide = 1 Then dir_zero = 0 & start_soft = 0
Wend
off_zero = -300
start_soft = 1
If position_atteinte = 1 Then start_soft = 0
nc = 0
ha = Text2.Text
da = Text1.Text
While ha >= Time
n = n - 1
px = 0
np = 0
nc = nc + 1
xl = Text5.Text
While px < xl
Label8.Caption = np
Label9.Caption = nc
dx = Text3.Text
px = px + dx
np = np + 1
pos0 = px
start_soft = 1
If positionnement_atteinte = 1 & pos_act = px Then start_soft = 0
n = 3
off_zero = 0
startsoft = 1
If positionnement_atteinte = 1 Then start_soft = 0
dt = Text4.Text
Interval = dt
While Interval > 0
Wend
off_zero = -110
start_soft = 1
If positionnement_atteinte = 1 Then start_soft = 0
n = 2
poso = 0
start_soft = 1
If position_atteinte = 1 & pos_act = 0 Then start_soft = 0
Wend
Beep
If position_atteinte = 1 & pos_act = 0 Then start_soft = 0
Wend
End Sub
Private Sub command4_Click()
End
End Sub
Private Sub Label8_Click()
Label8.Caption = np
End Sub
Private Sub Label9_Click()
Label9.Caption = nc
End Sub
Private Sub Text3_Change()
Text3.Text = dx
End Sub
Private Sub Text4_Change()
dt = Text4.Text
End Sub
Private Sub Text1_Change()
da = Text1.Text
End Sub
Private Sub Text2_change()
ha = Text2.Text
End Sub
Private Sub Text5_Change()
xl = Text5.Text
End Sub
Private Sub Text6_Change()
mydate = Date
Text6.Text = Date
End Sub
Private Sub Text7_Change()
mytime = Time
Text7.Text = Time
End Sub
Private Sub Timer1_Timer()
Interval = dt
End Sub
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
8 juin 2005 à 09:31
8 juin 2005 à 09:31
;-)
Bon, tout ça n'est pas trop commenté, et quand on est pas dans le bain, la lecture est un peu ardue, mais....
Je vois dans ton code que tu récupères le contenu de zones de texte, que tu compares à Time... (par exemple)
Je serais toi, j'utiliserais la fonction Now (au lieu de Time/Date), puis je comparerais avec la fonction Format...
Exemple : if ZoneDeTexte.Text >= Format(Now,"hh:mm") then....
Dans le cas où le contenu de la zone de texte est bien au format HH:MM...
C'est juste une idée...
;-)
Bon, tout ça n'est pas trop commenté, et quand on est pas dans le bain, la lecture est un peu ardue, mais....
Je vois dans ton code que tu récupères le contenu de zones de texte, que tu compares à Time... (par exemple)
Je serais toi, j'utiliserais la fonction Now (au lieu de Time/Date), puis je comparerais avec la fonction Format...
Exemple : if ZoneDeTexte.Text >= Format(Now,"hh:mm") then....
Dans le cas où le contenu de la zone de texte est bien au format HH:MM...
C'est juste une idée...
;-)
merci pour tes information grace a toi j 'ai débloqué mon programme
cependant j 'ai une autre question
je veut réaliser une temporisation dont je peut régler le temps
cette application est sous visual basic et elle exste sur le programme que je tes envoiyé mais je ne sais pas si elle marche
Dans l 'espoir d 'une réponse rapide
je vous salut et merci d'avance
cependant j 'ai une autre question
je veut réaliser une temporisation dont je peut régler le temps
cette application est sous visual basic et elle exste sur le programme que je tes envoiyé mais je ne sais pas si elle marche
Dans l 'espoir d 'une réponse rapide
je vous salut et merci d'avance
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
>
manu
9 juin 2005 à 17:47
9 juin 2005 à 17:47
;-)
Dans ce cas, il faut encore creuser...
Redéfinis la question.... ;-)
;-)
Dans ce cas, il faut encore creuser...
Redéfinis la question.... ;-)
;-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
9 juin 2005 à 17:51
9 juin 2005 à 17:51
;-)
Ha, oui, au fait, sur ton code !!!
Une remarque !!
Un bon petit développeur NOMME ses objets en fonction de leur TYPE, dans l'optique d'une maintenance et suivi opérationnel...
Alors donc, juste un petit truc, pour la lisibilité de ton code, et dans le name de tes objets :
TypeObjet_Fonction/Nom
Ex : Btn_Ok pour le bouton OK, Txt_Date....
Tout ça, c'est pour toi.... ;-)
Ha, oui, au fait, sur ton code !!!
Une remarque !!
Un bon petit développeur NOMME ses objets en fonction de leur TYPE, dans l'optique d'une maintenance et suivi opérationnel...
Alors donc, juste un petit truc, pour la lisibilité de ton code, et dans le name de tes objets :
TypeObjet_Fonction/Nom
Ex : Btn_Ok pour le bouton OK, Txt_Date....
Tout ça, c'est pour toi.... ;-)
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
>
manu
10 juin 2005 à 09:44
10 juin 2005 à 09:44
;-)
Utilise l'objet "Timer" et des variables "Public"
;-)
Utilise l'objet "Timer" et des variables "Public"
;-)
manu
>
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
10 juin 2005 à 11:42
10 juin 2005 à 11:42
merci pour tout j 'ai trouver comment faire
je tient felicité se site car les réponses a no probleme son rapide et efficace
merci atous
je tient felicité se site car les réponses a no probleme son rapide et efficace
merci atous