Pengertian dan contoh Program Visual Basic

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:

 

1. Buat sebuah folder untuk menyimpan semua file
2. Buka program VB 6.0
3. Disain form seperti berikut :

4. Ketentuan program
1. Npm = input
2. Nama = input
3. Jurusan pilih di combobox
4. Quis = input
5. UTS = input
6. Uas = input
7. Jumlah, rata-rata, huruf dan keterangan keluar saat uas diinputkan
5. Membuat database :
1. Click Add-ins
2. Visual Data Manager

3. New – Microsoft Access – Versi 7.0 MDB

4. Cari folder penyimpanan yang telah dibuat, lalu buat nama database : Input MHS
5. Clik kanan properties – new table

6. Buat nama table (MHS)  pada table name
7. 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

8. Setelah input yang terakhir (ket) click OK lalu close
9. Click add-index , buat nama index (idxmhs), lalu click npm untuk primary key

10. Click close, build the table
5. Menghubungkan data grid dengan adodc :
1. Click kanan adodc – adodc properties
2. Click build –Pilih Microsoft  Jet 4.0 OLE DB Provider -Next – cari database MHS – OK

3. Pada tab recordsource ganti command type jadi adcmdtext
4. Ketik perintah sql pada command text(sql) :

select*from MHS order by npm asc

5. Click OK

7. Letakkan kutsor pada datagrid , pada properties ganti data datasource menjadi adodc1
8. Click kanan pada datagrid – pilih retrieve fields
9. Click kanan adodc – adodc properties, blog semua text yang ada pada use connection string – copy – OK

10. Tambahkan sebuah modul
1. Click project – add-module – open

2. 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

11. 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

12. 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

13. Program keluar :

Private Sub Command3_Click()

Unload Me

End Sub

14. Program Bersihkan :

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text1.SetFocus

End Sub

15. 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

16. Selesai, sekarang tinggal jalankan program