Visual Basic Dasar, Latihan Step by Step VB6 (Membuat Stopwatch)

Kita membuat sebuah project baru. Ide dari project aplikasi ini adalah memulai timer lalu menghitung selang waktu yang berjalan.

Tempatkan tiga Command Button dan enam Label ke dalam form. Susunlah seperti pada gambar berikut.

 

Lalu pada bagian properties secara default terdapat pada bagian kanan bawah, jika belum tampak jendela propertinya kliklah menu “view”-->”properties window” atau langsung tekan F4, lalu ubahlah propertinya, sebulumnya sebuah konvensi telah terbuat untuk menamai objek-objek Visual Basic yaitu menggunakan prefix (tergantung pada objeknya kemudian diikuti oleh nama yang kita berikan). Kita akan lihat nanti pada contoh dan bersamaan dengan kemajuan kita memprogram.

Object                         Prefix            Contoh

Form                            frm                  frmWatch

Command Button          cmd,btn           cmdExit, btnStart

Label                            lbl                   lblStart, lblEnd

Text Box                       txt                   txtTime, txtName

Menu                            mnu                mnuExit, mnuSave

Check box                    chk                 chkchoice

 

Ubahlah properti tiap objek seperti berikut ini:

Form1:

BorderStyle     1-Fixed Single

Caption            Stopwatch Application

Name              frmStopWatch

Command1:

Caption            &Start Timing

Name              cmdStart

Command2:

Caption            &End Timing

Name              cmdEnd

Command3:

Caption            E&xit

Name              cmdExit

Label1:

Caption            Start Time

Label2:

Caption            End Time

Label3:

Caption            Elapsed Time

Label4:

BorderStyle     1-Fixed Single

Caption            [Blank] (kosongkan)

Name              lblStart

Label5:

BorderStyle     1-Fixed Single

Caption            [Blank]

Name              lblEnd

Label6:

BorderStyle     1-Fixed Single

Caption            [Blank]

Name              lblElapsed

Penambahan tanda & digunakan untuk membuat shortcut, yaitu huruf setelah tanda & akan menjadi shortcut. Contoh command “E&xit” akan tereksekusi jika tombol/button di klik atau tekan ALT+X. Setelah perubahan properties maka tampilan form kita akan jadi begini.

 

Silahkan coba di RUN dengan menekan menu “run” --> “start” atau langsung tekan F5.

Untuk keluar aplikasi yang di RUN, tekan tanda close seperti window biasa.

Lalu kita mulai untuk memasukkan code-nya. Perhatikan…

      Dobel klik dimanapun di dalam form, atau menu “view” --> “code”.

      Lalu klik panah bawah bagian kiri, sorot (General),,untuk bagian kanan pilih (Declaration) ketikkan code berikut (pelajari jenis variable pada VB):

Option Explicit

Dim StartTime As Variant

Dim EndTime As Variant

Dim ElapsedTime As Variant

      Tampilkan object lagi dengan klik menu “view” --> “object”. Dobel klik tombol “start timing”, lalu masukkan kode berikut:

Sub cmdStart_Click ()

'Establish and print starting time

StartTime = Now

lblStart.Caption = Format(StartTime, "hh:mm:ss")

lblEnd.Caption = ""

lblElapsed.Caption = ""

End Sub

      Sekarang bagian cmdEnd sebagai berikut:

Sub cmdEnd_Click ()

'Find the ending time, compute the elapsed time

'Put both values in label boxes

EndTime = Now

ElapsedTime = EndTime - StartTime

lblEnd.Caption = Format(EndTime, "hh:mm:ss")

lblElapsed.Caption = Format(ElapsedTime, "hh:mm:ss")

End Sub

      Terakhir cmdExit berikut;

Sub cmdExit_Click ()

End

End Sub

      Coba RUN program lagi …

Link download project di sini

Selamat belajar VB6….