Kontrol
|
Properti
|
Setting
|
Label
|
Caption
|
Simulasi Led Berjalan Dengan Visual Basic
|
Frame
|
Caption
|
Led
|
Shape
|
FillColor
FillStyle
|
Pilih Warna Putih
Solid
|
Timer
|
Enabled
Interval
|
False
100
|
CommandButton
|
Caption
|
Mulai
|
2. Aturlah Desain form seperti gambar berikut :
3. Klik ganda pada Kontrol Timer dan ketik program sebagai
berikut :
Dim a As Integer
a = Timer1.Interval
Timer1.Interval = a + 100
Select Case a
Case 100
Shape5.FillColor = vbWhite
Shape1.FillColor = vbRed
Case 200
Shape1.FillColor = vbWhite
Shape2.FillColor = vbRed
Case 300
Shape2.FillColor = vbWhite
Shape3.FillColor = vbRed
Case 400
Shape3.FillColor = vbWhite
Shape4.FillColor = vbRed
Case 500
Shape4.FillColor = vbWhite
Shape5.FillColor = vbRed
Timer1.Interval = 100
End Select
4. Klik ganda Command1Button Mulai dan ketik program sebagai
berikut :
Timer1.Enabled = True
5. Klik ganda Command2Button Stop dan ketik program sebagai
berikut :
Timer1.Enabled = False
Shape1.FillColor = vbWhite
Shape2.FillColor = vbWhite
Shape3.FillColor = vbWhite
Shape4.FillColor = vbWhite
Shape5.FillColor = vbWhite
5. Jalankan program dan coba klik tombol Mulai untuk menjalankan
Simulasi Led Berjalan dengan Visual Basic.
6. Untuk melihat simulasinya bisa anda tekan tombol Play pada Video
dibawah ini:
Tidak ada komentar:
Posting Komentar