MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC

Selamat Datang di Blog Rojear, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.     Langkah pertama buka program Visual Basic

2.     Pilih standar.exe untuk New Project kemudian Klik Open

3.     Tambahkan 5 Label 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle mendaji solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.

5.     Masukkan kode program seperti dibawah ini :

Private Sub tunda()

a = Timer

Do While Timer < 1 + a

DoEvents

Loop

End Sub

Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

For i = 0 To 10

Label1(0).Caption = 11 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 0 Then

Shape10.FillColor = &HC0C0&

Shape1.FillColor = &HC0&

Shape2.FillColor = vbYellow

Shape5.FillColor = vbRed

Shape8.FillColor = vbRed

Shape11.FillColor = vbRed

Else

Shape12.FillColor = &H8000&

Shape2.FillColor = &HC0C0&

Shape3.FillColor = vbGreen

End If

tunda

Next i

For i = 10 To 20

Label1(0).Caption = 51 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 10 Then

Shape5.FillColor = &HC0&

Shape3.FillColor = &H8000&

Shape2.FillColor = vbYellow

Shape4.FillColor = vbYellow

Else

Shape2.FillColor = &HC0C0&

Shape4.FillColor = &HC0C0&

Shape1.FillColor = vbRed

Shape5.FillColor = &HC0&

Shape6.FillColor = vbGreen

End If

tunda

Next i

For i = 20 To 30

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 20 Then

Shape8.FillColor = &HC0&

Shape6.FillColor = &H8000&

Shape4.FillColor = vbYellow

Shape7.FillColor = vbYellow

Else

Shape4.FillColor = &HC0C0&

Shape7.FillColor = &HC0C0&

Shape5.FillColor = vbRed

Shape8.FillColor = &HC0&

Shape9.FillColor = vbGreen

End If

tunda

Next i

For i = 30 To 40

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 71 - i

Label1(3).Caption = 41 - i

If i = 30 Then

Shape11.FillColor = &HC0&

Shape9.FillColor = &H8000&

Shape7.FillColor = vbYellow

Shape10.FillColor = vbYellow

ElseIf i = 40 Then

Shape2.FillColor = vbYellow

Shape10.FillColor = vbYellow

Shape12.FillColor = &H8000&

Shape1.FillColor = &HC0&

Else

Shape7.FillColor = &HC0C0&

Shape10.FillColor = &HC0C0&

Shape8.FillColor = vbRed

Shape11.FillColor = &HC0&

Shape12.FillColor = vbGreen

End If

tunda

Next i

End Sub

Selamat Mencoba.... :)

Adapun Contoh-contoh Program yang lain Menggunakan Visual Basic,

yaitu : 

MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC 

MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC 

MEMBUAT APLIKASI PASSWORD DENGAN VISUAL BASIC  

MEMBUAT APLIKASI PENGHITUNG HARGA BARANG DENGAN VISUAL BASIC 

MEMBUAT PROGRAM MENGKONVERSI SUHU DENGAN VISUAL BASIC

CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0  
MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0 
MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0  
MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB  

Artikel Terkait: