Cara Membuat Aplikasi Stopwatch Hitung Mundur di Visual Basic 6.0

Cara Membuat Aplikasi Stopwatch Hitung Mundur di 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 Hitung Mundur di Visual Basic 6.0.

Cara Membuat Aplikasi Hitung Mundur (Count Down) di VB 6.0 - Pada pertemuan kali ini tip dan trik akan memberikan sebuah tip yaitu bagaimana Cara Membuat Aplikasi Hitung Mundur (Count Down) di VB 6.0.Aplikasi ini adalah adalah aplikasi yang memanfaatkan sistem Timer, kita tinggal memasukan lama waktunya layaknya seperti Alarm, tapi perhitungan dilakukan secara mundur. Seperti yang pernah kita lihat pada saat malam pergantian Tahun Baru di televisi-televisi.

Hitung mundur juga bisa digunakan sebagai pengingat untuk memulai suatu aktivitas misalnya pada perlombaan lari untuk memulai star, pergantian tahun baru dan Anda juga mensetnya menjadi alarm untuk waktu, ketika kita bermain komputer dengan menseting lama waktu krtika Anda memakai komputer tersebut misalnya Anda masukan 50 menit, maka dengan hitungan mundur dari menit 50 s/d 0, komputer otomatis akan shutdown ketika menit 0.

Pada kesempatan kali ini Saya akan membuatnya dengan menggunakan VB 6.0, adapun langkah-langkah yang harus Anda lakukan adalah sebagai berikut :


Cara Membuat Aplikasi Aplikasi Stopwatch Hitung Mundur VB6

1. Buka form Visual Basic Anda
2. Tanamkan beberapa Label, 1 Timer, 4 Comandbutton, 1 Frame (optional) dan 3 TextBox
3. Atur peoperti masing-masing:

   Label1 dan TextBox1,2,3 Captionnya biarkan saja
   Command1 Caption Star
   Command2 Caption Atur
   Command3 Caption Stop
   command4 Caption Batal
   Timer1 Enabled =False   Interval =1000

4. Desainlah Form seperti gambar dibawah ini:
Cara Membuat Aplikasi Stopwatch dan Source Code Aplikasi Hitung Mundur di Visual Basic 6.0
Desain Form
5. Lalu buka jendela kode dengan F7 copy-paste kode dibawah bagian General-Declaration

Dim jam As Integer
Dim menit As Integer
Dim detik As Integer

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
detik = Text3.Text
Label1.Caption = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")
Timer1.Enabled = True
Command1.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command2_Click()
If Command2.Caption = "Atur" Then
Command2.Caption = "Save"
Command4.Enabled = True
Text1.Text = "00:00:00"
Text2.Text = "00:00:00"
Text3.Text = "00:00:00"
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.SetFocus
Else
If Command2.Caption = "Save" Then
If Text1.Text = "00" And Text2.Text = "00" And Text3.Text = "00" Then
MsgBox "Waktu belum di atur", vbCritical, "Error Input"
Text1.SetFocus
Else
Command2.Enabled = False
Command1.Enabled = True
Command2.Caption = "Atur"
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End If
End If
End If

End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
End Sub

Private Sub Command4_Click()
Command2.Caption = "Atur"
Label1.Caption = "00:00:00"
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
Command2.SetFocus
End Sub

Private Sub Form_Load()
Label1.Caption = "00:00:00"
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
End Sub

Private Sub Timer1_Timer()
detik = detik - 1
If detik < 0 Then
detik = 59
menit = menit - 1
Else
If menit < 0 Then
menit = 59
jam = jam - 1
End If
End If

Label1.Caption = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")

If jam = 0 And menit = 0 And detik = 0 Then
Timer1.Enabled = False
MsgBox "Waktu Sudah Habis", vbInformation, "Perhatian"
Command1.Enabled = False
Command3.Enabled = False
Command2.Enabled = True
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
End If
End Sub

6. Simpan hasil pekerjaan Anda, dan jalankan program

Demikian Cara Membuat Aplikasi Stopwatch dan Source Code Aplikasi Hitung Mundur di Visual Basic 6.0. Selamat mencoba semoga berhasil.
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 Hitung Mundur di Visual Basic 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel