Download Aplikasi DroidSQLI Mods v1.0

Assalamualaikum

Kali ini kita belajar VB (Visual Basic)

Pada kali ini kita akan membahas: Memulai Program VB, Konsep Dasar, Sintak 

Dasar dan Controls atau Syntax Dasar.

MEMULAI PROGRAM VB:

Untuk memulai pemrogramman, kita terlebih dulu membuat sebuah proyek baru. Agar lebih 

mantap untuk membuat project baru, sebaiknya kita singgung kembali cara masuk ke sebuah 

project dan cara-cara atau langkah-langkah pembuatan sebuah project tersebut. Proyek yang 

digunakan adalah proyek standard Exe. Pada waktu proyek dibuat, secara default sudah terdapat 

sbuah form, yaitu form1. 

Untuk membuat proyek ikuti langkah berikut :

 >Dari windows, jlnkan program Visual Basic 6.0, setelah itu muncul kotak dialog New Project

 >Pada kotak dialog New Project, pilih standard exe, lalu clik Open

>Menu interface vb akan terbuka, dan Lembaran form, toolbox, propertie, project explorer siap 

digunkan

Dan Cara-cara membuat sbh proyek, yg akan kita lakukan :

 >Menambahkan form kedalam proyek, 

 >Mendisain objeck atau control pada form,

 >Mensetting property object atau control pd form

 >Menulis kode program dan mengexekusi/me-run program.

 >Kemudian kita dpt merubah menjadi sebuah executable File

Suatu proyek bisa terdiri dari satu form atau lebih, untuk itu perlu juga menyinggung 

kembali cara menambahkan form ke project yagn sedang anda garap tsb. Untuk menabahkan 

sebuah form ke project yang sedang aktif atau yang sedang terbuka atau project yang lagi digarap 

dapat dilakukan 3 cara :

 >Clik menu Project, clik Add Form, setelah itu muncul kotak dialog Add Form, lalu pilih form 

dan clik Open 

 >Pada toolbar pilih, clik icon Add Form, setelah itu muncul kotak dialog Add Form, lalu pilih 

form dan clik Open 

 >Clik kanan pada project Explorer, Pilih Add, kemudian clik Form, kemudian muncul kotak 

dialog Add Form, pilih Form dan clik Open.

Untuk Menambahkan object atau mendisain object atau control pada form, Anda dpt 

menggunakan daya disain dan imajinasi anda dlm merancang atau mendisain tampilan sistem yg 

akan anda buat. Setelah rancangan atau disain form selesai anda buat langkah selanjutnya Buatkan 

kode/program utk menjalankan disan atau hasil rangan anda. Langkah terakhir jalankan (Run) utk 

menguji program/code aplikasi dari rancangan form tsb, disini dapat dilakukan dgn 3 cara :

 >Clik menu run, lalu clik Start

>Clik tombol F5 Pada Keyboard

>Clik Icon start pd toolbar

Dan jika sudah benar 100% dan layak, project sistem atau aplikasi sistem yg anda buat tsb, anda 

dapat mengkompilasinya menjadi File Exe yang langkah-langkah nya sbb : 

 >Clik menu file, lalu clik make <Nama Proyek anda>.Exe

>Lalu muncul kotak dialog Make Project

>Isi kotak file name dgn nama file Exe yg akan anda buat, kemudian pilih directory yg anda 

kehendaki, kemudian clik Ok

3.2 KONSEP DASAR (PROPERTIE, METODE, EVENT)

● PROPERTIE :

>Suatu Properti didefinisikan sbg elemen dari suatu object yg bisa diubah, baik secara langsung 

