MODUL 2 Variabel, Val, If tunggal dan If bersarang + case 1. variabel suatu tempat dalam memori yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data. Sintax : Dim_namavariabel_As_typedata Contoh : Dim a as Integer Cara menempatkan variabel pada kode program: a) Pada General Jika variable diletakkan pada General maka variabel tersebut bisa dibaca pada setiap Procedure dalam satu Form. b) Pada Procedure Jika variabel diletakkan pada procedure ditiap objek, maka variabel tersebut hanya bisa dibaca pada procedure itu saja ( tidak bisa dibaca pada procedure lain walaupun dalam satu from ). c) Pada Modul Jika variable diletakkan pada Modul maka variabel tersebut bisa dibaca atau dipanggil pada setiap Procedure dalam satu Project. Keterangan lebih lanjut lihat contoh dibawah ini: Program perhitungan Tambah, Kurang, Kali, dan bagi.
properties: Form1 caption : Program Hitung Label1 caption : Angka1 Label2 caption : Angka2 Label3 caption : Hasil Text1 text : kosongkan Page 1
Text2 text : kosongkan Text3 text : kosongkan Command1 caption : Tambah (+) Command2 caption : Kurang (-) Command3 caption : Kali (*) Command4 caption : Bagi (/) Command5 caption : cancel Langkah membuat coding (Source code (Listing)) : ‘mendeklarasikan secara general
Pilihan untuk melihat koding pada setiap objek Private Sub Command1_Click() a = Text1 b = Text2 plus = a + b Text3.Text = plus End Sub
‘mendeklarasikan pada procedure Private Sub Command2_Click() Dim a, b As Single Dim min As String a = Text1 b = Text2 min = a - b Text3.Text = min End Sub Private Sub Command3_Click() a = Text1 b = Text2 kali = a * b Page 2
Text3.Text = kali End Sub Private Sub Command4_Click() a = Text1 b = Text2 bagi = a / b Text3.Text = bagi End Sub Private Sub Command5_Click() Text3.Text = "" Text3.SetFocus End Sub Setelah menulis coding diatas, kemudian jalankan program terebut dengan menekan tombol F5 di keyboard atau pilih menu Run | Start.
Hasil setelah menekan Tombol Tambah
Hasil setelah menekan Tombol Cancel
Page 3
Program hitung_luas:
Properties : Form1 caption : Hitung Luas Label1 caption : Menghitung Luas Persegi Panjang Font : MS Sans Serif, size : 12, font style : Bold Label2 caption : panjang Label3 caption : lebar Label4 caption : luas Text1 text : dikosongkan (didelete) Text2 text : dikosongkan (didelete) Text3 text : dikosongkan (didelete) Command1 caption : OK Command2 caption : Cancel Command3 caption : Exit Listing program (source code) : Pada General Dim p, l, luas As Integer ------------------------------------------------------------------------------------------------Private Sub Command1_Click() p = Text1.Text l = Text2.Text luas = p * l Text3.Text = luas End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Page 4
Private Sub Command3_Click() Unload Me End Sub Setelah menulis kode diatas, jalankan program tersebut dengan menekan tombol F5. Hasil dari program setelah dijalankan :
2. Val Digunakan jika kita tidak mendeklarasikan suatu variable. Contoh:
Komponen Properties Form1 Caption : Penggunaan Val Label1 Caption : Nama Barang Label2 Caption : Harga Satuan Label3 Caption : Jumlah Page 5
Label4 Caption : Bayar TextBox text : dikosongkan (delete) TextBox text : dikosongkan (delete) TextBox text : dikosongkan (delete) TextBox text : dikosongkan (delete) CommandButton caption : Hitung Listing Program Double klik pada commandButton Private Sub Command1_Click() Text4.Text = Val(Text2.Text) * Val(Text3.Text) End Sub Setelah menulis kode diatas, jalankan program tersebut dengan menekan tombol F5. Hasil dari program setelah dijalankan :
3. If Tunggal Sintax : If kondisi then Pernyatan Else Pernyataan End If Contoh dalam program : Buat program untuk if tunggal.
Page 6
Text1.text Text2.text
Komponen Properties Form1 caption : If Tunggal Label1 caption : Isi nilai pada teksbox Label2 caption : predikat Text1 text : dikosongkan (didelete) Text2 text : dikosongkan (didelete) Command1 caption : OK Command2 caption : Cancel Command3 caption : Exit Listing Program diatas (source code): Private Sub Command1_Click() If Text1.Text >= 8 Then Text2.Text = "lulus" Else Text2.Text = "tidak lulus" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Hasil dari program diatas setelah dijalankan :
Page 7
1. If Bersarang Sintax : If kondisi then Pernyataan Else if Pernyataan Else if ….. Else …… End if Contoh : Form seperti diatas (contoh program) namun beda listing
Page 8
listing program Private Sub Command1_Click() If Text1.Text >= 80 Then Text2.Text = "A" ElseIf Text1.Text >= 70 Then Text2.Text = "B" ElseIf Text1.Text >= 60 Then Text2.Text = "C" Else Text2.Text = "D" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Setelah program dijalankan, maka hasilnya seperti gambar dibawah ini :
Page 9
