MEMBUAT PROGRAM KASIR SEBUAH KAFE DENGAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0

Nah, gue mau berbagi sedikit ilmu gue nih guys tentang pemrograman, cocok banget buat lo semua yang kuliah di jurusan programming kaya gue ini. oke, di entri gue kali ini gue bakal ngasih tau gimana cara membuat suatu program sederhana dengan menggunakan VISUAL BASIC 6.0. 

      Program yang gue buat adalah salah satu contoh program penjualan sebuah kafe atau semacam aplikasi kasir pada suatu kafe. dan aplikasi ini gue namain "Godit's Cafe", anggap saja itu nama kafe nya. hehe.

nih contoh tampilan aplikasi nya:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

yang lo butuhin buat bikin program ini adalah yang pastinya software VISUAL BASIC 6.0 yang udah lo install di PC lo tentunya.

kalo udah, lo buka software nya, pilih standard.exe nah mulai deh lo desain sesuai gambar. 

icon2 yang lo butuhin disini adalah: 11 label, 2 combo box, 1 list box, 7 text box, 2 frame, 2 option, 2 check box, dan 2 command button.

lo desain deh layout nya, tulisan nya, sesuai dengan selera lo, bebas gan, ga harus ngikutin punya gue. tapi kalo mau niru juga gapapa kok biar gampang. hehe

nah kalo udah lo desain semua nya, lo masukin deh listing berikut ke kotak listing:

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
Text2 = 3000
Else
If Check1 = 1 And Check2 = 0 Then
Text2 = 2500
Else
If Check1 = 0 And Check2 = 1 Then
Text2 = 500
Else
Text2 = 0
End If
End If
End If
End Sub

Private Sub Check2_Click()
If Check2 = 1 And Check1 = 1 Then
Text2 = 3000
Else
If Check2 = 1 And Check1 = 0 Then
Text2 = 500
Else
If Check2 = 0 And Check1 = 1 Then
Text2 = 2500
Else
Text2 = 0
End If
End If
End If
End Sub

Private Sub Combo2_Click()
If Combo1.Text = "Sarapan Pagi" Then
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
Text1 = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Goreng")
Text1 = 7000
End Select
Else
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
Text1 = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayuran")
List1.AddItem ("Sambal Ijo")
Text1 = 10000
End Select
End If
End Sub

Private Sub Command1_Click()
Me.Combo1.Clear
Me.Combo2.Clear
Me.List1.Clear
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text6.Text = ""
Me.Text7.Text = ""
Me.Option1 = False
Me.Option2 = False
Me.Check1 = False
Me.Check2 = False
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub

Private Sub Command2_Click()
X = MsgBox("ciyus mau keluar ?", vbQuestion + vbOKCancel, "Informasi")
If X = vbOK Then
End
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub

Private Sub Option1_Click()
Text7 = 5000
Option2 = False
End Sub

Private Sub Option2_Click()
Text7 = 0
Option1 = False
End Sub

Private Sub Text3_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text4 = Val(Text3) * (Val(Text1) + Val(Text2) + Val(Text7))
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text6 = Val(Text5) - Val(Text4)
End If
End Sub

kalo udah selesai, tinggal di jalanin deh program nya dengan pilih menu 'run' lalu pilih 'start' / F5
nah, lo jalanin deh program nya, kalo error, berarti ada kesalahan tuh, coba di cek lagi.

selamat mencoba, salam programmer Indonesia :)

Reade more >>

Cara Koneksi Database Office Access Ke Visual Basic

Dibawah ini merupakan contoh Project vb sederhana dengan koneksi database Microsoft Office Access

Langkah-langkahnya sebagai berikut :

• Buat Database Microsoft Office Access, disini saya menggunakan Microsoft Office Access 2007, yang lain sesuaikan... :D
• Simpan didalam folder dimana project kita akan di simpan (save) dengan format db_barang.mdb..

• klick Create..
• Buat sebuah tabel dengan nama "barang"
• Kemudian desain fieldnya sebagai berikut :

