PERTEMUAN 13 : KONEKSI DATABASE

PERTEMUAN 12 : MATERI MENUBAR & MAINFORM

Menubar adalah sebuah strip horizontal yang berisi daftar menu yang tersedia untuk program tertentu. Dalam program Windows, menu bar berada di bagian atas  jendela layar yang terbuka.

MDI (Multiple Document Interface)

Mdi form  ialah form yang dapat menapilkan beberapa form sekaligus. Terbagi menjadi 2 jenis form yaitu form induk dan form anak. Form induk inilah yang akan menjadi tempat form-form anak ditampilkan. Berikut langkah-langkah dalam membuat MDI form :

Mainform

Main Form merupakan sebuah form yang dijadikan form induk tempat untuk mengakses form-form lainnya.

 Buatlah desain Form sebagai berikut :

1. Buatlah project baru, lalu pilih widows form application. Set form pertama ( form 1 ) menjadi form induk dengan cara,

 atur properti  IsMdiContainer   menjadi       “True”.

 Tambahkan 4 windows form lagi.

 Atur form1( form Induk ) pada properti  Windowstate menjadi  maximized.

 Buatlah sebuah Menustrip untuk memanggil form form anak,  pilih MenuStrip dari toolbox .

 Lalu buatlah menu-menu seperti gambar diatas.

 Untuk memanggil form anak hanya dengan menggunakan code 

           Nama form.Mdiparent=me 

           Nama form.show/show  dialog() 

Untuk membuka form-form ini melalui form menu utama, perintahnya adalah sebagai berikut :

Public Class Form1

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        MsgBox("Anda Keluar Dari Form Ini")

        Application.Exit()

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub LaporanPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPegawaiToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub LaporanToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanToolStripMenuItem1.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

End Class

Double klik pada menustrip yang ingin dijadikan pemanggil form, misalnya saya akan memanggil data pegawai, maka kode program diletakkan pada menustrip yang bertuliskan Data Pegawai kemudian panggil form yang akan dibuka misal FORM DATA PEGAWAI.

PERTEMUAN 11 : MATERI EXCEPTION HANDLING

EXCEPTION HANDLING

Mengenal Exception Handling (Penanganan Kesalahan)

Perintah penanganan kesalahan yang sering dikenal dengan istilah

Exception Handling. Perintah ini digunakan untuk menangani suatu kesalahan

dalam menjalankan aplikasi dengan adanya perintah ini setipa kesalahan akan

diatasi secara otomatis sesuai dengan perintah kesalahan yang telah anda buat,

sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan.

Struktur Exception Handling atau penanganan kesalahan di Visual Basic  2008 antara lain :

a. Menggunakan Try...Catch..Finally...End Try

b. Menggunakan Throw

Memahami Penggunaan Try-Catch-Finally-EndTry

Ini merupakan perintah penanganan kesalahan yang berfungsi untuk

menangani kesalahan dalam menjalankan aplikasi. Dengan menggunakan trycatch

ini sanagat memudahkan kita dalam melacak kesalahan yang terjadi

didalam program yang sedang running. Blok Try akan dijalankan jika tidak

adanya kesalahan yang terjadi didalam program yang kita buat. Namun

terjadinya kesalahan didalam program maka akan menyebabkan terjadinya

kesalahan dan runtime error, maka akan dijalankan perintah yang ada didalam

blok catch, tetapi blok catch yang akan dijalankan sesuai juga dengan tipe

kesalahan yang akan kita berikan, sangat banyak tipe kesalahan yang ada didalam

program, misalnya kesalahan secara umum,kita bisa buat dengan tipe Exception,

atau kesalahan database MySQl bisa kita buat MySQLException, dan lain

sebagainya

Bentuk penulisan Try-Catch-Finally-EndTry sebagai berikut :

Try

[Perintah yang akan dijalankan]

Catch nama_variabel As Exception

[Tangkap Kesalahan]

Finally

[Perintah setelah try dan Catch, tetapi ini Optional, Boleh iya

boleh juga tidak dibuat]

EndTry

Contoh penggunaan Didalam Visual Studio 2008 :

Dengan menggunakan perintah try-catch ini sangat meudahkan kita

dalam memanajemen program yang kita buat dan dengan menggunakan perintah

ini kita sangat dibantu dalam mencari kesalahan terhadap program yang dibuat.

Penggunaan Throw

Throw merupakan perintah penanganan kesalahan yang berfungsi untuk

menangani kesalahan apabila perintah Try-Catch-Finally-EndTry tidak dapat

menangani suatu kesalahan jalannya aplikasi :

Contoh Bentuk Penulisan :

Try

[Perintah ]

Catch Ex As Exception

[Tangkap Kesalahan]

ThrowEx/

/ Mengembalikan ke Kode Pemanggil

Finally

[Kode Program setelah Try-Catch]

//Kode ini Optional, Boleh dibuat boleh juga tidak

EndTry

Contoh Penggunaan Pada Visual Basic .Net :

Perintah throw ini hanya digunakan untuk mengembalikan kode ke

pemanggil awalnya, jadi dengan menggunakan perintah ini kesalahan tetap bisa diatasi dan program tidak akan berhenti secara langsung ketika program dijalankan.

Menggunakan Exception Handling

Pada praktek kali ini anda akan coba membuat aplikasi untuk

menentukan bilangan tersebut bilangan ganjil atau genap menggunakan fungsi

penanganan kesalahan:

Desain Form seperti dibawah ini :

a. Buatlah Project dengan nama Exception Handling

b. Form contoh Exception Handling

c. Atur Properties Seperti dibawah ini:

