Aplikasi pencatat waktu Membuat stopwatch dari VB 2010

Membuat sebuah aplikasi untuk digunakan sebagai pencatat waktu. Nama kerennya adalah Stop Watch. Pasti sudah tahu apa itu yang namanya Stop Watch, bagaimana cara bekerjanya?  Disini kita akan mencoba latihan untuk membuat sebuah Stop Watch.

Aplikasi pencatat waktu Membuat stopwatch dari VB 2010

Tampilan desain

Aplikasi pencatat waktu Membuat stopwatch dari VB 2010

Komponen yang dibutuhkan

• Timer
• Button
• TextBox
• Label
• PictureBox

Untuk code program bisa dilihat dibawah ini

——————————————————————————————————–
Public Class Form1
Dim milseconds, seconds, minutes, hours As Integer
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If milseconds = 60 Then
milseconds = 0
seconds = seconds + 1
End If
If seconds = 60 Then
If milseconds = 60 Then
milseconds = 0
seconds = 0
minutes = minutes + 1
End If
End If
If minutes = 60 Then
If seconds = 60 Then
If milseconds = 60 Then
milseconds = 0
seconds = 0
minutes = 0
hours = hours + 1
End If
End If
End If
milseconds = milseconds + 1
TextBox1.Text = Format(hours, “00″) & “:” & Format(minutes, “00″) & “:” & Format(seconds, “00″) & “:” & Format(milseconds, “00″)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 10
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Stop()
TextBox1.Clear()
End Sub
End Class