Contoh Kodingan Visual Basic

Ø  Contoh Coding Select Case

Private Sub Command1_Click()
Select Case Text1.Text
Case "S"
kb = "Sakura"
ab = "Jepang"
Case "A"
kb = "Anggrek"
ab = "Indonesia"
Case "L"
kb = "Lavender"
ab = "Belanda"
Case "M"
kb = "Mawar"
ab = "Inggris"
End Select
Label5.Caption = kb
Text2.Text = ab
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
End Sub

Private Sub End_Click()
End
EndSuB

Ø  Contoh ProgramStruktur IF…THEN

Aktifkan VB 6 melaluitombol Start.Buat project barudenganStandartEXEuntukmembuat User Interface sederhanasepertigambarberikut:

 

Pengaturan property setiap object-nyaadalahsebagaiberikut :BukaJendela Code danpadabagian Code Editor ketikkankodeprogramnyasebagaiberikut :

Private Sub Command1_Click()

If Text1.Text = "sayatampan" ThenImage1.Visible = TrueText1.Enabled = FalseCommand1.Enabled = FalseElseMsgBox "Password Salah !"Text1.Text = ""Text1.SetFocus

End If

End Sub

Simpan Form (namafile :Lat_if.frm).Cobajalankan Program

KetikkansembarangtekspadaTextBoxlalukliktombol OK atautekanEntertidakterjadiapa-apa.

Ketikkan“ sayatampan” padaTextBox

lalukliktombol OK atautekanEntergambarkomputerakanmuncul

Ø  Contoh code perulangandenganbantuan ADODC

Adodc1.RecordSource = "SELECT * FROM jual WHERE tanggal=#' + format(date,"yyyy-mm-dd") + "#"

Adodc1.Refresh

Adodc1.MoveFirst

If Not (Adodc1.Recordset.EOF or Adodc1.Recordset.BOF) Then

Do Until Adodc1.Recordset.EOF

' ... SilakanAndamelakukansesuatudisini, misalnyainginmenyalin data ketabel yang lain, makamasukkan code-codenyadisini

Adodc1.Recordset.MoveNext

Loop

End if

Keterangan :

baris 1 dan 2  : code untukmembuka data/tabeldenganadodc
Baris 3                         : ....MoveFirst, memindahkankeawal record.

baris 4                          : Validasi, hanyaakanmeneruskan proses jika data tidakdalamkeadaankosong

baris 5                          : Saratperulangan, jika Data sudahberadadiakhir (...EOF) record maka proses perulanganakandihentikan

baris 6                          : ... MoveNext, coding untukmemindahkanke record selanjutnya, sehinggaperulanganakanterusberjalansampaiakhir record, jikaAndatidakmenggunakannyamaka proses tidakakanberhentidandapatmenyebabkanhangpadakomputerAnda.

baris 7                          : pasangandaribaris 4

baris 8                          : menutup if