LAPORAN PEMROGRAMAN VISUAL - CONDITION

LAPORAN PRAKTIKUM
BAHASA PEMOGRAMAN VISUAL







Ananda Putri Syaviri
130533608243
Offering B




UNIVERSITAS NEGERI MALANG
FAKULTAS TEKNIK ELEKTRO
PROGRAM STUDI
S1 PENDIDIKAN TEKNIK INFORMATIKA
Maret, 2015


LABORATORIUM KOMPUTER
Fakultas Teknik Elektro - Universitas Negeri Malang
Jl.Semarang, Jawa Timur

CONDITION 1 & 2CONDITION 1 & 2
CONDITION 1 & 2
CONDITION 1 & 2



Nama
Ananda Putri Syaviri
Nim
130533608243
Prodi
S1 Pendidikan Teknik Informatika
Dosen Pembimbing
Ashar Ahmad, M.Pd
Ahmad Mursyidun Nidhom, M.Pd





PRAKTIKUM KE 4
CONDITION 1 & 2
TUJUAN
Memahami bentuk- bentuk condition
Memiliki startegi dalam penggunaan condition
Mampu menyelesaikan kasus-kasus yang melibatkan condition
DASAR TEORI
Operator Relasional
Operator relasional adalah operator yang digunakan untuk membandingkan satu nilai dengan nilai yang lain, untuk mendapatkan hasil TRUE(benar) dan FALSE (salah). Operator ini bisa membandingkan nilai numerik maupun nilai string, tetapi tidak bisa membandingkan dua tipe data yang berbeda (misal membandingkan data numerik dengan data string.

2. Operator Logika dan Tipe data Boolean
Operator logika berguna sebagai pengatur logika program. Operator Logika berhubungan dengan tipe data Boolean yang mengenal dua buah nilai yaitu: TRUE dan FALSE. Berikut adalah beberapa operator logika : a. AND
Operator AND digunakan untuk menggabungkan dua buah ekspresi nilai atau lebih. Operator ini akan menghasilkan nilai TRUE apabila dua kriteria yang dibandingkan bernilai TRUE. Selain itu akan bernilai FALSE
Contoh:(10 > 5) AND (2 < 4) 'hasilnya TRUE karena keduanya benar b. OR
Operator ini akan menghasilkan nilai TRUE apabila nilai salah satu ekspresi bernilai TRUE. Bila kedua ekspresi bernilai FALSE maka operator ini akan bernilai FALSE.
Contoh : (10 < 5) OR ( 2 > 4)'hasilnya FALSE
c. NOT
Operator ini akan mengembalikan nilai kebalikan dari nilai tersebut.
Misalnya: hasil = Not (True And True) 'hasilnya sama dengan false d. XOR
Operator XOR hanya akan menghasilkan nilai TRUE apabila beberapa ekspresi nilai yang dibandingkan bersifat benar atau salah.
3. Struktur Kondisi
a. 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. Deskripsi formal pernyataan If - Then:
If (kondisi) Then
Pernyataan
End If
b. 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.
Deskripsi formal pernyataan If - Then - Else:
If (kondisi) Then
...ekspresi 1
Else
...ekspresi 2
End If
4. Struktur IIF
Struktur IIF yaitu struktur If-Then-Else yang bentuknya datar atau horizontal. Bentuk penulisan struktur IIF membutuhkan variabel untuk menampung jawabannya. Dari segi kecepatan struktur IIF lebih cepat prosesnya dibandingkan dengan struktur If- Then-Else. Bentuk Penulisan dari struktur IIF :
Hasil = IIF (kondisi, jawaban1, jawaban2)
Keterangan :
Kondisi
Berisi perbandingan antara satu vaiabel/konstanta dengan variable/konstanta lain dengan menggunakan tanda , =, dari keadaan yang akan menghasilkan nilai "Benar" atau "Salah".
Jawaban 1
Jawaban yang diberikan jika kondisi penyeleksian bernilai "Benar".
Jawaban 2
Jawaban yang diberikan jika kondisi penyeleksian bernilai "Salah".
2. Struktur Select – Case
Struktur Select Case digunakan untuk menjalankan satu blok perintah yang jumlahnya banyak atau bertingkat-tingkat. Bentuk Penulisan dari struktur Select-Case:
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
Bernilai numerik maupun string
Ekspresi 1
Nilai pertama proses seleksi dari tes_ekspresi
Ekspresi 2
Nilai pertama proses seleksi dari tes_ekspresi. Penulisan nilai dari 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.
Contoh :

Select Case x
Case 0: angka = "Nol"
Case 1:
If posisi = 1 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select

LATIHAN
Latihan 1 (if-then-else)
Membuat project baru dengan memilih template application console.
Melengkapi kode programnya :
Module Module1

Sub Main()
Dim intVal As Integer = -3
If (intVal < 0) Then
Console.WriteLine("Negatif")
Else
Console.WriteLine("Positif")
End If
Console.ReadLine()
End Sub

End Module

Tekan F5 untuk menjalankan aplikasi (screenshoot)

Penjelasan :
Program diatas menggunakan aplikasi console , sehingga output program akan ditampilan pada command prompt. Menggunakan condition "if-then-else". Program diatas menggunakan nama objek intVal yang bertipe integer dan memiliki nilai -3. Pada program ini dikondisikan jika intVal bernilai lebih kecil dari 0 maka outputan akan bernilai negative, jika selain itu maka bernilai positif. Karena intVal bernilai -3 yang artinya lebih kecil dari 0 maka outputan yang keluar bernilai negative. Setelah penulisan end if, terdapat penulisan Console.ReadLine( ) yang fungsinya untuk dapat menampilkan hasil perkondisian yang digunakan pada program diatas.



Latihan 2 (Pernyataan if-then dengan form)
Membuat project baru dengan menggunakan template windows application.
Tambahkan control label, button dan textbox dengan property seperti berikut:

Menambahkan event click button dan lengkapi kode programnya seperti berikut:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ket As String = ""
If CDbl(TextBox1.Text) >= 55 Then
Ket = "LULUS"
End If
Label3.Text = Ket
End Sub
End Class

Tekan F5 untuk menjalankan aplikasi (screenshoot)

Penjelasan :
Program diatas menggunakan windows application untuk dapat menampilkan hasil outputan dari program. Menggunakan objek baru "Ket" bertipe string yang nilainya belum diketahui, sehingga user dapat menginputkan secara manual ketika program dijalankan. Menggunakan perkondisian jika nilai yang dimasukkan pada textbox 1 lebih besar sama dengan 55 maka hasilnya "LULUS". Dan pada program ini tidak menggunakan else sehingga tidak ada kondisi pengecualian.

Latihan 3 (if-else-then).
Membuat project baru dengan menggunakan template windows application.
Menambahkan kontrol-kontrol berikut:

Menambahkan event click dan lengkapi kode programnya seperti berikut:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ket As String = ""
If CDbl(TextBox1.Text) >= 55 Then
Ket = "LULUS"
Else
Ket = "GAGAL"
End If
Label3.Text = Ket
End Sub
End Class

Tekan F5 untuk menjalankan aplikasi (screenshoot)

Penjelasan :
Program diatas hampir sama dengan latihan sebelumnya hanya saja pada program diatas menggunakan perkecualian dengan else, sehingga jika nilai yang dimasukkan tidak sesuai dengan perkondisian ada kondisi lain yang dapat dinyatakan pada nilai tersebut. Kondisi pengecualiannya adalah dengan menggunakan else, jika nilai Ket lebih kecil dari 55 maka Gagal.
Latihan 4 (select case)
Membuat project baru dengan apliaksi console.
Melengkapi kode program :
Module Module1

Sub Main()
Dim strIn As String
Console.WriteLine("Ketik sembarang huruf: ")
strIn = Console.ReadLine
Select Case strIn
Case "A"
Console.WriteLine("Huruf A")
' Kombinasi ekspresi
Case "Q", "X"
Console.WriteLine("Quit/Exit")
' Nilai default
Case Else
Console.WriteLine(strIn)
End Select
Console.ReadLine()
End Sub

End Module
Tekan F5 untuk menjalankan program :

Penjelasan :
Program diatas menggunakan kondisi select case untuk aplikasi string. Menggunakan objke baru "strIn" bertipe string yang nilainya diinputkan manual ketika program dijalankan. Ketika mengetikkan sembarang huruf , jika mengetikkan huruf A maka akan diekspresikan kembali dengan memunculkan nilai A, dan begitu seterusnya, hingga jika menginputkan nilai Q atau X maka Quit/Exit, yang artinya program akan berhenti.

Latihan 5 (If-elseIf-else).
Membuat project baru dengan aplikasi console.
Melengkapi kode program seperti dibawah ini:
Module Module1

Sub Main()
Dim intVal As String
Console.WriteLine("Inputkan Bilangan sembarang: ")
intVal = Console.ReadLine
If (CDbl(intVal) < 0) Then
Console.WriteLine("Negatif")
ElseIf (CDbl(intVal) = 0) Then
Console.WriteLine("Nol")
Else
Console.WriteLine("Positif")
End If
Console.ReadLine()
End Sub

End Module

Tekan F5 untuk menjalankan kode program.

Penjelasan:
Pada program diatas, saya menambahkan Console.Write("Inputkan bilangan sembarang: ")
IntVal = CInt(Console.ReadLine)
agar dapat lebih dikembangkan dan lebih mengethaui perbedaan dari perkondisian yang digunakan. Jika hanya menggunakan script seperti di modul maka hanya akan mucul seperti gambar dibawah ini.

Program diatas menggunakan perkondisian if-elseIf-else, jika nilai intVal kurang dari 0 maka bernilai negative, jika sama dengan 0 maka Nol , dan selain itu maka Positif , yang artinya nilai intVal lebih besar dari 0. Jangan lupa untuk menyertakan console.ReadLine ( ) agar dapat menampilkan hasil perkondisian pada console.

Latihan 6 (select case pada form).
Membuat project baru dengan menggunakan aplikasi windows.
Menambahkan control- control berikut

Melengkapi kode program seperti berikut
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Bil As Integer = CInt(TextBox1.Text)
Select Case Bil
Case 1
MsgBox("Bilangan 1")
Case 2 To 5
MsgBox("Bilangan 2 sampai 5")
Case 6, 7, 8
MsgBox("Bilangan 6,7, atau 8")
Case Is CDbl(nil2) Then
TextBox4.Text = CStr(True)
Else
TextBox4.Text = CStr(False)
End If

If CDbl(nil1) = CDbl(nil2) Then
TextBox5.Text = CStr(True)
Else
TextBox5.Text = CStr(False)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = CStr(0)
TextBox2.Text = CStr(0)
TextBox3.Text = CStr(0)
TextBox4.Text = CStr(0)
TextBox5.Text = CStr(0)


End Sub
End Class

Tekan F5 untuk menjalankan kode program

Penjelasan:
Program diatas menggunakan perkondisian If-Then-Else dengan total ada 3 perkondisian, yang pertama jika nil1 lebih besar dari nil2 maka output True , selain itu False. Yang kedua jika nil1 lebih bedar dari nil2 maka output True selain itu False. Dan yang ketiga jika nil1 sama dengan nil2 maka output True selain itu False. Perkondisian ini diletakkan pada event click button 1 yaitu Proses. Untuk event click button 2 yaitu clear digunakan untuk menghapus isi dari textboxt setelah melakukan operasi kondisi jika mengklik button 1. Menggunakan nilai (0) untuk menetralkan isi dari text box pada masing- masing textbox.

Tugas 2
Membuat aplikasi matematika.
Membuat project baru dengan aplikasi windows
Menambhakan contro : label, button, textbox.
Melengkapi kode program berikut:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Label1.Text = "+" Then
TextBox3.Text = CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text))
ElseIf Label1.Text = "-" Then
TextBox3.Text = CStr(CDbl(TextBox1.Text) - CDbl(TextBox2.Text))
ElseIf Label1.Text = "*" Then
TextBox3.Text = CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text))
ElseIf Label1.Text = "/" Then
TextBox3.Text = CStr(CDbl(TextBox1.Text) / CDbl(TextBox2.Text))
ElseIf Label1.Text = "^" Then
TextBox3.Text = CStr(CDbl(TextBox1.Text) ^ CDbl(TextBox2.Text))
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.Text = "+"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Text = "-"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label1.Text = "*"
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Label1.Text = "/"
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
Label1.Text = "^"
End Sub

