BAB-2 : TIPE DATA, VARIABEL DAN OPERATOR Setelah selesai pembahasan pada bab ini, diharapkan Anda dapat : •Mengenal dan dapat menggunakan tipe data •Mengenal dan menggunakan variable •Mengenal dan menggunakan operator
Variable Adalah suatu tempat dalam memory yang diberi nama sebagai pengenal dan dialokasikan untuk menampung data. Variable disimpan sementara – selama program dijalankan Variable memiliki nama dan tipe datanya Contoh penggunaan variable: variable digunakan untuk menghitung jumlah apel yang terjual txtSales.txt = ApplePrice * ApplesSold menyimpan dan mengambil data dalam Variable menggunakan assignment operator untuk menyimpan sebuah nilai ApplesSold = 10 ApplesSold + 1
' The value 10 is passed to the variable. ApplesSold = ' The variable is incremented.
Mendeklarasikan Variable Cara Pertama adalah dengan menggunakan perintah DIM untuk mendeklarasikan nama variable beserta type datanya. Contoh: Dim nama as string Dim alamat as string * 30 Cara Kedua adalah deklarasi eksplisit dan VB akan mengalokasikan sesuai dengan nama dan type yg diinginkan. Contoh : Option Explicit Private Sub cmdRun_Click() nama.Text = "Budi" alamat.Text = "Jakarta 12090" gaji.Text = "900000" End Sub
Cara yang dianjurkan adalah cara yang pertama
Mendeklarasikan Variable Aturan yang berlaku dalam pembuatan variable
dimulai dengan huruf unik maksimum 255 char tidak boleh character yang digunakan sebagai tanda operator, koma, titik dua, dll
Ruang Lingkup Variable Project Variable level public
Form Variable level form Procedure variable lokal
Procedure variable lokal
Module Variable level form Procedure variable lokal
Procedure variable lokal
9 Jika menyatakan suatu variable dengan perintah DIM, private atau static maka mempunyai ruang lingkup procedure/form
Perbedaan DIM dan Static adalah : DIM akan disimpan selama prosedur / form aktif, sedangkan Static data akan disimpan selama program dijalankan
Contoh: Static sub commandclick() Dim nama as string Static no as integer .. .. end sub hasil pernyataan diatas adalah static (walaupun didalam deklarasi digunakan DIM ) karena subnya adalah static
9Variable dengan pernyatan public akan dikenal oleh form/ procedure lain
Contoh: Public judul as string * 76 ‘ global Private bilangan as integer ‘ level modul Dim nilai as single ‘ sama dengan private
Tipe data Pemilihan tipe data yang tepat akan sangat berguna misalnya menghemat memory, kecepatan proses dan lain sebagainya. Tipe data dalam VB adalah sebagai berikut : Tipe
Ukuran byte / bytes
Karakter
Integer Long Single Double currency String Byte Boolean Date Object Variant
2 4 4 8 8 1 byte per karakter 1 2 8 4 16 byte + 1 byte per karakter
% ε ! # @ $
Contoh : Dim I Dim pilihan as Comboitem Dim A as single Dim B as Double
Tipe data Pemilihan penggunaan memori. Setiap tipe data akan memiliki alokasi memori yang berbeda. Oleh karenanya, pemilihan tipe data yang tepat akan sangat membantu Tipe data variant Jika suatu variable tidak di deklarasikan typenya , namun langsung memakainya, maka variable tersebut bertype variant. Tipe data buatan sendiri Tipe ini adalah sama dengan tipe record pada pascal. Private type namatypedata .. .. end type atau public type namatypedata .. .. end type
contoh: public type pegaway NIP as string * 6 NAMA as string * 30 End type
Operator Digunakan untuk melakukan berbagai manipulasi dan pengolahan data. Operator penugasan : Simbol = (sama dengan) Syntax :
= <ekspresi> contoh : awal = now unit = 10 harga = 19000
Operator aritmatika Operator ^ *,/ \ mod +,+,ε
Operasi Pangkat Negative Perkalian, pembagian Pembagian integer Modulus Penambahan , pengurangan Penggabungan string
Contoh : “b”+ & 2 & + “b” = b2b “b”+ 2 + “b” = error
Operator aritmatika Operator perbandingan Operator = <> < > <= >= like is
Keterangan Sama dengan Tidak sama dengan Lebih kecil Lebih besar Lebih kecil atau sama dengan Lebih besar atau sama dengan Mempunyai ciri yang sama Sama referensi objct
Contoh: Tes = 9 < 11 Tes = 9 + 9 = 19 Tes = “abc” = “ab” + “c” Objek2 = objek1 Objek3 = objek2 Objek = objek3 is objek2
‘true ‘false
Operator logika not Operator
Keterangan
NOT AND OR XOR EQV IMP
Tidak Dan Atau Eks. Or Ekivalen Implikasi
or 0 0 1 1
0 1 1 1
Hasil
1 0
0 1
Ekspresi 0 0 1 1
Ekspresi
Hasil 1 0 1 0
Ekspre si
and
xor Ekspresi
eqv
0 0 1 1
1 0 1 0
Ekspresi 0 0 1 1
Hasi l 0 0 0 1
Hasil 1 0 1 0
0 1 1 0
1 0 1 0
Hasi l 1 0 0 1
Tugas Buatlah program memiliki label dan textbox, dimana caption label akan selalu berubah jika textbox berubah Buatlah program untuk menyatakan suatu tabel kebenaran dari operator logika Buatlah program untuk melihat efek dari event change, click,dblclick dan getfocus
BAB 3 : KONTROL PROGRAM Setelah selesai pembahasan pada bab ini, diharapkan Anda dapat : •Mengenal secara umum beberapa kontrol progam dalam VB •Dapat menggunakan kontrol program dalam aplikasi
Kontrol program Untuk menjadi seorang ahli dalam pemrograman VB atau pemrograman lainnya, yang perlu dipelajari lebih mendalam adalah kontrol program. Karena dengan penguasaan kontrol yang baik, program yang dihasilkan dapat lebih maksimal.
Kontrol program Beberapa kontrol dalam VB antara lain : •Pencabangan GoSub …. Return •Pencabangan Go To •Pencabangan On Error •Pencabangan On .. GoSub dan On … GoTo •DoEvents •End .. •Exit •Stop •Pengulangan Do … Loop •For … Next •Pencabangan bersyarat IF …then … Else •Pencabangan bersyarat Select Case
Pencabangan GoSub …. Return Digunakan untuk pencabangan tanpa syarat ke suatu subrutin yang ditandai dengan baris nomor atau baris label. Setelah selesai melakukan perintah, kontrol program akan kembali ke baris dibawah perintah GoSub. Bentuk Perintah kontrol ini adalah sebagai berikut : GoSub [baris] ------[baris] ----return [baris] (lokasi/ alamat yang dituju) dapat berupa nomor baris atau baris label . Apabila [baris] merupakan label text maka diakhiri dengan titik dua ( : )
Pencabangan GoSub …. Return Contoh: Private Sub Command1_Click() Dim num As Single num = InputBox("masukan sembarang bilangan bulat") GoSub cabang Form1.Print “masukan Anda + 2 menjadi “ num Exit Sub cabang: num = num + 2 Return End Sub Sedangkan jika digunakan nomor sebagai pengenal baris, maka harus ditulis pada kolom pertama. (Penggunaan ini sering ditemui pada penggunaan Basic / Basica )
Pencabangan Go To Pencabangan ini juga merupakan pencabangan tanpa syarat ke suatu baris label atau baris nomor. Setelah selesai melakukan proses, pencabangan ini tidak kembali ke bawah baris GoTo, melainkan meneruskan ke baris berikutnya. Bentuk perintah kontrol ini adalah sbb: GoTo [baris] [baris] -
-
Pencabangan Go To untuk memudahkan pemahaman mengenai kedua kontrol diatas, kita dapat melihat modifikasi perintah diatas menjadi bentuk GoTo, sebagai berikut : Private Sub Command1_Click() Dim num As Single num = InputBox("masukan sembarang bilangan genap") GoSub cabang Form1.Print “masukan Anda + 2 menjadi “ num GoTo selesai cabang: num = num + 2 Return Selesai: End sub Perintah GoTo disarankan tidak terlalu banyak digunakan dalam suatu program. Apabila dalam suatu program memiliki kontrol GoTo yang demikian banyak, akan sulit melakukan pengujian program.
Pencabangan On Error Kontrol ini digunakan untuk menangani kesalahan. Penulisan kontrol kesalahan ini ada tiga bentuk, yaitu : 1. 2. 3.
On error Goto [baris] On error resume next On error GoTo 0
Masing masing kontrol adalah sebagai berikut : On error Goto [baris] : jika terjadi kesalahan, akan mencabang ke baris / label On error resume next : jika terjadi kesalahan, program akan melanjutkan ke baris berikut On error GoTo 0 : menyebabkan perangkap kesalahan tidak berfungsi
Pencabangan On Error Contoh penanganan error adalah seperti dibawah ini Private Sub Command1_Click() Dim num As Single Dim hasil As Single On Error GoTo salah num = InputBox("masukan bilangan genap") hasil = 5 / num GoSub cabang Form1.Print "masukan anda + 2 manjadi "; num Exit Sub cabang: num = num + 2 Return salah: MsgBox "ada kesalahan pembagian" num = 1 Err.Clear Resume End Sub
Pencabangan On .. GoSub dan On … GoTo Kontrol ini digunakan untuk pencabangan ke beberapa kemungkinan. Baris pencabangan yang dilaksanakan akan sangat tergantung kepada nilai ekspresi yang diterima. Bentuk kontrol ini adalah sebagai berikut : On [ekspresi] gosub [baris] On [ekspresi] goto [baris] Perbedaan kedua bentuk perintah tersebut adalah : On . . . . gosub : setelah selesai mengerjakan pencabangan, program akan kembali ke bawah baris on … gosub kembali. On .. . goto : Setelah selesai pencabangan, baris program tidak kembali bawah baris on..goto, melainkan meneruskan baris berikut setelah baris akhir pencabangan
Pencabangan On .. GoSub dan On … GoTo Private Sub Command1_Click() Dim num As Single num = InputBox("masukan bilangan genap") On Number GoSub scabang1, scabang2 Form1.Print "masukan anda + 2 manjadi "; num On Number GoTo cabang1, cabang2 Form1.Print "goto dilaksanakan" Exit Sub scabang1: Form1.Print "di sub 1" scabang2: Form1.Print "di sub 2" cabang1: Form1.Print "di goto 1" cabang2: Form1.Print "di goto 2“ End Sub
DoEvents Kontrol ini dugunakan untuk mengalihkan program ke sistem operasi dan kontrol program tidak akan kembali sampai sistem operasi mengerjakan seluruh event. Contoh penggunaan doevents untuk memanggil setiap waktu 10 menit adalah sbb: Private Sub Command1_Click() Dim openforms For I = 1 to 150000 If I mod 1000 = 0 then Openforms = doevents End if Next End sub
End Kontrol yang dipakai untuk memaksa program berhenti dari suatu prosedur atau blok program. Beberapa bentuk pernyataan end adalah sbb: 1. end 2. end function 3. end if 4. end property 5. end select 6. end sub 7. end type 8. end with
Exit Kontrol ini adalah digunakan untuk keluar dari blok program do.. loop , for … next , function, sub atau kode property Beberapa bentuk pernyataan exit adalah sbb: 1. exit do 2. exit for 3. exit function 4. exit property 5. exit sub
Stop Kontrol ini digunakan untuk menunda pelaksanakan program. Namun tidak menutup file atau menghapus variable. For I = 1 to 200 Form1.print I Stop Next I
Pengulangan Do … Loop Digunakan untuk melakukan pengulangan selama kondisinya masih terpenuhi. Bentuk penulisannya adalah sbb: Do [ while | until ] ----[exit do] LOOP Bentuk lainnya adalah Do ----[exit do] LOOP [ while | until ]
Contoh : Private Sub Command1_Click() Dim bil as integer Bil = 0 Do until bil <= 10 Form1.print bil; Bil = bil + 1 Loop End sub
For … Next Kontrol ini digunakan untuk melakukan pengulangan (iterasi) yang ditentukan oleh nilai awal atau akhir. Format penulisannya yaitu : For = to [step <step> ] --contoh penggunaan kontrol ini adalah sebagai berikut : -- dim I, j as integer --for I = 1 to 10 [exit for] for j = 1 to I -form1.print j ; next J -print next next I
Pencabangan bersyarat IF …then … Else Kontrol ini digunakan untuk menjalankan satu blok perintah yang tergantung pada nilai yang diuji. Format penulisan kontrol ini adalah sbb: If then ---[ elseif ] then ---[else] ---end if
contoh dari pencabangan bersyarat ini adalah sbb : Private Sub Command1_Click() Dim bil as integer Bil = 0 If bil = 0 then Form1.print “bilangan nol “ Else Form1.print “bukan bilangan nol “ End if End sub
Pencabangan bersyarat Select Case Fungsinya sama dengan if .. elseif …. Else . hanya saja biasanya pilihan ini akan digunakan untuk pilihan yang lebih dari 3 alternatif. Bentuk penulisanannya adalah sbb: Select case <ekspresi> [ case <ekspresi 1 > --] [ case <ekspresi n > --] [ case else <ekspresi n > --] end select
Contoh penggunaan case adalah sbb : Private Sub Command1_Click() Dim num As Single num = InputBox("masukan bilangan genap") select case num case num = 0 Form1.Print "Nilai 1" case num = 1 Form1.Print "Nilai 2" Case else Form1.Print "lebih dari satu" End select Exit Sub
Praktek : Pertemuan berikut
Terima kasih
