Recovery Data

TUGAS UAS

“DASAR PEMOGRAMAN VISUAL”

DISUSUN OLEH:

ADE LUQMANUL HAKIM

SKS 16.2

SEKOLAH TINGGI ELEKTRONIKA DAN KOMPUTER

(STEKOM)

TAHUN AKADEMIK 2017

PENGERTIAN

Visual basic adalah bahasa pemprograman windows yang berbasis grafis (GUI-Graphical User Interface). Sifat bahasa pemprogramanya adalah eventdriven, artinya program akan terjadi jika ada respon dari pemaka berupa event/kejadian tertentu (tombol diklik, mouse ditekan dan lain-lain). Saat event terjadi maka kode yang berhubungan dengan event akan dijalankan.

Dalam Visual Basic, pembuatan aplikasi dimulai dengan memperkirakan kebutuhan, merancang tampilan dan selanjutnya diikuti dengan pembuatan kode untuk program tersebut.

Pada bagian ini akan dijelaskan tentang pengenalan program Visual Basic dalam pembuatan aplikasi Windows. Menjalankan program Visual Basic sama dengan menjalankan program windows lainnya, yaitu dengan mengklik ganda icon yang digunakan untuk menjalankan program.

2.1 Sejarah

Billgate, pendiri Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan system operasi DOS, Perkembangan berikutnya ialah diluncurkan BASICA(basic-advanced) untuk DOS, Setelah BASICA, Microsoft meluncurkan Microsoft QuckBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler), Visual basic adalah pengembang dari bahasa komputer BASIC (Beginner’s All-Purpose Symbolic nstructio Code), Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an (Deitel&Deitel1999). 

Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programmer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer, Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer.

2.2 Perkembangan Visual Basic

1. Visual Basic 1.0 (May 1991) di rilis untuk windows pada COMDEX/Windows Wordltrade yg dipertunjukan di Atlanta, Georgia.

2. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System.

3. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yang menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yang

berikutnya di implementasikan pada VB 4.

4. Visual Basic 3.0, dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yang dapat membaca serta menulis database Jet (atau access) 1.x.

5. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yang dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic.

6. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk Versi windows 32 bit. Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User

Control.

7. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based. Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008.

8. Visual Basic .NET, dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NETini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yang digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.

9. Visual Basic .NET 2003, dirilis dengan menggunakan NET framework versi 1.1.

10. Visual Basic 2005, merupakan itegrasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya: Edit and Continue, mungkin inilah kekurangan fitur terbesar dari VB .NET. pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan Perbaikan pada Konversi dari VB ke VB NET12 Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET Kerangka kerja versi 1.1. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If=Not X Is Y menjadi If X IsNot Y.

11. Visual Basic 2005 Express , merupakan bagian dari Product Visual Studio. Microsoft membuat Microsoft Visual Studio2005 Express edition untuk pemula dan yang gemar dengan VB, salah satu produknyaadalah Visual Basic 2005 Express yang merupakan produk gratis dari Microsoft.

12. Visual Basic “Orcas”, dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini, Microsoft menambahkan beberapa fitur, diantaranya: True Tenary operator, yaitu fungsi If(boolean,value, value) yang digunakan untuk menggantikan fungsi IIF, LINQ Support, Ekspresi Lambda, XML Literals, Nullable types, Type Inference.

13. Visual Basic „VBx‟, Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian da 15. an dari SilverLight 1.1

2.3 Fasilitas Visual Basic

Di dalam lingkungan Visual Basic, terdapat berbagai macam komponen, yaitu:

1. Control Menu

Control Menu adalah menu yang digunakan terutama untuk memanipulasi jendela Visual Basic. Dari menu ini anda dapat mengubah ukuran, memindahkannya, atau menutup jendela.

2. Menu

Menu Visual Basic berisi semua perintah Visual Basic yang dapat dipilih untuk melakukan tugas tertentu. Isi dari menu ini sebagian hampir sama dengan program-program Windows pada umumnya.

3. Toolbar

Toolbar adalah tombol-tombol (shortcut) yang mewakili suatu perintah tertentu dari Visual Basic.

