Cari Blog Ini

Memuat...

Minggu, 23 Desember 2012

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 :
  1. 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
  2. Membuat database :
    1. Click Add-ins
    2. Visual Data Manager
    1. New – Microsoft Access – Versi 7.0 MDB
    1. Cari folder penyimpanan yang telah dibuat, lalu buat nama database : Input MHS
    2. Clik kanan properties – new table
    1. Buat nama table (MHS)  pada table name
    2. 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
    1. Setelah input yang terakhir (ket) click OK lalu close
    2. Click add-index , buat nama index (idxmhs), lalu click npm untuk primary key
    1. Click close, build the table
  1. 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
    1. Pada tab recordsource ganti command type jadi adcmdtext
    2. Ketik perintah sql pada command text(sql) :
select*from MHS order by npm asc
    1. Click OK
  1. Letakkan kutsor pada datagrid , pada properties ganti data datasource menjadi adodc1
  2. Click kanan pada datagrid – pilih retrieve fields
  3. Click kanan adodc – adodc properties, blog semua text yang ada pada use connection string – copy – OK
  1. Tambahkan sebuah modul
    1. Click project – add-module – open
    1. 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
  1. 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
  1. 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
  1. Program keluar :
Private Sub Command3_Click()
Unload Me
End Sub
  1. Program Bersihkan :
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
End Sub
  1. 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
  1. Selesai, sekarang tinggal jalankan program

Tidak ada komentar:

Poskan Komentar