Artikel Terkait Tutorial VB6
Cara Membuat Stopwatch dengan Menggunakan Visual Basic 6.0 - Apa kabar sobat tip dan trik visual basic semuanya tentu saja masih di tip dan trik visual basic 6.0 pada pertemuan tengah malam ini sekitar pukul 01:08 kami terbangun dari tidur hanya untuk Anda semua penggemar tip dan trik visual basic, selain itu juga kami manfaatkan sisa pulsa yang belum terpakai di antara jam 12:00 s/d 06:00 pagi.
Pada pertemuan kali ini kami ingin membagikan tip cara membuat StopWatch dengan VB6.Anda pasti tau apa fumgsi dari stop watch tersebut?ya betul.Stop berfungsi sebagai alat untuk mengukur lamanya waktu dalam kegiatan.Misalnya,Berapa lama Anda berlari menglilingi lapangan sepak bola dalam satu putaran lapangan sepak bola.
Stop Watch terdiri dari dua macam yaitu Stop Watch Digital dan Stop watch Analog.
Cara menggunakan stop watch dengan memulai tombol "Mulai" dan di akhiri tombol dengan tombol Stop dan disaat itulah terdapat waktu yang kita peroleh saat menekan tombol Mulai sampai Anda menekan tombol Stop .Kemudian Stop watch juga dapat menyetel ulang kembali ke angka Nol (0).
Dan tahukah Anda Stop watch juga bisa kita buat sendiri di salah satu program yang bernama visual basic.Stop Watch yang kita buat di visual basic tergolong Stop Watch Digital.Untuk proses pembuatannya marilah kita simak langkah-langkah berikut dibawah ini :
Ok dari pada kita nunggu lama-lama karena kami juga sudah ngantuk langsung saja siapkan bahan-bahannya:
Tutorial membuat Aplikasi StopWatch di VB6 :
1. Buka Form Standar EXE VB6 Anda
2. Tambahkan 1 label , 1 ListBox, 2 Timer dan 3 Commandbutton pada form Anda
3. Pada ketiga Commandbutton ketik masing-masing captionnya seperti dibawah ini :
- Commandbuton1 Captionnya :"Star".
- Commandbuton2 Captionnya :"Laporan" dan,
- Commandbuton3 Captionnya :"Reset"
Fungsi ListBox disini untuk menampung waktu sedangkan Label berfungsi untuk menampilkan waktu yang sedang berjalan.
 |
| Form Desain |
Source Code Aplikasi Stopwatch VB6.0
4. Buka jendela kode dengan F7 dan copy-paste kode dibawah ini di bagian General Declaration :Dim a As String
Dim b As String
Dim c As String
Dim x As String
Dim y As String
Dim z As String
Dim h As String
Dim m As String
Dim s As String
Dim u As String
Dim v As String
Public interval As Double
Private Sub Clock_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.interval = 1
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command1.Caption = "LANJUTKAN"
List1.AddItem "" + Label1 + ""
Command3.Enabled = True
Command3.Caption = "RESET"
End Sub
Private Sub Command3_Click()
If Command3.Caption = "RESET" Then
Timer1.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
List1.Clear
Command1.Caption = "STAR"
Command3.Caption = "EXIT"
Else
If Command3.Caption = "EXIT" Then
Unload Me
End If
End If
End Sub
Sub counttime()
If Val(v) < 9 Then
v = v + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(u) < 9 Then
v = 0
u = u + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(z) < 9 Then
v = 0
u = 0
z = z + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(y) < 5 Then
v = 0
u = 0
z = 0
y = y + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(x) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = x + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(c) < 5 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = c + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(a) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = 0
a = a + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
End If
End Sub
Private Sub dat_click()
Label1.Caption = Date
Timer2.Enabled = False
End Sub
Private Sub Form_Activate()
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Form_Load()
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub stopwc_Click()
Timer2.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub Timer1_Timer()
counttime
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub
4. Setelah selseai memberi kode sekarang Anda Simpan hasil pekerjaan Anda dan jalan program dengan F5
Nah sekarang Stop Watch Anda sudah jadi sekarang silahkan buatkan file EXE dan Anda bisa langsung gunakan untuk mengukur berapa lama Anda bewrmain komputer.
Demikian Source Code dan Tutorial Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0. Semoga bermanfaat.Terimakasih.
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).