Field Name	Data Type	Field Size	Format
kode_barang	Text	5
nama_barang	Text	25
jenis_barang	Text	15
harga_barang	Currency		Currency (Rp.xxx.xxx)
jumlah	Number	Long Integer

• Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.

• Kemudian Desain Form seperti dibawah ini :

• Berikut SourceCode nya :

Dim db As Connection
Dim rs As Recordset

Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
End Sub

Private Sub Command1_Click()
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("kode_barang") = Text1.Text
rs.Fields("nama_barang") = Text2.Text
rs.Fields("jenis_barang") = Combo1.Text
rs.Fields("harga_barang") = Text3.Text
rs.Fields("jumlah") = Text4.Text
rs.Update
MsgBox "Data tersimpan"
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
koneksi
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Reade more >>

BUAT SENDIRI SOFTWARE PENERIMAAN SISWA BARU

Posting kali ini kita akan membuat aplikasi program penerimaan siswa baru (PSB) dengan dilengkapi fitur foto siswa.
Untuk lebih jelasnya silahkan sobat simak tutorial berikut :
Step 1 : buatlah database menggunakan ms. Office Access seperti contoh berikut :

Step 2 : Jalankan VB6 sobat dan pada project baru pilihlah VB Enterprise Edition Control.

dan lanjutkan dengan membuat desain seperti gambar berikut :

Oh…ya….. tambah juga dua buah komponen lagi, yakni ADODC dan CommonDialog.

Step 3 : Buatlah module koneksi dengan cara klik Project – Add Module

Pada kotak dialog Module tuliskan code berikut :

Global conn As ADODB.Connection
Global rspsb As ADODB.Recordset
Sub koneksi()
On Error GoTo gagal:
Set conn = New ADODB.Connection
conn.Provider = "microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path & "\DbPSB.mdb"
Exit Sub
gagal:
If (Err.Number = -2147467259) Then
MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi"
End
End If
End Sub

Step 4 : klik 2x pada Form dan tuliskan code berikut diantara Private Sub Form_Load() dan End Sub, code ini berfungsi untuk memanggil fungsi module :

koneksi

dan lanjutkan dengan dengan menuliskan code berikut tepat dibawah code koneksi yang berfungsi untuk mengaktifkan ComboBox Kelamin dan ComboBox Agama :

cmbKelamin.AddItem "Laki-Laki"
cmbKelamin.AddItem "Perempuan"
cmbAgama.AddItem "Islam"
cmbAgama.AddItem "Kr. Protestan"
cmbAgama.AddItem "Kr. Katolik"
cmbAgama.AddItem "Hindu"
cmbAgama.AddItem "Budha"

Step 5 : Buatlah sebuah code untuk membersihkan form dan mengembalikan kondisi form dalam keaadaan awal. Caranya klik 2x form dan letakkan code berikut ini di tempat kosong pada form. Code ini saya beri nama "kosongkanform".

Private Sub kosongkanform()
txtNama.Text = ""
txtNis.Text = ""
cmbKelamin.Text = ""
txtTmp.Text = ""
cmbAgama.Text = ""
txtStatus.Text = ""
txtAnak.Text = ""
txtSaudara.Text = ""
txtSasal.Text = ""
txtNama.Enabled = True
cmdSimpan.Enabled = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCari.Enabled = False
End Sub

Step 6. Untuk mencari dan menampilkan foto masukkan code berikut dengan cara klik 2x tombol “Cari Foto” dan masukkan code diantara Private Sub cmdCari_Click() dan End Sub.

CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Image1.Visible = True

Step 7. Klik 2x txtNama.text, kemudian pada pilihlah mode “KeyPress”

