Friday, 26 June 2015

PROGRAM SEDERHANA LAMPU PADA VISUAL BASIC

Posted by Rizki Pratama in | 06:05
Berikut adalah tampilan form untuk LAMPU.Terdiri dari 3 buah TIMER yang dimaksud untuk menjalankan waktu. Dan 3 buah Shape Circle.


Berikut adalah Listing yang dapat dituliskan agar dapat menjalankan program lampu :

Code 1:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Shape2.BackColor = vbRed
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite

Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True

Label1.Caption = 3
Shape2.BackColor = vbWhite
Shape3.BackColor = vbYellow
Shape4.BackColor = vbWhite

End If

End Sub

Private Sub Timer2_Timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer2.Enabled = False
Timer3.Enabled = True

Label1.Caption = 10
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbGreen

End If

End Sub


LOGIKA LAMPU :


1.  Setelah kita memuat design lampu seperti di lembar design ,maka kita dapat memasukan kodingan berikut untuk mengaktifkan timer .Caranya dengan double klik pada commant button 1(start):

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

2.  Setelah itu kita dapat memasukkan kodingan berikut dengan double klik timer 1, gunanya agar lampu nya bias berubah.Pada shape 2 diberi warna red dan yang lain nya white.Setelah itu digunakan If untuk warna selanjut nya yaitu shape 3 dengan warna yellow dan yang lain nya white:


Private Sub Timer1_Timer()
Shape2.BackColor = vbRed
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite

Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True

Label1.Caption = 3
Shape2.BackColor = vbWhite
Shape3.BackColor = vbYellow
Shape4.BackColor = vbWhite

End If
End Sub

3.    Dan langkah ketiga yaitu double klik timer 2 ,dan masukkan kodingan berikut untuk memberikan warna lampu ke tiga dengan hijau sesuai dengan waktu yang telah di atur sesuai kodingan:

Private Sub Timer2_Timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer2.Enabled = False
Timer3.Enabled = True

Label1.Caption = 10
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbGreen

End If
End Sub

4.    Maka hasil akhir nya adalah seperti pada hasil program bagian lampu :