modulVBNet 1718

MODUL PRAKTIKUM PEMROGRAMAN PEMROGRAMAN VISUAL BASIC 2010

UNIVERSITAS SEMARANG JL.Soekarno – Hatta, Tlogosari, Semarang. Modul praktikum ini digunakan untuk pelaksanaan Praktikum mata kuliah Rekayasa Perangkat Lunak Program Studi Teknik Informatika Fakultas Teknologi Informasi dan Komunikasi Universitas Semarang

JURUSAN TEKNOLOGI INFORMASI FAKULTAS TEKNOLOGI INFORMASI DAN KOMUNIKASI UNIVERSITAS SEMARANG 2017 Modul Praktikum Rekayasa Perangkat Lunak – Siti Asmiatun, M.Kom pg. 1

MODUL 1 PENGENALAN VISUAL BASIC.NET DAN OPERATOR

A. TUJUAN

Setelah mengikuti modul ini, diharapkan mahasiswa dapat memahami : 1. Mengenal Interface Visual Basic.Net 2. Penerapan variabel dan Operator didalam Visual Basic.Net 3. Konsep Objek Oriented pada Visual Basic.Net

B. SEKILAS TENTANG VISUAL BASIC.NET Hampir sebagian besar pengguna komputer di dunia sudah mengenal produk-produk Microsoft, salah satunya adalah Microsoft Visual Basic.Net. VB.Net merupakan pengembangan pengembangan dari Microsoft Visual Basic versi sebelumnya. sebelumnya. Membangun Membangun suatu program aplikasi dengan vB.Net lebih mudah dan menyenangkan, karena selain dilengkapi fitur-fitur baru juga tersedia bermacam-bermacam bermacam-bermacam toolbars, komponen, class, object dan sebagainya. sebagainya. Jika Anda sudah terbiasa dengan Visual Basic kemungkinan besar untuk migrasi ke VB.Net tidak akan mengalami kesulitan, karena hampir semua komponen di Visual Basic versi sebelumnya masih bisa digunakan. Sebagai contoh untuk membuat suatu Project dengan VB.Net Anda tinggal klik Menu, kemudian pilih Project dan akan keluar kotak dialog. Setelah itu pilih Windows Application, kemudian beri nama Project tersebut.

Modul Praktikum Rekayasa Perangkat Lunak – Siti Asmiatun, M.Kom pg. 2

Solution Explorer : Untuk melihat struktur project yang sedang dikerjakan

Toolbox: Objekobjek yang digunakan untuk mendesain

Form : Tempat untuk mendesain tampilan

Properties : Properti dari setiap objek yang ada diform, Tampilan objek dapat diubah

Gambar 1.1 Aplikasi Visual Basic.Net C. PENGGUNAAN VARIABEL

Untuk dapat memakai sebuah variabel maka Kita harus mendeklarasikannya terlebih dahulu. Dalam bahasa VB6 Kita dapat saja menggunakan sebuah variabel tanpa membuat deklarasi meskipun hal tersebut tidak direkomendasikan dan sangat tidak efisien bagi sebuah aplikasi. Pemberian nama variable memiliki batasan-batasan sbb: 1. Harus dimulai dengan karakter alfabetis 2. Hanya dapat mengandung karakter alfabetis,angka,dan underscore(_) 3. Tidak boleh menggunakan spasi 4. Tidak melebihi 255 karakter 5. Harus unik dalam sebuah ruang lingkup yang sama 6. Tidak case sensitive, artinya huruf besar (capital) dengan huruf kecil sama saja.

1. Deklarasi Variabel

Tujuan pendeklarasian variabel adalah agar komputer mengetahui dengan pasti type data yang akan digunakan dalam variabel tersebut serta scopenya. Dengan demikian komputer dapat langsung mengeksekusi sebuah variabel tanpa memeriksa lagi type datanya. Sebuah variabel harus memiliki nama, type data, scope, dan value. Modul Praktikum Rekayasa Perangkat Lunak – Siti Asmiatun, M.Kom pg. 3

Variabel dapat diasumsikan sebagai suatu tempat dalam memori yang berfungsi menampung data.

txtTotal.Text txtTotal.Text = Ha H ar ga * J umlah umlah Jum J umla lah h = 50 “variabel jumlah di isi 50” J umla umlah h = jumla jumlah h + 5 “variabel berupa penambahan” Tanda sama dengan pada contoh diatas merupakan operator penugasan, bukan sebagai operator persamaan dan nilai 50 merupakan nilai dari variabel jumlah. Untuk mendeklarasikan variabel dapat digunakan pernyataan Dim yang diikuti dengan nama variabel