4. Form Window

Form Window atau jendela formadalah daerah kerja utama tempat membuat program-program aplikasi Visual Basic.

5. Toolbox

Toolbox adalah sebuah “kotak piranti” yang mengandung semua objek atau “kontrol‟ yang dibutuhkan untuk membentuk suatu program aplikasi. Kontrol adalah suatu objek yang akan menjadi penghubung antara program aplikasi dan user-nya, dan yang kesemuanya harus diletakkan di dalam jendela form.

6. Project Explorer

Jendela Project Explorer adalah jendela yang mengandung semua file di dalam aplikasi Visual Basic. Setiap aplikasi dalam Visual Basic disebut dengan istilah project (proyek), dan setiap proyek bisa mengandung lebih dari satu file. Pada Project Explorer ditampilkan semua file yang terdapat pada aplikasi (proyek), misalnya form, modul, class, dan sebagainya.

7. Jendela Properties

Jendela Properties adalah jendela yang mengandung semua informasi mengenai objek yang terdapat pada aplikasi Visual Basic. Properti adalah sifat dari sebuah objek, misalnya seperti nama, warna, ukuran, posisi, dan sebagainya.

8. Form Layout Window

Form Layout Window adalah jendela yang menggambarkan posisi dari form yang ditampilkan pada layer monitor. Posisi form pada Form Layout Window inilah yang merupakan petunjuk tempat aplikasi akan ditampilkan pada layar monitor saat dijalankan.

9. Jendela Code

Jendela Code adalah salah satu jendela yang penting di dalam Visual Basic. Jendela ini berisi kode-kode program yang merupakan instruksi-instruksi untuk aplikasi Visual Basic yang dibuat.

TUGAS UAS JOB 1

Membuat File Database dan Struktur Tabel

Langkah-langkah

1. Buat project baru

File - New Project

Pilih STANDAR EXE kemudian klik OK

2. Tambahkan komponen pada toolbox. Klik kanan pada toolbox - component - Microsoft Datagrid Control 6.0 (OLEDB) - OK
3. Aturlah property formnya sebagai berikut :

• Name       : Frm_Utama
• Caption    :  ..::|| Data Teman ||::..

4. Pada Frm_Utama aturlah objek-objek seperti tampilan berikut :

Obyek	Property	Setting
Label1	Caption	Nama
Label2	Caption	Alamat
Label3	Caption	TTL
Label4	Caption	Telp
Text1	Name Text	TNama
Text2	Name Text	TAlamat
Text3	Name Text	TLahir
Text4	Name Text	TTelp
Command1	Name Caption	CmdBaru Baru
Command2	Name Caption	CmdSimpan Simpan
Command3	Name Caption	CmdEdit Edit
Command4	Name Caption	CmdUpdate Update
Command5	Name Caption	CmdBatal Batal
Command6	Name Caption	CmdHapus Hapus
DataGrid1	Name AllowUpdate	DB False

 5. Buat database data teman.Mdb a. Dari jendela Visual Basic Klik menu Add-Ins dan pilih Visual Data Manager dan akan muncul tampilan sbb:

b. Klik menu File - New - Microsoft Acces kemudian pilihlah Version 7.0 seperti gambar berikut :

c. Selanjutnya ditampilkan kotak dialog Select Microsoft Acces Database to Create. Tentukan tempat untuk menyimpan database yang dibuat dengan nama DataTeman. Seperti pada gambar berikut :

d. Klik Save Buat table Data Teman a. Klik kanan pada jendela Database window, kemudian pilihlah New Table dari popup menu yang ditampilkan.

Sehingga ditampilkan jendela berikutnya dengan nama Table Structure, ketikkan nama tabelnya = TTeman pada kotak Table Name

b. Klik tombol Add field untuk membuat field baru dan buatlah field sbb :

Nama_Field	Type	Size
Nama	Text	50
Alamat	Memo
Lahir	Text	30
Telp	Text	20

 c. Deklarasikan variable untuk membuka database

Option Explicit

'Koneksi merupakan variabel untuk dihubungkan dengan file databasenya

