MEMBUAT PROGRAM SIMULASI RUNNING LED DENGAN VB

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 :

MEMBUAT PROGRAM ANIMASI GERAK DENGAN VB

MEMBUAT PROGRAM JAM DIGITAL DENGAN VB

Tidak ada komentar:

Poskan Komentar

Silahkan Bergabung dulu untuk meninggalkan komentar Anda,Terima Kasih...!!!