Latihan 1
Atur Properties berikut ini :
OBJECK PROPERTIES PENGATURAN
(Name) Lbljudul
Label1
Caption Belajar VB 1
Shape1 (Name) bola
(Name) Lbltext
Label2
Caption (dikosongkan)
(Name) CmdPink
Command1
Caption PINK
(Name) Cmdhitam
Command2
Caption Hitam
(Name) CmdBiru
Command3
Caption BIRU
Command4 (Name) CmdMerah
Caption Merah
(Name) CmdHijau
Command5
Caption Hijau
(Name) CmdKuning
Command6
Caption Kuning
(Name) frmtext
Frame 1
Caption Pilih Warna Text
(Name) frmbackground
Frame 2
Caption Pilih Warna Background
Private Sub Command1_Click()
bola.BackColor = vbRed
End Sub
Private Sub Command2_Click()
bola.BackColor = vbGreen
End Sub
Private Sub Command3_Click()
text1.Caption = "P I N K"
text1.ForeColor = &HFF80FF
End Sub
Private Sub Command4_Click()
text1.Caption = "Hitam"
text1.ForeColor = vbBlack
End Sub
Private Sub Command5_Click()
bola.BackColor = vbYellow
End Sub
Private Sub Command6_Click()
text1.Caption = "B i r u"
text1.ForeColor = vbBlue
End Sub
Latihan 2
OBJECK PROPERTIES PENGATURAN
(Name) Lbljudul
Label1
Caption Kalkulator Mini
(Name) Lblbil1
Label2
Caption Masukan Bilangan1
(Name) Lblbil3
Label3
Caption Masukan Bilangan2
(Name) Lblhasil
Label4
Caption Hsdil Perhitungan
(Name) Txtbil1
Textbox1
Text (kosongkan)
(Name) Txtbil2
Textbox2
Text (kosongkan)
(Name) Txthasil
Textbox3
Text (kosongkan)
(Name) Cmdtambah
Command1
Caption +
(Name) Cmdkali
Command2
Caption x
(Name) Cmdkurang
Command3
Caption -
(Name) Cmdbagi
Command4
Caption /
(Name) CmdKeluar
Command5
Caption Keluar
Private Sub bagi_Click()
Dim bil1, bil2, hasil As Integer
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = Val(bil1) / Val(bil2)
txthasil.Text = hasil
End Sub
Private Sub kali_Click()
Dim bil1, bil2, hasil As Integer
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = Val(bil1) * Val(bil2)
txthasil.Text = hasil
End Sub
Private Sub kurang_Click()
Dim bil1, bil2, hasil As Integer
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = Val(bil1) - Val(bil2)
txthasil.Text = hasil
End Sub
Private Sub tambah_Click()
Dim bil1, bil2, hasil As Integer
bil1 = txtbil1.Text
bil2 = txtbil2.Text
hasil = Val(bil1) + Val(bil2)
txthasil.Text = hasil
End Sub
Latihan 3
Combobox1:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case “Nasi Uduk”
Label2.Text = “Rp. 3500”
hrgmakanan = 3500
Case “Bakso”
Label2.Text = “Rp. 6000”
hrgmakanan = 6000
Case “Mie Ayam”
Label2.Text = “Rp. 7000”
hrgmakanan = 7000
End Select
End Sub
variabel di Form1:
Public Class Form1
Public hrgmakanan, hrgminuman As Integer
Combobox2:
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case “Es Jeruk”
Label4.Text = “Rp. 3000”
hrgminuman = 3000
Case “Jus Alpukat”
Label4.Text = “Rp. 7000”
hrgminuman = 7000
Case “Teh Manis”
Label4.Text = “Rp. 4000”
hrgminuman = 4000
End Select
End Sub
Sub-routine Public:
Public Sub New()
‘ This call is required by the designer. InitializeComponent()
ComboBox2.Visible = False
Label3.Visible = False
‘ Add any initialization after the InitializeComponent() call.
End Sub
Checkbox1:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Enabled = False Then
ComboBox2.Visible = False
End If
If CheckBox1.Enabled = True Then
ComboBox2.Visible = True
Label3.Visible = True
End If
End Sub
Button1:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim porsimkn, porsimnm, jumlah As Integer
porsimkn = TextBox1.Text
porsimnm = TextBox2.Text
jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
Label7.Text = “Rp. ” & jumlah.ToString
End Sub
Latihan 2
private sub cmd1.click
If Text1.Text = “” Then
MsgBox (“Isi dulu Nama anda”)
Else
MsgBox (“Nama Saya” + Text1.Text + “Dan saya sedang belajar Visual Basic
6.0”)
End If
latihan 3
Berikut ini listing program berdasarkan komponen-komponen di dalamnya:
Command Button “Simpan”:
Private Sub Command1_Click()
‘Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
‘perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field
database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
‘update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
‘perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
‘perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Command Button “Edit”
Private Sub Command2_Click()
‘Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
‘perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Command Button “Hapus”
Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
DBGrid1:
Private Sub DBGrid1_Click()
‘kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke
textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub
latihan 4
Pengaturan properties pada tiap komponen:
OBJECK PROPERTIES PENGATURAN
(Name) Lbluser
Label1
Caption User ID
(Name) Lbluser
Label2
Caption Nama Lengkap
(Name) Lbluser
Label3
Caption Password
(Name) Lbluser
Label4
Caption Ketik Ulang Password
(Name) Lbluser
Label5
Caption Type User
Text1 (Name) TxtUser
Text2 (Name) TxtNama
Text3 (Name) TxtPassword
Text4 (Name) TxtUlang
Text5 (Name) TxtType
Option1 (Name) optAdm
Option2 (Name) optOperator
Listview1 (Name) Lv1
(Name) Cmdtambah
Command1
Caption Tam&bah
(Name) Cmdsimpan
Command2
Caption Sim&pan
(Name) Cmdhapus
Command3
Caption Ha&pus
(Name) Cmdtambah
Command4
Caption Bat&al
komponen database “Pengguna”. Anda bisa membuatnya di Microsoft Access:
FIELD
DATA TYPE SIZE
NAME
Username Text 25
Nama Text 25
Password Text 10
Type Text 10
Oh iya, jangan lupa untuk menambahkan references “Microsoft Activex Data
objeck 2.0 Library” agar database tersebut terhubung pada program Visual Basic
Anda.
Berikut ini adalah listing program berdasarkan komponen-komponen pada form:
tombol “Tambah”:
Text1.Enabled = True
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
CmdTambah.Enabled = False
CmdSimpan.Enabled = True
CmdSimpan.Caption = “Simpan”
CmdKeluar.Caption = “Batal”
Tombol “Simpan”:
If Text4.Text <> Text3.Text Then
MsgBox “Password tidak sama, ketik ulang password “, vbInformation
Exit Sub
End If
If Text1.Text = “” Or Text2.Text = “” Or Text3.Text = “” Or Text4.Text = “” Or
Text5.Text = “” Then
MsgBox “DATA tidak boleh kosong!”, _
vbInformation + vbOKOnly, “Perhatian”
Text1.SetFocus
Else
‘On Error Resume Next
If TbSimpan.Caption = “Simpan” Then
SqlInsert = “”
SqlInsert = “INSERT INTO UsrKontrol” _
& ” (UsrName,” _
& ” Nama,” _
& ” Pass,” _
& ” Tipe)” _
& ” VALUES(‘” & Text1.Text & “‘,'” _
& Text2 & “‘,'” _
& Text3 & “‘,'” _
& Text5.Text & “‘)”
MsgBox “data telah disimpan”, vbInformation, “keterangan”
DbKoneksi.Execute SqlInsert, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
ElseIf TbSimpan.Caption = “Ubah” Then
‘ eksekusiSQL “update UsrKontrol set UsrName='” & safeSQL(Text1) &
“‘,Nama='” & safeSQL(Text2) & “‘, Pass='” & safeSQL(Text3) & “‘ tipe='” &
safeSQL(Text5) & “‘”
eksekusiSQL “update UsrKontrol set nama='” & safeSQL(Text2) & “‘,pass='” &
safeSQL(Text3) & “‘, tipe='” & safeSQL(Text5) & “‘ where usrname='” &
safeSQL(Text1) & “‘”
MsgBox “Update data sukses.”, vbInformation
Call FormNormal
Call Form_Load
End If
End If
Tombol “Hapus”:
Konfirmasi = MsgBox(“Anda yakin akan menghapus data ini?”, vbYesNo +
vbQuestion, “informasi”)
If Konfirmasi = vbYes Then
SqlDelete = “DELETE FROM UsrKontrol WHERE ” _
& ” Usrname='” & Text1.Text & “‘”
DbKoneksi.Execute SqlDelete, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
Else
Call FormNormal
End If
Tombol “Batal”:
If TbKeluar.Caption = “Keluar” Then
‘ frmMain.Enabled = True
Unload Me
Else
FormNormal
End If
Program pada Form_Load:
Sub FormMati()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Text = False
End Sub
Latihan 5
Private Sub Form_Load()
LblHari.Visible = False
LblUmur.Visible = False
LblZodiak.Visible = False
LblKeterangan.Visible = False
hari.Visible = False
umur.Visible = False
zodiak.Visible = False
keterangan.Visible = False
tahun.Visible = False
CmbKelamin.Text = "Pilih..!!"
With CmbKelamin
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
End Sub
Private Sub Command1_Click()
Dim Bulan As Integer
Dim Tanggal As Integer
Tanggal = Format(DTPicker.Value, "dd")
Bulan = Format(DTPicker.Value, "MM")
If TxtNama.Text = "" Then
MsgBox "Isi Dahulu Nama Anda", vbInformation, "Informasi"
TxtNama.SetFocus
Exit Sub
End If
If CmbKelamin.Text = "" Or CmbKelamin.Text = "Pilih..!!" Then
MsgBox "Pilih Dahulu Jenis Kelamin Anda", vbInformation, "Informasi"
CmbKelamin.SetFocus
Exit Sub
End If
'Menentkan Umur
LblUmur.Caption = DateDiff("yyyy", DTPicker.Value, Date)
'Menentukan Hari
KodeHari = Weekday(DTPicker.Value)
Select Case KodeHari
Case 1: hari = "Minggu"
Case 2: hari = "Senin"
Case 3: hari = "Selasa"
Case 4: hari = "Rabu"
Case 5: hari = "Kamis"
Case 6: hari = "Jumat"
Case 7: hari = "Sabtu"
End Select
LblHari.Caption = hari
'Menentukan Zodiak
If Bulan = 1 Then
LblZodiak.Caption = IIf(Tanggal <= 19, "Capricorn", "Aquarius")
ElseIf Bulan = 2 Then
LblZodiak.Caption = IIf(Tanggal <= 19, "Aquarius", "Pisces")
ElseIf Bulan = 3 Then
LblZodiak.Caption = IIf(Tanggal <= 20, "Pisces", "Aries")
ElseIf Bulan = 4 Then
LblZodiak.Caption = IIf(Tanggal <= 20, "Aries", "Taurus")
ElseIf Bulan = 5 Then
LblZodiak.Caption = IIf(Tanggal <= 21, "Taurus", "Gemini")
ElseIf Bulan = 6 Then
LblZodiak.Caption = IIf(Tanggal <= 21, "Gemini", "Cancer")
ElseIf Bulan = 7 Then
LblZodiak.Caption = IIf(Tanggal <= 21, "Cancer", "Leo")
ElseIf Bulan = 8 Then
LblZodiak.Caption = IIf(Tanggal <= 21, "Leo", "Virgo")
ElseIf Bulan = 9 Then
LblZodiak.Caption = IIf(Tanggal <= 22, "Virgo", "Libra")
ElseIf Bulan = 10 Then
LblZodiak.Caption = IIf(Tanggal <= 23, " Libra", "Scorpio")
ElseIf Bulan = 11 Then
LblZodiak.Caption = IIf(Tanggal <= 22, "Scorpio", "Sagitarius")
Else
LblZodiak.Caption = IIf(Tanggal <= 22, "Sagitarius", "Capricorn")
End If
'Mengisi Label keterangan
If LblZodiak.Caption = "Capricorn" Then
LblKeterangan.Caption = "Penuh energi, Penuh intuisi, mampu berinspirasi, dapat
meramal, berperikemanusiaan, dapat menerangkan sesuatu"
ElseIf LblZodiak.Caption = "Aquarius" Then
LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi,
berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal
dengan cepat"
ElseIf LblZodiak.Caption = "Pisces" Then
LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta
kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
ElseIf LblZodiak.Caption = "Aries" Then
LblKeterangan.Caption = "Penuh energi, serba bisa, banyak akal, cepat bertindak, cinta
kebebasan dan perubahan, bisa menjamu dan menghibur, seksualitas, mampu berpikir cepat"
ElseIf LblZodiak.Caption = "Taurus" Then
LblKeterangan.Caption = "Ulet, gigih, Memiliki otoritas, berkemampuan eksekutif, senang
melakukan supervisi, mempertimbangkan efisiensi, penilai, meterialis, bisa dipercaya"
ElseIf LblZodiak.Caption = "Gemini" Then
LblKeterangan.Caption = "Berani, Penuh inisiatif, mempunyai daya cipta, Individualitas,
mempnyai gagasan2 creatif dan inventif, memiliki kemampuan eksekutif, berkemauan keras, gigih,
mandiri, mampu bertindak, penuh perjuangan"
ElseIf LblZodiak.Caption = "Cancer" Then
LblKeterangan.Caption = "Mempunyai perdamaian, dapat bekerja sama, berjiwa
kemitraan, diplomasi, penengah, suka berunding, mudah beradaptasi, rendah hati, luwes, memiliki
pengaruh spiritual"
ElseIf LblZodiak.Caption = "Leo" Then
LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi,
berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal
dengan cepat"
ElseIf LblZodiak.Caption = "Virgo" Then
LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi,
berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal
dengan cepat"
ElseIf LblZodiak.Caption = "Libra" Then
LblKeterangan.Caption = "Konstruktif, sistematis, tertib, praktis, relistis, teguh, tenang,
efisien, pembangun, serius, berpikir ilmiah, tekun, bertanggung jawab, rajin, jujur, setia, keras hari"
ElseIf LblZodiak.Caption = "Scorpio" Then
LblKeterangan.Caption = "Tidak mementingkan diri sendiri, pemaaf, iba hati, bisa
toleran, lapang dada, dermawan, ahli agama, suka akan hal spiritual"
Else
LblKeterangan.Caption = "Berbakat artistik, bisa berimajinasi, berinspirasi,
berkemampuan bicara, serba bisa, optimis, suka kesenangan, nasib baik, cemerlang, mampu meramal
dengan cepat"
End If
LblHari.Visible = True
LblUmur.Visible = True
LblZodiak.Visible = True
LblKeterangan.Visible = True
hari.Visible = True
umur.Visible = True
zodiak.Visible = True
keterangan.Visible = True
tahun.Visible = True
End Sub
Private Sub Command2_Click()
End
End Sub
