Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0

Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0.

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 saya terbangun dari tidur hanya untuk Anda semua penggemar tip dan trik visual basic, selain itu juga saya manfaatkan sisa pulsa yang belum terpakai di antara jam 12:00 s/d 06:00 pagi.

Pada pertemuan kali ini Saya 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 saya 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.
Source Code Aplikasi Stopwatch Menggunakan Visual Basic 6.0
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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Aplikasi Stopwatch Menggunakan Visual Basic 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel