Pertemuan 14 | 25 Mei 2015 | Object Oriented Programming

Dasar OOP Visual Basic

Dasar OOP Visual Basic merupakan bahasa yang Object-Based (komponen-komponen program dibuat dalam bentuk objek), sedangkan VB.NET adalah Object Oriented, hal ini berarti bahwa VB.NET merupakan bahasa yang benar-benar berorientasi object dengan mendukung empat pilar utama dari OOP yaitu Polymorphism, Inheritance, Abstraction dan Encapsulation.

Konsep dari OOP

·         Objects

·         Classes

·         Data Abstraction dan Encapsulation

·         Inheritance

·         Polymorphism

Collection Class

Collection Class adalah Class-Class yang digunakan  untuk manajemen struktur data, mulai dari menyimpan Object data hingga proses indexing, sorting dan lain-lain. Berikut ini adalah Collection  Class :

·         ArrayList

·         HashTable

·         SortedList

·         Queue dan Stack

Contoh Program : Class & Object

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat masukkan koding berikut 

'Import the System namespace (already available in .NET) Imports System 'Animals is a namespace Namespace Animals 'Dog is a class in the namespace Animals Class Dog 'Bark is a function in this class Function Bark() Console.WriteLine("Dog is barking") MsgBox("Dog is barking") End Function End Class End Namespace Public Module modMain 'Execution will start from the Main() subroutine Sub Main() 'Call our function. See below OurFunction() End Sub 'OurFunction: Our own little function to use the class Dog Function OurFunction() 'Here is how we declare a variable Jimmy of type Dog. 'We use Animals.Dog because, the class Dog is in the 'namespace Animals (see above). Dim Jimmy As Animals.Dog 'Create an object. Unlike in VB 6, it is not required to use 'the 'set' keyword. Jimmy = New Animals.Dog() 'Another way to create an object is 'Dim Jimmy as new Dog 'Call Jimmy's Main Function Jimmy.Bark() End Function End Module  <br>

• Langkah kelima untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda

  

• Langkah keenam,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Contoh Program : Inheritance

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain seperti gambar di bawah ini. 

• Langkah kelima masukkan koding berikut 

   Public Class GajiKaryawan Private Sub btnLihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihat.Click Dim EmployeeList As New List(Of Employee) EmployeeList.Add(New Employee("James", 32, 2800)) EmployeeList.Add(New Employee("Peter", 25, 2500)) EmployeeList.Add(New Employee("Joe", 41, 3800)) EmployeeList.Add(New Supervisor("Carol", 29, 4500)) EmployeeList.Add(New Supervisor("Edwin", 55, 6800)) For Each EmployeeDetails As Employee In EmployeeList Me.lstGaji.Items.Add(EmployeeDetails.EmpName & " -- " _ & EmployeeDetails.EmpAge & " -- " _ & EmployeeDetails.CalculateSalary) Next End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click lstGaji.Items.Clear() End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Dim t = MsgBox("Keluar?", MsgBoxStyle.YesNo) If t = MsgBoxResult.Yes Then Me.Close() End If End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda 

 

• Langkah ketujuh,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

 Contoh Program : Collection Class

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat masukkan koding berikut 

  Dim ls As New ArrayList ls.Add("Zaki") ls.Add("Joko") ls.Add("Harun") ls.Add("Nani") ls.Add("Dewi") 'Mengurutkan ls.sort() ' tampilkan jumlah list lblJumlah.Text = ls.Count ls.Remove("Harun") ' remove item object ls.RemoveAt(3) ' remove index item 3 'Masukan data ArrayList ke ListBox melalui looping Dim i As Integer i = 0 While (i < ls.Count) lsSiswa.Items.Add(ls.Item(i)) i = i + 1 End While ' Memasukan item ke ListBox data dari ArrayList lsSiswa.Items.AddRange(ls.ToArray) 

• Langkah kelima untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda.
• Langkah keenam,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.