Object	Properties	Name
Form1	Name Text	FormExceptionHandling Exception Handling
OpenFileDialogBuka	Name	OpenFileDialogBuka
PictureBox1	Name	ProcedureFunctionGambar.Image
Button1	Name Text	ButtonBuka Buka
Button2	Name Text	ButtonExit Exit

e. Double Click Button Buka Lalu Ketikkan program seperti berikut ini :

Public Class FormExceptionHandling

    Private Sub ButtonBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBuka.Click

        If OpenFileDialogBuka.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Try

                ProcedureFunctionGambar.Image = Image.FromFile(OpenFileDialogBuka.FileName)

                Me.Text = "Membuka File" + OpenFileDialogBuka.FileName

            Catch ex As Exception

                MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

        End If

    End Sub

f. Double Click Button Exit Lalu Ketikkan program seperti berikut :

    Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click

        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

    End Sub

End Class

^{Untuk menjalankan program, klik tombol Start Debugging   atau tekan  tombol F5 pada keyboard.}

^{Untuk menutup program, klik tombol Stop Debugging}

g. Jalankan aplikasi dan inputkan data 

Lihat Gambar dibawah ini :

Tekan tombol Buka Lihat Output seperti dibawah ini adalah Pesan Error yang ditampilkan oleh VB Net

Gambar diatas merupakan pesan kesalahan yang dihasilkan karena

yang diminta adalah File gambar dari hasil Exception Handling

 ExceptionHandling              

Desain Form seperti dibawah ini :                                                                                           

        

Atur Properties Seperti dibawah ini:  

Object	Properties	Name
Form2	Name Text	ExceptionHandling Form Exception Handling
TextBox1	Name	TxtAngka
Button1	Name Text	ButtonProses Proses

 

Public Class ExceptionHandling

    Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        Try

            Dim X As Integer

            X = TxtAngka.Text

            Do

                X = X Mod 2

                If X = 0 Then

                    MessageBox.Show("Bilangan Genap", "Informasi")

                    Exit Do

                ElseIf X = 1 Then

                    MessageBox.Show("Bilangan Ganjil", "Informasi")

                    Exit Do

                End If

            Loop While Not X

        Catch ex As Exception

            MsgBox("Salah Menginputkan Data Input Angka")

        Finally

            TxtAngka.Text = ""

            TxtAngka.Focus()

        End Try

    End Sub

End Class

PERTEMUAN 10 : PROCEDURE, FUNCTION & MODULE

                                    

PROCEDURE

Public Class FormProcedure

    Sub Bersih()

        TxtKodeBarang.Text = ""

        TxtNamaBarang.Text = ""

        TxtSatuan.Text = ""

        TxtJumlahBarang.Text = ""

        TxtTotalBayar.Text = ""

        TxtKodeBarang.Focus()

        TxtTotalBayar.Enabled = False

    End Sub

    Private Function Hitung()

        Dim Jumlah, HargaSatuan, Total As Integer

        Jumlah = TxtJumlahBarang.Text

        HargaSatuan = TxtHargaBarang.Text

        Total = Jumlah * HargaSatuan

        TxtTotalBayar.Text = Total

        Return Total

    End Function

    Sub CekDataKosong()

        If TxtKodeBarang.Text = "" Then

            MessageBox.Show("Kode Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        ElseIf TxtNamaBarang.Text = "" Then

            MessageBox.Show("Nama Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtNamaBarang.Focus()

        ElseIf TxtSatuan.Text = "" Then

            MessageBox.Show("Satuan harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        ElseIf TxtJumlahBarang.Text = "" Then

            MessageBox.Show("Harga Satuan Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TxtKodeBarang.Focus()

        Else

            Call Hitung()

        End If

    End Sub

    Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click

        Call Bersih()

    End Sub

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

        Call Bersih()

    End Sub

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        Call CekDataKosong()

    End Sub

    Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click

        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

    End Sub

End Class

                                                      Function

Public Class FormFunction

    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

        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

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        If RadioButtonAkarKuadrat.Checked = True Then

            TxtHasil.Text = Akar(TxtVariabel1.Text)

        ElseIf RadioButtonPangkat.Checked = True Then

            TxtHasil.Text = Pangkat(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPembagian.Checked = True Then

            TxtHasil.Text = Pembagian(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPerkalian.Checked = True Then

            TxtHasil.Text = Perkalian(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPenjumlahan.Checked = True Then

            TxtHasil.Text = Pemjumlahan(TxtVariabel1.Text, TxtVariabel2.Text)

        ElseIf RadioButtonPengurangan.Checked = True Then

            TxtHasil.Text = Pengurangan(TxtVariabel1.Text, TxtVariabel2.Text)

        End If

    End Sub

    Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click

        End

    End Sub

End Class

                                                                                                                       MODULE

Module Tes_Module

    Public Panjang As Integer

    Public Lebar As Integer

    Public Function Luas_persegi(ByVal a As Integer, ByVal b As Integer)

        Return (Panjang * Lebar)

    End Function

End Module

Public Class FormModule

    Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click

        Try

            Panjang = Me.TxtPanjang.Text

            Lebar = Me.TxtLebar.Text

            Me.TxtHasil.Text = Luas_persegi(Panjang, Lebar)

        Catch ex As Exception

            MsgBox(ex.Message)

            MsgBox("Salah Menginputkan Data Input Angka", MsgBoxStyle.Information, "INFORMATION")

            MsgBox("Error Dalam Menghitung, Harap Masukkan Angka Ya", MsgBoxStyle.Information, "INFORMATION")

        End Try

    End Sub

End Class