MODUL : PEMROGRAMAN VISUAL 2019 Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference). Jika menggunakan by value, nilai pada argument tidak berubah. Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesuai dengan perintah dalam procedure. Secara default, argument dimasukkan melalui nilai (by value) dapat menggunakan kata kunci ByVal dan ByRef untuk By Reference. Syntaks argument : [ByVal|ByRef] variabelname as type Contoh : 1. Procedure dengan argument di passing sebagai value Sub HitungVal(byVal as Decimal) A+=1 textAkhir.text=a end sub 2. Procedure dengan argument di passing sebagai value Sub HitungRef(byRef as Decimal) A+=1 textAkhir.text=a end sub 3. pemanggilan procedure HitungVal(textAwal.Text) Function (Fungsi) Fungsi mempunyai banyak kemiripan dengan sub procedure. Bedanya, fungsi selalu mengembalikan nilai (return value) Sintaks fungsi dituliskan sebagai berikut : [Private|Public] function functionname[(argumentlist)] [As type] Statements{ Functionname=expression | {return expression} SMK MUSDA PERBAUNGAN 50
MODUL : PEMROGRAMAN VISUAL 2019 End function Keterangan : - Perbedaan antara fungsi dengan procedure hanyalah pada pengembalian nilai saja (return value). Sebagai contoh : Menggunakan argument berupa nilai (by value) dan reference (by reference) - Pengembalian nilai dapat dilakukan dengan menggunakan operator assignment “=” pada fungsi atau biasanya dengan perintah return. Contoh : Private Function cekData() as Boolean if IsNumeric(TextAwal.text) then return true else return false endif end function Pemanggilan fungsi if cekData()=true then HitungRef(textAwal.text) else messageBox.Show(“Data yang dimasukkan bukan angka”,”Kesalahan data”, MessageBoxButtons.OK, MessageBoxIcons.Error) endif Modul (Module) Modul merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form. - Umumnya modul dideklarasikan secara public (public) agar dapat digunakan di dalam kode dimanapun SMK MUSDA PERBAUNGAN 51
MODUL : PEMROGRAMAN VISUAL 2019 - Modul dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai - Modul merupakan salah satu argumentasi code reuse yang bertujuan agar program lebih efesien. Sintaks pembuatan modul sebagai berikut : Module moduleName Statement End module Contoh : Module Module Public intResponce, RoleId, Msg As Integer Public Username, Password, Nama As String End Module V. LANGKAH KERJA Procedure dan Function 1. Desain Tampilan form seperti gambar berikut ini : SMK MUSDA PERBAUNGAN 52
MODUL : PEMROGRAMAN VISUAL 2019 2. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: Object Properties Nilai Form1 Name Form1 Text Barang Label1 Text Kode Barang Label2 Text Nama Barang Label3 Text Satuan Label4 Text Harga Label5 Text Jumlah Label6 Text Total Harga TexBox1 Name TxtKodeBrg TexBox2 Name TxtNamaBrg TexBox3 Name TxtSatuan TexBox4 Name TxtHrgSatuan TexBox5 Name TxtHarga TexBox6 Name TxtTot Button1 Name BtnHitung Text Hitung Button2 Name BtnClear Text Clear Button3 Name BtnExit Text Exit 3. Klik ganda pada Form, kemudian buatlah sub procedure Bersih berikut ini : Sub Bersih() 53 TxtKodeBrg.Text = \"\" TxtNamaBrg.Text = \"\" TxtSatuan.Text = \"\" TxtHarga.Text = \"\" SMK MUSDA PERBAUNGAN
MODUL : PEMROGRAMAN VISUAL 2019 TxtHrgSatuan.Text = \"\" TxtTot.Text = \"\" TxtKodeBrg.Focus() TxtTot.Enabled = False End Sub 4. Panggil procedure yang anda buat diatas dengan cara, klik ganda pada form load ketikkan kode program berikut ini : Call Bersih() 5. Panggil procedure yang anda buat diatas pada BtnClear dengan cara, klik ganda pada BtnClear kemudian ketikkan kode program berikut ini : Call Bersih() 6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 7. Buatlah Function Hitung, berikut ini : Private Function Hitung() Dim Harga, HrgSatuan, Total As Integer Harga = TxtHarga.Text HrgSatuan = TxtHrgSatuan.Text Total = Harga * HrgSatuan TxtTot.Text = Total Return Total End Function 8. Buatlah Procedure CekDataKosong dan sekaligus memanggil function Hitung, berikut ini : SMK MUSDA PERBAUNGAN 54
MODUL : PEMROGRAMAN VISUAL 2019 Sub CekDataKosong() If TxtKodeBrg.Text = \"\" Then MessageBox.Show(\"Kode Barang harus diisi\", \"Konfirmasi\", MessageBoxButtons.OK, MessageBoxIcon.Warning) TxtKodeBrg.Focus() ElseIf TxtNamaBrg.Text = \"\" Then MessageBox.Show(\"Nama Barang harus diisi\", \"Konfirmasi\", MessageBoxButtons.OK, MessageBoxIcon.Warning) TxtNamaBrg.Focus() ElseIf TxtSatuan.Text = \"\" Then MessageBox.Show(\"Satua Barang harus diisi\", \"Konfirmasi\", MessageBoxButtons.OK, MessageBoxIcon.Warning) TxtSatuan.Focus() ElseIf TxtHarga.Text = \"\" Then MessageBox.Show(\"Harga Barang harus diisi\", \"Konfirmasi\", MessageBoxButtons.OK, MessageBoxIcon.Warning) TxtHarga.Focus() ElseIf TxtHrgSatuan.Text = \"\" Then MessageBox.Show(\"Harga Satuan Barang harus diisi\", \"Konfirmasi\", MessageBoxButtons.OK, MessageBoxIcon.Warning) TxtHrgSatuan.Focus() Else Call Hitung() End If End Sub 9. Memanggil procedure CekDataKosong dengan cara, klik ganda pada tombol BtnHitung: Call CekDataKosong() 10. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 11. Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini : SMK MUSDA PERBAUNGAN 55
MODUL : PEMROGRAMAN VISUAL 2019 Dim Tutup As String Tutup = MessageBox.Show(\"Yakin tutup form ini ?\", \"Konfirmasi\", MessageBoxButtons.YesNo,MessageBoxIcon.Question) If TUTUP = MsgBoxResult.Yes Then End Else Exit Sub End If 12. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 13. Simpan aplikasi Anda. Function 1. Tambahkan Form baru, dengan nama Form2. 2. Desain Tampilan form seperti gambar berikut ini : 3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: SMK MUSDA PERBAUNGAN 56
Object Properties MODUL : PEMROGRAMAN VISUAL 2019 Form1 Name Text Nilai TexBox1 Name Form1 TexBox2 Name Function TexBox3 Name TxtVar1 GroupBox1 Text TxtVar2 RadioButton1 Name TxtHasil Text Operasi RadioButton2 Name RdbAkar Text Akar Kuadrad RadioButton3 Name RdbPangkat Text Pangkat RadioButton4 Name RdbPembagian Text Pembagian RadioButton5 Name RdbPerkalian Text Perkalian RadioButton6 Name RdbPenjumlahan Text Penjumlahan Button1 Name RdbPengurangan Text Pengurangan Button2 Name BtnHitung Text Hitung BtnExit Exit 4. Klik kanan pada form, kemudian pilih menu view, kemudian ketik deklarasi masing- masing fungsi sebagai berikut ini : Function Akar(ByVal a As Decimal) As String Return Math.Sqrt(a) End Function Function Pangkat(ByVal a As Decimal, ByVal b As Decimal) As String Return a ^ b End Function Function Pembagian(ByVal a As Decimal, ByVal b As Decimal) As String SMK MUSDA PERBAUNGAN 57
MODUL : PEMROGRAMAN VISUAL 2019 Return a / b End Function Function Perkalian(ByVal a As Decimal, ByVal b As Decimal) As String Return a * b End Function Function Pemjumlahan(ByVal a As Decimal, ByVal b As Decimal) As String Return a + b End Function Function Pengurangan(ByVal a As Decimal, ByVal b As Decimal) As String Return a - b End Function 5. Klik ganda pada Tombol Hitung, kemudian ketik kode program berikut ini : If RdbAkar.Checked = True Then TxtHasil.Text = Akar(TxtVar1.Text) ElseIf RdbPangkat.Checked = True Then TxtHasil.Text = Pangkat(TxtVar1.Text, TxtVar2.Text) ElseIf RdbPembagian.Checked = True Then TxtHasil.Text = Pembagian(TxtVar1.Text, TxtVar2.Text) ElseIf RdbPerkalian.Checked = True Then TxtHasil.Text = Perkalian(TxtVar1.Text, TxtVar2.Text) ElseIf RdbPenjumlahan.Checked = True Then TxtHasil.Text = Pemjumlahan(TxtVar1.Text, TxtVar2.Text) ElseIf RdbPengurangan.Checked = True Then TxtHasil.Text = Pengurangan(TxtVar1.Text, TxtVar2.Text) End If 6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 7. Simpan aplikasi Anda SMK MUSDA PERBAUNGAN 58
MODUL : PEMROGRAMAN VISUAL 2019 MODUL 9 I. JUDUL DATEBASE II. TUJUAN - Memahami dan mengenal database MySQL - Dapat membuat database MySQL - Dapat membuat aplikasi desktop yang terkoneksi database MySQL III. ALAT DAN BAHAN - PC/Laptop - Microsoft Visual Basic 2008 - Xampp - Browser (Google chrome, Mozilla firefox) IV. MATERI POKOK Database adalah informasi yang tersimpan dan tersusun rapi di dalam suatu tempat, dan dapat dengan mudah dimanipulasi seperti menambah data, menghapus, mencari, mengatur informasi yang kita butuhkan. MySQL merupakan sistem manajemen basis data relasional open source yang dapat berjalan hampir di semua jenis platform seperti Linux, UNIX, dan juga Windows. Meskipun demikian, MySQL lebih dikenal sebagai manajemen basis data untuk aplikasi berbasis web. MySQL diakuisisi oleh Sun Microsystems pada tahun 2008 kemudian pada tahun 2010 Oracle membeli Sun Microsystems. Saat ini developer masih dapat menggunakan MySQL di bawah lisensi GNU General Public License, sedangkan untuk perusahaan harus menggunakan lisensi komersial dari Oracle. SMK MUSDA PERBAUNGAN 59
MODUL : PEMROGRAMAN VISUAL 2019 V. LANGKAH KERJA A. Membuat Database MySQL dengan melalui PHPMyAdmin di Xampp phpMyAdmin merupakan perangkat lunak yang dibuat dengan PHP yang berguna untuk mengatur administrasi MySQL melalui sebuah Web. phpMyAdmin mendukung banyak operasi di MySQL dan MariaDB, seperti mengelola database, tabel, relasi, kolom, pengguna dll. Untuk membuat database melalui phpMyAdmin, silakan ikuti langkah di bawah ini. Catatan: Pastikan Anda sudah melakukan instalasi XAMPP atau WAMPServer seperti di langkah sebelumnya. 1. Silakan jalankan service Apache dan MySQL di XAMPP dengan menekan tombol Start. 2. Pada browser, silakan akses URL berikut: localhost/phpmyadmin 3. Untuk membuat database, silakan klik New, masukkan nama database yang Anda inginkan, kemudian klik tombol Create. SMK MUSDA PERBAUNGAN 60
MODUL : PEMROGRAMAN VISUAL 2019 4. Akan terlihat database yang sudah Anda buat pada menu sebelah kiri B. Membuat Table 1. Pilih database yang akan dibuat table 2. Pada bagian Create Table masukkan nama table dan jumlah kolom/ filednya… 3. Klik Go 61 4. Lalu isi data table SMK MUSDA PERBAUNGAN
MODUL : PEMROGRAMAN VISUAL 2019 Name : diisi dengan nama field Type : diisi dengan tipe data Length / Values : diisi dengan panjang karakter Index : diisi dengan PRIMARY untuk field yang akan dijadikan primary key 5. Klik SAVE C. Membuat Record Table 1. Klik INSERT 2. Masukkan record kedalam Value 3. Klik Go untuk Simpan SMK MUSDA PERBAUNGAN 62
MODUL : PEMROGRAMAN VISUAL 2019 MODUL 10 I. JUDUL APLIKASI PENJUALAN SEDERHANA MENGGUNAKAN DATABASE II. TUJUAN - Memahami alur program penjualan - Dapat membuat aplikasi penjualan sederhana berbasis desktop yang terkoneksi database MySQL III. ALAT DAN BAHAN - PC/Laptop - Microsoft Visual Basic 2008 - Xampp - Browser (Google chrome, Mozilla firefox) - ODBC 3.5.1 IV. MATERI POKOK Aplikasi penjualan merupakan aplikasi berbasis desktop yang terdiri dari beberapa form seperti form login, menu utama, data barang, data pelanggan, data petugas serta form penjualan itu sendiri. Data-data yang diinputkan melalui data penjualan ini langsung disimpan kedalam database yang nantinya dapat ditampilkan kembali ke masing-masing form pada aplikasi penjualan. V. LANGKAH KERJA 1. Buat Database berikut di MySQL Nama database : db_penjualan Nama table : tb_login, tb_barang, tb_pelanggan, tb_petugas, tb_penjualan Detail table : Tb_login name Type length username Varchar 20 password Varchar 20 SMK MUSDA PERBAUNGAN 63
MODUL : PEMROGRAMAN VISUAL 2019 Tb_barang Type length name Varchar 20 Kode_barang Varchar 50 Nama_barang Int 20 Harga Tb_pelanggan Type length name Varchar 20 Kode_pelanggan Varchar 50 Nama_pelanggan Varchar 50 alamat Tb_petugas Type length name Varchar 20 Kode_petugas Varchar 50 Nama_petugas Varchar 20 Tempat_lahir Date Tanggal_lahir Tb_penjualan Type length name Varchar 20 Kode_penjualan Varchar 20 Kode_barang Varchar 50 Nama_barang Int 30 Harga Varchar 20 Kode_petugas Varchar 50 Nama_petugas Varchar 20 Kode_pelanggan Varchar 50 Nama_pelanggan Varchar 20 Jumlah Varchar 30 Total_bayar Isi semua record table di database (Kecuali table penjualan). 64 SMK MUSDA PERBAUNGAN
MODUL : PEMROGRAMAN VISUAL 2019 2. Buat project baru di visual basic dengan nama program_penjualan 3. Buat desain form berikut ini : 4. Tambahkan form baru dengan cara : Klik kanan Program_penjualan di solution explorer >> add >> windows form Lalu buat form berikutnya. SMK MUSDA PERBAUNGAN 65
MODUL : PEMROGRAMAN VISUAL 2019 SMK MUSDA PERBAUNGAN 66
MODUL : PEMROGRAMAN VISUAL 2019 5. Tambahkan referensi database dengan cara : Klik kanan Program_penjualan di solution explorer >> add reference 6. Pilih MySql.Data >> Ok 7. Tambahkan module dengan cara : 8. Klik kanan Program_penjualan di solution explorer >> add >> module 9. Beri nama module_koneksi.vb SMK MUSDA PERBAUNGAN 67
MODUL : PEMROGRAMAN VISUAL 2019 10. Kode Program Module Module_koneksi.vb Imports MySql.Data.MySqlClient Module Module_koneksi Public conn As MySqlConnection Public cmd As MySqlCommand Public rd As MySqlDataReader Public da As MySqlDataAdapter Public ds As DataSet Public str As String Sub koneksi() Try Dim str As String = \"Server=localhost;user id=root;password=;database=db_penjualan\" conn = New MySqlConnection(str) If conn.State = ConnectionState.Closed Then conn.Open() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub End Module 11. Kode Program Login Imports MySql.Data.MySqlClient Public Class login3 Private Sub cbshow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbshow.CheckedChanged If cbshow.Checked = True Then txtpass.PasswordChar = \"\" SMK MUSDA PERBAUNGAN 68
MODUL : PEMROGRAMAN VISUAL 2019 Else txtpass.PasswordChar = \"*\" End If End Sub Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click Call koneksi() Dim myAdapter As New MySqlDataAdapter Dim sqlQuery = \"SELECT * FROM tb_login WHERE username='\" + txtuser.Text + \"' AND password='\" + txtpass.Text + \"'\" Dim myCommand As New MySqlCommand myCommand.Connection = conn myCommand.CommandText = sqlQuery myAdapter.SelectCommand = myCommand Dim myData As MySqlDataReader myData = myCommand.ExecuteReader() If txtuser.Text = \"\" Then MsgBox(\"username belum diisi!! \", MsgBoxStyle.Exclamation, \"Periksa Data\") ElseIf txtpass.Text = \"\" Then MsgBox(\"password belum diisi!! \", MsgBoxStyle.Exclamation, \"Periksa Data\") ElseIf myData.HasRows = 0 Then MsgBox(\"username atau password salah!! \", MsgBoxStyle.Critical, \"Error Login\") Else MsgBox(\"Login berhasil, Selamat datang \" & txtuser.Text & \"!\", MsgBoxStyle.Information, \"Successfull Login\") menuutama3.Show() Me.Hide() End If End Sub End Class SMK MUSDA PERBAUNGAN 69
MODUL : PEMROGRAMAN VISUAL 2019 12. Kode Program Menu Utama Public Class menuutama3 Private Sub PENJUALANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PENJUALANToolStripMenuItem.Click penjualan3.Show() Me.Hide() End Sub Private Sub BARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARANGToolStripMenuItem.Click barang3.Show() Me.Hide() End Sub Private Sub PELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PELANGGANToolStripMenuItem.Click pelanggan3.Show() Me.Hide() End Sub Private Sub PETUGASToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PETUGASToolStripMenuItem.Click petugas3.Show() Me.Hide() End Sub End Class 13. Kode Program Data Barang Imports MySql.Data.MySqlClient 70 Public Class barang3 SMK MUSDA PERBAUNGAN
MODUL : PEMROGRAMAN VISUAL 2019 Sub tampilbarang() Call koneksi() da = New MySqlDataAdapter(\"select kode_barang, nama_barang, harga from tb_barang\", conn) ds = New DataSet da.Fill(ds, \"tb_barang\") DataGridView1.DataSource = ds.Tables(\"tb_barang\") End Sub Sub aturDGV() Try DataGridView1.Columns(0).Width = 70 DataGridView1.Columns(1).Width = 200 DataGridView1.Columns(2).Width = 100 DataGridView1.Columns(0).HeaderText = \"Kode Barang\" DataGridView1.Columns(1).HeaderText = \"Nama Barang\" DataGridView1.Columns(2).HeaderText = \"Harga\" Catch ex As Exception End Try End Sub Private Sub barang3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call tampilbarang() Call aturDGV() End Sub Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick txtkode.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value txtnama.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value txtharga.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value End Sub Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click SMK MUSDA PERBAUNGAN 71
MODUL : PEMROGRAMAN VISUAL 2019 Call koneksi() Try Dim str As String str = \"insert into tb_barang values ('\" & txtkode.Text & \"','\" & txtnama.Text & \"', '\" & txtharga.Text & \"')\" cmd = New MySqlCommand(str, conn) cmd.ExecuteNonQuery() MsgBox(\"Data Barang Berhasil Ditambahkan\", MsgBoxStyle.Information, \"Sukses\") Catch ex As Exception MsgBox(\"Data Barang Tidak Berhasil Ditambahkan, Kode barang sudah ada\", MsgBoxStyle.Critical, \"Gagal\") End Try Call tampilbarang() Call aturDGV() End Sub Private Sub btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnubah.Click Call koneksi() Try Dim str As String str = \"update tb_barang set nama_barang = '\" & txtnama.Text & \"',harga = '\" & txtharga.Text & \"' where kode_barang = '\" & txtkode.Text & \"'\" cmd = New MySqlCommand(str, conn) cmd.ExecuteNonQuery() MsgBox(\"Data Barang Berhasil Diubah\", MsgBoxStyle.Information, \"Sukses\") Catch ex As Exception MsgBox(\"Data Barang Tidak Berhasil Diubah, Kode barang sudah ada\", MsgBoxStyle.Critical, \"Gagal\") End Try Call aturDGV() Call tampilbarang() End Sub SMK MUSDA PERBAUNGAN 72
MODUL : PEMROGRAMAN VISUAL 2019 Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click Call koneksi() Try Dim str As String str = \"delete from tb_barang where kode_barang = '\" & txtkode.Text & \"'\" cmd = New MySqlCommand(str, conn) cmd.ExecuteNonQuery() MessageBox.Show(\"Data Barang Berhasil Dihapus.\") Catch ex As Exception MessageBox.Show(\"Data Barang Gagal Dihapus.\") End Try Call aturDGV() Call tampilbarang() End Sub Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click Me.Close() menuutama3.Show() End Sub End Class VI. TUGAS 1. Berdasarakan contoh sebelumnya, buatlah kode program untuk form Pelanggan, Petugas, dan penjualan. SMK MUSDA PERBAUNGAN 73
Search