Dan lanjutkan dengan menuliskan code berikut :

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "select * from nis", conn, , , adCmdText
rspsb.Filter = " Nama= '" & txtNama.Text & "'"
If Not rssiswa.EOF Then
cmdSimpan.Enabled = False
cmdEdit.Enabled = True
cmdHapus.Enabled = True
Image1.Visible = True
txtNama.Enabled = False
txtNis.Text = rspsb.Fields(1)
cmbKelamin.Text = rspsb.Fields(2)
txtTmp.Text = rspsb.Fields(3)
DTPicker1.Value = rspsb.Fields(4)
cmbAgama.Text = rspsb.Fields(5)
txtStatus.Text = rspsb.Fields(6)
txtAnak.Text = rspsb.Fields(7)
txtSaudara.Text = rspsb.Fields(8)
txtSasal.Text = rspsb.Fields(9)
CommonDialog1.FileName = rspsb.Fields(10)
Image1.Picture = LoadPicture(CommonDialog1.FileName)
If CommonDialog1.FileName = "" Then
Else
End If
End If
End If
End Sub

Step 8. Klik 2x tombol Simpan (cmdSimpan) dan tuliskan code berikut :

Dim X
If txtNama.Text = "" Or txtNis.Text = "" Or cmbKelamin.Text = "" Or _
txtTmp.Text = "" Or DTPicker1.Value = "" Or cmbAgama.Text = "" Or _
txtStatus.Text = "" Or txtAnak.Text = "" Or txtSasal.Text = "" Then
MsgBox "Data Belum Lengkap", vbInformation, "Pesan"
Exit Sub
Else
X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo)
If X = vbYes Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "SELECT * FROM siswa", conn, , , adCmdText
rspsb.AddNew
rspsb.Fields(0) = txtNama.Text
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Tersimpan...!", vbInformation, "Pesan"
kosongkanform
Image1.Visible = False
Else
Exit Sub
End If
End If

Step 9. Klik 2x tombol Edit (cmdEdit) dan tuliskan code berikut :

Dim a
a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan")
If a = vbYes Then
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info"
kosongkanform
txtNama.SetFocus
Image1.Visible = False
Else
Exit Sub
End If
Step 8. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :
Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

Step 10. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :

Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

Step Terakhir. Klik 2x tombol Tutup (cmdTutup) dan masukkan code berikut :

Dim X
X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title)
If X = vbYes Then
Unload Me
Else
Cancel = 1
End If

Yup….. aplikasi sudah selesai.

Reade more >>

Membuat Grafik Mschart dengan Vb 6

Untuk Membuat Grafik Mschart dengan Visual basic 6 ini saya menggunakan metode grafik data Non-Database. Silahkan kan simak langkah-langkah tahapannya :

1.    Pertama – tama pastikan dahulu Komponen grafik sudah muncul pada Toolbar visual basic.

2.    Jika belum ada, klik kanan pada toolbox -> Components...

Toolbox Visual basic

3.    Kemudian akan muncul Components Dialog, check Microsoft Chart Control 6.0 dan klik OK.

 

Dan jangan lupa pada visual basic menambah kan Setting References "Microsoft Activex Data Objeck 2.0 Library" seperti gambar di bawah 

Kompoenen Microsoft Activex Data Objeck 2.0 Library

4.    Buatlah desain Form dan setting propertiesnya seperti di bawah ini

Desain Form Grafiik Tanpa database

 

5.    Kode program

Berikut ini adalah code VB yang digunakan:

Letakan pada Form load

