Soyez le premier à donner votre avis sur cette source.
Vue 24 260 fois - Téléchargée 421 fois
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
2 avril 2001 à 09:22
2 avril 2001 à 09:11
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.