Convertir (en fraction) les heures, les minutes et les secondes

Télécharger le projet
Commenter

Description

il fait tout vous dites le type de donnée (heure, minute ou seconde) et le prog convertit tout automatiquement et en plus
IL MET EN FRACTION (20 min = 2/6 heure)je sais que la fraction n'est pas simplifiée mais je regarderai à ca plus tard
je crois que je devrai faire avec val(text1.text) ou quelque chose comme ca

enfin rien de bien malin mais bon C un petit prog bien sympa ;-)
bon look THE ZIP

Source / Exemple : 


Private Sub cmdConvert_Click()
Dim data
data = Text1.Text
    If Text1.Text = "" Then
        MsgBox " Il faut mettre une donnée pour en avoir une autre, ;-)"
        Text1.SetFocus
    End If
    ' cette partie empèche qu'un neuneu croit qu'il suffit
    ' de penser très fort au chiffre
    ' et que l'ordinateur va le deviner tout seul, si si ça existe je vous jure
    Select Case List1.ListIndex
    Case 0
        List2.AddItem (data) & " Heure(s)"
        List3.AddItem (data) * 60 & " Minute(s)"
        List4.AddItem (data) * 3600 & " Seconde(s)"
    Case 1
        List2.AddItem (data) / 10 & "/" & 6 & " Heure(s)"   'pour que le résultat s'affiche en fraction et non en virgule
        List2.AddItem (data) / 60 & " Heure(s)"             'pour que les chiffres soit en virgule
        List3.AddItem (data) * 60 & " Minute(s)"
        List4.AddItem (data) * 3600 & " Seconde(s)"
    Case 2
        List2.AddItem (data) / 10 & "/" & 360 & " Heure(s)"
        List2.AddItem (data) / 3600 & " Heure(s)"
        List3.AddItem (data) / 10 & "/" & 6 & " Minute(s)"
        List3.AddItem (data) / 60 & " Minute(s)"
        List4.AddItem (data) & " Seconde(s)"
    End Select
End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub Command1_Click()
On Error Resume Next        'pour qu'il n'y aie pas d'erreur si on oublie d'éffacer le résultat
Select Case List1.ListIndex
    Case 0
        List2.RemoveItem (0)
        List3.RemoveItem (0)
        List4.RemoveItem (0)
    Case 1
        List2.RemoveItem (0)
        List2.RemoveItem (0)
        List3.RemoveItem (0)
        List4.RemoveItem (0)
    Case 2
        List2.RemoveItem (0)
        List2.RemoveItem (0)
        List3.RemoveItem (0)
        List3.RemoveItem (0)
        List4.RemoveItem (0)
End Select
End Sub

Private Sub Form_Load()
List1.AddItem "Heure"
List1.AddItem "Minute"
List1.AddItem "Seconde"
End Sub

Private Sub mnuAttention_Click()
MsgBox "ATTENTION" & Chr(10) & "Pensez à effacer le résultat après chaque opération pour éviter les erreurs" & Chr(10) & "Même s'il ne s'en produira pas mais il n'est jamais bon de faire des opérations de ce genre"
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (koubihack)