Private Sub Form_Load() 'List Combo: chart types With Combo1 .AddItem "3D Bar" .AddItem "2D Bar" .AddItem "3D Line" .AddItem "2D LIne" .AddItem "3D Area" .AddItem "2D Area" .AddItem "3D Step" .AddItem "2D Step" .AddItem "3D Combination" .AddItem "2D Combination" .ListIndex = 1 'default:2D Bar End With Check1.Caption = "&Show Legends"
'2D array --> chart values Dim X(1 To 7, 1 To 6) As Variant X(1, 2) = "Jakarta" X(1, 3) = "Bandung" X(1, 4) = "Cirebon" X(1, 5) = "Bogor" X(1, 6) = "Sukabumi"
X(2, 1) = "JAN" X(2, 2) = 3 X(2, 3) = 4 X(2, 4) = 5 X(2, 5) = 6 X(2, 6) = 7
X(3, 1) = "FEB" X(3, 2) = 4 X(3, 3) = 5 X(3, 4) = 3 X(3, 5) = 8 X(3, 6) = 12
X(4, 1) = "MAR" X(4, 2) = 1 X(4, 3) = 3 X(4, 4) = 8 X(4, 5) = 10 X(4, 6) = 9
X(5, 1) = "APR" X(5, 2) = 4 X(5, 3) = 6 X(5, 4) = 12 X(5, 5) = 10 X(5, 6) = 14
X(6, 1) = "MAY" X(6, 2) = 2 X(6, 3) = 9 X(6, 4) = 7 X(6, 5) = 12 X(6, 6) = 8
X(7, 1) = "JUN" X(7, 2) = 12 X(7, 3) = 19 X(7, 4) = 5 X(7, 5) = 19 X(7, 6) = 10 '2D array --> chart data MSChart1.ChartData = X End Sub

Letakan pada Checkbox

Private Sub Check1_Click() If Check1.Value = 1 Then 'Show Legends MSChart1.ShowLegend = True Check1.Caption = "&Hide Legends" Else 'Hide Legends MSChart1.ShowLegend = False Check1.Caption = "&Show Legends" End If End Sub

Letakan pada Combo

Private Sub Combo1_Click() 'chart type -->run time. MSChart1.chartType = Combo1.ListIndex End Sub

Reade more >>

Cara Membuat Lampu Lalu Lintas Dengan Visual Basic 6.0

Okeh, kali ini kita akan mencoba memberikan sedikit tentang bagaimana Cara Membuat Lampu Lalu Lintas Dengan Visual Basic 6.0, program kali ini masih bersifat sederhana karena hanya menggunakan beberapa komponen saja. Langsung saja untuk menuturkan langkah demi langkah proses pembuatan program sederhana ini. Mari ikuti langkah – langkah berikut ini :

 

• Saya berharap sobat sudah menginstall software Visual Basic 6.0 pada PC / Laptop sobat, jika memang belum menginstall software VB-nya, sobat dapat download dulu softwarenya pada menu Free Download – Pilih Software – Setelah itu baru lah sobat install softwarenya.  
• Untuk langkah pertama marilah buka program VB sobat yang sudah terinstall, kemudian akan muncul kotak dialog maka pilihlah “Standard EXE” lalu Open. Seperti pada gambar berikut :

• Setelah sobat pilih open maka akan muncul tampilan utama lembar kerja visual basic 6.0. Seperti pada gambar berikut:

 

 

• Nah seperti itulah tampilan awal mula dari membuat sebuah program, kita dapat merancang program yang ingin kita buat di lembar kerja itu. Okeh tidak usah terlalu berlama-lama untuk penjelasannya, mari langsung saja kita buat lampu lalu lintas untuk menggantikan lampu lalu lintas yang sudah rusak pada jalanan ibukota…hehe  
• Pertama-tama kita ambil komponen “Frame” yang berada di sebelah kiri sobat atau yang dinamakan dengan “ToolBox”. Lihat contoh pada gambar berikut ini :

• Sudah ??? Jika sudah, sekarang sobat atur lebar dan tingginya form1 sesuai dengan keinginan sobat, karena kita ingin membuat desain tampilannya. Sebagai contoh lihat gambar berikut :

 

• Oia sobat bisa hapus tulisan “Frame 1” pada komponen frame tersebut, yaitu dengan cara : klik dulu komponen Frame-nya kemudian sobat beralih lah ke sebelah kanan sobat, disana terdapat menu “Properties” lalu carilah nama “Caption” dan hapuslah tulisan “Frame1”. Seperti pada gambar berikut :

• Setelah sobat mengatur lebar dan tingginnya form, langkah selanjutnya adalah mari kita ambil kembali komponen yang berada pada toolbox yaitu komponen “Shape”. Seperti gambar berikut :

 

