PEMROGRAMAN VISUAL BASIC.NET ( CONDITION )

Modul Ajar POLITEKNIK SURABAYA

PEMROGRAMAN VISUAL BASIC .NET ( CONDITION ) 1. Struktur If - Then

Struktur If-Then disebut juga dengan Branch Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok if akan dilompati serta program akan melakukan tindakan berikutnya. Bentuk penulisan dari struktur If-Then sebagai berikut : If (kondisi) then ... ekspresi ... End if Keterangan : Kondisi Berisi perbandingan antara satu variabel / konstanta dengan variabel / konstanta lain dengan menggunakan tanda <, <=, >, >=, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. Ekspresi Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisinya memenuhi syarat.

Contoh : Buat suatu program yang akan menyeleksi masukan suatu nilai akhir, dengan model form seperti berikut : Nama Object

Enabled

TxtNA

True

CmdProses

True

TxtKet

False

Kode Programnya : Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click Dim Ket As String Ket = "" If Val(TxtNA.Text) >= 56 Then Ket = "LULUS" End If TxtKet.Text = Ket End Sub

Hasil Program :

2. Struktur If – Then – Else

Struktur If-Then-Else disebut juga dengan Selection Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lainnya yang dikerjakan. Bentuk penulisan dari struktur If-Then-Else sebagai berikut : If (kondisi) then ... ekspresi 1 ... Else ... ekspresi 2 ... End if

Oleh Ratih Purwandari, SST


Keterangan : Kondisi Berisi perbandingan antara satu variabel / konstanta dengan variabel / konstanta lain dengan menggunakan tanda <, <=, >, >=, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. Ekspresi 1 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisinya memenuhi syarat (bernilai “BENAR”). Ekspresi 2 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisinya tidak memenuhi syarat (bernilai “SALAH”). Contoh : Buat suatu program yang akan menyeleksi masukan suatu nilai akhir, dengan model form seperti berikut : Nama Object

Enabled

TxtNA

True

CmdProses

True

TxtKet

False

Kode Programnya : Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click Dim Ket As String Ket = "" If Val(TxtNA.Text) >= 56 Then Ket = "LULUS" Else Ket = "LULUS" End If TxtKet.Text = Ket End Sub

Hasil Program :

3. Nested If – Then – Else

Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut : If (kondisi1) then If (kondisi2) then ... ekspresi 1 Else ... ekspresi 2 End if Else If (kondisi3) then ... ekspresi 3 Else ... ekspresi 4 End if End if

... ...

... ...



Keterangan : Kondisi 1 Berisi perbandingan antara satu variabel / konstanta dengan variabel / konstanta lain dengan menggunakan tanda <, <=, >, >=, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. Kondisi 2 Kondisi 2 ini akan dikerjakan bila nilai kondisi 1 adalah “BENAR” (terpenuhi). Kondisi 3 Kondisi 3 ini akan dikerjakan bila nilai kondisi 1 adalah “SALAH” (tidak terpenuhi). Ekspresi 1 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 dan kondisi2 memenuhi syarat (bernilai “BENAR”). Ekspresi 2 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 memenuhi syarat (bernilai “BENAR”) dan kondisi2 bernilai “SALAH”. Ekspresi 3 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 dan kondisi1 tidak memenuhi syarat (bernilai “SALAH”) dan kondisi3 bernilai “BENAR”. Ekspresi 4 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 dan kondisi1 tidak memenuhi syarat (bernilai “SALAH”) dan kondisi3 bernilai “SALAH”. Contoh : Buat suatu program yang akan menyeleksi status seseorang apakah Ayah, Ibu, Jejaka, atau Gadis sesuai dengan jenis kelamin dan status pernikahan yang dimasukkan : Nama Object

Enabled

RbP

True

RbW

True

CmbStatus

True

CmdProses

True

TxtKet

False

Kode Programnya : Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated CmbStatus.Items.Clear() CmbStatus.Items.Add("Menikah") CmbStatus.Items.Add("Bujang") End Sub Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click If RbP.Checked = True Then If CmbStatus.Text = "Menikah" Then TxtKet.Text = "Ayah" Else TxtKet.Text = "Jejaka" End If Else If CmbStatus.Text = "Menikah" Then TxtKet.Text = "Ibu" Else TxtKet.Text = "Gadis" End If End If End Sub



Hasil Program :

4. Struktur If – Then – ElseIf - Then

Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut : If (kondisi1) then ... ekspresi 1 ... ElseIf (kondisi2) then ... ekspresi 2 ... Else ... ekspresi 3 ... End if Keterangan : Kondisi 1 Berisi perbandingan antara satu variabel / konstanta dengan variabel / konstanta lain dengan menggunakan tanda <, <=, >, >=, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. Kondisi 2 Kondisi 2 ini akan dikerjakan bila nilai kondisi 1 adalah “BENAR” (terpenuhi). Ekspresi 1 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 memenuhi syarat (bernilai “BENAR”). Ekspresi 2 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi2 memenuhi syarat (bernilai “BENAR”). Ekspresi 3 Rangkaian kode program (blok diagram) yang akan dijalankan jika kondisi1 dan kondisi2 tidak memenuhi syarat (bernilai “SALAH”).

Contoh : Buat suatu program yang akan mengolah data mahasiswa, dengan model form seperti berikut : Nama Object

