Read more
KONTROL PROGRAM pada Visual Basic
Kekuatan
pemrograman terletak pada control program. Dengan control program, kita akan
mengendalikan aur eksekusi program dan menentukan keputusan apa yang harus
dikerjakan oleh program pada kondisi tertentu. Kontrol program pada Visual
Basic meliputi kontrol pertimbangan kondisi dan keputusan, control pengulangan,
serta control penyaluran alternatif. Pada bagian ini akan dijelaskan beberapa
kontrol program yang disediakan Visual Basic dan sering digunakan dalam
pemrograman
If … Then
Dengan
pernyataan ini kita dapat mengetes suatu kondisi tertentu, kemudian menentukan
suatu tindakkan jika kondisi tersebut terpenuhi. Sintak penulisannya sebagai
berikut:
If <syarat kondisi> Then <pernyataan>
Atau
jika menggunakan multiple-line sebagai berikut:
If <syarat kondisi> Then
<pernyataan pertama>
<pernyataan kedua>
.
.
.
<pernyataan ke-n>
End If
Berikut
contoh penggunaannya:
If Angka = 0 Then
Label1.Caption = “ Ini adalah angka 0”
Label2.Caption = “Ini adalah angka 0”
End If
Pernyataan
program di atas akan mendeteksi nilai dari variabel angka. Jika nilainya adalah
nol maka properti Caption Label1 dan Label2 akan diisi tulisan “Ini adalah
angka 0”. Jika nilainya tidak nol maka pernyataan tersebut akan diabaikan.
If … Then … Else
Pernyataan
ini hamper sama dengan pernyataan If … Then digunakan untuk mengetes suatu
kondisi tertentu, hanya jika suatu kondisi tidak dipenuhi maka alur program
akan mengeksekusi pernyataan yang lain. Berikut adalah sintak penggunaannya:
If <syarat kondisi 1> Then
<blok pernyatan pertama>
Elself <syarat kondisi 2> Then
<blok pernyataan kedua>
.
.
.
Elself <syarat kondisi n> Then
<blok pernyataan ke-n>
Else
<blok pernyataan>
End If
Visual
Basic pertama kali akan mengetes kondisi 1. Jika kondisi 1 tidak dipenuhi,
Visual Basic akan mengetes kondisi 2 dan seterusnya sampai menemukan kondisi
yang terpenuhi. Jika menemukan kondisi yang memenuhi maka Visual Basic akan
mengerjakan blok pernyataannya. Jika Visual Basic tidak menemukan kondisi yang
memenuhi maka blok pernyataan Else yang akan dieksekusi. Berikut adalah contoh
penggunaannya:
If
Angka = 0 Then
Label1.Caption = “ Ini adalah angka 0”
ElseIf Angka = 1 Then
Label1.Caption = “Ini adalah angka 1”
Else
Label1.Caption
= “Ini bukan angka 0 maupun angka 1”
End If
Visual
Basic akan mengetes apakah angka adalah angka “0”. Jika benar maka property
caption dari Label1 akan diisi “Ini adalah angka 0”, jika salah maka Visual
Basic akan mengetes apakah angka adalah angka “1”. Jika benar maka property
caption dari Label1 akan diisi “Ini adalah angka 1”, jika salah maka maka property
caption dari Label1 akan diisi “Ini bukan angka 0 maupun 1”.
Select … Case
Pada
dasarnya perintah ini sama dengan perintah If … Then … Else, yaitu akan
mengeksekusi satu blok pernyataan dari beberapa pilihan blok pernyataan, hanya
penulisannya lebih ringkas dan lebih mudah mengerti. Sintak penulisannya
sebagai berikut:
Select
Case <kondisi yang diuji>
Case <syarat kondisi 1>
<blok pernyataan pertama>
Case <syarat kondisi 2>
<blok pernyataan kedua>
.
.
Case Else
<blok pernyataan ke-n>
End
Select
Berikut
contoh penggunaannya:
Select
Case Angka
Case 0
Label1.Caption = “Ini adalah angka 0”
Case 1
Label1.Caption = “Ini adalah angka 1”
Case
Else
Label1.Caption = “Ini bukan angka 0 maupun
angka 1”
End Select
Eksekusi
kode program di atas sama dengan eksekusi dengan If … Then … Else, yaitu akan
mengetes nilai angka apakah angka adalah “0”, “1”, atau selain dari “0” dan
“1”.
Do … Loop
Perintah
Do … Loop digunakan untuk perulangan suatu blok pernyataan sampai dipenuhinya
syarat kondisi yang ditetapkannya. Sintak penulisannya sebagai berikut:
Do
While <syarat kondisi>
<blok
pernyataan>
Loop
Berikut contoh penggunaannya:
Private
Sub Form_Activate ( )
Angka%
= 0
Do
While Angka% <= 10
Print
“Do … Loop” & Angka%
Angka%
= Angka% + 1
Loop
End
Sub
Atau dengan menggunakan pernyataan Until
sebagai berikut:
Do
<blok
pernyataan>
Loop Until <syarat kondisi>
Berikut contoh penggunaannya:
Private
Sub Form_Activate ( )
Angka%
= 0
Do
Print
“Do … Loop” & Angka%
Angka%
= Angka% + 1
Loop
Until Angka% > 10
End
Sub
Kedua
program di atas akan mencetak angka dari “0” sampai angka “10” pada form, yaitu
sampai syarat kondisi Angka dipenuhi. Jika dijalankan, kedua program di atas
akan menampilkan hasil sebagai berikut:
Gambar Tampilan hasil eksekusi program Do … Loop
For … Next
Perintah
ini sama melakukan perulangan seperti perintah Do … Loop, tetapi dengan For …
Next bisa ditentukan nilai awal dan nilai akhir perulangan serta nilai
kenaikannya. Sintak penggunaannya sebagai berikut:
For
<nama_variabel> =
<nilai_awal> To
<nilai_akhir> [Step
<nilai_kenaikan>]
<blok
pernyataan>
Next [<nama_variabel>]
Argumen
nilai_awal, nilai_akhir, dan nilai_kenaikan harus tipe data numerik. Berikut
contoh penggunaannya:
Private
Sub Form_Activate ( )
Print
“For_Next dengan Step 1”
For
Angka% = 0 To 5
Print
“For.... Next” & Angka%
Next
Angka%
Print
“”
Print
“For_Next dengan Step -2”
For
Angka% = 10 To 0 Step -2
Print
“For…. Next” & Angka%
Next
Angka%
End
Sub
Jika
program ini dijalankan maka akan menampilkan hasil sebagai berikut:
Gambar Hasil eksekusi program For … Next
GoTo
Perintah
GoTo digunakan untuk melakukan pencabangan ke suatu baris label tertentu.
Dengan perintah GoTo, program dapat langsung melompat ke baris tertentu
sehingga kode-kode program yang dilewatinya tidak akan dieksekusi. Sintak
penulisannya sebagai berikut:
GoTo <nama_label>
<blok
pernyataan>
<nama_label>:
Biasanya
perintah GoTo diguankan bersama dengan perintah On Error untuk menangani error,
yaitu memerintahkan program melompat ke baris tertentu jika ditemui error.
Error dapat terjadi karena kesalahan logika program kita, kesalahan perhitungan
(misal pembagian dengan nol), kesalahan yang disebabkan oleh hardware, maupun
kesalahan lainnya. Penanganan error dalam pemrograman adalah sangat penting karena
adanya error ini dapat menyebabkan program menjadi berhenti dan dapat
menyebabkan komputer menjadi hang. Sintak penulisannya sebagai berikut:
On
Error GoTo <nama_label>
<blok
pernyataan>
<nama_label>:
Berikut
adalah contoh program penanganan kesalahan pada program pembagian angka.
Program akan meminta angka yang akan dibagi dan angka pembaginya, kemudian menampilkan
hasilnya. Jik terjadinya error, misal pembagian dengan nol yang menghasilkan
angka tak terhingga atau kesalahan masukan berupa huruf maka akan ditampilkan
pesan kesalahan. Berikut kode programnya:
Private Sub Form_Load ( )
On
Error GoTo Error_handle
input_angka% = InputBox (“Masukkan angka yang
akan dibagi”, “Masukan angka yang akan dibagi”)
input_pembagi% = InputBox (“Masukkan angka
pembagi”, “Masukan angka pembagi”)
hasil% = input_angka% / input_pembagi%
MsgBox hasil%, vbOKOnly, “Hasil pembagian”
GoTo
sukses
Error_handle:
MsgBox “telah terjadi kesalahan”, vbOKOnly,
“error”
sukses:
End Sub
Exit
Perintah
Exit digunakan untuk keluar secara langsung dari blok program For … Next, Do …
Loop, Sub Procedure, atau Function Procedure. Sintak penulisannya sebagai
berikut:
·
Exit
Do, digunakan untuk keluar dari blok program Do … Loop.
·
Exit
For, digunakan untuk keluar dari blok program For … Next.
·
Exit
Sub, digunakan untuk keluar dari Sub
Procedure.
·
Exit
Function, digunakan untuk keluar dari Function Procedure.
Berikut
adalah contoh penggunaan Exit Do, yaitu mencacah angka dari 0 sampai 10. Pada
program ini looping akan terus berjalan, tetapi jika kondisi Angka % > 10
dipenuhi maka perintah Exit Do akan dijalankan yang berarti keluar dari
looping.
Private Sub From_Activate()
Angka % = 0
Do
Print “Do...Loop” & Angka 0/0
Angka % = Angka 0/0 + 1
If Angka % > 10 Then Exit Do
Loop
End Sub
Jika
program tersebut dijalankan maka akan memberikan hasil yang sama dengan program
Do ... Loop sebelumnya. Berikut adalah hasil eksekusi dari program di atas.
Gambar Hasil eksekusi program Do ... Loop dengan
menggunakan Exit Do
Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11,
Blawong 1 , RT 01, Trimulyo, Jetis, Bantul 55781.
Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
0 Reviews
Silakan dikomentari