Pemrograman OOP

VISUAL BASIC

Visual Basic (VB) adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman VB , yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung OOP (Object Oriented Programming).
Pada tahap awal pemakaian Visual Basic sebaiknya mengenal jendela-jendela yang ada pada tampilan VB(Visual Basic), diantaranya TOOLBOX, PROJECT dan FORM. Apabila salah satu dari jendela tersebut tidak ada/muncul, maka dapat ditampilkan melalui menu VIEW lalu pilih jendela yang uingin ditampilkan.

 

Fungsi dari masing-masing jendela VB :
FORM (view - Object)

Jendela form merupakan interface / penghubung antar muka antara program dengan pemakai (user), sehingga jendela form merupakan tempat untuk meletakkan objek-objek yang ada di jendela toolbox

TOOLBOX (view-Toolbox)

Merupakan jendela yang berisi piranti/alat yang berisi ikon-ikon untuk memasukan objek yang diperlukan seperti Label, Command, TextBox, Picture, dll ke dalam jendela form.

PROPERTIES (View-Properties Windows / F4)

Digunakan untuk menentukan setting suatu objek. Suatu objek biasanya mempunyai beberapa properti yang dapat diatur langsung melalui jendela properti atau lewat kode program. 

PROJECT (View-Project Explorer)

Digunakan untuk menampilkan jendela editor program (Icon View Code), menampilkan objek form (Icon View Object) dan menampilkan folder/tempat penyimpanan file (Icon Toggle Folders).

DESIGN TIME AND RUNNING TIME
Dalam bahasa pemrograman VB dalam hal membuat program aplikasi akan mengenal 2 waktu yaitu :
1. Design Time yaitu saat kita mulai merancang tampilan dan menuliskan prosedur program
2. Running Time yaitu saat kita menjalankan prosedur program (Run). Tombol yang digunakan adalah tombol Start/F5

PENGERTIAN EVENT, METODA DAN PROCEDUR
EVENT
adalah peristiwa atau kejadian yang diterima oleh sebuah objek baik oleh program itu sendiri, contoh : Load atau tindakan yang dilakukan user seperti Click atau Double Click
METODA
dapat dikatakan merupakan suatu perintah seperti halnya prosedur tetapi sudah tersedia di dalam suatu objek dan biasanya mempunyai tugas khusus seperti Print, Show, dan lain-lain.
PROSEDUR
merupakan serangkaian tulisan perintah/kode program yang akan dilaksanakan jika suatu objek dijalankan, kode program ini akan mengontrol dan menentukan jalannya suatu objek. Sebuah prosedur selalu ditulis diantara pernyataan.

         Private Sub .....() sampai End Sub

Contoh :
Private Sub_Command1_Click()
Text1.text=""
text2.text=""
End Sub

Perhatikan jendela kode program diatas. Prosedur tersebut ditulis melalui :
Object         : Command1
Event          : Click
Awal Prosedur  : Private Sub
Akhir Prosedur : End Sub
Pernyataan dari jendela kode diatas mempunyai pengertian bahwa pada saat objek Command1 diklik maka baris prosedur akan dijalankan, yaitu mengganti nilai-nilai properti text1 dan text2 menjadi karakter kosong(menghapus isi tulisan text1 dan text2).

Latihan Soal :
Buatlah program seperti gambar dibawah ini,  objek gambar ambil dengan menggunakan ikon PictureBox, memilih gambar melalui Properties Picture kemudian klik gbr yang dikehendari. Untuk tulisan, gunakan ikon Label pada Properties Label1 beri nama Hi Wulan. Agar teks dapat bergerak , klik Timer dengan Properties Interval 50. Kemudian jalankan. Beri nama Form Moving Text
Prosedur untuk timernya adalah :
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
End Sub

TIPE DATA

MS Visual Basic 6.0 menyediakan beberapa tipe data sebagai berikut :

Tipe	Range / Kisaran
Integer	Menampung bilangan bulat  - 32768 s/d 32767
Single	Menampung bilangan bulat dan pecahan Negatif : -3.40282E38 s/d –1.401298E-45
	Positif  :  1.401298E-45 s/d 3.40282E38