Public Koneksi As New ADODB.Connection

'rsteman merupakan variabel untuk memanggil data record

Public Rsteman As New ADODB.Recordset

 d. Buat prosedur (Sub) untuk membuka database

Private Sub BukaDatabase()

'Perintah untuk memanggil database

 Koneksi.CursorLocation = adUseClient

 Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False"

 ‘(Jika tidak tau provider maka tambahkan adodc dan konekkan terus copy conection stringnya) 

'Untuk alamat file databasenya bisa dibuat dinamis mengikuti alamat aplikasi dengan mengganti:

 Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False" menjadi 

Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DataTeman.mdb;Persist Security Info=False"

'

perintah untuk memanggil record dari masing2 tabel

    Rsteman.Open "tteman", Koneksi, adOpenStatic, adLockOptimistic

End Sub

e.    Dan  ketik Script dibawah ini

·         Script pada Tombol Baru

Private Sub CmdBaru_Click()

‘Untuk membersihkan field ketika tombol baru diklik

    TNama.Text = ""

    TAlamat.Text = ""

    TLahir.Text = ""

    TTelp.Text = ""

‘untuk meletakkan kursor pada TNama Saat Tombol baru diklik

    TNama.SetFocus

    buka

    CmdBaru.Enabled = False

    CmdSimpan.Enabled = True

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = True

    CmdHapus.Enabled = False

End Sub

·         Script pada Tombol Batal

Private Sub CmdBatal_Click()

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada Tombol Edit

Private Sub CmdEdit_Click()

‘untuk memanggil procedure buka

    buka

    CmdBaru.Enabled = False

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = True

    CmdBatal.Enabled = True

    CmdHapus.Enabled = False

End Sub

·         Script pada Tombol Hapus

Private Sub CmdHapus_Click()

‘ketika tidak ada data yang dihapus maka tidak eror

    If Rsteman.RecordCount = 0 Then Exit Sub

‘ketika kursor tidak pada grid maka tdk eror

        If Rsteman.AbsolutePosition < 0 Then

            MsgBox "Pilih yang akan dihapus", vbOKOnly + vbInformation, "Info"

        End If

‘perintah utnuk menghapus data

    Rsteman.Delete

End Sub

·         Script pada Tombol Simpan

Private Sub CmdSimpan_Click()

    'Rsteman nama variabel u/ memanggil data record

    'jika menggunakan komponen adodc maka scriptx adodc1.recordset.addnew

    Rsteman.AddNew

    Rsteman.Fields(0).Value = Trim(TNama.Text)

    Rsteman.Fields(1).Value = Trim(TAlamat.Text)

    Rsteman.Fields(2).Value = Trim(TLahir.Text)

    Rsteman.Fields(3).Value = Trim(TTelp.Text)

    Rsteman.Update

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada Tombol Update

Private Sub CmdUpdate_Click()

    Rsteman.Fields(0).Value = Trim(TNama.Text)

    Rsteman.Fields(1).Value = Trim(TAlamat.Text)

    Rsteman.Fields(2).Value = Trim(TLahir.Text)

    Rsteman.Fields(3).Value = Trim(TTelp.Text)

    Rsteman.Update

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada DataGrid

Private Sub DB_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    TNama.Text = Rsteman.Fields(0).Value

    TAlamat.Text = Rsteman.Fields(1).Value

    TLahir.Text = Rsteman.Fields(2).Value

    TTelp.Text = Rsteman.Fields(3).Value

End Sub

·         Script pada Form load

Private Sub Form_Load()

    'untuk membuka/mengkonekkan databasenya

    BukaDatabase

    'untuk menghubungkan datagrid ke datasource

    Set DB.DataSource = Rsteman

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Procedure Buka

Private Sub buka()

    TNama.Locked = False

    TAlamat.Locked = False

    TLahir.Locked = False

    TTelp.Locked = False

End Sub

·         Procedure Kunci

Private Sub kunci()

    TNama.Locked = True

    TAlamat.Locked = True

    TLahir.Locked = True

    TTelp.Locked = True

End Sub