Halaman

Rabu, 21 Maret 2012

Fungsi if pada VB2010


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