Jawaban Quiz Visual Basic

Jawaban No. 2

kasus

Public Class Form1

    Sub buattabel()

        LV.Columns.Add("NPM", 100, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(NAMA.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Isitabel()

        NPM.Text = ""

        NAMA.Text = ""

    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

Jawaban Soal No. 3

Public Class Form1

  

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        If Username.Text = "R" And Password.Text = "2" Then

            FormMenu.Show()

            Me.Hide()

        Else

            MsgBox("MAAF!Password Salah !")

            Username.Text = ""

            Password.Text = ""

        End If

    End Sub

    Private Sub Username_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Username.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Public Class FormMenu

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click

        fromKaryawan.Show()

    End Sub

 End Class

 

Public Class fromKaryawan

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

        If NIP.Text = "0911550" Then

            Nama.Text = "REIZHA ARSITA"

        ElseIf NIP.Text = "0911442" Then

            Nama.Text = "SITI KHOLIJAH"

        ElseIf NIP.Text = "0911564" Then

            Nama.Text = "RISMAWATI"

        ElseIf NIP.Text = "09116305" Then

            Nama.Text = "FRISCHA"

        End If

    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged

        If Golongan.Text = "IIIA" Then

            Gaji.Text = "3000000"

        ElseIf Golongan.Text = "IIIB" Then

            Gaji.Text = "2500000"

        ElseIf Golongan.Text = "IIIC" Then

            Gaji.Text = "2000000"

        ElseIf Golongan.Text = "IIID" Then

            Gaji.Text = "1500000"

        End If

        Pajak.Text = 3% * Gaji.Text

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        If Status.Text = "MENIKAH" Then

            TunjanganKeluarga.Text = 16% * Gaji.Text

        ElseIf Status.Text = " BELUM MENIKAH" Then

            TunjanganKeluarga.Text = ""

        End If

    End Sub

    Private Sub jumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged

        If JumlahAnak.Text = "1" Then

            TunjanganAnak.Text = 10% * Gaji.Text

        ElseIf JumlahAnak.Text = "2" Then

            TunjanganAnak.Text = 19% * Gaji.Text

        End If

    End Sub

    Sub Buattabel1()

        LV.Columns.Add("NIP", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji", 60, HorizontalAlignment.Center)

        LV.Columns.Add("status", 80, HorizontalAlignment.Center)

        LV.Columns.Add("tunjangan keluarga", 150, HorizontalAlignment.Center)

        LV.Columns.Add("jumlah anak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("tunjangan anank", 150, HorizontalAlignment.Center)

        LV.Columns.Add("pajak", 60, HorizontalAlignment.Center)

        LV.Columns.Add("total", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = NIP.Text

        Lst.SubItems.Add(Nama.Text)

        Lst.SubItems.Add(Golongan.Text)

        Lst.SubItems.Add(Gaji.Text)

        Lst.SubItems.Add(Status.Text)

        Lst.SubItems.Add(TunjanganKeluarga.Text)

        Lst.SubItems.Add(JumlahAnak.Text)

        Lst.SubItems.Add(TunjanganAnak.Text)

        Lst.SubItems.Add(Pajak.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub fromKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Buattabel1()

        NIP.Items.Add("0911550")

        NIP.Items.Add("0911442")

        NIP.Items.Add("0911564")

        NIP.Items.Add("0911635")

        Golongan.Items.Add("IIIA")

        Golongan.Items.Add("IIIB")

        Golongan.Items.Add("IIIC")

        Golongan.Items.Add("IIID")

        Status.Items.Add("MENIKAH")

        Status.Items.Add("BELUM MENIKAH")

        JumlahAnak.Items.Add("1")

        JumlahAnak.Items.Add("2")

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        IsiTabel()

        Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) + Val(Pajak.Text)

        NIP.Text = ""

        Nama.Text = ""

        Golongan.Text = ""

        Gaji.Text = ""

        Status.Text = ""

        TunjanganKeluarga.Text = ""

        JumlahAnak.Text = ""

        TunjanganAnak.Text = ""

        Pajak.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Tunjangananak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TunjanganAnak.TextChanged

        Total.Text = Val(Gaji.Text) + Val(TunjanganAnak.Text)

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        LV.Items.Clear()

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        Close()

    End Sub

    Private Sub Pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajak.TextChanged

    End Sub

End Class

kegiatan pada hari rabu

1. pada hari ini, saya masuk kuliah pada pukul 13.00, saya berangkat kuliah pada pukul12.30
2. hari ini saya belajar diruangan lab. komputer

3. dengan mata kuliah dan materi yang tersedia.
4. belajar matakuliah dilab dengan dosen yang bersangkutan juga. mendengarkan setiap kata - kata yang disampaikan dosen tersebut.

kegiatan dihari selasa

1. pada hari selasa, pada pukul 15.00 saya pergi kuliah, saya masuk kuliah pukul 15.30, saya belajar diruang materi dengan mata kuliah yang tersedia, dan dengan dosen yang telah ditentukan.

2. pukul 18.00 saya selesai belajar dan langsung pulang kerumah.
3. pukul 21.00 saya langsung tidur

Pembuatan Form Login Pada Visual Basic.Net 2008

Pembuatan Form Login Pada Visual Basic.Net 2008

hummpp* tanpa jebla-jebla lagi mari kita mulai tutorial pembuatan form login yang dimaksud. Tutorial ini merupakan lanjutan dari tutorial sebelumnya mengenai splash screen, sebuah aplikasi yang keren dan canggih tidak terlepas dari loading dan form login, maka disini saya akan memberikan solusi bagi para pembaca.

Langkah 1.

Buka project splash screen yang telah kita buat, kemudian pilih tools project >> add new item >> pilih login form, kemudian OK. Maka akan tampil sebagai berikut.

Pada form ini semuanya sudah tersedia dan tersusun dengan rapi tanpa harus bersusah payah untuk membuatnya.

Langkah 2.

Pada langkah ini kita membuat tampilan sebagus dan sebisa kalian, di sini saya hanya merubah background setiap logo yang ada, dengan cara pilih logo mana yang ingin diganti kemudian lihat pada propertiesnya kemudian cari background image >> project resource file >> kemudian import file gambar yang ingin kalian masukkan kemudian OK, untuk lebih jelasnya lihat gambar berikut.

Tampilan sebelum diberikan gambar.

Tampilan pada saat ingin memilih gambar.

Langkah 3.

Pada tahap ini kita membuat logopicturebox lagi untuk menambahkan penampilan yang menarik,  yaitu dengan cara cop-pas pada logopicturebox1 sebelumnya, setelah itu pindahkan sehingga berada sama persis pada logopicturebox1, kemudian klik kanan, pilih send to back, maka logopicturebox2 berada persis dibelakang logopicturebox1. Lihat gambar berikut.

Langkah 4.

Kita buat form1, yang merupakan link dari form login, jika username dan password berhasil dimasukkan maka akan tampil form1 ini, Pembuatan nya sebagai berikut. pilih tools project >> add new item >> pilih windows form, kemudian add. Tampilan sebagai berikut.

Langkah 5.

Ok kita mulai bermain dengan codinganya sekarang, minum susu biar ngga ngantuk.

Double click pada button Ok yang telah kita buat, maka akan muncul tampilan untuk memasukkan coding, ketikkan sebagai berikut.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = “cupapaw” And PasswordTextBox.Text = “ucup ganteng” Then
Form1.Show() ‘memberikan kondisi dimana nama dan password yang harus dimasukkan pada textbox masing-masing sebagai berikut,
Me.Dispose() ‘jika kondisi benar maka akan muncul form berikutnya, sekaligus form ini tertutup.
Else
LogoPictureBox2.Show() ‘jika username dan password yang dimasukkan salah
LogoPictureBox.Hide() ‘maka akan muncul picturebox2 dan messagebox yang terdiri dari 1 button yaitu OkOnly.
MsgBox(“Data yang Anda Masukkan Salah.<<solution>>Coba masukkan username=’cupapaw’ dan password=’ucup_ganteng’ “, MsgBoxStyle.OkOnly, “Peringatan !!!”)
UsernameTextBox.Clear() ‘dan juga menhapus ketikkan terakhir kita pada texbox username dan password.
PasswordTextBox.Clear()
End If
End Sub

Terakhir hal yang harus dilakukan adalah save project dan lihat hasilnya,.

Cara menggunakan Visual Basic meng-Upgrade Wizard

1. Pada Mulai menu, titik Program, arahkan ke Microsoft Visual Studio 6.0, lalu klik Microsoft Visual Basic 6.0.
2. Dalam Proyek baru kotak dialog, klik Standar EXE, lalu klik Terbuka.
3. Bentuk pertama dalam aplikasi ini menggunakan ADO untuk mengambil Recordset, dan kemudian menampilkan recordset di Microsoft hirarkis FlexGrid Kontrol. Dalam Nama lapangan dari Properti kotak dialog untuk Form1, jenisfrmADO.
4. Jika Toolbox tidak terbuka, pada Lihat menu, klik Toolbox.
5. Dari Toolbox, tempat MSHFlexGrid pada bentuk jadi itu mengisi sebagian besar bentuk. Meninggalkan cukup ruang di bawah bentuk untuk menempatkan tombol.
   
   CATATAN: Jika Anda tidak melihat MSHFlexGrid ikon di Toolbox, menambahkannya ke Toolbox. Klik kanan Toolbox, dan kemudian klik Komponen. Dalam Komponen kotak dialog, klik untuk memilih Microsoft FlexGrid hirarkis kontrol 6.0 (OLEDB) dari daftar komponen yang tersedia, dan kemudian klik Oke.
6. Dari Toolbox, tempat CommandButton di formulir di bawah ini MSHFlexGrid. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Oke.
7. Klik kanan mADO, lalu klik Lihat kode. Tambahkan kode berikut, yang menciptakan koneksi database dan mengembalikan recordset yang berisi semua data dari Produk Tabel Northwind database.
   
   CATATAN: Dalam kode contoh berikut, Anda harus mengubah user id =<username></username> dan password =<strong password=""></strong> untuk nilai-nilai yang benar. Pastikan bahwa ID pengguna memiliki izin yang sesuai untuk melakukan operasi ini pada database.
   
   

   Private Sub Command1_Click()
       Unload Me
   End Sub
   
   Private Sub Form_Load()
       Dim cn As Connection
       Set cn = New Connection
       cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;

   database=northwind;user id=<username>;password=<strong password>"
       cn.Open
       
       Dim rs As Recordset
       Set rs = New Recordset
       rs.CursorLocation = adUseClient
       rs.Open "select * from products", cn
       
       Set MSHFlexGrid1.DataSource = rs
   End Sub
   					

8. Tekan CTRL + S untuk menyimpan formulir. Pada Berkas menu, klik Simpan sebagai. Dalam Simpan sebagai kotak dialog, klik Simpan.
9. Dalam proyek Explorer, klik kanan Project1, klik Tambahkan, lalu klik Bentuk. Klik Terbuka.
10. Dalam Nama lapangan dari Properti kotak dialog, jenis frmClipboard.
11. Dari Toolbox, tempat Textbox pada form. Dalam Teks lapangan, jenis The quick brown fox melompati malas anjing.
12. Tempat CommandButton di bawah ini Textbox. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Salin.
13. Tempat kedua CommandButton pada form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Pasta.
14. Klik kanan frmClipboard, lalu klik Lihat kode. Paste kode berikut untuk CommandButton klik peristiwa. Kode ini menggunakan Clipboard objek untuk mendapatkan dan paste teks:
    
    

    Private Sub Command1_Click()
        Clipboard.SetText Text1.SelText
    End Sub
    
    Private Sub Command2_Click()
        Text1.SelText = Clipboard.GetText
    End Sub
    					

15. Tekan CTRL + S untuk menyimpan formulir.
16. Bentuk terakhir yang Anda butuhkan adalah bentuk utama dari aplikasi. Dalam proyek Explorer, klik kanan Project1, klik Tambahkan, klik Bentuk, lalu klik Terbuka.
17. Dalam Nama lapangan dari Properti kotak dialog, jenis frmMain.
18. Dari Toolbox, tempat CommandButton pada frmMain form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis ADO.
19. Tempat kedua CommandButton pada form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Clipboard.
20. Klik kanan frmMain, lalu klik Lihat kode. Paste kode berikut untuk CommandButton klik peristiwa, untuk menunjukkan dua bentuk:
    
    

    Private Sub Command1_Click()
        frmADO.Show
    End Sub
    
    Private Sub Command2_Click()
        frmClipboard.Show
    End Sub
    					

21. Tekan CTRL + S untuk menyimpan formulir.
22. Dalam solusi Explorer, klik kanan Project1, lalu klik Project1 properti. Dalam Startup objek lapangan, klik frmMain, lalu klik Oke.
23. Untuk menambahkan referensi ke komponen ADO, pada Project menu, klik Referensi. Dalam daftar referensi yang tersedia, klik untuk memilih Perpustakaan objek Microsoft ActiveX Data (versi 2.0 atau yang lebih baru akan melakukan). Klik Oke.
24. Untuk mengkompilasi proyek, pada Berkas menu, klik Membuat Project1.exe. Dalam Membuat proyek kotak dialog, klik Oke (menerima nama file standar).
25. Tekan F5 untuk menjalankan aplikasi dalam modus debug.
    
    CATATAN: Anda tidak perlu untuk memverifikasi bahwa warisan Visual Basic aplikasi berjalan tanpa masalah sebelum Anda meng-upgrade.
26. Tutup lingkungan pengembangan Visual Basic. Pada meminta untuk menyimpan perubahan ke proyek, klik Ya. Menggunakan nama standar dan menyimpan proyek.
27. Pada Mulai menu, titik Program, arahkan ke Microsoft Visual Studio.NET, lalu klik Microsoft Visual Studio.NET.
28. Pada halaman mulai, klik Proyek terbuka. Temukan folder yang berisi proyek Visual Basic 6.0 file yang Anda baru saja dibuat (biasanya c: program files Microsoft Visual Studio\VB98). Klik Project1.VDP, lalu klik Terbuka.
29. Visual Studio.NET mendeteksi bahwa ini adalah Visual warisan Dasar proyek dan mulai Visual Basic meng-Upgrade Wizard. Wisaya menampilkan deskripsi dari setiap langkah sebagai Anda melanjutkan melalui langkah-langkah berikut urutan:
    • Membuat proyek baru di mana ada proyek upgrade.
    • Salin file bentuk dan kelas file ke baru proyek.
    • Memberikan laporan upgrade yang berisi daftar komponen proyek yang ditingkatkan berhasil dan komponen yang tidak meng-upgrade berhasil.
30. Klik Berikutnya melalui setiap langkah-langkah sampai proses upgrade dimulai. The upgrade memakan waktu sekitar 30-60 detik untuk menyelesaikan.
31. Pada solusi Explorer, klik dua kali _UpgradeReport.htm. Laporan ini menampilkan hasil upgrade. Perhatikan bahwa semua bentuk kecuali frmClipboard upgrade tanpa masalah apapun.
32. Memperluas frmClipboard.vb untuk melihat isu-isu. Clipboard.SetText dan GetText tidak meng-upgrade dengan baik. Klik link di Deskripsi untuk melihat bagaimana untuk memperbaiki masalah.
33. Dalam Explorer solusi, perhatikan bahwa semua bentuk disimpan nama asli mereka, tapi ekstensi file berubah dari .frm untuk . BASIC.
34. Memperluas Referensi. Perhatikan bahwa referensi untuk semua komponen yang diperlukan untuk menggunakan warisan komponen Visual Basic dan ADO ditambahkan secara otomatis.
35. Klik kanan salah satu bentuk, dan kemudian klik Lihat kode. Memperluas Meng-upgrade dukungan daerah. Daerah ini menampilkan bagaimana Visual Studio.NET atau Visual Studio 2005 dikonfigurasi berbagai properti dan variabel untuk mendukung kode upgrade.
36. Dalam solusi Explorer, klik kanan frmClipboard.vb, lalu klik Lihat kode. Perhatikan bahwa ada Komentar ditempatkan sebelum baris yang melakukan upgrade.
37. Perubahan Command1_Click dan Command2_Click peristiwa berikut:
    
    

    Private Sub Command1_Click(ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) Handles Command1.Click
            Clipboard.SetDataObject(Text1.Text)
        End Sub
    
        Private Sub Command2_Click(ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) Handles Command2.Click
            Text1.SelectedText = _
                Clipboard.GetDataObject().GetData(GetType(System.String))
        End Sub
    					

Kembali ke atas

Daftar kode lengkap

Complete kode kode (frmADO.frm)

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim cn As Connection
    Set cn = New Connection
    cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;

    database=northwind;user id=<username>;password=<strong password>"
    cn.Open
    
    Dim rs As Recordset
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from products", cn
    
    Set MSHFlexGrid1.DataSource = rs
End Sub
				

Complete kode kode (frmClipboard.frm)

Private Sub Command1_Click()
    Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
    Text1.SelText = Clipboard.GetText
End Sub

Complete Code Listing (frmMain.frm)
Private Sub Command1_Click()
    frmADO.Show
End Sub

Private Sub Command2_Click()
    frmClipboard.Show
End Sub
				

Kembali ke atas

Memverifikasi bahwa aplikasi bekerja

1. Tekan F5 untuk memulai aplikasi.
2. Pada prompt untuk menyelamatkan proyek, klik Oke.
3. Pada Form1, klik ADO. Bentuk muncul yang berisi data dalam grid. Dekat ini bentuk.
4. Pada Form1, klik Clipboard.
5. Klik Salin.
6. Tempat titik penyisipan di kotak teks pada awal teks, dan kemudian klik Pasta. Anda akan melihat teks yang disisipkan.

Kembali ke atas

langkah-langkah mudah membuat program database di vb

1. kita harus mempersiapkan dulu data yang akan dibuatkan database.
database yang kita gunakan adalah ms. Accsess 7.0 bawaan dari vb.
caranya :
a. buka program vb, pilih di menu bar Add Ins > Visual data manager.
b. buat databasenya.

2. setelah kita buat databasenya, kembali keform untuk membuat bentuk
tampila/interface program.

3. setelah kita buat rancangan formnya, kita harus membuat koneksi form
dengan database. koneksi yang kita gunakan adalah dengan objeck "Data"
objek data sudah ada di menu toolbox, tinggal kita masukkan kedalam
form.

4. sudah dimasukkan?? langkah selanjutnya adalah mengkoneksikannya. ada
dua cara untuk mengkoneksikan database dengan form, yaitu :
a. lewat pengaturan properties objek "data" tadi.
klik Data, atur Data Source di properties, pilih database yang tadi kita
buat.
b. melalui kode program.
untuk membuat koneksi lewat kode program, kita tulis kodenya di
Form_Load.

Data1.databasename=app.path + "\namadatabase.mdb"
data1.recordsource="namatable"

untuk melihat data yang ada didalam database supaya ada di form, kita masukkan objek yang namanya "dbgrid"..
apabila blm ada di toolbook, kita bisa menambahkan componennya dengan cara klik kanan pada toolbox, pilih component....

cari dan cheklist pada "Microsoft Data Bound Grid".
apply dan OK...

lalu masukkan kedalam form dan atur di propertiesnya datasource..pilih Data1..

Mengenal Visual Basic

A. Mengenal Visual Basic

Microsoft Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat palikasi Windows yang berbasis grafis (GUI – Graphical User Interface).

Visual Basic merupakan event-driven programming (pemrograman terkendali kejadian) artinya program menunggu sampai adanya respon dari pemakai berupa event/kejadian tertentu (tombol diklik, menu dipilih, dan lain-lain). Ketika event terdeteksi, kode yang berhubungan dengan event (prosedur event) akan dijalankan.

B. Sejarah Singkat Visual Basic

Berikut ini adalah point-point penting dalam sejarah perkembangan Visual Basic, sebagai berikut :

1. Visual Basic pertama kali diperkenalkan tahun 1991.

2. Berikutnya dirilis Visual Basic 3.0 tahun 1993.

3. Visual Basic 4.0 dirilis pada akhir tahun 1995 (tambahan dukungan untuk aplikasi 32 bit).

4. Visual Basic terbaru adalah versi 6.0 yang dirilis pada akhir tahun 1998.

Microsoft umumnya membuat tiga edisi Visual Basic yaitu :

· Standard Edition merupakan produk dasar.

· Profesional Edition berisi tambahan Microsoft Jet Data Access Engine (database) dan pembuatan server OLE automation.

· Enterprise Edition adalah edisi client-server.

C. Jenis File Pada Visual Basic

Proyek merupakan cikal bakal dari aplikasi dan terdiri dari beberapa file yang saling terkait satu sama lain, file-file tersebut mempunyai ekstensi yang berbeda-beda sesuai dengan isi dan fungsinya. Sebuah Proyek dapat terdiri atas:

a. File. VBF untuk tiap proyek

b. File FRM untuk tiap form aplikasi pada sebuah proyek.

c. File. VBX atau OCX untuk tiap custom pada sebuah proyek.

d. File. BAS untuk tiap modul standar pada proyek.

e. File CLS untuk tiap modul class pada sebuah proyek.

f. File. FRX untuk tiap form pada sebuah proyek yang memiliki control berproperti menggunakan data binary.

g. File. RES yaitu sebuah resource file pada sebuah proyek.

Dalam hal ini tidak perlu membuat seluruh file di atas. Karena apa saja yang dibutuhkan tergantung dari proyek yang sedang dikerjakan.

D. Komponen Pada Visual Basic

Komponen-komponen yang sering dipakai diantaranya:

a. Modul Form (File berekstensi .FRM).

Merupakan kumpulan form yang berisi deskripsi secara grafis mengenai tampilan serta kontrol yang digunakan dalam sebuah proyek. Termasuk di dalamnya pengaturan properti yang digunakan oleh masing-masing kontrol. Disampimg itu rutin yang ditulis untuk masing-masing obyek pada form juga tersimpan pada file ini. Untuk aplikasi yang terdiri dari banyak form, masing-masing form tersimpan dalam sebuah file berekstensi.FRM.

b. Modul Class (File Berekstensi .CLS)

Fungsinya sama dengan modul form tetapi terlihat dalam bentuk tampilan. Melalui modul ini bisa dicoba membuat sendiri obyek yang ingin ditampilkan. Masing-masing obyek yang dibuat harus mempunyai properti dan modul tersendiri.

c. Modul Standar (File berekstensi. BAS).

Modul ini berisi deklarasi tipe, konstanta, variabel eksternal procedure (prosedur yang menangani kejadian) dan public procedure. Biasanya file ini berisikan perhitungan atau logika yang kompleks.

d. File Recourse(File berekstensi.RES).

File ini berisi bitmap, text string, atau data lainnya yang dapat diubah tanpa perlu mengedit kembali rutin. Biasanya file ini digunakan untuk mengubah bahasa pada user interface alokasi untuk pemakai berbahasa asing (selain yang digunakan oleh si pembuat aplikasi).

e. OLE Custom Control dan Insertable Objects (File berekstensi. OCX)

File ini berisi custom dan Insertable Objects yang ditambahkan pada proyek anda.

f. VBX Custom Controls (File berekstensi. VBX).

Sama dengan file berekstensi .OCX namun hanya digunakan pada Visual Basic 4.0 versi 16 bit.

4. Struktur Aplikasi Visual Basic

Struktur proyek (VBP, MAK) dapat digambarkan seperti pada gambar 1.

website :
1. ilmukomputer.com

2. www.soetrasoft.com/Visual-Basic/Database… - 67k -

3.www.wahanaprogrammer.net/content.php… - 35k

4. www.sabahforum.com/forum/viewtopic.php?p… - 72k

5. msdn.microsoft.com/vbasic/ - 46k -