Hari/Tanggal : Selasa, 11 Juni 2013
Pokok Bahasan :
1. Review
2. Mendalami array
3. Memahami fungsi
Review
1. Start
2. A
5 3. B
74. C
A2+B25. CETAK C
6. SELESAI
# If
1. Mulai
2. Total_beli
Dim A,B,C As byte
A=5
B=7
C=A^2+B^2
Print c
Private sub cmd bayar_click()
Dim total_beli as long
Dim bayar as single
Dim bonus as single
Total_beli=val (txt total.beli.text)
Bayar=val (txt bayar.text)
Bonus=val (txt bonus.text)
If(total_beli>5000000) then
bonus=0,05 * total_beli
Else
Bonus=0
end if
Bayar =total_beli-bonus
Txt bayar.text=str(bayar)
End sub
# Dik : Suatu matriks A sbb:
Dim A (3,3) as byte
Dim B (3,3) as byte
A (1,1)=2
A (1,2)=3
A (1,3)=4
A (1,1)=0
A (1,2)=1
A (1,3)=5
A (1,1)=2
A (1,2)=3
A (1,3)=2
Kolom
BarisB(1,1)=2: B(1,2)=1 : B(1,3)=2
B(2,1)=2: B(2,2)=2 : B(2,3)=2
B(3,1)=3: B(3,2)=2 : B(3,3)=1
For i =1 to 3 step 1
For j = 1 to 3 step 1
C (ij)=A (i,j) + B(i,j)
Next j
Next i
# Fungsi (function)
Blok kode program yang disusun secara sistem matis untuk menghasilkan suatu nilai
Terdapat 2 jenis fungsi yaitu;
1.) Built-in function
Fungsi yg sudah di sediakan oleh bahasa pemrogram
Cth : val, str, left, right, mid
2.) User defined function
Fungsi yang diciptakan oleh programer
A. User detined function
Syntax :
Function ivame fungsi ([parameter]) as tipe data
[deklarasi]
[pernyataan]
Nama fungsi = nilai
End function
Contoh :
Buatlah fungsi menjumlah kan 2 buah bilangan function jumlah A B (A As byte, B As byte) As integer
Dim C as integer
C= A+B
Jumlah AB=C
End function
# Langkah-langkah membuat program :
* deklarasi variabel
* mengkonversi teks ke angka
* oprator
* pernyataan if
* pernyataan select case
* pernyataan for-next
* pernyataan while-wend
* pernyataan do-while
* array
* fungsi
* subrutin
* file
* grafik
* database
1. Deklarasi variabel
Cth : Dim A as byte
Dim alamat as long
2. MENGKONVERSI TEKS KE ANGKA
Cth : val (txt.text) ubah ke angka
str angka ke text
Fungsi built-in
Fungsi yang sudah di sediakan oleh VB
Jenis-jenis fungsi built-in :
1) Fungsi keluaran
print,printf
2) Fungsi pengubah nilai
val,str
3) Fungsi string = left,mid,right,ucase
Contoh :
Dim kiri as string * 50
Dim kampus as string * 100
Kampus =”unika st.thomas”
Kiri=left (kampus,3)
Print kiri ‘ uni ‘
Kanan=right (kampus,3)
Print kanan ‘ mas ‘
Tengah=mid (kampus ,5,3)
Print tengah ‘a s ‘
Besar=ucase (kampus)
Print ‘UNIKA ST THOMAS
4) Fungsi trigonometri
contoh : sin,cos,tan,atan,asin,acos
5) Fungsi grafik
contoh : circle,line,arc
Contoh Fungsi
1. Contoh antar muka program
1. Buat fungsi untuk menjumlahkan nilai A+B
1.) Buka kode editor parameter
Function jumlah ( Dim A,B as byte) as byte
Dim C as byte
C = A + B
Jumlah = C
End function
2.) Klik ganda cmdC
Private sub cmdC_click()
Dim A,B,C As byte
A = val (txta.text)
B = val (txtb.text)
C = jumlah (A,B)
txtC.text = str (C)
End sub
2. Buatlah fungsi untuk
Menampilkan strik “Unika St. Thomas”
Jika form di klik
1.) Buka kode editor
Function kampus () As bolean
Msgbox (“Unika st. Thomas”)
Kampus = true
End function
2.) Klik ganda form
Private sub form-click()
Panggil fungsi
Kampus ()
End sub