• Kemudian sobat letakkan komponen “Shape” tersebut di dalam kotak “Frame”. Seperti pada gambar berikut :

• Loh koq kotak ??? Ya tenang aja, itu dapat kita ganti menjadi bentuk apapun, mari sekarang kita ganti dengan bentuk lingkaran. Sobat klik dulu bentuk kotak-nya kemudian kita beralih ke “Properties”, oia perlu sobat ketahui bahwa pada menu properties ini lah kita dapat mensetting setiap komponen yang kita gunakan apapun komponennya, sobat bisa coba otak-atik pada menu propertiesnya untuk komponen lainnya. Okeh sekarang kita lanjut ke materi, pada menu properties sobat cari yang namanya “Shape” dan rubah menjadi “3 – Circle”. Seperti pada gambar berikut :

• Lalu lihat hasil pada bentuk kotak sebelumnya, maka akan berubah bentuk menjadi sebuah lingkaran, lalu sobat ganti bentuk kotak lainnya sehingga semuanya menjadi bentuk lingkaran dengan cara yang sama. Lihat hasilnya pada gambar berikut :

• Selesai sudah kita membuat sebuah lampu, tenang perjalanan kita masih panjang. Sekarang coba kita tambahkan tiang penyangga agar lampu itu dapat berdiri kokoh di jalanan…hehehe. Begini caranya :
• Sobat ambil kembali komponen “Shape” yang berada di menu Toolbox dan buatlah sebuah tiang panjang lalu letakkan pas dibawah lampu tersebut. Sebagai contoh lihat pada gambar berikut :

• Nah seperti itulah gambaran dalam pembuatan lampu lalu lintas, sekarang tinggal kita membuat bagaimana agar lampu lalu lintas tersebut dapat berfungsi layaknya lampu lalu lintas yang berada di jalanan… Lanjutttt....
• Sekarang mari kita beri warna pada lampunya, sobat klik bentuk lingkaran yang paling atas kemudian sobat beralih ke “Properties”, kemudian sobat cari yang namanya “BackStyle” lalu rubah menjadi “1 - Opaque”. Nah sekarang kita beri lingkaran tersebut warna merah yaitu dengan cara : sobat cari yang namanya “BackColor” dan “BorderColor” rubahlah menjadi warna merah. “BackColor” menandakan sebagai warna untuk background dan “BorderColor” menandakan sebagai pinggiran dari lingkaran tersebut. Sudahkah ??? Jika sudah maka lingkaran tersebut menjadi warna merah semua, betul tidak ???. Hasilnya seperti pada gambar berikut : 

• Langkah berikutnya sobat rubah lingkaran yang lainnya sesuai dengan warna pada lampu lalu lintas. Seperti pada gambar berikut :

• Oia satu lagi, agar terlihat seperti layaknya lampu lalu lintas yang berada di pinggir jalan kita beri warna pada “Frame” dan “Tiangnya”, caranya gini : klik pada framenya kemudian beralih ke properties cari yang namanya “BackColor” lalu rubah warnanya menjadi warna hitam begitu juga dengan tiangnya rubah menjadi warna hitam dengan cara seperti merubah lingkaran. Seperti pada gambar berikut :

• Sekarang saatnya kita memberikan sedikit script / coding pada lampu lalu lintas itu, agar dapat digunakan sebagai lampu lalu lintas di pinggir jalan. Hehehe
• Sobat ambil komponen “Timer” pada Toolbox cukup 3 timer aja. Gunanya timer adalah sebagai waktu yang nantinya kita gunakan untuk menentukan setiap berapa detik setiap lampu itu akan nyala. Lihat pada gambar berikut :

• Lalu sobat klik 2x pada “Timer1”, maka sobat akan di bawa ke jendela coding / biasa disebut lembar kerja koding, seperti pada gambar berikut :

• Nah !!! disana sudah ada tulisan : 

            Private Sub Timer1_Timer()

End Sub

