Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.
Para programmer dapat membangun aplikasi dengan menggunakan
komponen-komponen yang disediakan oleh Microsoft Visual Basic
Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.
Contoh:
- Buat sebuah folder untuk menyimpan semua file
- Buka program VB 6.0
- Disain form seperti berikut :
- Ketentuan program
- Npm = input
- Nama = input
- Jurusan pilih di combobox
- Quis = input
- UTS = input
- Uas = input
- Jumlah, rata-rata, huruf dan keterangan keluar saat uas diinputkan
- Membuat database :
- Click Add-ins
- Visual Data Manager
- New – Microsoft Access – Versi 7.0 MDB
- Cari folder penyimpanan yang telah dibuat, lalu buat nama database : Input MHS
- Clik kanan properties – new table
- Buat nama table (MHS) pada table name
- Click add fields
Fields
|
Type
|
Size
|
Npm
|
Text
|
13
|
Nama
|
Text
|
50
|
Jurusan
|
Text
|
25
|
Quis
|
Int
|
-
|
Uts
|
Int
|
-
|
Uas
|
Int
|
-
|
Jumlah
|
Int
|
-
|
Rata_rata
|
Int
|
-
|
Huruf
|
text
|
1
|
Ket
|
text
|
15
|
- Setelah input yang terakhir (ket) click OK lalu close
- Click add-index , buat nama index (idxmhs), lalu click npm untuk primary key
- Click close, build the table
- Menghubungkan data grid dengan adodc :
- Click kanan adodc – adodc properties
- Click build –Pilih Microsoft Jet 4.0 OLE DB Provider -Next – cari database MHS – OK
- Pada tab recordsource ganti command type jadi adcmdtext
- Ketik perintah sql pada command text(sql) :
select*from
MHS order by npm asc
- Click OK
- Letakkan kutsor pada datagrid , pada properties ganti data datasource menjadi adodc1
- Click kanan pada datagrid – pilih retrieve fields
- Click kanan adodc – adodc properties, blog semua text yang ada pada use connection string – copy – OK
- Tambahkan sebuah modul
- Click project – add-module – open
- Ketikkan program berikut
Global koneksi As New
ADODB.Connection
Global tabel As New
ADODB.Recordset
Dim strk As String
Global sql As String
Sub main()
strk = "click kanan – paste
(Ctrl+V)"
Koneksi.Open strk
Form1.Show
End Sub
- Program mengisi combobox pada jurusan di form load , clik 2 kali pada form load lalu ketikan program :
Private Sub Form_Load()
Combo1.AddItem " Management
Informatika"
Combo1.AddItem "
Akuntansi"
Combo1.AddItem " Hukum"
Combo1.AddItem "
Matematika"
End Sub
- Program pada text5 dengan event change :
Private Sub Text5_Change()
Text6 = Val(Text3) + Val(Text4) +
Val(Text5)
Text7 = Val(Text6) / 3
If Val(Text7) < 40 Then
Text8.Text = "E"
Text9.Text = "Gagal"
Else
If Val(Text7) < 54 Then
Text8.Text = "D"
Text9.Text = "Gagal"
Else
If Val(Text7) < 64 Then
Text8.Text = "C"
Text9.Text = "Lulus"
Else
If Val(Text7) < 80 Then
Text8.Text = "B"
Text9.Text = "Lulus"
Else
Text8.Text = "A"
Text9 = "Lulus"
End If
End If
End If
End If
End Sub
- Program keluar :
Private Sub Command3_Click()
Unload Me
End Sub
- Program Bersihkan :
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
End Sub
- Program simpan :
Private Sub Command1_Click()
sql = "select * from MHS
"
If tabel.State = 1 Then tabel.Close
tabel.Open sql, koneksi,
adOpenDynamic, adLockOptimistic
tabel.AddNew
tabel.Fields("npm") = Text1
tabel.Fields("nama") = Text2
tabel.Fields("jurusan") = Combo1
tabel.Fields("quis") = Text3
tabel.Fields("uts") = Text4
tabel.Fields("uas") = Text5
tabel.Fields("jumlah") = Text6
tabel.Fields("rata_rata") = Text7
tabel.Fields("huruf") = Text8
tabel.Fields("ket") = Text9
tabel.Update
X = MsgBox("Penyimpanan
Sukses", vbInformation, "Save Information")
Adodc1.Refresh
Text1 = " "
Text2 = " "
Combo1 = "'"
Text3 = " "
Text4 = " "
Text5 = ""
Text6 = ""
Text7 = "'"
Text8 = "'"
Text9 = ""
Text1.SetFocus
End Sub
- Selesai, sekarang tinggal jalankan program