End Class

Tekan F5 untuk menampilkan program.

Penjelasan:
Program diatas menggunakan perkondisian ElseIf. Untuk setiap radiobutton yang dklik maka hasilnya akan langsung tampak pada label1, kemudian untuk pengoperasian matematika diletakkan pada event button click menggunakan perkondisian ElseIf. Cara kerjanya , ketika mengklik salah satu radio button, kemudain menginputkan angka pada textbox1 dan textbox2 kemudian untuk menampilkan hasil pada textbox3 , mengklik button =.
Tugas 3
Membuat aplikasi hari.
Membuat project baru dengan aplikasi windows.
Menambahkan control : label, textbox, button, dan combobox.
Melengkapi kode program seperti berikut:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1_hari.Items.Add("1")
ComboBox1_hari.Items.Add("2")
ComboBox1_hari.Items.Add("3")
ComboBox1_hari.Items.Add("4")
ComboBox1_hari.Items.Add("5")
ComboBox1_hari.Items.Add("6")
ComboBox1_hari.Items.Add("7")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nama As String
Dim hari As String = ComboBox1_hari.Text
nama = CStr(IIf(hari = "1", "senin", IIf(hari = "2", "selasa", IIf(hari = "3", "rabu", IIf(hari = "4", "kamis", IIf(hari = "5", "jumat", IIf(hari = "6", "sabtu", "Judika")))))))
TextBox1.Text = nama
End Sub
End Class

