Menggunakan Kontrol Timer pada VB

Timer adalah satu kontrol pada visual basic yang berfungsi untuk menghitung waktu.. Komponen Timer sangat baik untuk mengimplementasikan pengaruh waktu terhadap suatu proses seperti proses animasi atau dalam pembuatan game supaya kecepatan dari game bisa diatur. Komponen Timer bersifat non-visual, pada saat program dijalankan, Timer tidak kelihatan. Beberapa properti Timer adalah sebagai berikut :

  • Enabled

Menentukan apakah kontrol dapat efektif terhadap Event Timer.

  • Index

Digunakan untuk menentukan nomor index, jika kontrol tersebut merupakan kontrol array.

  • Interval

Menentukan nilai interval dalam mili detik (1/1000) antar pemanggilan Event Timer.

  • Tag

Properti ini dapat digunakan sebagai tempat menyimpan data sementara yang berkaitan dengan kontrol label tersebut

Event Timer  : Event yang dibangkitkan oleh kontrol timer berdasarkan interval waktu yang telah ditentukan.

Contoh : Membuat Jam Digital


Letakkan Label dan Timer pada Form seperti pada gambar Atur properti Timer, (Enabled : True, Interval : 1000). Dan ketikkan kode program seperti berikut

 

Private Sub tmrJam_Timer()

lblJam.Caption = Format(Now, “hh:mm:ss”)

End Sub

 

Contoh : Membuat jam analog

Atur properti sesuai tabel berikut

Form/Control Properties Setting
Form1 Name

Caption

Form1

Jam Analog

Shape 1 Name

Shape

Shape1

3-Cirlcle

Shape2 Name

Shape

Shape2

4-Rounded Rectangle

Label1 Name

BackStyle

Caption

Label1

0-Transparent

12

Label2 Name

BackStyle

Caption

Label2

0-Transparent

3

Label3 Name

BackStyle

Caption

Label3

0-Transparent

6

Label4 Name

BackStyle

Caption

Label4

0-Transparent

9

Label5 Name

BackStyle

Caption

Label5

1-FixedSingle

 

Command1 Name

Caption

Index

Cmd_bentuk

AM/PM

Normal

STOP

0,1,2

Timer1 Name

Interval

Tmrquartz

1000

Kemudian ketikan kode program berikut.

Const pi = 3.14159

Dim sw As Integer

 

Private Sub Form_Load()

Call Timer1_Timer

sw = 0

End Sub

 

Private Sub Cmd_bentuk_Click(Index As Integer)

Select Case Index

Case 0

sw = 0

Label5.Caption = Format(Time, “hh:mm:ss AMPM”)

Case 1

sw = 1

Label5.Caption = Format(Time, “hh:mm:ss”)

Case 2

End

End Select

End Sub

 

Private Sub TmrQuartz_Timer()

Dim xh As Single, yh As Single

Dim xm As Single, ym As Single

Dim xs As Single, ys As Single

Dim hours As Single

Dim minutes As Single

Dim seconds As Single

Dim jam As Single

If sw = 0 Then

Label5.Caption = Format(Time, “hh:mm:ss AMPM”)

Else

Label5.Caption = Format(Time, “hh:mm:ss”)

End If

Beep

hours = Hour(Time)

minutes = Minute(Time)

seconds = Second(Time)

jam = hours + minutes / 60

xh = 500 * Cos(pi / 180 * (30 * jam – 90))

yh = 500 * Sin(pi / 180 * (30 * jam – 90))

linehour.X2 = xh + linehour.X1

linehour.Y2 = yh + linehour.Y1

xm = 750 * Cos(pi / 180 * (6 * minutes – 90))

ym = 750 * Sin(pi / 180 * (6 * minutes – 90))

Lineminute.X2 = xm + linehour.X1

Lineminute.Y2 = ym + linehour.Y1

xs = 770 * Cos(pi / 180 * (6 * seconds – 90))

ys = 770 * Sin(pi / 180 * (6 * seconds – 90))

Linesecond.X2 = xs + linehour.X1

Linesecond.Y2 = ys + linehour.Y1

End Sub

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.