1. Buat Project baru, kemudian tambahkan frame, Label, 5 buah shape, command button dan kontrol timer, dengan merubah properti seperti tabel berikut:
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:
Lihat Artikel yang terkait :
