PROCEDURE,FUNCTION DAN MODULE PADA VB.NET - MODUL_10

PROCEDURE,FUNCTION DAN MODULE PADA VB.NET

• PROCEDURE

          Procedure adalah sekelompok pernyataan yang bersama-sama melakukan tugas saat dipanggil, setelah procedure dijalankan, kontrol akan kembali ke pernyataan yang memanggil prosedur VB.Net.
Procedure dalam suatu program ditulis diantara baris Sub dan End Sub. Procedure Sub dapat diletakkan di dalam standart module, class module maupun module form. Secara default Procedur memiliki sifat public sehingga dapat diakses dan dipanggil dari manapun dalam suatu aplikasi.

BentukUmum :

[Private|Public] Sub sub name[(argumentlist)]

      Statements

End sub

Sub Procedure dapat dipanggil dengan perintah :

[call] subname[(argumentlist)]

 

Keterangan :

Sub procedure (Procedure) sebaiknya menggunakan kata kerja (verb)

Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me.

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] variabel name 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

Function adalah bagian dari prosedur dimana function berfungsi untuk mengembalikan nilai dan penggunaannya menggunakan bentuk sintaks khusus dalam bahasa pemrograman VB.Net. Function secara Opsional menerima satu atau lebih parameter yang disebut juga parameter formal.

Fungsimempunyaibanyakkemiripandengan sub procedure. Bedanya, fungsiselalumengembalikannilai (return value)

Sintaksfungsidituliskansebagaiberikut :

[Private|Public] function functionname[(argumentlist)] [As type]

      Statements{

      Functionname=expression | {return expression}

End function

Keterangan :

-          Perbedaanantarafungsidengan procedure hanyalahpadapengembaliannilaisaja (return value). Sebagaicontoh :

Menggunakan argument berupanilai (by value) dan reference (by reference)

-          Pengembaliannilaidapatdilakukandenganmenggunakan operator assignment “=” padafungsiataubiasanyadenganperintah return.

Contoh :

Private  FunctioncekData() as Boolean
      if  Is Numeric(TextAwal.text) then
            return true
      else
            return false
      end if
end function

Pemanggilanfungsi

      if cek Data()=true then
            Hitung Ref(textAwal.text)
      else
            messageBox.Show(“Data yang dimasukkanbukanangka”,”Kesalahan data”, MessageBoxButtons.OK, 
MessageBoxIcons.Error)
      end if

Definisi	Procedure	Function
	Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya	Sebuah kumpulan Statement yang akanmengembalikansebuahnilaibalikpadapemanggilnya. Nilai yang dihasilkan Function harusditampungkedalamsebuahvariabel.
Parameter	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).	Bisa menggunakan parameter dan bias juga tidak menggunakan parameter (Optional).
Deklarasi	Menggunakan keyword “Sub”.	Menggunakan keyword “Function”, Untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.

Keuntungan mengunakan Function dan Prosedur di VB.Net

1. Terkadang karena banyaknya sintaks program kita suka double-double membuat perintah dalam program, nah untuk mengatasinya biar tidak double-double dan tidak berulang-ulang menulis sintaks maka sebaiknya gunakan Fuction atau prosedure agar tidak duplikasi sintaks.
2. Memperkecil masalah-masalah yang kompleks dalam program.
3. Perintah atau sintaks anda jadi mudah di baca
4. Punulisan kode program jadi semakin jelas.
5. Informasi kode tersembunyi.
6. Kode bisa di pakai berulang kali dalam sebuah progam.

• Module (Modul)

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

-          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

ARRAY PADA VB.NET - MODUL_9

ARRAY - MODUL_9

Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun refresensi objek dalam jumlah banyak dan terindeks. Lebih jelasnya array berguna untuk memudahkan mendeklarasikan variable.
contoh sederhana :
        Dim nama1 As String
        Dim nama2 As string
        Dim nama3 As String
        Dim nama4 As String
Pendeklarasian diatas dilakukan secara berulang-ulang dengan tipe data sama string. Dengan menggunakan array penulisan variable akan lebih efisien.

  

Contoh :

1 2 3 4 5

Dim nama() As String         nama(0) = "nama1"         nama(1) = "nama2"         nama(2) = "nama3"         nama(3) = "nama4"

syarat penulisan di atas harus sama type datanya, contoh di atas adalah tipe data string.

Array juga dapat di bagi kebeberapa jenis array:

1. Array Satu Dimensi

Suatu array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki satu dimensi.

Bentuk Umum :

Dim Array[indeks] As Tipe_Data

Contoh :

Dim Arr(2) As String

Arr(0) = TxtNim.Text

Arr(1) = TxtNama.Text

Arr(2) = TxtProdi.Text

LATIHAN

 Desain Awal

Ubah atau Atur Name/Teks Pada Parameter Properties

Object	Properties	Perubahan
Form1	Name Text	Form1 Array SatuDimensi
Label1	Text	NIM
Label2	Text	NAMA
Label3	Text	HOBBY
TexBox1	Name	TxtNim
TexBox2	Name	TxtNama
TexBox3	Name	TxtHobby
ListView1	Name	ListView1
Button1	Name Text	BtnTambah Tambah

 Masukkan koding

