[VB] comparer heure [Résolu]

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