1.Buatlah 1 Shape kedalam form, 3
Line [/] yang menunjukkan arah jarum (jam,menit, detik), selanjutnya Pada
jendela kode tulis berikut ini
Const PI = 3.14159
Private Sub Form_Load()
' mencari titik tengah di xo, yo untuk
sumbu jarum jam
xo = ScaleWidth / 2
yo = ScaleHeight / 2
' menempatkan titik awal kontrol Line sbg
jarum di xo , yo
jrJam.X1 = xo
jrJam.Y1 = yo
jrMenit.X1 = xo
jrMenit.Y1 = yo
jrDetik.X1 = xo
jrDetik.Y1 = yo
' menggambar jarum jam dng setiap selang
waktu tertentu
' dengan menggeser koordinat kontrol Line
pada sisi luar
Call tmrQuartz_Timer
End Sub
2.Masukkan Timer &
Label1 kedalam form kemudian ketik kode dibawah ini
Private Sub tmrQuartz_Timer()
Dim Jam, Menit, Detik
Dim TrueJam
LblTime.Caption = Time
Jam = Hour(Time)
Menit = Minute(Time)
Detik = Second(Time)
TrueJam = Jam + Menit / 60
' mencari koordinat luar dari kontrol Line
jrJam.X2 = 1200 * Cos(PI / 180 * (30 *
TrueJam - 90)) + _
jrJam.X1
jrJam.Y2 = 1200 * Sin(PI / 180 * (30 *
TrueJam - 90)) + _
jrJam.Y1
jrMenit.X2 = 1600 * Cos(PI / 180 * (6 *
Menit - 90)) + _
jrJam.X1
jrMenit.Y2 = 1600 * Sin(PI / 180 * (6 *
Menit - 90)) + _
jrJam.Y1
jrDetik.X2 = 1500 * Cos(PI / 180 * (6 *
Detik - 90)) + _
jrJam.X1
jrDetik.Y2 = 1500 * Sin(PI / 180 * (6 *
Detik - 90)) + _
jrJam.Y1
End Sub
-----------------------------------------------------------------------------------------------
1.Buatlah 3 Shape
[circle] yang menunjukkan warna lampu, 1 Shape [Rounded Rectangle], selanjutnya
CommandButton1 [Pilih sinyal] kemudian ketik kode dibawah ini
Private Sub cmdSignal_Click()
Static i
If i > 3 Or i < 1 Then
i = 1
End If
If i = 1 Then
Shp_C.FillColor = vbBlack
Shp_A.FillColor = vbRed
ElseIf i = 2 Then
Shp_A.FillColor = vbBlack
Shp_B.FillColor = vbYellow
ElseIf i = 3 Then
Shp_B.FillColor = vbBlack
Shp_C.FillColor = vbGreen
End If
i = i + 1
End Sub
2.Pada
CommandButton2 tulis kode seperti dibawah ini
Private Sub cmdExit_Click()
Unload Me
End Sub
Tidak ada komentar:
Posting Komentar