Tekan F5 untuk menampilkan program:

Penjelasan:
Program diatas sama dengan latihan pada condition 2, hanya saja program diatas digunakan untuk mengetahui hari hari dalam seminggu. Menggunakan kondisi IIF, menggunakan combobox untuk menampilkan angka-angka yang tersedia dalam program nama hari.

Tugas 4
Membuat aplikasi kode mk
Membuat project baru dengan aplikasi windows.
Menambahkan control: label, listbox, picturebox dan textbox.
Melengkapi kode program seperti berikut
Public Class Form1

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Select ListBox1.Text
Case "Praktikum Grafika Komputer"
TextBox2.Text = "PIF453"
Case "Komputasi Numerik"
TextBox2.Text = "PIF454"
Case "Pemrograman Visual"
TextBox2.Text = "PIF448"
Case "Statistika Pendidikan"
TextBox2.Text = "PIF449"
Case "Praktikum Pemrograman Web"
TextBox2.Text = "PIF"
Case "Praktikum Pemrograman Visual"
TextBox2.Text = "PIF446"
Case "Grafika Komputer"
TextBox2.Text = "PIF443"
Case "Perencanaan Pembelajaran"
TextBox2.Text = "MKF405"
Case "Pemrograman Web"
TextBox2.Text = "PIF447"
Case "Evaluasi Pendidikan Teknik"
TextBox2.Text = "MKF403"
Case "Multimedia"
TextBox2.Text = "PIF455"
Case "Praktikum Multimedia"
TextBox2.Text = "PIF464"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Praktikum Grafika Komputer")
ListBox1.Items.Add("Komputasi Numerik")
ListBox1.Items.Add("Pemrograman Visual")
ListBox1.Items.Add("Statistika Pendidikan")
ListBox1.Items.Add("Praktikum Pemrograman Web")
ListBox1.Items.Add("Praktikum Pemrograman Visual")
ListBox1.Items.Add("Grafika Komputer")
ListBox1.Items.Add("Perencanaan Pembelajaran")
ListBox1.Items.Add("Pemrograman Web")
ListBox1.Items.Add("Evaluasi Pendidikan Teknik")
ListBox1.Items.Add("Multimedia")
ListBox1.Items.Add("Praktikum Multimedia")
End Sub
End Class
Tekan F5 untuk menampilkan program

