Cara membuat stopwatch di visual basic 6.0

Cara membuat stopwatch di visual basic 6.0 – di tutorial dengan visual basic lagi dan belajar visual basic lagi, buat aplikasi yang sederhana hingga sampai yang rumit dan sampai akhirnya jenuh dengan yang dipelajari tapi semoga saja tetap menyukai dengan ilmu pemprogaman, apala

Postingan kali ini akan membahas membuat stopwatch atau timer dengan cara yang sederhana dan juga mudah dimengerti saya akan tutorialkan dan anda bisa lihat di scriptnya untuk lebih jelasnya maka disetiap tutorial visual basic saya tidak jelaskan karna mudah untuk dimengerti kalau anda telah meliha sciprtnya.

Di tutorial ini seperti biasa saya hanya akan share yang sederhana – sederhana saja dan sisanya anda yang bisa mengembangkan programnya.

Aplikasi stopwatch merupakan aplikasi penghitung waktu atau timer yang akan berjalan dalam waktu detik/menit/jam , biasa stopwacth digunakan untuk menghitung suatu kecepatan dalam suatu kegiatan. Ah udahlah gan langsung saja ke tutorial.

Pertama – buka visual basic anda yang portable juga tidak masalah.

Kedua – pilih standard exe, pastinya untuk memulai form pertama.

Ketiga – buatlah desain dengan komponen – komponen berikut :

• Timer ==> properties, interval :100
•  Label ==> properties, caption: timer
•  Command1 ==> properties, caption: start
•  Command2 ==> properties, caption: stop
•  Command3 ==> properties, caption: reset

Anda bisa desain seperti gambar dibwah.

Keempat – di tempat coding copy-paste script diberikut :

Dim Mili, Sec, Min, hr As Integer

Dim Countr As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

Mili = 0

Sec = 0

Min = 0

hr = 0

Label1.Caption = ""

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim Mili2, Sec2, Min2, hr2 As String

Countr = Countr + 1

Mili2 = Countr

If Countr = 10 Then

Sec = Sec + 1

Countr = 0

End If

If Sec = 60 Then

Min = Min + 1

Sec = 0

End If

If Min = 60 Then

            hr = hr + 1

            Min = 0

End If

Sec2 = Format(Val(Sec), "00")

Min2 = Format(Val(Min), "00")

hr2 = Format(Val(hr), "00")

Label1.Caption = hr2 & ":" & Min2 & ":" & Sec2 & ":" & Mili2

End Sub

Kelima – jalankan program tersebut, dengan cara klik f5. Bila anda berhasil, maka akan berjalan dengan timernya :v yds.

Yoss, cuman itu gan sedikit tentang tutial Cara membuat stopwatch di visual basic 6.0 yang sangal mudah, simple dan pokoknya gak error. Yalah gak error karna ini hanya aplikasi yang terlalu mudah mungkin dan ringan dipikiran :v .