Halo semua kita akan membahas tentang Pemrograman
Beroirentasi Obyek yang biasa dikenal dengan OOP dan ini ada hubungan yang
sangat dekat dengan materi Pemrograman Desktop baiklah langsung saja kita
mulai!!!
Pemrograman Visual Berbasis
Desktop adalah pemrograman yang di lakukan
dengan memanipulasi elemen-elemen visual yang di lakukan pada sebuah PC
tunggal yang pengoperasiannya tidak bergantung pada PC lain dalam jaringan
maupun web. Contoh software pemrograman visual:
- Visual Basis : Visual Basic
merupakan pemrograman visual berbasis desktop
- Visual Net : Visual Net
merupakan pemrograman visual berbasis web
A. Menjelaskan
Ide Aplikasi Bahasa Pemrograman
IDE merupakan kependekan dari
Integrated Development Environment atau Integrated Design Environment atau
Integrated Debugging Environment. IDE adalah bagian aplikasi yang menyediakan
fasilitas baru bagi programmer untuk melakukan RPL. IDE terdiri atas:
- Source
Code Editor
- Compiler
- Interpreter
Tool
1. Mengenai
Visual Basic
Visual Basic atau VB adalah
merupakan bahasa pemrograman tingkat tinggi dan merupakan pengembang dari versi
Basic. Basic merupakan kependekan dari Beginners Allpurpose Symbolic
Instruction Code. Basic adalah bahasa pemrograman yang mendukung konsep
berorientasi objek atau OOP (Object Oriented Programing).
2. IDE
Dalam Visual Basic
IDE pada VB merupakan IDE
yang sangat praktis dan lengkap. Salah satu fitur dalam IDE VB adalah tampilan
praktis dan design GUI (Graphical User Interface)
Bagian IDE memiliki fungsi
masing-masing yakni:
ü
Jendela
Project Explorer berisi daftar dari semua modul yang ada dalam aplikasi yang
dibangun. Modul-modul tersebut tersusun berdasarkan tipe atau dapat pula
berdasarkan alphabet dengan mengklik ikon paling kanan pada project window
ü
Jendela
Form Designer / Form Window merupakan tempat mendesign antar muka dari aplikasi
yang dibuat
ü
Jendela
Toolbox berisi objek-objek yang dapat diletakkan pada form
ü
Jendela
Code digunakan untuk menulis kode program yang mengatur perilaku objek-objek
aplikasi
ü
Jendela
Properties berisikan deskripsi objek yang sedang aktif
ü
Jendela
Color Pallete digunakan untuk menentukan warna objek
ü
Jendela
Form Layout menunjukkan bagaimana peletakkan sebuah form akan ditampilkan pada
saat dijalankan
ü
Jendela
Immediate biasanya digunakan bersama jendela Watch untuk melihat tampilan
program pada proses Debugging
ü
Jendela
Object Browser digunakan untuk menelusuri external libararies. Melalui jendela
ini kita dapat mempelajari objek beserta atribut, kejadian, dan metode yang
dimilikinya
ü
Jendela
Local akan aktif hanya pada saat program dijalankan. Jendela ini berisi nilai
dari sejumlah variabel yang bersifat local falam sebuah prosedur atau modul
ü
Jendela
Watch digunakan memonitor nilai dari suatu variable baik bersifat lokal maupun
global
KONSEP DASAR OOP
OOP atau pemrograman
Beroirentasi Objek (PBO) tidak lebih dari paradigm atau cara pandang yang
memaksa kita untukk berfikir dan memandang suatu permasalahan sebagai objek.
PEMBUNGKUSAN
Konsep pembungkusan didalam
pemrograman berorientasi objek adalah proses membungkus data dan kemampuan dari
suatu obje ke dalam suatu model atau entitas tunggal yang disebut class
TINGKAT AKSES
Private
Hak akses terakhir dalam
konsep enkapsulasi adalah private. Jika
sebuah property atau method di-set
sebagai private, maka satu-satunya yang bisa mengakses adalah class itu
sendiri. Class lain tidak bisa mengaksesnya,
termasuk class turunan.
Protected
Jika sebuah property atau
method dinyatakan dinyatakan sebagai protected,berarti property atau
methodtersebut tidak bisa diakses dari luar class, namun bisa diakses oleh
class itu sendiri atau turunan class tersebut.
Public
Ketika sebuah property atau method dinyatakan
sebagai public, maka seluruh kode program di luar class
bisa mengaksesnya, termasuk class turunan.
PEWARISAN DAN POLIMORFISME
PEWARISAN
Adalah proses pembuatan kelas
yang akan diturunkan dari kelas yang sudah ada
POLIMORFISME
Dalam konteks
pemrograman,polimorfisme mengijinkan kita untuk membuat satu metode(fungsi dan
prosedur) yang dapat memeberikan hasil yang berbeda.
ANGGOTA CLASS YANG BERUPA
FUNGSI :
Metode
metode pada dasarnya adalah
function yang berada di dalam class seluruh fungsi dan sifat
function bisa-bisa diterpakan
ke dalam metode seperti argumen atau parameter,mengembalikan nilai
dengan keyword return, dan
lain-lain
Property
adalah data yang terdapat
dalam sebuah class.property ini sebenarnya hanyalah variabel yang terletak
dalam class.
seluruh aturan dan tipe data
yang biasa di input ke dalam variabel, bisa juga diinput
ke dalam property.
Event
adalah sebuah function yang
dipanggil untuk merespon kejadian atau event tertentu.
umumnya event mengirim 2
parameter yaitu object yang mengindikasikan sender dan object
yang menyediakan informasi
dalam event.
Constructor
adalah method khusus yang
akan dijalankan secara otomatis pada saat sebuah object
di buat,yakni ketika perintah
"new" di jalankan
Destructor
adalah method khusus yang
dijalankan secara otomatis pada saat sebuah object dihapus.
Operator
adalah SDM yang tugasnya
mengoprasikan,menghidupka hardware,menjalankan software,berinteraksi dengan
hardware dan software yang sedang
beroperasi dan menyudahi
operasi.
Indexer
adalah struktur yang mengatur
record data pada disk untuk mengoptimalkan beberpaa jenis operasi pengambilan
tertentu.
MEMBUAT PROGRAM/PROJECT DENGAN VISUAL
BASIC
MEMBUAT PROJECT SEDERHAN MENGGUNAKAN Windows Forms
Application
1.
BIODATA
TAMPILAN
SCRIPT:
Public Class Form1
Private Sub Keluar_Click(sender As Object,
e As EventArgs) Handles Keluar.Click
If MsgBox("MASUKAN NAMA DULU BARU
KELUAR", vbYesNo + vbQuestion + vbDefaultButton1, "Keluar") =
vbYes Then
Me.Close()
End If
End Sub
Private Sub OK_Click(sender As Object, e As
EventArgs) Handles OK.Click
Daftar.Items.Add(Trim(Label1.Text) +
" " + Trim(nama.Text))
Daftar.Items.Add(Trim(Label2.Text) +
" " + Trim(Combo1.Text))
End Sub
End Class
2.
MENENTUKAN GRADE NILAI
TAMPILAN
SCRIPT:
Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, e As EventArgs) Handles Button1.Click
Dim zahir As Integer
zahir = TextBox1.Text
Dim nama As Integer
nama = TextBox1.Text
Select Case zahir
Case 90 To 100
TextBox2.Text =
"Excellent"
Case 80 To 89
TextBox2.Text =
"Perfect"
Case 60 To 79
TextBox2.Text =
"Good"
Case 50 To 59
TextBox2.Text = "Bad"
Case Else
TextBox2.Text = "Very
BAD"
End Select
If TextBox2.Text =
"Excellent" Then
TextBox3.Text = "Sangat baik
Kembangkan kan bakat mu nak"
ElseIf TextBox2.Text = "Perfect"
Then
TextBox3.Text = "Baik yang
harus anda lakukan adalah harus bisa mencapai Excellent"
ElseIf TextBox2.Text = "Good"
Then
TextBox3.Text = "Kurang Baik
Kembangkan Lagi Agar menjadi yang terbaik"
ElseIf TextBox2.Text = "Bad" Then
TextBox3.Text = "Anda harus
lebih banyak mengetahui ilmu pengetahuan yang lebih agar dapat menjadi orang
yang sukses"
ElseIf TextBox2.Text = "Very-Very
BAD" Then
TextBox3.Text = "Kada tahu aku
terserah Ikam"
End If
End Sub
Private Sub Button2_Click_1(sender As
Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
If MsgBox("MASUKAN NILAI DULU BARU
KELUAR", vbYesNo + vbQuestion + vbDefaultButton1, "Keluar") =
vbYes Then
Me.Close()
End If
End Sub
End Class
MEMBUAT
PROJECT MENGGUNAKAN CONSOLE APPLICATION
1. FAKTORIAL
TAMPILAN
SCRIPT:
Module Faktorial
Function FT(N As Long)
If (N > 1) Then
Return N * FT(N - 1)
Else
Return 1
End If
End Function
REM program utama
Sub Main()
Console.Write("Faktorial dari 9
Adalah {0} ", FT(9))
Console.ReadLine()
End Sub
End Module
2. MENENTUKAN BILANGAN GANJIL & GENAP
TAMPILAN
SCRIPT:
Imports System
Module GenapGanjil
Function Isgenap(x As Long) As Boolean
If (x Mod 2) = 0 Then
Return True
Else
Return False
End If
End Function
REM program utama
Sub Main()
Dim bil As Long
Console.Write("Masukkan Bilangan
:")
bil = Console.ReadLine()
If Isgenap(bil) Then
Console.Write("Bilangna {0}
Adalah Genap", bil)
Else
Console.Write("Bilangan {0}
Adalah Ganjil", bil)
End If
Console.ReadLine()
End Sub
End Module
3.
MENENTUKAN TAHUN KABISAT
TAMPILAN
SCRIPT:
Imports System
Module TahunKabisat
Function IsTahun(x As Long) As Boolean
If (x Mod 4) = 0 Then
Return True
Else
Return False
End If
End Function
REM program utama
Sub Main()
Dim thn As Long
Console.Write("Masukkan Tahun
:")
thn = Console.ReadLine()
If IsTahun(thn) Then
Console.Write("{0} ini Adalah
Tahun Kabisat", thn)
Else
Console.Write("{0} ini Bukan
Tahun Kabisat", thn)
End If
Console.ReadLine()
End Sub
End Module
4.
MENENTUKAN LUAS SEGIEMPAT
TAMPILAN
SCRIPT:
'mendefinisikan kelas
segiempat
Public Class segiempat
Public panjang As Integer
Public lebar As Integer
End Class
'program utama
Module programsegiempat
Sub Main()
'mendeklarasikan variabel lokal
Dim luas As Integer
'mendeklarasikan ibjek dari kelas
segiempat
Dim se As segiempat
'membuat objek kelas segiempat
se = New segiempat()
'mengisi nilai objek
se.panjang = 8
se.lebar = 6
'menghitung luas
luas = se.panjang * se.lebar
'menampilkan luas
Console.WriteLine("Luas Segi empat
= {0}", luas)
Console.ReadLine()
End Sub
End Module
5.
MENENTUKAN LUAS SEGIEMPAT (JIKA INGIN DUA
TAMPILAN LUAS NYA)
TAMPILAN
SCRIPT:
Public Class segiempat
Public panjang As Integer
Public lebar As Integer
End Class
Module programsegiempat
Sub Main()
Dim luas As Integer
Dim luas2 As Integer
Dim se As segiempat
Dim si As segiempat
se = New segiempat()
se.panjang = 50
se.lebar = 100
si = New segiempat()
si.panjang = 40
si.lebar = 20
luas = se.panjang * se.lebar
luas2 = si.panjang * si.lebar
Console.WriteLine("Luas Segi
empat1 = {0}", luas)
Console.WriteLine("Luas Segi
empat2 = {0}", luas2)
Console.ReadLine()
End Sub
End Module
Membuat Web Browser Dalam Visual Basic
1.
Web Browser Search
Tampilan
Script
Public Class
mainForm1
Private Sub Form1_Load(sender As Object, e
As EventArgs) Handles MyBase.Load
Me.AcceptButton = btngo
End Sub
Private Sub btngo_Click(sender As Object, e
As EventArgs) Handles btngo.Click
Dim address As String = txturl.Text
'dim url asa system.url = new
sistem.url(Address)
'webbrowser1.navigate (URL)
WebBrowser1.Navigate(address)
End Sub
Private Sub btnstop_Click(sender As Object,
e As EventArgs) Handles btnstop.Click
WebBrowser1.Stop()
End Sub
Private Sub btnrefresh_Click(sender As
Object, e As EventArgs) Handles btnrefresh.Click
WebBrowser1.Refresh()
End Sub
Private Sub btnforward_Click(sender As
Object, e As EventArgs) Handles btnforward.Click
WebBrowser1.GoForward()
End Sub
Private Sub btnback_Click(sender As Object,
e As EventArgs) Handles btnback.Click
WebBrowser1.GoBack()
End Sub
Private Sub txturl_TextChanged(sender As
Object, e As EventArgs) Handles txturl.TextChanged
End Sub
End
Class
Penjelasan :
Baiklah saya akan
menjelaskan apa maksud dari program Web Browser yang saya buat ini kita mulai
dari tujuan saya membuat program ini adalah agar mempermudah pemakai dalam mencari
sesuatu seperti “Google” yang berhubungan dengan internet program ini bisa juga
sama saja dengan “Google Chrome” dan lain-lain. Baiklah kita muali saya
menggunakan toolbox diantaranya adalah:
1. Button = digunakan untuk mengatur perintah
seperti baik itu “keluar dari program” sesuai dengan perintah script yang ingin
dibuat
2. Web
Browser = untuk menghubungkan browser yang ingin dicari dari namanya saja web
browser
3. Textbox
= untuk memasukkan web yang ingin di kunjungi seperti “facebook”
Cara Kerja :
ü Dalam
tampilan terdapat tanda “<” saya beri (name)=”btnback” mungkin kalian akan
menemukan nama tersebut di dalam script fungsi agar kita kembali ke halaman
sebelumnya atau disebut juga dengan “Back”
ü Dalam
tampilan terdapat tanda “>” saya beri (name) = “btnforward” fungsi agar kita
kembali kehalaman sebelumnya tapi
berbeda dengan back ini bekerja seperti saat kita kembali kita ingin kembali
atau “Back” lagi ke halam sebelumnya kita tinggal klik “>” atau “forward” bisa dibilang ini adalah pasangan
dari “Back”
ü Dalam
tampilan terdapat tanda “Go” saya beri (name) = “btngo” fungsi agar kita dapat
mencari web/halaman link yang ingin di tuju
ü Dalam
tampilan terdapat tanda “Refresh” saya beri (nama) = “btnrefresh” fungsi agar
kita dapa t “menyegarkan” halaman link atau bisa digunakan saat kita menemukan
masalah jaringan atau Bahasa sekarang “Bapering”, kita bisa merefresh agar
halaman menjadi baik/bekerja dengan baik
ü Dalam
tampilan juga terdapat tanda “Stop” saya beri nama = “btnstop” fungsi agar kita
dapat memberhentikan halaman yang kita tuju agar berhenti bekerja/berhenti
ngeriload.
2. Web
Browser Search yang sudah ditentukan dalam “Button”
Tampilan
Script
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
Me.AcceptButton = btngo
End Sub
Private Sub btnback_Click(sender As Object, e As EventArgs) Handles
yahoo.Click
WebBrowser1.Navigate("http://www.yahoo.com")
End Sub
Private Sub gmail_Click(sender As Object, e As EventArgs) Handles
gmail.Click
WebBrowser1.Navigate("http://www.gmail.com")
End Sub
Private Sub twitter_Click(sender As Object, e As EventArgs) Handles
twitter.Click
WebBrowser1.Navigate("http://www.twitter.com")
End Sub
Private Sub google_Click(sender As Object, e As EventArgs) Handles
google.Click
WebBrowser1.Navigate("http://www.google.com")
End Sub
Private Sub facebook_Click(sender As Object, e As EventArgs) Handles
facebook.Click
WebBrowser1.Navigate("http://www.facebook.com")
End Sub
Private Sub blogzali_Click(sender As Object, e As EventArgs) Handles
blogzali.Click
WebBrowser1.Navigate("http://www.rizalismkn1tgt.blogspot.co.id")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
WebBrowser1.Navigate("http://www.putrioktaviani18.blogspot.co.id")
End Sub
Private Sub keluar_Click(sender As Object, e As EventArgs) Handles
keluar.Click
Me.Close()
End Sub
Private Sub btngo_Click(sender As Object, e As EventArgs) Handles
btngo.Click
Dim address As String = txturl.Text
'dim url asa system.url = new sistem.url(Address)
'webbrowser1.navigate (URL)
WebBrowser1.Navigate(address)
End Sub
End Class
Penjelasan
:
Baiklah
ini adalah project/program Web Browser 2 saya sama saja seperti yang pertama
cuman saya menambahkan menu web/halaman yang ingin dituju dalam “Button” jadi
tinggla di klik tanpa harus menulis nya di pencarian atau “TextBox” saya
membuat ini agar mempermudah pengguna dalam mencari halaman link/web. Button
diantara nya adalah :
Ø Button
“Yahoo” saya beri (name) = yahoo isi nya bisa anda lihat di Script atas
Ø Button
“Gmail” saya beri (name) = gmail
Ø Button
”Twitter” saya beri (name) = twitter
Ø Button
“Google” saya beri (name) = google
Ø Button
“Facebook” saya beri (name) = facebook
Ø Button
“Blog Rizali” saya beri (name) = blogzali (itu blog teman saya cuman
iseng-iseng aja nambahin biar banyak dan “Blog Putri” juga sama, tambahkan lah
lebih banyak sesua sekreatif anda masing-masing yaa)
Ø Button
”Exit” saya beri (name) = keluar fungsinya tombol untuk keluar
Cara
Kerja :
v Saya
hanya menambahkan “Button” lebih banyak yang didalamnya terdapat isi
web/halaman link masing-masing jadi anda tinggal mengklik di “Button”nya sesua halaman link/browser yang ingin anda
tuju dan juga anda juga bisa menambahkan button yang berisi halaman link lain
sesuai dengan kemauan anda (tapi agar link bisa dikunjungi penulis link harus
benar seperti : http://www.google.com).
