Membuat Program Stopwatch dengan MS. Visual Basic 6.0

Standar

 Membuat Sebuah Program Stopwatch Sederhana dengan Microsoft Visual Basic 6.0

 

Klik (Microsoft Visual Basic  6.0 dan buka Standard EXE   Open)

Image

Sehingga tampilannya menjadi sbb :

Capture3456

 

 

 LANGKAH 1 : MENDESAIN FORM

Letakkan 5 buah control Label, 3 buah Textbox ,3 buah control CommandButton dan 1 buah control Timer

LANGKAH 2 : PENGATURAN PROPERTI

Nama Control

Properti

Nilai

Form1

Name

Form_arta_wan

 

Caption

Stopwatch Sederhana

 

Font

MS Sans Serif, Bold, 14

 

BackColor

Palette – Red

Label1

Caption

Menit

 

Alignment

0 – Left Justify

 

BackColor

System – Button Face

 

Font

Cooper, Bold, 12

 

ForeColor

Palette-Black

Label2

Caption

Detik

 

Alignment

0 – Left Justify

 

BackColor

System – Button Face

 

Font

Cooper, Bold, 12

 

ForeColor

Palette – Black

Label3

Caption

Mili Detik

 

Alignment

0 – Left Justify

 

BackColor

System – Button Face

 

Font

Cooper, Bold, 12

 

ForeColor

Palette – Black

Label4

Caption

:

 

Alignment

2 – Center

 

BackColor

System – Button Face

 

Font

Tahoma, Bold, 18

 

ForeColor

Palette – Black

Label5

Caption

:

 

Alignment

2 – Center

 

BackColor

System – Button Face

 

Font

Tahoma, Bold, 18

 

ForeColor

Palette – Black

Text1

Name

xmenit

 

Alignment

2 – Center

 

BackColor

System – Highlight Text

 

Font

Tahoma, Bold, 18

 

ForeColor

Palette – Black

 

Text

00

Text2

Name

xdetik

 

Alignment

2 – Center

 

BackColor

System – Highlight Text

 

Font

Tahoma, Bold, 18

 

ForeColor

Palette – Black

 

Text

00

Text3

Name

xmili

 

Alignment

2 – Center

 

BackColor

System – Highlight Text

 

Font

Tahoma, Bold, 18

 

ForeColor

Palette – Black

 

Text

00

Command1

Name

CmdStart

 

Caption

Start

 

Font

Tahoma, Bold, 10

Command2

Name

CmdStop

 

Caption

Stop

 

Font

Tahoma, Bold, 10

Command3

Name

CmdKeluar

 

Caption

Keluar

 

Font

Tahoma, Bold, 10

 

Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi seperti di bawah ini !

Capture1222

 

 

LANGKAH 3 : PENULISAN KODE PROGRAM

Klik dua kali (Double Click) control CmdStart atau tombol Start, selanjutnya ketiklah kode program sebagai berikut :

Private Sub CmdStart_Click()

    Xmili.Caption = “00”

    xdetik.Caption = “00”                    

    xmenit.Caption = “00”

    Timer1.Enabled = True

    CmdStart.Enabled = False

    CmdStop.Enabled = True

End Sub

Dengan mengikuti petunjuk kode program  di atas, maka tampilannya akan menjadi seperti di bawah ini !

CaptureCmd Start

 

Lalu klik menu View  Object, selanjutnya klik dua kali (double klik) control CmdStop atau tombol Stop, lalu ketiklah kode program berikut ini :

Private Sub CmdStop_Click()

    Timer1.Enabled = False

    CmdStart.Enabled = True

    CmdStop.Enabled = False

End Sub

Dengan mengikuti petunjuk kode program  di atas, maka tampilannya akan menjadi seperti di bawah ini !

CaptureCmdStop

Klik menu Viev  Object, Selanjutnya klik dua kali (double click ) form, lalu ketiklah kode program berikut :

Private Sub Form_Load()

    Timer1.Enabled = False

    CmdStop.Enabled = False

End Sub

Dengan mengikuti petunjuk kode program  di atas, maka tampilannya akan menjadi seperti di bawah ini !

CaptureCmdForm Load


Ada tambahan pula, klik menu Viev  Object, lalu klik 2 kali (double click) tombol Timer, selanjutnya  ketiklah kode program berikut ini :

Private Sub Timer1_Timer()

   XmilI.Caption = Val(Xmili.Caption) + 1

    If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0” & Xmili.Caption

    If Xmili.Caption = “60” Then

        Xmili.Caption = “00”

        xdetik.Caption = Val(xdetik.Caption) + 1

        If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0” & xdetik.Caption

    End If

    If  xdetik.Caption = “60” Then

        xdetik.Caption = “00”

        xmenit.Caption = Val(xmenit.Caption) + 1

        If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0” & xmenit.Caption

    End If

    End Sub

Dengan mengikuti petunjuk kode program  di atas, maka tampilannya akan menjadi seperti di bawah ini !

Capturecmd timer23

 

Terakhir, klik menu Viev   Object, lalu klik dua kali (double click) control CmdKeluar  atau tombol Keluar, selanjutnya ketiklah kode program berikut ini:

Private Sub CmdKeluar_Click()

MsgBox (“Apakah Anda yakin ingin keluar”)

End

End Sub

Dengan mengikuti petunjuk kode program  di atas, maka tampilannya akan menjadi seperti di bawah ini !

Capture55

Maka akan muncullah seperti gambar di bawah ini

Captureseluruh stopwatch

Untuk menjalankan program yang telah dibuat tekan F5 pada keyboard.
Sehingga muncul tampilan program yang siap dijalankan,

Captureprogram siap jalan

Captureprogram berjalan

selanjutnya file dapat disave dengan klik File | Save Project dan untuk menyimpan program yang telah dibuat klik File | Make Project.

 Program siap dijalankan.

 untuk mendapatkan program ini, anda bisa download di sini

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s