USER CONTROL

User Control adalah Control yang dibuat oleh user berdasarkan class System.Windows.Forms.UserControl. Seperti standart control, User Controls juga support properties, methods and events. User Control yang sudah dibuat bisa ditambahkan dalam form seperti control-control yang lain.

Membuat User Control

Untuk membuat user control select File->New->Project->Visual Basic Projects -> Windows Control Library from the templates and klik OK. Selain itu anda juga da[at menambahkan user control pada project dangan select Project->Add User Control. Gambar dibawah ini adalah dialog yang muncul untuk menambahkan user control pada project kita:

Form yang akan muncul setelah kita klik OK adalah seperti dibawah ini, seperti form normal.

Membuat user control dengan text box sederhana

Tambahkan text box dan label pada form

Dobel klik pada form dan tambahkan kode berikut pada even on load

Public Property sanText() As String
Get
sanText = TextBox1.Text
End Get
Set(ByVal Value As String)
TextBox1.Text = Value
End Set
End Property
Public Property sanLbl() As String
Get
sanLbl = Label1.Text
End Get
Set(ByVal Value As String)
Label1.Text = Value
End Set
End Property

Setelah itu build dengan Build->Build Solution pada main menu untuk menghasilkan file .dl

Untuk menambahkan user control yang sudah kita buat lakukan klik kanan pada tool box kemudian Customize Toolbox dapat dilihat pada gambar seperti dibawah ini :

Klik pada customize toolbox maka akan muncul customize toolbox dialog seperti gambar dibawah ini

Pilih komponen yang telah anda buat dan tambahkan ke dalam form anda.

Kemudian anda dapat menambahkan kode program seperti control-control yang lainnya.

Contoh :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal_
e As System.EventArgs) Handles Button1.Click
MessageBox.Show(“TextBox” & UserControl11.sanText())
MessageBox.Show(“Label1″ & UserControl11.sanLbl())
End Sub

Exception

Contoh 3 exception yang biasa digunakan dalam VB. Net

OOP Object Oriented Programming 

1. InvalidExpressionException fungsinya adalah untuk menangkap error expression dari  statement

Contoh :

Try

conn.Close()

Catch ex As InvalidExpressionException

‘statemen yang akan dilakukan

End Try

2. DivideByZeroException fungsinya adalah untuk menangkap error yang muncul dari suatu angka yang dibagi dengan angka 0

Contoh :

Try

Dim a As Integer = 10

Dim b As Integer = 0

a = a / b

Catch ex As DivideByZeroException

            ‘statemen yang akan dilakukan

End Try

2. OverflowException fungsinya adalah untuk menangkap error yang muncul dari statement yang menyebabkan suatu variable melebihi kapasitas dari tipe variable tersebut sepert Integer

Contoh :

Try

Dim a As Integer = 2

Do While a < 10

‘ code statement

x -= 1

Loop

Catch ex As OverflowException

‘statemen yang akan dilakukan

End Try

OOP Object Oriented Programming

OOP Object Oriented Programming

Object Oriented Programming adalah bahasa yang memiliki konsep objek seperti halnya objek didunia nyata.

Dalam OOP kita mengenal Class

Class adalah cetak biru (blue print) dari objek atau juga bisa disebut cetakan (template) dari beberapa objek yang memiliki kesamaan ciri dan sifat

Langkah-langkah pembuatan Class

1. Buka Project dalam Microsoft Visual Studio .NET

2. Pada Project menu click Add Class

3. pada kotak dialog nama, ketik nama class dan click open

 

4. Kemudian akan muncul code editor dari statement class seperti dibahaw ini

Public Class ClassName

End Class

5. Setelah membuat class baru anda dapat menambahkan data members pada class yang telah anda buat. Anda dapat menentukan level access dengan setting access modifier

Contoh : Private price as double

