Minggu, 12 Juli 2015

Membuat Program Simulasi Lampu Stopan di Visual Basic 6

Assalamualaikum Wr. Wb

Hai teman-teman pada kesempatan kali ini saya akan  berbagi tutorial Membuat progam simulasi lampu stopan di Visual Basic 6. Okey kita langsung aja

1. Klisk Start
2. Tunjuk Program, dilanjutan dengan Microsoft Visual Basic 6.0
3. Klik Microsoft Visual Basic 6.0
4. Akan muncul gambar seperti dibawah ini, pilih Standard Exe, Klik Open






5. Buat 4 shape,  1 label dan 1 timmer  seperti di bawah ini.



a. Label
b. Shape
c. Timer
d. Propertis

6. Ubah propertis tiap objek. Seperti di bawah ini.

objek
Property
Nilai
From 1
Caption
Lampu STOPAN
Label1
Name
Autosize
Caption
Font
Fontstyle
size
lblHitung
true
00
MS san serif
Regular
24

Shape1
Backcolor
Backstyle
Shape
Dekstop
Opaque
Circle

Shape2
Name
Backcolor
Backstyle
Shape
shpMerah
Active Border
Opaque
Circle

Shape3
Name
Backcolor
Backstyle
shape
shpKuning
active Border
opaque
Circle

Shape4
Name
Backcolor
Backstyle
Shape
shpMerah
active Border
opaque
Circle
Timmer1
Name
Interval
tmrHitung
1000

Hasilnya akan jadi seperti di bawah ini


7. Kemudian tuliskan / copy paste source code berikut ini pada kode editor Visual basic 6.0

'MERAH > HIJAU > KUNING > MERAH

Dim WaktuMerah As Integer, WaktuKuning As Integer, WaktuHijau As Integer
Dim Penghitung As Integer

Private Sub Form_Load()
 WaktuMerah = 20
    WaktuKuning = 5
    WaktuHijau = 20
    
    shpMerah.BackColor = vbRed
    lblHitung.ForeColor = vbRed
    lblHitung.Caption = WaktuMerah
End Sub

Private Sub tmrHitung_Timer()
Penghitung = Penghitung + 1
    
    If shpMerah.BackColor = vbRed Then
        If Penghitung = WaktuMerah Then
            shpMerah.BackColor = vbButtonFace
            
            shpHijau.BackColor = vbGreen
            lblHitung.ForeColor = vbGreen
            lblHitung.Caption = WaktuHijau
            
            Penghitung = 0
            
        Else
            lblHitung.Caption = WaktuMerah - Penghitung
        End If
        
        
        
    ElseIf shpHijau.BackColor = vbGreen Then
        If Penghitung = WaktuHijau Then
            shpHijau.BackColor = vbButtonFace
            
            shpKuning.BackColor = vbYellow
            
            lblHitung.Caption = ""
            
            Penghitung = 0
            
        Else
            lblHitung.Caption = WaktuHijau - Penghitung
        End If
        
        
        
    ElseIf shpKuning.BackColor = vbYellow Then
        If Penghitung = WaktuKuning Then
            shpKuning.BackColor = vbButtonFace
        
            shpMerah.BackColor = vbRed
            lblHitung.ForeColor = vbRed
            lblHitung.Caption = WaktuMerah

            Penghitung = 0
        End If
        
    End If
End Sub

8. Untuk menjalankan program yang sudah di buat klik tombol star / F5. Jika ingin menyimpannya, klik menu File >> save Project dan jika ingin membuat program anda tersebut bisa langsung dipakai dalam bentuk format EXE, klik menu File >> Make Project1.exe.

Sekian  Tutorial sederhana dari saya , apabila ada kesalahan dan kekurangan mohon maaf karena sesungguhnya manusia itu tidak ada yang sempurna...

Selamat Mencoba Dan Smoga Bermanfaat.



Tidak ada komentar:

Posting Komentar

Notes :
- Harap Berkomentar Sesuai Judul Bacaan
- Tidak Diperbolehkan Untuk Mempromosikan Barang dan Jualan
- Bagi Komentar Yang Menautkan Link Aktif Dianggap Spam