Dim nama_variabel [as type] Dengan ketentuan nama variabel tidak boleh menggunakan spasi dan karakter khusus, maksimal terdiri dari 255 karakter. Berikut jenis variabel : a. Global Variabel Variabel yang dapat digunakan pada semua prosedur dalam form.

Public Cla C lass ss F or m1 D i m x As I nte nteger ger E nd C lass lass b. Local Variabel Variabel yang hanya dapat digunakan pada prosedur tertentu.

Public Cla C lass ss F or m1 Pr i vat vate Sub But B utto ton1_Cli n1_Click( ck(B B yVal send sende er A s D i m W As I nte nteger ger W = 100 E nd Sub E nd C lass lass c. Variabel dengan nilai tetap Variabel yang bernilai tetap dengan mendeskripsikan nilai variabel secara langsung.

C onst nam nama_konstanta a_konstanta [as type type] = nilai ni lai Modul Praktikum Rekayasa Perangkat Lunak – Siti Asmiatun, M.Kom pg. 4

Const H arga As I nteger = 3000 atau Const Harga = 3000 Variabel Konstanta dapat digunakan pada semua prosedur dalam form tersebut.

Public Class F orm1 Dim x As I nteger = 25000 E nd Class d. Local Const Variabel konstanta yang hanya dapat digunakkan pada prosedur tertentu.

Public Class F orm1 Pr ivate Sub Button1_Click(ByVal sender As Dim W As I nteger = 25000 E nd Sub E nd Class 2. Type Data

Visual Basic memiliki beberapa type data yang dapat anda gunakan untuk memanipulasi data, yaitu :


3. Latihan

Buatlah project barru pada visual basic dengan cara pilih new project dan akan muncul gambar dibawah ini :

Kemudian pilih Windows Form Application  Lengkapi : Name : Belajar Location : D:\ (Seandainya ingin di taruh di direktori mana) Klik ok maka akan muncul form. Untuk mengganti nama form, klik form dan lihat pada properties name. Buatlah desain Form seperti gambar dibawah ini dengan cara Dan ganti masing-masing kontrol dengan ketentuan sebagai berikut


Kemudian klik kanan Form1

View Code. Ketikkan syntax berikut ini :

Klik 2x kontrol btnCoba1 dan ketik syntax berikut ini :





4. Tugas Membuat Calculator Sederhana a. Buatlah Form seperti tampilan di bawah ini, dengan menggunakan Text box, Button dan beri nama form : Calculator.


b. Pada komponen Text Box berilah nama objek pada propeties name dengan nama: txtlayar

c. Pada komponen Button1 berilah nama objek pada properties dengan nama : cmbbutton1. Kemudian Button2 dan seterusnya sampai Button10

d. Buatlah seperti tampilan di bawah ini


Dengan nama properties seperti tabel berikut ini : Name

Text

Keterangan

cmbbutton1

1

Untuk Tombol No 1

cmbbutton2

2

Untuk Tombol No 2

cmbbutton3

3

Untuk Tombol No 3

cmbbutton4

4

Untuk Tombol No 4

cmbbutton5

5

Untuk Tombol No 5

cmbbutton6

6

Untuk Tombol No 6

cmbbutton7

7

Untuk Tombol No 7

cmbbutton8

8

Untuk Tombol No 8

cmbbutton9

9

Untuk Tombol No 9

cmbbutton0

0

Untuk Tombol No 0

Cmbtambah

+

Untuk Tombol Pertambahan

Cmbkurang

-

Untuk Tombol Pengurangan

Cmbkali

X

Untuk tombol Perkalian

Cmbbagi

/

Untuk Tombol Pembagian

Cmbhapus

C

Untuk Menghapus Tombol Pada Layar

cmbsamadengan

=

Untuk Menampilkan Hasil

Cmbpangkat

^

Untuk Menampilkan Pangkat

e. Kemudian silahkan klik kanan pada form view code. Dan isi Public Class Calculator Friend Hasil As Single = 0 Dim operasi As String = "" Dim operasiHitung As Boolean = False End Class f. Kemudian di klik dua kali diform tersebut (Form_load) , kemudian isi dengan coding di bawah ini :


Private Sub Calculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load operasiHitung = False operasi = "" Hasil = 0 txtlayar.Text = "0" End Sub g. Kemudian Untuk Koding Memunculkan Tombol Huruf 1, sebagai berikut : Private Sub cmbbutton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbbutton1.Click If operasiHitung = True Or txtlayar.Text = "0" Then txtlayar.Text = "1" operasiHitung = False Else txtlayar.Text = txtlayar.Text + "1" End If End Sub

h. Untuk Penambahan (+) koding program sebagai berikut : Private Sub cmbtambah_Click( ByVal sender As System.Object , ByVal e As System. EventArgs ) Handles cmbtambah.Click operasi = "tambah" Hasil = Val(txtlayar.Text) operasiHitung = True End Sub i.

Untuk Pengurangan (-) script program sebagai berikut : Private Sub cmbkurang_Click( ByVal sender As System.Object , ByVal e As System. EventArgs ) Handles cmbkurang.Click operasi = "kurang" Hasil = Val(txtlayar.Text) operasiHitung = True End Sub

j.

Untuk Sama Dengan (=) script program sebagai berikut: Private Sub cmbsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbsamadengan.Click Select Case operasi Case "tambah" Hasil = Hasil + Val(txtlayar.Text)


Case "kurang" Hasil = Hasil - Val(txtlayar.Text) End Select txtlayar.Text = Hasil operasiHitung = True End Sub

k. Tombol C (Untuk menghapus yang ada di layar), dapat di masukkan script sebagai berikut : Private Sub cmbhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbhapus.Click txtlayar.Text = "0" operasi = "" End Sub l. Buatlah tombol angka diatas dari 0 – 9


MODUL 2 KONSEP OBJEK ORIENTED PADA VB.NET

Konsep objek oriented pada suatu bangunan lingkaran dan tabung dimana masing – masing dimensi dapat diinput dan memiliki konstanta nilai seperti pi=3,14. Buatlah class lingkaran dari bangun lingkaran dan Buatlah class tabung diambil dari class lingkaran.

Public Class Form1 Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click Dim objlingkaran As New lingkaran With objlingkaran .jari_jari = jariling.Text luasling.Text = .luas_lingkaran() keliling.Text = .keliling_lingkaran() End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim objtabung As New tabung With objtabung .tinggi = tinggi.Text .jari_jari = jaritab.Text volume.Text = .volume_tabung End With End Sub


Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class Public Class lingkaran Public jari_jari As Single Const phi = 3.14 Public Function luas_lingkaran() As Double Return phi * jari_jari * jari_jari End Function Public Function keliling_lingkaran() As Double Return 2 * phi * jari_jari End Function End Class Public Class tabung Public tinggi As Single Public jari_jari As Single Const phi = 3.14 Public Function volume_tabung() As Double Return phi * jari_jari * jari_jari * tinggi End Function End Class


MODUL 3 INTERFACE DAN CONTROL OBJEK A. Tujuan 1. Mahasiswa dapat menggunakan Single dan Multiple Document Interface untuk

merancang tampilan layar (C3) 2. Mahasiswa dapat menggunakan control objek event listener, method, propertis

dalam pemrogramam vb.net (C3) B. Antarmuka

Pengertian antarmuka ( interface) adalah salah satu layanan yang disediakan sistem operasi sebagai sarana interaksi antara pengguna dengan sistem operasi. Antarmuka adalah komponen sistem operasi yang bersentuhan langsung dengan pengguna. Terdapat dua jenis antarmuka, yaitu Command Line Interface(CLI) dan Graphical User Interface(GUI). Dua tipe interface sistem operasi :

1. Command Line Interface (CLI) adalah berbasis teks, yang jika melakukan perintah harus dengan mengetikan perintah. 2. Graphical User Interface (GUI) adalah berbasis grafis, dgn memiliki tampilan berupa menu dan icon-2 CLI adalah tipe antarmuka dimana pengguna berinteraksi dengan sistem operasi melalui text-terminal . Pengguna menjalankan perintah dan program di sistem operasi tersebut dengan cara mengetikkan baris-baris tertentu.Meskipun konsepnya sama, tiap-tiap sistem operasi memiliki nama atau istilah yang berbeda untuk CLInya. UNIX memberi nama CLI-nya sebagai bash, ash, ksh, dan lain sebagainya. Microsoft Disk Operating System (MS-DOS) memberi nama command.com atau Command Prompt. Sedangkan pada Windows Vista, Microsoft menamakannya PowerShell. Pengguna Linux mengenal CLI pada Linux sebagai terminal , sedangkan pada Apple namanya adalah commandshell.


C. Latihan

Buatlah program dengan menggunakan objek control statemen ifelse untuk perintah logika pada status dan Jabatan dari karyawan. Setiap status dan jabatan mempengaruhi

gaji

sesorang

karyawan.pada

aplikasi

menggunakan konsep pewarisan (Inheritance).

1. Membuat Class Pegawai Public Class Pegawai Public mNIP As String Public mNama As String Public mAlamat As String Public mStatus As String Public mJabatan As String Public mGapok As Integer Public Property NIP() As String Get Return mNIP End Get Set(ByVal value As String) mNIP = value End Set End Property Public Property Nama() As String Get Return mNama


program

dibawah

End Get Set(ByVal value As String) mNama = value End Set End Property Public Property Alamat() As String Get Return mAlamat End Get Set(ByVal value As String) mAlamat = value End Set End Property Public Property Status() As String Get Return mStatus End Get Set(ByVal value As String) mStatus = value End Set End Property Public Property Jabatan() As String Get Return mJabatan End Get Set(ByVal value As String) mJabatan = value End Set End Property Public Property Gapok() As Integer Get Return mGapok End Get Set(ByVal value As Integer) mGapok = value End Set End Property Public Function HitungGaji(ByVal mGapok As Integer) As Long Return mGapok End Function End Class

2. Membuat Class Pegawai tetap Public Class PegawaiTetap Inherits Pegawai Public mTunjanganTetap As Integer

Public Property TunjanganTetap() As Integer


Get Return mTunjanganTetap End Get Set(ByVal value As Integer) mTunjanganTetap = value End Set End Property Public Function HitungGajiTetap(ByVal mGapok As Integer, ByVal mTunjanganTetap As Integer) As Long Return mGapok + mTunjanganTetap End Function End Class

3. Membuat Class Pegawai Honorer Public Class PegawaiHonorer Inherits Pegawai Public mTunjanganTransport As Integer Public Property TunjanganTransport() As Integer Get Return mTunjanganTransport End Get Set(ByVal value As Integer) mTunjanganTransport = value End Set End Property Public Function HitungGajiHonorer(ByVal mGapok As Integer, ByVal mTunjanganTransport As Integer) As Long Return mGapok + mTunjanganTransport End Function End Class

4. Event Button hitung Click Dim objPegawai As New Pegawai Dim objPegawaiTetap As New PegawaiTetap Dim objPegawaiHonorer As New PegawaiHonorer With objPegawai .NIP = TextBox1.Text .Nama = TextBox2.Text .Alamat = TextBox3.Text .Status = ComboBox1.Text .Jabatan = ComboBox2.Text If ComboBox2.Text = "Direktur" Then TextBox4.Text = 7000000 ElseIf ComboBox2.Text = "Manager" Then TextBox4.Text = 3500000 ElseIf ComboBox2.Text = "Staff" Then TextBox4.Text = 1500000 Else TextBox4.Text = 1000000


End If .Status = ComboBox1.Text If ComboBox1.Text = "Tetap" Then With objPegawaiTetap .Gapok = TextBox4.Text TextBox5.Text = 2 * TextBox4.Text .TunjanganTetap = TextBox5.Text TextBox6.Text = 0 Label11.Text = .HitungGajiTetap(.mGapok, .mTunjanganTetap) End With ElseIf ComboBox1.Text = "Honorer" Then With objPegawaiHonorer .Gapok = TextBox4.Text TextBox5.Text = 0 TextBox6.Text = 25 * 15000 .TunjanganTransport = TextBox6.Text Label11.Text = .HitungGajiHonorer(.mGapok, .mTunjanganTransport) End With End If End With

D. Tugas

Buatlah Aplikasi penjualan Tiket

Teater

Bioskop,

21

dimana

atau aplikasi

tersebut akan menampilkan pesan pada saat penonton berumur < 17 tahun. Untuk tanggal

lahir

menggunakan

bisa objek

datepicker. Berikan fungsi pada

Tgl

secara

lahir

otomatis

sehingga dapat

membaca apabila operator memasukan tahun dan sistem akan menkalkulasikan tahun tersebut dengan tahun yang ada disistem aplikasi(sekarang). Ketentuan : Kelas bioskop : (Reguler, Premiere)


MODUL 4 PEMROGRAMAN DATABASE DAN MANIPULASI A. Tujuan

1. Mahasiswa dapat menggunakan aplikasi database untuk pengolahan data pada pemrogram vb.net (C3) 2. Mahasiswa dapat menggunakan aplikasi database untuk pengolahan, manipulasi data pada pemrogram vb.net (C3) B. DBMS (Database Management System)

DBMS merupakan perantara antara user dengan database. Cara komunikasi diatur dalam suatu bahasa khusus yang telah ditetapkan oleh DBMS. Contoh: SQL, dBase, QUEL, dsb. Bahasa database, dibagi dalam 2 bentuk: 

Data Definition Language (DDL) Digunakan dalam membuat tabel baru, indeks, mengubah tabel, menetukan struktur tabel, dsb.



Data Manipulation Language (DML) Digunakan dalam memanipulasi dan pengambilan data pada database. Manipulasi data, dapat mencakup: - Pemanggilan data yang tersimpan dalam database (query) - Penyisipan/penambahan data baru ke database - Penghapusan data dari database



Pengubahan data pada database

C. Instalasi Xampp Instalasi xampp di lingkungan Windows :

1. Download xampp-win32-1.6.3a-installer di google 2. Klik dua kali file yang sudah didownload untuk memulai instalasi 3. Klik next, sampai finish dan jika instalnya berhasil maka di kanan bawah akan muncul tanda ikon xampp.


D. Membuat Database dengan xampp

E. Membuat Tabel


F. Insert Tabel

G. Menginstal Mysql Connector .Net 6.1.3

MySQL Connector / NET adalah driver ADO.NET praktis dan dapat diandalkan dirancang khusus untuk pengguna, sebagian besar pengembang, yang membutuhkan untuk menghubungkan aplikasi dengan database MySQL untuk membaca, menulis dan menyimpan data. Download Mysql Connector .Net dan Install


MODUL 5 CRUD (Create, Read, Update, Delete) A. Tujuan Mahasiswa dapat memanipulasi data yang terhubung ke MySql dengan interface

yang telah disediakan vb.net. B. Tentang CRUD CRUD adalah singkatan dari Create Read Update Delete, yang sering digunakan

pada

aplikasi-aplikasi pengolahan

data

yang

kebanyakan

mengguanakan

fungsi CRUD didalamnya. Fungsi ini digunakan untuk menambahkan data, menghapus data, serta mengupdate data. C. Membuat Form CRUD Kita akan membuat CRUD untuk tabel berikut:

Pertama-tama kita siapkan tombol-tombol pendukungnya, yaitu Save, Edit, Delete,Cancel, dan Exit. Pada contoh di sini Rani buat tombol nya pakai ToolStrip Control.


Sebagai permulaan kita akan coba membuat tombol-tombol untuk CRUD yaitu Save, Edit, Delete, Cancel, dan Close. Berikan focus pada toolstrip kemudian klik tombol dropdown dan pilih button. Seperti gambar diatas. Tambahkan 3 buah Button kemudian 1 buat SplitButton, lalu tambahkan lagi 2 buah Button. Secara default display akan berupa image.

Ubah DisplayStyle jadi ImageAndText untuk semua button, dengan cara klik kanan pada button --> DisplayStyle --> ImageAndText

Ubah text setiap button dengan nilai yang mewakili, menggunakan jendela Properties. Ubah juga property (name) dengan nama yang mewakili agar mempermudah saat membuat code. Selanjutnya kita akan memasang gambar/image pada setiap button. Klik kanan pada button bersangkutan kemudian pilih Set Image... untuk mengganti icon


Tambahkan juga beberapa label, textbox dan datagridview seperti pada gambar berikut:

D. Menampilkan Data ke Grid View Sebelum mengkoneksikan mysql ke vb.net, tambahkan mysql.data ke dalam project dengan cara Klik kanan project  add reference  Pilih Tab .Net  Mysql.Data

Selanjutnya, masih dalam form Kelas, Import MySqlClient dan System.Data: Imports MySql.Data.MySqlClient Imports System.Data

Deklarasikan sebuah objek koneksi dan sebuah variable string untuk menyimpan query di dalam Class Form (Rani kasih nama form nya frmClass) Modul Praktikum Rekayasa Perangkat Lunak – Siti Asmiatun, M.Kom pg. 25

Dim conn As MySqlConnection Dim SQL As String

Kemudian kita akan membuat sub procedure bernama Data_Load untuk menampilkan data ke dalam datagridview. Pastikan untuk menyimpan procedure ini di dalam class form. Pada sub procedure ini juga Rani menambahkan Try Catch sebagai error handling. Sub Data_Load() Dim myCommand As New MySqlCommand Dim myAdapter As New MySqlDataAdapter Dim myData As New DataTable conn = New MySqlConnection () conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=vbnet" Try If conn.State = ConnectionState.Closed Then conn.Open() SQL = "Select classcode, classname From class" myCommand.Connection = conn myCommand.CommandText = SQL myAdapter.SelectCommand = myCommand myAdapter.Fill(myData) With grdData .DataSource = myData .AllowUserToAddRows = False .AllowUserToDeleteRows = False .ReadOnly = True .Columns(0).HeaderText = "Kode Kelas" .Columns(1).HeaderText = "Nama Kelas" .Columns(0).Width = 100 .Columns(1).Width = 250 End With conn.Close() Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try End Sub

Tampilkan data ke dalam grid saat pertama form dibuka, karena itu kita akan memanggil sub procedure Data_Load pada event Form_Load Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Data_Load() End Sub


E. Simpan Data

kita akan membuat procedure untuk membuat data baru. User akan memasukan data pada textbox kode dan nama, kemudian klik toolbar Save untuk menyimpan data baru ke database. Berikut code yang ditulis pada event tblSave_Click.

Dim myCommand As New MySqlCommand conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=datapos" Try conn.Open() SQL = "INSERT INTO class (classcode, classname) VALUES " & _ "('" & txtCode.Text & "', '" & txtName.Text & "')" myCommand.Connection = conn myCommand.CommandText = SQL myCommand.ExecuteNonQuery() MsgBox("Data baru tersimpan") txtCode.Text = String.Empty txtName.Text = String.Empty Data_Load() conn.Close() Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try Sebuah message box (pesan) ditambahkan setelah proses insert sebagai penanda jika proses input data baru telah berhasil. Procedure Data_Load dipanggil lagi kemudian agar perubahan dapat ditampilkan di grid.


F. Edit Data

Pertama mereka akan memilih data yang ada di grid, kemudian melakukan double klik untuk menampilkan data yang akan di edit di control input (textbox). Maka kita akan membuat code berikut pada event grdData_CellMouseDoubleClick.

txtCode.Text = grdData.CurrentRow.Cells(0).Value txtName.Text = grdData.CurrentRow.Cells(1).Value tbedit.Enabled = False txtCode.ReadOnly = True

Tambahkan txtCode.ReadOnly = True, untuk mengunci kode agar tidak dapat diedit karena merupakan primary key. Selain dapat langsung double klik pada grid, user juga dapat memilih row data kemudian klik tombol Edit, maka perlu procedure yang sama pada event tbEdit_Click. Berikan code berikut

grdData_CellMouseDoubleClick(Nothing, Nothing)

kita tambahkan code di event tbcancel. Karena procedure ini akan dipanggil beberapa kali. Fungsinya adalah untuk membersihkan control input, refresh ulang data, dan membatalkan proses input baru/edit selama belum di Save.

txtCode.Text = String.Empty txtName.Text = String.Empty tbrEdit.Enabled = True txtCode.ReadOnly = False Data_Load()

Code tbedit.Enabled = False sebagai parameter pembeda, apakah status input sedang input baru atau sedang edit data. Karena untuk menyimpan perubahan


menggunakan event yang sama yaitu tbrSave_Click. Kita akan mengubah dan menambahkan beberapa code pada event tbsave_Click seperti code berikut ini.

Dim myCommand As New MySqlCommand conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=datapos" Try conn.Open() If tbrEdit.Enabled = True Then SQL = "INSERT INTO class (classcode, classname) VALUES " & _ "('" & txtCode.Text & "', '" & txtName.Text & "')" Else SQL = "UPDATE class SET classname = '" & txtName.Text & "' " & _ "WHERE classcode = '" & txtCode.Text & "'" End If myCommand.Connection = conn myCommand.CommandText = SQL myCommand.ExecuteNonQuery() If tbrEdit.Enabled = True Then MsgBox("Data baru tersimpan") Else MsgBox("Perubahan tersimpan") End If tbrCancel_Click(Nothing, Nothing) conn.Close() Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try


G. Delete Data Untuk menghapus data tambahkan code dibawah ini pada even icon menu delete click

If MsgBox("Yakin akan menghapus data?", MsgBoxStyle.YesNo, _ "Konfirmasi") = MsgBoxResult.No Then Exit Sub Dim myCommand As New MySqlCommand conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=datapos" Try conn.Open() SQL = "DELETE FROM class WHERE classcode = " & _ "'" & grdData.CurrentRow.Cells(0).Value & "'" myCommand.Connection = conn myCommand.CommandText = SQL myCommand.ExecuteNonQuery() MsgBox("Data terhapus") tbrCancel_Click(Nothing, Nothing) conn.Close() Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try


H. Menampilkan Data dari Database ke ComboBox Buatlah Form Barang seperti berikut :

Tambahkan variabel berikut diatas public class form Imports MySql.Data.MySqlClient Imports System.Data

Kemudian berikan variabel berikut didalam public class form Dim conn As MySqlConnection Dim myCommand As New MySqlCommand Dim myAdapter As New MySqlDataAdapter Dim myData As New DataTable Dim SQL As String

Untuk mengeluarkan data dari database ke comboBox, tambahkan code berikut kedalam even form_load : conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=vbnet" Try conn.Open() SQL = "Select classcode, classname From class" myCommand.Connection = conn myCommand.CommandText = SQL myAdapter.SelectCommand = myCommand myAdapter.Fill(myData)

cboKategori.DataSource = myData cbokategori.DisplayMember = "classname" cbokategori.ValueMember = "classcode"


conn.Close() Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try

I. TUGASNYA

Fungsikan tombol-tombol save, edit, delete, cancel dan exit pada form barang diatas ..


MODUL 6 MENU DAN MEMBUAT LAPORAN A. Tujuan pembelajaran praktikum :

1. Mahasiswa dapat menggunakan Menu Manager untuk menghubungkan semua form aplikasi secara dinamis. (C3) 2. Mahasiswa dapat mencetak Laporan pada pemrograman VB.net (C3) B. Membuat Halaman Menu

Untuk membuat menu, pilih didalam toolbox

lalu ketikkan nama

menu sesuai dengan yang diinginkan Atau bisa juga dengan mengetikkan menu pada properties text. Penggunaan tanda ”&” diantara nama menu, berfungsi agar menu dapat diakses menggunakan keyboard dengan menekan tombol alt disertai dengan huruf yang bergaris bawah.

. jika program sudah dijalankan, menu ini dapat diakses dengan

menekan tombol ”alt dan m” secara bersamaan.

C. Latihan Soal

Tampilan Menu Utama dari program aplikasi Penjualan Produk

D. Membuat Laporan Export Data ke Excel

Proses yang akan kita buat adalah menampilkan data di gridview kemudian dengan menekan button data akan export ke file excel. Tabel data yang akan kita


gunakan dan cara menampilkan di grid sama dengan artikel Menampilkan Data di Grid, dengan sedikit modifikasi pada UI sebagai berikut:

Viewcode pada form report diatas dan tambahkan sourcecode berikut : Imports MySql.Data.MySqlClient Imports System.Data Public Class report Dim conn As MySqlConnection Dim myCommand As New MySqlCommand Dim myAdapter As New MySqlDataAdapter Dim myData As New DataTable Dim SQL As String Private Sub report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New MySqlConnection () conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=vbnet" Try conn.Open() SQL = "Select * from class" myCommand.Connection = conn myCommand.CommandText = SQL myAdapter.SelectCommand = myCommand myAdapter.Fill(myData) grdData.DataSource = myData conn.Close() grdData.AllowUserToAddRows = False grdData.AllowUserToDeleteRows = False grdData.Columns(0).ReadOnly = True


grdData.Columns(1).ReadOnly = True Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try End Sub

Pada button click tambahkan sourcecode berikut : If grdData.RowCount > 0 Then 'Deklarasi Object Dim ApExcel As Object 'Set sebagai excel object ApExcel = CreateObject("Excel.application" ) 'Menyembunyikan proses excel ApExcel.Visible = False 'Membuat/menambah workbook baru ApExcel.Workbooks.Add() 'Lebar Kolom ApExcel.Columns(1).ColumnWidth = 15 ApExcel.Columns(2).ColumnWidth = 20 'Tulis nama kolom ke excel For i As Integer = 1 To grdData.Columns.Count ApExcel.Cells(1, i).Value = grdData.Columns(i - 1).Name Next 'Tulis data ke excel For r = 0 To grdData.RowCount - 1 For i As Integer = 1 To grdData.Columns.Count ApExcel.Cells(r + 2, i).Value = grdData.Rows(r).Cells(i 1).Value Next Next 'Membuat Font Bold ApExcel.Range( "A1:B1").Font.Bold = True 'Memberi warna backgound ApExcel.Range( "A1:B1").interior.colorindex = 36 'Agar nilai cell yang panjang menjadi beberapa baris 'ApExcel.Range("A2:B" & grdData.RowCount + 1).WrapText = True 'Membuat border hitam ApExcel.Range("A1:B" & grdData.RowCount + 1).Borders.Color = RGB(0, 0, 0) ApExcel.Visible = True ApExcel = Nothing


End If

Hasilnya adalah :

Hasil Export Excel :



MODUL 7 PACKEGE EXECUTE PROGRAM

A. Tujuan pembelajaran praktikum :

Mahasiswa dapat membuat dan merancang sistem informasi dengan menggunakan perograman VB.Net (C5) B. Teori/Konsep

Membuat Executable: Program yang telah dibuat biasanya harus dijalankan dengan cara membuka sistem Visual Basic terlebih dahulu, hal ini memerlukan banyak waktu dan tenaga. Untuk melakukan efisiensi maka sebaiknya dibuat sebuah file EXE dari program yang telah lengkap tersebut. Untuk membuat kompilasi program lakukan langkah-langkah di bawah ini : 1. Buka program yang akan dikompilasi (misalnya Aplikasi Penjualan) 2. Klik menu File, pilih Make Aplikasi Penjualan.exe…

3. Tulis nama file EXE (misalnya Program Penjualan) 4. Tentukan posisi penyimpanan file tersebut (misalnya pada direktori C:\Belajar VB) 5. Kemudian pilih OK C. Membuat Shortcut

Setelah terbentuk file EXE dengan langkah-langkah di atas, maka sebaiknya Anda pun membuat shortcut -nya di desktop dengan tujuan agar pada saat program tersebut


dijalankan Anda cukup dengan melakukan double-Click pada shortcut tersebut tanpa harus membuka sistem Visual Basic. D. TUGAS AKHIR

Buatlah sebuah aplikasi yang sesuai dengan jurnal kelompoknya masing-masing.

NB : tugas dibuat kelompok yang sudah dibagi diperkuliahan teori

E. TAMBAHAN MEMBUAT FORM LOGIN

pertama-tama untuk urusan UI kita pake template. Caranya klik menu Project Add Windows Form...

Kemudian pilih Login Form dan klik tombol Add.


Dan login form dari template pun terbentuk.

Begitu pula code di belakangnya, terdapat code yang di generate secara otomatis.


Kemudian buatlah tabel user didalam suatu database. Ini adalah bentuk tabel user yang akan kita gunakan.

Karena

kita

akan

menggunakan

database

MySQL

jangan

lupa

import

MySql.Data.MySqlClient nya. Imports MySql.Data.MySqlClient

Lalu kita akan mendeklarasikan sebuah variable integer bernama iFail untuk menghitung berapa kali kesalahan login Public Class LoginForm1

Dim iFail As Integer

End Class

Lalu variable iFail ini diberi nilai initial = 0 pada event form_load. Private Sub LoginForm1_Load(ByVal sender As Object, _


ByVal e As System.EventArgs) Handles Me.Load iFail = 0 End Sub

Kemudian untuk mengecek login, kita bikin fungsi tersendiri bernama CheckLogin yang akan mengembalikan nilai integer. Nilai 1 jika benar dan 0 jika salah. Function CheckLogin(ByVal UserName As String, _ ByVal Password As String) As Integer

Dim conn As MySqlConnection Dim cmd As New MySqlCommand Dim objValue As Object

conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;" & _ "password=;database=latihan" Try conn.Open() cmd.Connection = conn cmd.CommandText = "SELECT COUNT(username) AS getin " & _ "FROM tbluser WHERE username = " & _ "'" & UserName & "' AND " & _ "password = '" & Password & "'"

objValue = cmd.ExecuteScalar() conn.Close() If objValue Is Nothing Then Return 0 Else Return objValue.ToString End If Catch myerror As MySqlException MessageBox.Show("Error: " & myerror.Message) Finally conn.Dispose() End Try


Return 0 End Function

Proses login dimulai dengan mengisi username dan password kemudian klik tombol OK. Dan berikut ini code yang berada pada event OK_Click. Dim strUserName As String = UsernameTextBox.Text Dim strPassword As String = PasswordTextBox.Text

If strUserName = String.Empty Then _ MsgBox("Username belum diisi!") : Exit Sub If strPassword = String.Empty Then _ MsgBox("Password belum diisi!") : Exit Sub

Try If CheckLogin(strUserName, strPassword) > 0 Then MsgBox("Welcome " & strUserName & "!") 'tulis code lainnya setelah login disini Me.Close() Else iFail = iFail + 1 If iFail >= 3 Then MsgBox("Gagal login 3 kali." & vbCrLf & _ "Aplikasi akan ditutup.") End End If MsgBox("Username/password Salah." & vbCrLf & _ "Silahkan cek lagi!") End If Catch ex As Exception MsgBox("Error Login: " & ex.Message) End Try

Terakhir tombol Cancel digunakan sebagai pelengkap jika kita batal melakukan proses login. Dalam event Cancel_Click kita akan menyisipkan code untuk menutup form login. Private Sub Cancel_Click(ByVal sender As System.Object, _


modulVBNet 1718

Recommend Documents