• Double Klick Form Load

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.GridLines = True
        ListView1.View = View.Details
        ListView1.Columns.Add("NIM")
        ListView1.Columns.Add("NAMA", 115)
        ListView1.Columns.Add("HOBBY", 110)
        TxtNim.Text = 1
        TxtNama.Focus()
    End Sub

• Double Klick Button Tambah

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        Dim Arr(2) As String
        Arr(0) = TxtNim.Text
        Arr(1) = TxtNama.Text
        Arr(2) = TxtHobby.Text

        Dim listitem As ListViewItem
        listitem = New ListViewItem
        listitem = ListView1.Items.Add(Arr(0))
        listitem.SubItems.Add(Arr(1))
        listitem.SubItems.Add(Arr(2))

        TxtNim.Text = TxtNim.Text + 1
        TxtNama.Text = ""
        TxtHobby.Text = ""
        TxtNama.Focus()
    End Sub
End Class

JalankanaplikasidenganmenekantombolF5 (di keyboard), ataumelalui icon Start Debugging di toolbar, ataumelalui menu Debug > Start Debuging.

EXCEPTION HANDLING - MODUL 11

EXCEPTION HANDLING

Penanganan Kesalahan (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 setiap kesalahan akan diatasi secara otomatis sesuai dengan perintah kesalahan yang telah kita buat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan.
Struktur Exception Handling atau penanganan kesalahan di Visual Basic Net 2010 antara lain :

• Menggunakan Try...Catch..Finally...End Try 

Memahami Penggunaan Try-Catch-Finall-EndTry Ini merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi. Dengan menggunakan try-catch 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.
Contoh penulisan :
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 :

Try
Dim X%
X = TxtAngka.Text
Catch ex As Exception
MsgBox(ex.ToString)
MsgBox(“Input angkasaja”)
Finally
TxtAngka.Text=””
TxtAngka.Focus()
End Try

Contoh penggunaan Didalam Visual Basic .Net : Dengan menggunakan perintah try-catch ini sangat memudahkan kita dalam memanajemen program yang kita buat dan dengan menggunakan perintah ini kita sangat dibantu dalam mencari kesalahan terhadap program yang dibuat.

        

• Menggunakan Throw

merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan apabila perintah Try-Catch-Finally-End Try tidak dapat menangani suatu kesalahan jalannya aplikasi.
Contoh Penulisan :
Try 
[Perintah ]
Catch Ex As Exception
[Tangkap Kesalahan]
Throw Ex
// Mengembalikan ke Kode Pemanggil Finally
[Kode Program setelah Try-Catch] //Kode ini Optional, Boleh dibuat boleh juga tidak
EndTry

Contoh :

         Try
         Dim X%
         X = TxtAngka.Text
         Catch ex As Exception
         MsgBox(ex.ToString)
         MsgBox(“Input angkasaja”)
         Throw ex
         Finally
         TxtAngka.Text=””
         TxtAngka.Focus()
         End Try

          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.

• On Error Resume Next On Error Resume Next  

merupakan perintah penanganan kesalahan yang apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebut akan di abaikan.
Contoh Penggunaan : On Error Resume Next
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
MsgBox(ex.ToString)
MsgBox(“AbaikanKesalahan”)

• On Error Goto On Error Goto 

merupakan perintah penanganan kesalahan yang apabila terjadi kesalahan terhadap suatu baris tertentu maka perintah untuk melompat kebaris yang dituju akan dijalankan.
Contoh Penggunaan : On Error GotoPesan
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
Exit Sub
Pesan :
MsgBox(“AbaikanKesalahan”)

LATIHAN-1

Aplikasi Buka Gambar
Desain Form Awal 

 Pengaturan Properties Masing-masing Objek sebagai berikut:

Object	Properties	Perubahan
Form1	Name Text	Form1 AplikasiBukaGambar
OpenFileDialog1	Name	OFDbuka
PictureBox1	Name	PCBgambar
Button1	Name Text	BtnBuka Buka
Button2	Name Text	BtnExit Exit

 

isi coding berikut ini
Double Klick tombol Button1

 

Public Class Form3

    Private Sub BtnBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuka.Click
        If OFDbuka.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                PCBgambar.Image = Image.FromFile(OFDbuka.FileName)
                Me.Text = "Membuka File " + OFDbuka.FileName
            Catch ex As Exception
                MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

Double klick button2
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.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

Jalankan program/Debugging, maka hasilnya seperti berikut

 

LATIHAN -2

 
Penanganan Kesalahan
Desain Awal

 Pengaturan Properties Masing-masing Objek sebagai berikut:

Object	Properties	Perubahan
Form1	Name Text	Form1 PenangananKesalahan
TexBox1	Name	TxtAngka
Button1	Name Text	BtnProses Proses

   

isi coding berikut ini
Double Klick tombol Button1

Public Class Form4

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.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 menginput data / input angka")
        Finally
            TxtAngka.Text = ""
            TxtAngka.Focus()
        End Try

    End Sub
End Class

Jalankan program/Debugging, maka hasilnya seperti berikut