Senin, 12 Agustus 2013

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:

Tidak ada komentar:

Posting Komentar

CARA DOWNLOAD DI BLOG INI

1. Klik link download, anda akan diarahkan menuju adf.ly. tunggu 5 detik pilih SKIP AD
Silabus dan RPP SMA Kurikulum 2013
2. Klik Download yang berwarna biru.
Silabus dan RPP SMA Kurikulum 2013
3. Isi Verification Code. setelah terisi sesuai dengan yang diminta klik Download yang berwarna biru di bawah kotak verification code.
Silabus dan RPP SMA Kurikulum 2013
Semoga bermanfaat dan terimakasih atas kunjungannya....