Text

TxtNIM

(dikosongkan)

TxtNama

(dikosongkan)

CmbJur

(dikosongkan)

RbP

Pria

RbW

Wanita

CmdProses

PROSES

LblNama

(dikosongkan)

LblJur

(dikosongkan)

LblGender

(dikosongkan)



Kode Programnya : Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated CmbJur.Items.Clear() CmbJur.Items.Add("Sistem Informasi") CmbJur.Items.Add("Manajemen Informatika") CmbJur.Items.Add("Teknik Komputer") CmbJur.Items.Add("Komputerisasi Akuntansi") End Sub Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click LblNama.Text = "Selamat Datang " & TxtNama.Text If CmbJur.Text = "Sistem Informasi" Then LblJur.Text = "Anda Masuk Jurusan SI" ElseIf CmbJur.Text = "Manajemen Informatika" Then LblJur.Text = "Anda Masuk Jurusan MI" ElseIf CmbJur.Text = "Teknik Komputer" Then LblJur.Text = "Anda Masuk Jurusan TK" Else LblJur.Text = "Anda Masuk Jurusan KA" End If If RbP.Checked = True Then LblGender.Text = "Anda Cowok !!" Else LblGender.Text = "Anda Cewek !!" End If End Sub

Hasil Program :

5. Struktur Select Case Struktur Select Case digunakan untuk menjalankan satu blok perintah yang jumlahnya banyak atau bertingkat-tingkat. Struktur ini mirip dengan struktur If-Then-Else, tetapi Select Case mempunyai penulisan yang lebih mudah sehingga penulisan programnya lebih efisien dan mudah dibaca oleh pembuat program. Select Case tes_ekspresi Case ekspresi 1 ...blok perintah 1... Case ekspresi 2 ...blok perintah 2... Case else ...blok perintah 3... End Select



Keterangan : Tes_ekspresi Tes_ekspresi ini bisa bernilai numerik maupun string. Ekspresi 1 Nilai pertama proses seleksi dari tes_ekspresi. Ekspresi 2 Nilai kedua proses seleksi dari tes_ekspresi. Penulisan nilai pada ekspresi 1 maupun ekspresi 2 bisa langsung berbentuk konstanta atau melalui operator pembanding. Blok perintah 1 Suatu rangkaian perintah yang dikerjakan bila kondisi ekspresi 1 terpenuhi. Blok perintah 2 Suatu rangkaian perintah yang dikerjakan bila kondisi ekspresi 2 terpenuhi. Blok perintah 3 Suatu rangkaian perintah yang dikerjakan bila kondisinya tidak ada yang memenuhi syarat. Contoh 1: Buat suatu program yang akan menampilkan gelar diploma, dengan model form seperti berikut : Nama Object

Enabled

CmbDip

True

CmdProses

True

TxtGelar

False

Kode Programnya : Private Sub FrmDiploma_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated CmbDip.Items.Clear() CmbDip.Items.Add("1") CmbDip.Items.Add("3") CmbDip.Items.Add("4") End Sub Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click Select Case (CmbDip.Text) Case "1" TxtGelar.Text = "Ahli Pratama" Case "3" TxtGelar.Text = "Ahli Madya" Case Else TxtGelar.Text = "Sarjana Sains Terapan" End Select End Sub

Hasil Program :



Contoh 2: Buat suatu program yang akan menghitung nilai akhir dan menentukan grade, dengan model form seperti berikut : Nama Object

Enabled

TxtNTgs

True

TxtNUTS

True

TxtNUAS

True

TxtNA

False

TxtGrade

False

Nilai Akhir didapat dengan rumus : Nilai Akhir = 25% dari Nilai Tugas + 30% dari Nilai UTS + 45% dari Nilai UAS Grade didapat dengan ketentuan : Nilai Akhir Grade 81 - 100 A 71 - 80 AB 66 - 70 B 61 - 65 BC 56 - 60 C 41 - 55 D 0 - 40 E Kode Programnya : Private Sub CmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdProses.Click TxtNA.Text = 0.25 * Val(TxtNTgs.Text) + 0.3 * Val(TxtNUTS.Text) + 0.45 * Val(TxtNUAS.Text) Select Case TxtNA.Text Case Is >= 81 TxtGrade.Text = "A" Case Is >= 71 TxtGrade.Text = "AB" Case Is >= 66 TxtGrade.Text = "B" Case Is >= 61 TxtGrade.Text = "BC" Case Is >= 56 TxtGrade.Text = "C" Case Is >= 41 TxtGrade.Text = "D" Case Else TxtGrade.Text = "E" End Select End Sub

Hasil Program :



LATIHAN SOAL Buatlah program tentang pembelian BBM di SPBU. Combo Jenis Kendaraan berisi : Sepeda Motor, Mobil dan Truk. Tentukan jumlah roda berdasarkan pada jenis kendaraan yang dimasukkan. Berikut ketentuannya : Jenis Kendaraan Sepeda Motor Mobil Truk

Jumlah Roda 2 4 6

Hitunglah berapa jumlah liter dan uang yang harus dibayarkan berdasarkan harga BBM per liter dan jenis pembelian (berdasarkan uang atau jumlah liter). Berikut hasil akhir program tersebut !


PEMROGRAMAN VISUAL BASIC.NET ( CONDITION )

Recommend Documents