• Itu artinya kita harus memberikan sebuah perintah terhadap “Timer1”. Untuk perintah di Timer1 berikan script / coding yang berwarna merah dibawah ini :  
  

           Private Sub Timer1_Timer()

Shape3.Visible = False

Shape1.Visible = True

Timer2.Enabled = True

Timer1.Enabled = False

End Sub

• Kemudian sobat kembali ke lembar kerja VB-nya dengan cara klik icon yang tertera pada gambar dibawah ini :

• Kemudian lakukan klik 2x kembali pada “Timer2”, dan berikan script / coding seperti dibawah ini :

Private Sub Timer2_Timer()

Shape1.Visible = False

Shape2.Visible = True

Timer3.Enabled = True

Timer2.Enabled = False

End Sub

• Dan untuk script / coding pada “Timer3” seperti dibawah ini :

Private Sub Timer3_Timer()

Shape2.Visible = False

Shape3.Visible = True

Timer1.Enabled = True

Timer3.Enabled = False

End Sub

• Sudah deh jadi lampu lalu lintasnya. Eitttsss tapi kita lupa memberikan waktu setiap berapa detik lampu itu akan menyala. Okeh saya berikan ketentuan waktunya, untuk Lampu Warna Merah saya berikan waktu untuk nyala selama “8 Detik”. Untuk “Lampu Warna Orange” saya berikan waktu nyala selama “2 detik”, dan untuk “Lampu Warna Hijau” saya berikan waktu nyala selama “6 Detik”, itu hanya ketentuan dari admin aja, sobat bisa rubah sesuai kemauan sobat. Mau tau caranya ???
• Mari ikuti langkah-langkahnya. 
• Sobat klik pada “Timer1” kemudian beralih ke “Properties”, nah disana terdapat nama “Interval”, Betul Tidak  ???. Lihat pada gambar :

• Disana tertulis Interve bernilai “0”, maka sobat ganti Interval pada Timer1 dengan nilai “6000”, itu artinya Timer1 akan memberikan waktu nyala terhadap lampu hijau sebanyak “6 Detik”, Why ??? karena pada script / codingnya “Timer1” diaktifkan oleh “Timer3”.  Itu artinya bahwa sebenarnya Lampu Warna Hijau di aktifkan oleh “Timer1”, Loh koq begitu ??? Kenapa ga Timer3 aja untuk lampu hijau ??? Tips dari admin bahwa membuat sebuah program itu memerlukan sebuah LOGIKA yang cukup kuat agar menghasilkan kualitas program yang sangat baik. Setiap manusia memiliki logika yang berbeda-beda dan sesuai dengan apa yang di anggapnya mudah. Okeh sudah paham tips dari admin, sekarang kita lanjut ke materi. Kemudian Interval pada Timer2 berikan nilai “8000”, artinya Lampu Warna Merah akan menyala selama “8 Detik”, dan kemudian untuk Interval pada Timer3 berikan nilai “2000”, artinya untuk Lampu warna kuning akan menyala selama “2 Detik”. Selesai untuk tahap pemberian waktunya, sekarang sobat cek kembali pada Timer1, Timer2, dan Timer3 pada “Properties-nya” disana terdapat nama “Enabled”, sobat ganti untuk “Timer1 Menjadi True”, “Timer2 Menjadi False” dan “Timer3 Menjadi False”, Agar Lebih Jelas lihat ketentuannya seperti pada gambar berikut :

• Sekarang lampu lalu lintas benar2 sudah jadi dan siap kita pasang di pinggir jalan, Loh Koq Bisa ??? Iya Bisa, Bisa Stress Mikirin untuk keluarinnya… hehehe
• Sobat sobat jalankan programnya dengan menekan tombol “F5” atau sobat klik tombol play yang berada di atas, Lihat hasilnya bagus bukan, hehehe… 
• Sobat bisa kembangkan sendiri sehingga hasilnya seperti pada gambar berikut ini :

 

• Cukup sekian postingan kali ini, manfaatkanlah waktu yang ada.

Reade more >>