Penjelasan:
Program diatas menggunakan perkondisian select case, untuk masing-masing matakuliah yang disediakan pada listbox. Untuk perkondisian diletakkan pada listbox juga, dengan mencantumkan kode mk yang akan ditampilkan pada textbox2. Cara kerjanya , jika case matakuliah praktikum Grafika Komputer maka ketika diklik akan muncul kode mk pada textbox2 yaitu "PIF453".

TUGAS RUMAH
Tugas 1 (aplikasi form sederhana)
Membuat project baru dengan aplikasi windows.
Menambahkan control : radiobutton, checkbutton, label, textbox, button.
Melengkapi kode program berikut.
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Then
MessageBox.Show("Pastikan kolom nama terisi", "Warning",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf ComboBox1.SelectedIndex = -1 Then
MessageBox.Show("Maaf " + TextBox1.Text + ", Anda belum memilih jenis kelamin", "Warning",
MessageBoxButtons.OK, MessageBoxIcon.Warning)

ElseIf RadioButton1.Checked = False And RadioButton2.Checked = False Then
MessageBox.Show("Maaf " + TextBox1.Text + ", Silahkan memilih status Anda!!", "Warning",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf RadioButton1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then
MessageBox.Show("Maaf " + TextBox1.Text + vbNewLine + " Apakah anda punya anak?", "Warning",
MessageBoxButtons.OK, MessageBoxIcon.Warning)

ElseIf RadioButton1.Checked And CheckBox1.Checked And CheckBox2.Checked Then
MessageBox.Show("Maaf " + TextBox1.Text + vbNewLine + " Centang salah satu saja!", "Warning",
MessageBoxButtons.OK, MessageBoxIcon.Warning)

ElseIf RadioButton1.Checked And CheckBox2.Checked And ComboBox1.SelectedIndex = 0 Then
MessageBox.Show("Selamat " & TextBox1.Text & vbNewLine & "Semoga cepat dikaruniai Anak ya Bu")

ElseIf RadioButton1.Checked And CheckBox1.Checked And ComboBox1.SelectedIndex = 0 Then
MessageBox.Show("Selamat " & TextBox1.Text & vbNewLine & "Anda seorang Mama")

ElseIf RadioButton1.Checked And CheckBox2.Checked And ComboBox1.SelectedIndex = 1 Then
MessageBox.Show("Selamat " & TextBox1.Text & vbNewLine & "Semoga cepat dikaruniai Anak ya Pak")

ElseIf RadioButton1.Checked And CheckBox1.Checked And ComboBox1.SelectedIndex = 1 Then
MessageBox.Show("Selamat " & TextBox1.Text & vbNewLine & "Anda seorang Papa")

ElseIf RadioButton2.Checked And ComboBox1.SelectedIndex = 0 Then
MessageBox.Show("Anda Masih Gadis")

ElseIf RadioButton2.Checked And ComboBox1.SelectedIndex = 1 Then
MessageBox.Show("Anda masih Bujang")
End If

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
'otomatis check box bisa dipakai
CheckBox1.Enabled = True
CheckBox2.Enabled = True
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
CheckBox1.Enabled = False
CheckBox2.Enabled = False
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Perempuan")
ComboBox1.Items.Add("Laki-laki")
End Sub
End Class







Tekan F5 untuk menampilkan program.

Penjelasan:
Program diatas menggunakan perkondisian ElseIf untuk perkondisian jika mengklik salah satu checkbutton, radiobutton yang telah disediakan. Misalnya pada kondisi ElseIf mengklik radiobutton1 setelah mengisi kolom nama maka jika tidka mengklik checkbutton1 maupun checkbutton2 maka nanti akan muncul messagebox "maaf apakah anda mempunyai anak?". Begitu dengan perkondisian lainnya, disesuaikan dengan kondisi saat user akan memilih button yang akna diklik atau tidak, akan disertai dengan kondisi hasil jika mengklik/tidak button yang tersedia. Kemudian untuk menghilangkan checkbutton apabila mengklik belum menikah menggunakan perkondisian checkbox1.Enabled = True/False, yang artinya enable untuk menampilkan jika menuliskan True maka kana ditampilkan, jika tidak maka tidak ditampilkan, yang diletakkan pada event click radiobutton yang telah ditentukan sebelumnya sesuai dengan perkondisian yang digunakan.

Tugas 2 (aplikasi nilai akhir)
Membuat project baru dengan aplikasi windows.
Menambahkan kontrol-kontrol: label, textbox dan button.
Melengkapi kode program berikut
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CInt(TextBox1.Text) >= 90 Then
TextBox2.Text = "A"
ElseIf CInt(TextBox1.Text) >= 75 Then
TextBox2.Text = "B"
ElseIf CInt(TextBox1.Text) >= 55 Then
TextBox2.Text = "C"
ElseIf CInt(TextBox1.Text) >= 40 Then
TextBox2.Text = "D"
ElseIf CInt(TextBox1.Text) >= 0 Then
TextBox2.Text = "E"
End If
End Sub
End Class

Tekan F5 untuk meampilkan program.

Penjelasan :
Program diatas menggunakan perkondisian ElseIf jika menuliskan rentan angka antara 0-100 , maka akan disesuaikan dengan perkondisian. Misalnya, untuk rentang nilai 90-100 maka tergolong nilai A, sehingga perkondisiannya menjadi Ig menginputkan nilai diatas sama dengan 90 maka hasil textbox menjadi A. untuk perkondisian lainnya menggunakan ElseIf.

Tugas 3 (aplikasi translator)
Membuat project baru dengan aplikasi windows.
Menambahkan kontrol-kontrol: label, textbox dan button.
Melengkapi kode program berikut
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Selamat Pagi")
ListBox1.Items.Add("Selamat Siang")
ListBox1.Items.Add("Selamat Malam")
ListBox1.Items.Add("Selamat Ulang Tahun")
ListBox1.Items.Add("Makan")
ListBox1.Items.Add("Minum")
ListBox1.Items.Add("Belajar")
ListBox1.Items.Add("Aku")
ListBox1.Items.Add("Kamu")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'kamus ind-ing
If RadioButton1.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "Good Morning"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "Good Afternoon"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "Good Night"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Selamat Ulang Tahun " Then
TextBox1.Text = "Happy Birthday"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "Eat"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "Drink"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "Study"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "I"
ElseIf RadioButton1.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "You"
End If
'kamus ind-jepang
If RadioButton2.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "おはよう"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "良い場所"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "こんばんは"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Selamat Ulang Tahun" Then
TextBox1.Text = "お誕生日おめでとうございます"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "食べる"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "飲む"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "私"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "私"
ElseIf RadioButton2.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "あなた"
End If
'kamus ind-jerman
If RadioButton5.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "guten Morgen"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "guten Tag"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "guten Abend"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Selamat Ulang Tahun" Then
TextBox1.Text = "Alles Gute zum Geburtstag"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "essen"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "trinken"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "Study"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "ich"
ElseIf RadioButton5.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "Du"
End If
'kamus ind-korea
If RadioButton4.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "joh-eun achim"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "annyeonghaseyo"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "annyeonghaseyo"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Selamat Ulang Tahun" Then
TextBox1.Text = "saeng-il chukahanmida"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "meogda"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "eumju"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "naeyong"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "naneun"
ElseIf RadioButton4.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "neo"
End If
'kamus ind-perancis
If RadioButton6.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "Bonjour"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "Bonjour"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "Bonsoir"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Selamat Ulang Tahun" Then
TextBox1.Text = "T Joyeux Anniversaire..."
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "manger"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "boire"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "apprende"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "Je"
ElseIf RadioButton6.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "vous"
End If
'kamus ind-cina
If RadioButton3.Checked = True And ListBox1.Text = "Selamat Pagi" Then
TextBox1.Text = "Zǎo ān"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Selamat Siang" Then
TextBox1.Text = "Xiàwǔ hǎo"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Selamat Malam" Then
TextBox1.Text = "Wǎnshàng hǎo"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Selamat Ulang Tahun" Then
TextBox1.Text = "Zhù nǐ shēngrì kuàilè"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Makan" Then
TextBox1.Text = "Chī"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Minum" Then
TextBox1.Text = "Hē"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Belajar" Then
TextBox1.Text = "Xuéxí"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Aku" Then
TextBox1.Text = "Wǒ"
ElseIf RadioButton3.Checked = True And ListBox1.Text = "Kamu" Then
TextBox1.Text = "Nín"
End If
End Sub
End Class

Tekan F5 untuk meampilkan program.


Penjelasan :
Program diatas menggunakan perkondisian ElseIf untuk setiap arti kata dari kata yang ditetapkan pada listbox ke dalam beberapa bahasa. Diletakkan pada event click button, kemudian untuk menampilkan kata yang akan diterjemahkan pada listbox diletakkan pada event load form1, kemudian jika mengklik salah satu kata yang ada pada listbox kemudian mengklik button terjemahkan, maka hasil terjemahan akan tampak pada textbox1.

Tugas 4 ( aplikasi jam keberangkatan bus)
Membuat project baru dengan aplikasi windows
Menambahkan control-control: label, button, textboxt, tablelayoutpanel
Melengkapi kode program berikut:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
Label3.Text = "10.00"
Label4.Text = "17.00"
Label5.Text = "11.00"
Label6.Text = "18.00"
ElseIf RadioButton2.Checked = True Then
Label3.Text = "09.00"
Label4.Text = "17.00"
Label5.Text = "10.30"
Label6.Text = "19.30"
ElseIf RadioButton3.Checked = True Then
Label3.Text = "09.30"
Label4.Text = "17.30"
Label5.Text = "12.15"
Label6.Text = "19.15"
End If

End Sub
End Class
Tekan F5 untuk menampilkan program.

Penjelasan:
Pada program diatas menggunakan perkondisian ElseIf, jika mengklik radiobutton1 maka akan tampil jam keberangkatan pada label3,4,5,6 yang berada pada tabellayoutpanel. Begitu juga sebaliknya jika mengklik radiobutton 2 dan 3, dengan format penulisan, Label3.Text = "09.30" maka jika mengklik button Lihat akan tampil jadwal keberangkatan bus sesuai dengan radiobutton yang dipilih.

KESIMPULAN















DAFTAR RUJUKAN
Modul 4.1 Praktikum Pemrograman Visual. Prodi S1 Pendidikan Teknik Informatika . Universitas Negeri Malang 2015
Modul 4.2 Praktikum Pemrograman Visual. Prodi S1 Pendidikan Teknik Informatika . Universitas Negeri Malang 2015
https://3liffil3.files.wordpress.com/2010/03/modulvbnet-condition.pdf
https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&uact=8&ved=0CCUQFjAC&url=http%3A%2F%2Fwww.academia.edu%2F4903917%2FDasar_Pemrograman_VB_Net&ei=dor5VL6SK82QuAS4oIGYCg&usg=AFQjCNGW9YH-u-280x8APPzH12j4K5pEEQ&bvm=bv.87611401,d.c2E
http://repository.amikom.ac.id/files/Publikasi_10.02.7792.pdf
http://repository.amikom.ac.id/files/Publikasi_10.02.7792.pdf
http://ilmukomputer.org/wp-content/uploads/2012/12/Budi-Aplikasi-Penggunaan-If-Then-Else-dan-Select-Case-Pada-Visual-Basic-2010.pdf