Laporan Praktikum Visual Basic
Laporan Praktikum Visual Basic
Laporan Praktikum Visual Basic
Percabangan (If-Then-Else-EndIf)
7.2 IF Statement
If menggunakan operator pembanding (comparison operators) untuk mengeksekusi suatu
pilihan dari 2 pilihan yang ada tergantung pada hasil pembandingan.
Sintak penggunaan :
If Kondisi Then
Perintah yang akan dieksekusi jika kondisi bernilai true
ELSE
Perintah yang akan dieksekusi jika kondisi bernilai false
End If
Kondisi menunjukan berbagai tipe statement atau fungsi yang menghasilkan nilai benar atau
salah.
Berikut ini diberikan contoh kondisi yang beruoa perbandingan antara variabel dengan nilai,
variabel lain atau fungsi.
If x> 5 Then
Y = 10
End If
If x> y Then
Y = x
End If
Y = 20
End If
End If
Dalam penggunaannya, If ... Thenstatements dapat digunakan untuk mengevaluasi lebih dari satu
kondisi untuk itu digunakan tambahan blok If.......Then .....ElseIf statements.
If x < 5 Then
ElseIf
Jika suatu kondisi tergantung pada kondisi lain yang sudah bernilai true (seperti if hari = senin
dan if jam = 6.30) maka harus digunakan percabangan bersarang (nested Ifstatements).
End If
Soal Tugas
2 . Buatah sebuah program untuk melakukan pengetesan pada sebuah tahun adalah tahun kabisat
atau bukan. Inputan yang dimasukan adalah tahun, sedangkan output yang dihasilkan adalah
keterangan apakah tahun tersebut adalah tahun kabisat atau bukan.
Catatan : tahun kabiasat adalah tahun yang habis dibagi 4. Tahun abad (habis dibagi 100) yang
tidak habis dibagi 400 bukan tahun kabisat seperti 1900, 1700, dll.
Jawab
8 .1 Operato Logika
Selain operator pembanding, Visual Basic mendukung tambahan operator yaitu And, Or,
dan Not. Operator And, Or, dan Not dikenal dengan nama operator logika. Dengan menggunakan
operator ini dua atau lebih test perbandingan dapat dilakukan.
Seperti yang terlihat pada tabel diatas, operator logika memungkinkan untuk membandingkan
lebih dari satu perbandingan. Berikut ini contoh penggunaan dari operator logika sebagai
pengganti dari nested if statewment.
Dapat ditulis :
Struktur Select Casedimulai dengan kata Select Case dan diakhiri dengan kata End Select.
Nama_variabel dapat di dengan variabel, properti, atau ekspresi lain yang akan dijadikan sebagai
kondisi. Sedangkan nila_1, nilai 2 dapat diganti dengan angka, string atau nilai lain yang
berkaitan dengan nama_variabel. Jika salah satu nilai sesuai dengan variabel, maka pernyataan
kata dibawah kata Case akan dijalankan dan Visual Basic akan melanjutkan mengeksekusi
program setelah End. Anda dapat menggunakan kata Case sebanyak mungkin dalam struktur
Select ... Case, Dan anda juga dapat menyertakan lebih dari satu nilai pada kata Case, pisahkan
dengan tanda koma.
Jawab
Perulangan (Looping)
Tujuan Instruksional Khusus:
Setelah mempelajari bab ini, mahasiswa diharapkan dapat menggunakan
perintah-perintah perulangan seperti Do … While, Do … Until, dan For … Next
serta beberapa perintah yang digunakan untuk keluar dari perulangan.
9.1 Perulangan
Bagian ini akan dijelaskan bagaimana membuat sebuah program yang berisi perulangan.
Perulangan (Looping) merupakan suatu instruksi yang digunakan untuk mengeksekusi sejumlah
instruksi program secara berulang-ulang. Perulangan mempunyai peranan penting sebab
adakalanya bagian dari program perlu dieksekusi kembali berulang-ulang untuk melakukan
sejumlah proses.
Do While (Kondisi_pembanding)
Perintah - perintah Visual Basic
Loop
Kode yang terdapat dalam Blok Do Whilediatas akan terus dilakukan selama kondisi
pembanding bernilai true.
Contoh :
‘ Ambil umur user dan masukan dalam variabel string
Strage = Input Box (“How old are you ? ” , “ Age Ask ” )
Perbandingan potongan kode tersebut dapat dilihat perbedaan perbandingan yang dilakukan.
Perbandingan dilakukan sampai input berupa umur user yang dimasukan berada diantara 10 dan
99.
Do
‘ Umur dari user diluar range
intPress = MsgBox (“ Umur saudara harus diantara “ & _
“10 and 99” , vbExclamation, “Error !”)
StrAge = InputBox (“Berapa umur saudara ?” , “Umur”)
‘ Untuk mengecek apakah user menekan tombol cancel
If (strAge = “ “) Then
End ‘ Keluar dari program
End If
intAge = Val (strAge)
Loop While ( (intAge < 10) Or (intAge > 99) )
Do
‘ Umur dari user diluar range
intPress = MsgBox (“ Umur saudara harus diantara “ & _
“10 and 99” , vbExclamation, “Error !”)
StrAge = InputBox (“Berapa umur saudara ?” , “Umur”)
‘ Untuk mengecek apakah user menekan tombol cancel
If (strAge = “ “) Then
End ‘ Keluar dari program
End If
intAge = Val (strAge)
Loop While ( (intAge >= 10) Or (intAge <= 99) )
Contoh :
Intsum = 0
For intNumber = 1 To 10
intSum = intsum + intNumber
Next
Soal Tugas
1. Buatlah program untuk menghitung banyak kata yang terdapat pada sebuah kalimat.
Masukan dari program tersebut adalah kalimat yang akan dihitung banyak katanya.
Catatan : Untuk menghitung antara banyak kata dengan spasi, sebab spasi merupakan
pemisah antara kata.
2. Toko “Serba Ada” akan mencatat transaksi yang terjadi setiap hari pada seorang
langganan. Untuk membantu pekerjaan kasir dalam menghitung jumlah yang harus
dibayar oleh seorang langganan, maka toko tersebut meminta seorang programmer
untuk membuat sebuah program. Program tersebut menanyakan jumlah barang yang
dibeli dan harga dari barang yang bersangkutan. Dengan asumsi seorang langganan
akan memmbeli lebih dari satu jenis barang dan memiliki kuantitas yang berbeda-beda
untuk masing-masing barang.
Jawab
Untuk bilangan positif, fungsi Fix ( ) dan Int ( ) memberikanperlakuan yang sama. Sebaga
contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama :
Namun fungsi Fix ( ) dan Int ( ) memberikan perlakuan berbeda pada bilangan negatif. Kedua
pernyartaan berikut memeberikan pengembalian yang berbeda :
Sedangkan fungsi Cint ( ) mengembalikan pembulatan angka yang terdekat. Berikut ini contoh
penggunaan Cint ( ) :
ans 1 = CInt (14.1) ‘ mengembalikan 14
ans 2 = CInt (14.5) ‘ mengembalikan 14
ans 3 = CInt (14.6) ‘ mengembalikan 15
ans 2 = CInt (-14.5) ‘ mengembalikan -14
Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1/7).
C. Fungsi-fungsi matematika
Fungsi-fungsiyang berkaitan dengan matemetika seperti terlihat pada tabel Fungsi-fungsi
matematika.
Fungsi-fungsi string
Lcase$ ( ) Mengembalikan argumen string sebagai tipe data string huruf
kecil
Ucase ( ) Mengembalikan argumen string sebagai tipe data variant
huruf besar
Ucase$ ( ) Mengembalikan argumen string sebagai tipe data string huruf
besar
Val ( ) Mengembalikan nilai number dari argumen string
Len ( ) Mengembalikan nilai number yang menunjukan panjang
string
Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string
dapat digunakan tiga fungsi berikut :
a. Left$ (String Val, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter.
b. Right$ (String Val, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter.
c. Mid$ (StringVal, StartVal, Length)
d. Fungsi ini mengembalikan nilai string dari StartVal sebanyak length karakter.
Contoh :
Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format ( ) yang berkaitan dengan fungsi-
fungsi tanggal dan waktu.
Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.
Soal Tugas
1. Buatlah aplikasi untuk menghitung fungsi berikut ini :
f(x) = 1
( 1 + Exp ( x ) )
Hasil dari sejumlah sampel yang dimasukan pada fungsi ini adalah sebagai berikut :
x F(x)
-2 0.880797
-1 0.731059
0 0.5
1 0.268941
2 0.119203
3 0.047426
2. Buatlah sebuah program untuk menghitung luas sutu segitiga jika hanya 2 sisi yang
diketahui panjangnya dan sudut yang mengapit 2 sisi yang bersangkutan. Untuk
menyelesaikan masalah tersebut dapat digunakan fungsi berikut :
L = a.b.Sin r
b
Catatan : Sudut r yang saudara masukan dalam ukuran derajat, untuk itu perlu dirubah
terlebih dahulu sebelum dimasukan dalam fungsi sin yng disediakan oleh VB.
(πRad = 180°)
Jawab
1. Running dan Codding program
2. Running dan Codding Program