6. Anda da[at menambahkan method pada class.

7. Jangan lupa membuat Contructor pada class. Constructor adalah method yang pertama kali dijalankan pada saat suatu object terbentuk.

Contoh : Sub new ()

Nama = “joni”

End Sub

8. Setelah itu anda dapat menambahkan property pada Class

Contoh :

Public Property Customer() As String

Get

Return CustomerName

End Get

Set(ByVal Value As String)

CustomerName = Value

End Set

End Property

9. Cara menginstankan Class dapat dilakukan seperti statement di bawah ini

Dim xCustomer As New Customer

Status Bar

 

Fungsi
Status Bar digunakan untuk menampilkan pesan pada bagian bawah form. Biasanya Status Bar digunakan untuk menampilkan informasi waktu saat ini,halaman,pesan error,status key dari keryboard dll.

Langkah – Langkah Menggunakan Status Bar

1. Masukkan komponen Status Bar dalam form

2. Set properties show panels

• false jika tidak ingin menambahkan panel pada status bar, nilai false adalah nilai defaultnya. Kemudian di properties text tambahkan teks yang ingin ditampilkan pada status bar.
• true jika ingin menampilkan lebih dari satu panel informasi pada status bar. Untuk menambahkan panel, pilih property panel dan tekan add untuk menambah panel.Kemudian masukkan teks yang diinginkan pada tiap panel

3 Menambahkan panel juga bisa dilakukan melalui kode program

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

StatusBar1.Panels.Add(“text yang ingin ditampilkan”)

End Sub

4. Tambahkan kode program jika diperlukan

 

hasil akhirna seperti gambar dibawah ini :

 

Error Handling

Exception Handling

Exception handling untuk menangkap error yang terjadi saat program dijalankakan karena kesalahan logika.

Struktur Exception Handling

VB.Net memberikan tiga keyword yaitu try, catch, finally dalam melakukan exception handling.

Struktur syntax :

Try

Statement yang memungkinkan terjadi error

Catch variable As exception

Statement untuk handle error

Finally

Statement final untuk membersihkan error

End try

Try dan End try adalah statement yang harus ada, jika tidak error akan muncul, sedangkan Catch dan Finally bersifat optional. Meskipun secara logika kita harus memasukkan paling tidak satu catch exception untuk melakukan handle pada error yang mungkin terjadi.

Kita juga dapat menggunakan multiple catch pada satu blok try dimana masing-masing catch exception akan menangani error yang berbeda-beda.

Menangkap sebuah Exception

Untuk menangkap error secara umum yang dihasilkan oleh suatu proses. Tanpa memperhatikan tipe errornya. Kita dapat menggunakan catch pada class Exception seperti contoh syntax dibawah ini :

Dim a As Integer = 0

Dim b As Integer = 0

Dim c As Integer = 0

Try

A= b / c

Catch e As Exception

Console.Writeline (“A- run-time error occured”)

Finally

Console.Readline()

End Try

 

Throw Exception

Selain menangkap error yang mungkin terjadi dengan catch kita juga dapat menggunakan throw exception

Contoh Syntax

Public Class clsPerson

Private mintage As Integer

Public Property Age() As Integer

Get

Age=mintage

End Get

 

Set(ByVal Value As Integer)

If Value >= 0 then

mintage = Value

Else

Throw New ApplicationException(“Age cannot be negative”)

End if

End set

End Property

End Class

Procedure and Function

PROCEDURE and FUNCTION

Perbedaan Procedure dan Function

Procedure
1.Prosedure tidak mengembalikan nilai balik terhadap pemanggilnya.
2.Statement akan dijalankan sampai prosedure itu berakhir sehingga tidak perlu menggunakan variabel penampung untuk menjalankan atau memanggilnya.
3.Prosedure dideklarasikan dengan sub keyword.
Function
1.Function tidak mengembalikan nilai balik terhadap pemanggilnya.
2.Function perlu menggunakan variabel untuk menampung nilai balik dari hasil function jika kita akan memanggilnya.
3.Prosedure dideklarasikan dengan function keyword.

Contoh sintax sebuah procedure :
Tanpa Prameter
Private Sub Tampil()
    MsgBox(“Hello World”,MsgBoxStyle.Information +             MsgBoxStyle.OKOnly, “Pesan”)
End Sub

Dengan Prameter
Private Sub Tampil(ByVal pesan AS String)
        MsgBox(pesan,MsgBoxStyle.Information +    
MsgBoxStyle.OKOnly, “Pesan”)
End Sub

Contoh sintax sebuah function : 
Tanpa parameter :
Private Function Genap() As Boolean
    If (2 Mod 2 1) Then
        Return True
    else
        Return False
    End If
End Function

Dengan parameter :
Private Function Genap(ByVal angka as Integer) As Boolean
    If (angka Mod 2 1) Then
        Return True
    else
        Return False
    End If
End Function

Cara pemanggilan sebuah Procedure :
Private Sub Form1_Load(ByVal sender AS System.Object, ByVal e AS System.EventArgs)Handles MyBase.Load
    Tampil() ‘ Tanpa Parameter
    Tampil(“Halo World”) ‘ Dengan Parameter
End Sub

Cara pemanggilan sebuah Function :
Private Sub Form1_Load(ByVal sender AS System.Object, ByVal e AS System.EventArgs)Handles MyBase.Load
    Dim n as Integer
    n = Genap() ‘ Tanpa Parameter
    n = Genap(2) ‘ Dengan Parameter
End Sub