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