(melalui code), maupun tdk langsung (melalui propertie explorer

 >Propertie cendrung utk tetap, tdk berbah (selama tidak ada tindakan utk mengubahnya baik via 

code maupun dari propertie explorer), selama aplikasi berjalan. Tidak seperti variable, yg 

hanya berlaku selama hdp procedure atau modul tempat variable tsb di deklarasikan.

 Penganturan program Propertie pada VB merupakan salah satu hal yang terpenting untuk 

dipelajari 

 >Mirip sebuah benda yang memiliki identitas, maka property juga menjadi identitas bagi suatu 

Object

● METODE

 

Metode atau method merupakan suatu cara dari programmer yang membuat control/object 

yg didesign pd form bereaksi.

● EVENT

>Event bisa dikatakan sbg sesuatu yg terjadi selama program

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

 Label2.FontItalic = Check2.Value

End Sub

Private Sub Command2_Click()

 End

End Sub

 Simpan Project1 (nama file : Latihan.vbp) dan Form1 (nama file : Lat1.frm). VB 6 akan 

menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file 

project (*.vbp), file form (*.frm) dan file module (*.bas).

 Coba jalankan Project1 dengan meng-klik tombol Start (►) pada bagian Toolbar atau tekan 

tombol F5 pada keyboard. 

 

 Kemudian ketikkan “Nama anda” di dalam TextBox kemudian |Click tombol OK. Maka akan 

tampil hasilnya, dan Cobalah click Option Biru dan Merah dia akan bergantian. Begitu juga coba 

click Object check Tebal dan miring Lihat apa hasilnya, dan Perhatikanlah hasilnya setiap 

operanya !.

2. Bukalah project1 / Latihan.vbp, Tambahkan form baru (Form2).

 Pada Jendela Form2 buatlah UI (User Interface). Gunakan Object Label, Frame, CheckBox dan

OptionButton dan CommandButton. Kemudian settinglah propertinya sesuai yang terlihat pada 

rancangan Form dibawah ini :

Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut : 

Code untuk Run/Melaksanakan rancangan form diatas :

Code utk running form tsb

Private Sub Check1_Click()

If Check1.Value = vbChecked Then

 Label1.FontBold = True

Else

 Label1.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = vbChecked Then

 Label1.FontUnderline = True

Else

 Label1.FontUnderline = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = vbChecked Then

 Label1.FontItalic = True

Else

 Label1.FontItalic = False

End If

End Sub

Private Sub Form_Load()

Option1.Value = False

Option2.Value = False

Option3.Value = False

Check1.Value = Unchecked

Check2.Value = Unchecked

Check3.Value = Unchecked

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label1.ForeColor = vbYellow

End Sub

Private Sub Option3_Click()

Label1.ForeColor = vbGreen

End Sub

Simpan Form2 dengan nama : LatDsr.frm. Kemudian Click MenuProject | Project1 Properties | 

lalu klik tab General. Gantilah Startup Object-nya menjadi 

Form2. Coba jalankan Click icon start (►) pada toolbar !. dan perhatikan hasilnya setiap langkah 

opersasi.

● Lihat kesamaan antara ComboBox dengan ListBox

SINTAKS DASAR PADA CONTROL LISTBOX & COMBOBOX:

Penulisan/sintak dari CODE control LISTBOX & COMBOBOX

● Sintaks Pada Form ListBox:

 Private Sub Form_Load()

 List1.AddItem "Satu"

 List1.AddItem "Dua"

End Sub

Code diatas adalah Meletakan Item / daftar ke object ListBox

Private Sub List1_Click()

Label1.Caption = List1.Text

End Sub

Code diatas adalah Memilih Item / daftar dari object ListBox dan meletakannya ke object 

label1

Private Sub Command1_Click()

FormListBox.Hide

FormComboBox.Show

End Sub

Code diatas adalah menyembunyikan formListBox dan Menampilkan FormComboBox

Private Sub Command2_Click()

End

End Sub

 Code diatas adalah mengakhir execution/jalannya program. 

● Sintaks Pada Form Combo Box

Private Sub Form_Load()

 Combo1.AddItem "Satu"

 Combo1.AddItem "Dua"

End Sub

 Code diatas adalah Meletakan Item / daftar ke object ComboBox

Private Sub Combo1_Click()

 Label1.Caption = Combo1.Text

End Sub

Code diatas adalah Memilih Item / daftar dari object ComboBox dan meletakannya ke 

object label1 atau bias juga TextBox bila menggunakan disain texbox, 

Private Sub Command1_Click()

 FormListBox.Hide

FormComboBox.Show

End Sub

Code diatas adalah menyembunyikan formListBox dan Menampilkan FormComboBox

Private Sub Command2_Click()

 End

End Sub

Code diatas adalah mengakhir execution/jalannya program

Hasil running dari code diatas

Hasil running ini adalah disain form yang dilaksanakan dengan code/program diatas. 

Sebelumnya formlistbox didisain dengan object Listbox, Label1 dan Commandbutton. Begitu juga 

formcombobox didisain dengan objectCombobox, Label1 dan Commandbutton 

3.4 MENGENDALIKAN PROGRAM Dengan EVENT

3.4.1 Event untuk Mouse (Click, Doubleclick, MouseDown, dll)

Event_Click 

Private Sub Command1_Click()

Command1.Caption = "Enjoy With VB !"

Form1.BackColor = vbYellow

Label1.Caption = "My BackColor Yellow My BackColor Yellow"

End Sub

Private Sub Command2_Click() ‘Event Click Command2

Label1.Caption = "CLICK FORM YANG KOSONG !"

Command1.Caption = "Click Here !"

Form1.BackColor = vbGreen

Form1.Caption = "LIHAT TAMPIL BEDAKAN "

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_click() ‘Event Click Form

Form1.Caption = "Enjoy With VB !"

Label1.Caption = "See you My Caption and BackColor difference"

Form1.BackColor = vbRed

End Sub

Hasil running dari code diatas

3.4.2 Event pada Keyboard (KeyPress / Tekan enter) 

 

 Event_KeyPress pada object textbox 

 Kode ascii 13 adalah tombol enter

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

 Form1.Caption = "Haloo..." & Text1.Text

 Text2.SetFocus

End If

End Sub

Code diatas setelah mengisikan data ke object Text1, tekan enter maka caption dari form1 

tertulis kalimat “Haloo… isi text1.text“ Dan Kursor pindah/aktif pada text2.

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

 MsgBox "Perhatian " & Text1.Text & ("UsiaMU adalah : ") & Text2.Text & 

 "Tahun", vbInformation, "Enjoy With VB"

 Form1.Caption = Text1.Text & Text2.Text & " Tahun"

End If

End Sub

Code diatas setelah mengisikan data ke object Text2, tekan enter maka muncul kotak 

informasi berisikan teks/kalimat “Perhatikan + isi text1.text danseterusnya“ Dan Form1 

captionnya terisi kalimat “Isi text1 + isi text2 + Tahun”

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text1.SetFocus

Form1.BackColor = vbBlue

Form1.Caption = "COBA LAGI !"

End Sub

Code diatas, bila diclcik tombol again (Command2) maka isi text1 dan isi text2 akan 

kehapus/kosong, dan kusor aktif pada text1, caption form1 terisi “Coba Lagi !” serta 

Backcolor form1 berwarna biru.

Private Sub Command1_Click()

End

End Sub

Hasil running dari code diatas

Note :

Masih banyak event lain yang bisa diciptakan pada masing-masing/setiap object visualbasic

Sekian terima kasih

Semoga bermanfaat