String	Data berupa teks antara lain huruf, angka dan tanda baca
Currency	Data mata uang –922337203685477.5808 s/d 922337203685477.5807
Boolean	True (Benar) dan False (Salah)
Date	Data tanggal 1 Januari 100 s/d 31 Desember 9999

VARIABEL 
Adalah tempat dalam memori komputer yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data. Sesuai data yang ditampung maka variabel harus dikenal sebagai tipe data yang sesua dengan isi datanya, atau yang dikenal sebagai Deklarasi Varibel.
Jenis Deklarasi Variabel terbagi 2 bagian yaitu :
1. Variabel Lokal yaitu variabel yang dikenalkan hanya untuk objek atau prosedur tertentu saja.
2. Variabel Global yaitu suatu variabel yang dikenalkan dan  berlaku untuk semua prosedur atau objek.
Tata aturan pendeklarasian variabel :
    Dim {nama variabel} AS {type data}
Aturan didalam penamaan variabel :
1. Harus dengan huruf
2. Tidak boleh menggunakan spasi, diganti dengan underscore(_)
3. Tidak boleh menggunakan karakter-karakter khusus seperti : +, -, *, /, <, >, dll
4. Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh VB seperti dim, as, string, integer, dll. 
Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan tipe datanya. Cara mengisi nilai data ke dalam sebuah variabel <nama_variabel>=<nilai_data>
Contoh : nama_user="krisna"

PENGGUNAAN OPERATOR

Operator didalam bahasa pemrograman bisa diartikan sebagai simbol yang digunakan untuk melakukan suatu operasi terhadap nilai data. Simbol operator bisa berupa karakter ataupun kata khusus.

VB mengenal tiga jenis operator yaitu :

1. OPERATOR ARITMATIKA, digunakan untuk operasi terhadap nilai data. Simbol-simbol yang digunakan antara lain :

Simbol	Operasi Matematis	Contoh
^	pemangkatan	5 ^ 2 hasilnya 25
*	perkalian	5 * 2 hasilnya 10
/	pembagian(hasil pecahan)	5 / 2 hasilnya 2,5
\	pembagian (hasil bulat)	5 \ 2 hasilnya 2
Mod	sisa pembagian	5 Mod 2 hasilnya 1
+	penjumlahan	5 + 2 hasilnya 7
-	pengurangan	5 – 2 hasilnya 3
&	penggabungan string	5 & 2 hasilnya 52

2. OPERATOR PERBANDINGAN digunakan untuk operasi membandingkan  nilai data. Simbol-simbol yang digunakan 

Simbol	Operasi Perbandingan	Contoh
<	lebih kecil	5 < 2 hasilnya FALSE
>	lebih besar	5 > 2 hasilnya TRUE
<=	lebih kecil atau sama dengan	5 <= 2 hasilnya FALSE
>=	lebih besar atau sama dengan	5 >= 2 hasilnya TRUE
=	sama dengan	5 = 2 hasilnya FALSE
<>	tidak sama dengan	5 <> 2 hasilnya TRUE

3. OPERATOR LOGIKA digunakan untuk operasi yang membandingkan  suatu perbandingan . Simbol-simbol yang digunakan :

Simbol	Operasi Logika	Contoh
Or	atau	(5 < 2) Or (5 > 2) hasilnya TRUE
And	dan	(5 < 2) And (5 > 2)hasilnya FALSE
Not	Tidak	Not (5 < 2) hasilnya TRUE

Latihan membuat Kalkulator Sederhana 

Buatlah tampilan seperti gambar diatas, terdiri dari 1 Form, 5 Label, 5 CommandButton, 2 TextBox.
Prosedurnya :

Private Sub Command1_Click()

Dim bil1, bil2 As Integer

bil1 = Text1.Text

bil2 = Text2.Text

Label5.Caption = bil1 + bil2

End Sub

Private Sub Command2_Click()

Label5.Caption = Text1.Text - Text2.Text

End Sub

Private Sub Command3_Click()

Label5.Caption = Text1.Text * Text2.Text

End Sub

Private Sub Command4_Click()

Label5.Caption = Text1.Text / Text2.Text

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Label5.Caption = ""

End Sub

FUNGSI PERCABANGAN PROGRAM

