UN CONTRÔLE HORLOGE BASIQUE

'----------------- Contrôles :

2 textbox : Heure et minute (TxtHeure et txtMinute)
4 command : HeurePlus, HeureMoins, MinutePlus, MinuteMoins



'----------------- Code :

Option Explicit

Private Sub HeureMoins_Click()

With TxtHeure

    If .Text = "" Then
        .Text = "0"
    End If

    If .Text = "0" Then
        .Text = "23"
    Else
        .Text = .Text - 1
    End If
    
End With

End Sub

Private Sub HeurePlus_Click()
   
With TxtHeure

    If .Text = "" Then
        .Text = "0"
    End If

    If .Text = "23" Then
        .Text = "0"
    Else
        .Text = .Text + 1
    End If
    
End With

End Sub

Private Sub MinuteMoins_Click()

With TxtMinute

    If .Text = "" Then
        .Text = "00"
    End If

    If .Text = "00" Then
        .Text = "59"
    Else
        .Text = .Text - 1
    End If
    
End With

Call Zero

End Sub

Private Sub MinutePlus_Click()

With TxtMinute

    If .Text = "" Then
        .Text = "00"
    End If

    If .Text = "59" Then
        .Text = "00"
    Else
        .Text = .Text + 1
    End If
    
End With

Call Zero

End Sub



Private Sub TxtHeure_Change()
    Call VerifierHeure
End Sub

Private Sub TxtMinute_Change()
    Call VerifierMinute
End Sub

Private Sub TxtMinute_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call Zero
    End If
End Sub

Private Sub UserControl_Resize()
    UserControl.Width = 3345
    UserControl.Height = 1665
End Sub



Public Property Get Hour() As String
    Hour = TxtHeure.Text
End Property


Public Property Get Minute() As String
    Minute = TxtMinute.Text
End Property


Sub VerifierHeure()
    
    If Not (IsNumeric(TxtHeure.Text)) Then
        GoTo fin
    End If
    
    If TxtHeure.Text < 0 Then
        GoTo fin
    End If
    
    If TxtHeure.Text > 23 Then
        GoTo fin
    End If
   
    Exit Sub
    
fin:

        MsgBox "Valeur incorrecte", vbCritical
        TxtHeure.Text = "12"
    
End Sub

Sub VerifierMinute()

If Not (IsNumeric(TxtMinute.Text)) Then
        GoTo fin
    End If
    
    If TxtMinute.Text < 0 Then
        GoTo fin
    End If
    
    If TxtMinute.Text > 59 Then
        GoTo fin
    End If
    
   
    Exit Sub
    
fin:

        MsgBox "Valeur incorrecte", vbCritical
        TxtMinute.Text = "00"


End Sub



Sub Zero()

    If Len(TxtMinute.Text) = 1 Then
        TxtMinute.Text = "0" & TxtMinute.Text
    End If
    
End Sub