Private Class client
Public name As String
Public ladate As Date
Public elapshour As Integer
Public elapsminutes As Integer
Public elapsseconds As Integer
End Class
Private starttime As DateTime
Private endtime As DateTime
Private timeelapse As New TimeSpan
Private listclient As New List(Of client)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
starttime = Date.Now
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'comme on a cliqué sur button2 donc il faut calculer le temps
'passé pour le client1 le button1
endtime = Date.Now
timeelapse = endtime - starttime
Dim theclient As New client
theclient.name = "client1"
theclient.ladate = Date.Now
theclient.elapshour = timeelapse.Hours
theclient.elapsminutes = timeelapse.Minutes
theclient.elapsseconds = timeelapse.Seconds
listclient.Add(theclient)
'on reprend pour le client suivant
starttime = Date.Now
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate previousclient As string = string.empty
' l'implemention du bouton valider
Private Sub valider_Click(sender As Object, e As EventArgs) Handles valider.Click
'On verifie si c'est le premier client
If previousclient = string.empty then
starttime = Date.Now
'le client choisi avec le combo
previousclient = comboclient.text
else
'il y a un précedent client on calcule le temps écoulé
endtime = Date.Now
timeelapse = endtime - starttime
'on ajoute les donnnées dans la listclient
Dim theclient As New client
theclient.name = previousclient
theclient.ladate = Date.Now
theclient.elapshour = timeelapse.Hours
theclient.elapsminutes = timeelapse.Minutes
theclient.elapsseconds = timeelapse.Seconds
listclient.Add(theclient)
'avec le présent client
previousclient = comboclient.text
starttime = Date.Now
end if
end sub