Fungsi percabangan digunakan untuk mencari nilai kebenaran dari suatu pernyataan logika dan akan menjalankan suatu aksi dari hasil pernyataan logika tersebut. Nilai kebenaran dari suatu pernyataan logika adalah TRUE dan FALSE, dimana yang dicari adalah nilai kebenarannya dan didalamnya terdapat operator relasi.  

SINGLE IF / IF TUNGGAL	NESTED IF / IF BERTINGKAT
Syntac (bentuk penulisan) a.    IF… THEN… END IF b.    IF … THEN…. ELSE….END IF	Syntac (bentuk penulisan) a.   IF  (logika 1) THEN ELSE IF (logika 2) THEN ELSE END IF END IF
Bentuk penulisan : Cara ke 1 : IF (Pernyataan logika) THEN (Berisi Pernyataan / Ekspresi Bernilai TRUE dan akan dikerjakan apabila Pernyataan Logika bernilai TRUE) END IF Cara ke 2 : IF (Pernyataan logika) THEN (Berisi Pernyataan / Ekspresi Bernilai TRUE dan akan dikerjakan apabila Pernyataan Logika bernilai TRUE) ELSE (Berisi Pernyataan / Ekspresi Bernilai FALSE dan akan dikerjakan apabila Pernyataan Logika bernilai FALSE)  END IF	Bentuk penulisan Cara ke 1 : IF (Pernyataan logika 1) THEN (Berisi Pernyataan / Ekspresi Bernilai TRUE dan akan dikerjakan apabila Pernyataan Logika bernilai TRUE) ELSE IF (Pernyataan logika 2) THEN (Berisi Pernyataan / Ekspresi Bernilai TRUE dan akan dikerjakan apabila Pernyataan Logika bernilai TRUE) ELSE (Berisi Pernyataan / Ekspresi Bernilai FALSE dan akan dikerjakan apabila Pernyataan Logika bernilai FALSE)  END IF END IF

Contoh Soal Single IF

Object	Properties	Value
Form5	Caption StartUpPosition	Struktur IF…THEN 2 – CenterScreen
Image1	Stretch Picture Visible	True Komputer.wmf False
Label1	Caption	Password :
Text1	PasswordChar Text	* <kosong>
Command1	Caption Default	OK True

Prosedurnya :

  PrivateSubCommand1_Click()
  If Text1.Text="nusantara" Then
  Image1.Visible=True
  Text1.Enable=False
  Else
  MsgBox"Password Salah!"
  Text1.text=""
  Text1.Setfocus  

  End IF
  End Sub

SELECT CASE

Metoda Select Case secara fungsi sama dengan struktur percabangan dengan menggunakan IF, hanya saja bentuk penggunaannya lebih sederhana dan sebaiknya digunakan untuk percabangan yang banyak. Adapun aturan penulisannya (Syntax) sebagai berikut :

SELECT CASE (kondisi yang diuji)

  CASE Kondisi1

    Berisi Pernyataan / Ekspresi 1 (TRUE) 

  CASE Kondisi2

    Berisi Pernyataan / Ekspresi 2 (TRUE).

  CASE Kondisi3

    Berisi Pernyataan / Ekspresi 3 (TRUE)

  CASE Kondisi n

    Berisi Pernyataan / Ekspresi N (TRUE)  .

  CASE ELSE

   Berisi Pernyataan (Jika Ekspresi 1,2,3bernilai salah (FALSE)

END SELECT

Contoh Kasus Select Case

Gambar diatas terdiri dari 1 Form, 9 Label, 2 TextBox, 2 CommondButton

Prosedurnya :

Private Sub Command1_Click()

Dim kb As String

kb = Text1.Text

Select Case kb

Case "Pr"

nb = "PREMIX"

Case "Pm"

nb = "PREMIUM"

Case "Px"

nb = "PERTAMAX"

Case "Sl"

nb = "SOLAR"

Case Else

MsgBox "Kode salah!!!"

Text1.Text = ""

Text1.SetFocus

End Select

Label7.Caption = nb

kb = Text1.Text

Select Case kb

Case "Pr"

hb = 6500

Case "Pm"

hb = 4500

Case "Px"

hb = 8500

Case "Sl"

hb = 4500

End Select

Label8.Caption = hb

Label9.Caption = hb * Text2.Text

End Sub