Untuk memaksimalkan kinerja program menggunakan VB2010, kita bias menggunakan
fungsi logika if untuk mengatasi berbagai permasalahan kondisional. Secara umum,
ada 3 tipe fungsi if yaitu: if..then, if.. then.. else, dan if.. then.. elseif.
If..then
Ini merupakan fungsi if yang sangat simpel.
Secara umum, format penulisan kode untuk fungsi if..then yaitu:
If conditionThen
VB expression
End If
Contoh:
Pada program ini, kamu harus memasukkan
1 button, 1 textbox dan 1 label ke dalam form.
PrivateSub
Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles
Button1.Click
DimmyNumberAsInteger
myNumber =
TextBox1.Text
IfmyNumber>
100 Then
Label1.Text = " Anda memenangkan undian"
EndIf
EndSub
*Masukkan nilai kedalam textbox >
100, maka kalimat “Andamemenangkanundian” akan muncul.
Fungsi
if..then.. else
Menggunakan fungsi if..then tidak terlalu
sering digunakan dan tidak memenuhi beberapa pilihan dari pengguna. Kita bias menggunakan
fungsi if.. then.. else untuk melakukan beberapa pilihan dalam kode program.
Secara umum, format penulisan kode untuk fungsi if..then.. else yaitu:
If condition Then
VB expression
Else
VB expression
End If
Contoh1:
Pada program ini, kamu harus memasukkan
1 button, 1 textbox dan 1 label kedalam form.
PrivateSub
Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles
Button1.Click
DimmyNumberAsInteger
myNumber =
TextBox1.Text
IfmyNumber>
100 Then
Label1.Text = " Selamat! Andamemenangkanundian"
Else
Label1.Text = " Maaf! Andatidakmemenangkanundian"
EndIf
EndSub
*Masukkan nilai kedalam textbox >
100, maka kalimat “Selamat!, Anda memenangkan undian” akan muncul dan masukkan nilai<
100, maka kalimat “Maaf! Anda tidak memenangkan undian”.
Contoh2:
Pada program ini, kamu harus memasukkan 1
button, 2 textbox dan 1 label kedalam form.
PrivateSub
Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles
Button1.Click
DimmyNumber,
MyAgeAsInteger
myNumber =
TextBox1.Text
MyAge = TextBox2.Text
IfmyNumber>
100 AndMyAge> 60 Then
Label1.Text = " Selamat!
Andamemenangkanundian"
Else
Label1.Text = " Maaf! Andatidakmemenangkanundian"
EndIf
EndSub
*Masukkan nilai kedalam textbox1 >
100 dan textxbox2 > 60, maka kalimat “Selamat!, Anda memenangkan undian”
akan muncul dan masukkan nilai kedalam textbox1< 100 dan textbox2 < 60,
maka kalimat “Maaf! Anda tidak memenagkan undian”.
Fungsi
if..then.. elseif
Untuk melakukan banyak pilihan, kita bias
menggunakan fungsi if..then.. elseif. Secara umum, format penulisan kode untuk fungsi
if..then.. elseif yaitu:
If conditionThen
VB expression
ElseIfcondition Then
VB expression
ElseIfcondition Then
VB expression
...
...
Else
VB expression
End If
Contoh:
Pada program ini, kamu harus memasukkan
1 button, 1 textbox dan 1 label kedalam form:
PrivateSub
Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles
Button1.Click
Dim
Mark AsInteger
Mark = TextBox1.Text
If
Mark >= 80 Then
Label1.Text = "A"
ElseIf
Mark >= 60 And Mark < 80 Then
Label1.Text = "B"
ElseIf
Mark >= 40 And Mark < 60 Then
Label1.Text = "C"
Else
Label1.Text = "D"
EndIf
EndSub
*Masukkan
nilai> 80, maka akan muncul “A”, nilai>=60 dan nilai< 80, maka akan muncul
“B”, nilai>=40 dan nilai< 60, maka akan muncul “C”, selain itu akanmuncul
“D”.
Untuk mendapatkan file pdf nya klik klik
Tidak ada komentar:
Posting Komentar