Looping with ( If) Dengan Menggunakan VB.Net

1. Buatlah sebuah aplikasi baru (File | New Project | Standard EXE)

2. Masukan 2 TextBox, 2 Label, 1 ListBox dan 2 CommandButton

3. Gantilah properties masing-masing komponen seperti tertera dibawah ini :




Private Sub cmd_keluar_Click()

Unload Me

End Sub


Private Sub cmd_looping_Click()

Dim count As Integer
Dim i As Integer

count = Val(txt_banyak.Text)


If count <= 0 Then

MsgBox "Nilai harus besar dari pada 0", vbInformation, "error"

Else

lst_looping.Clear

If cmb_looping.Text = "For -- Next" Then

For i = 0 To count - 1
lst_looping.AddItem txt_text.Text & " data ke- " & i + 1 & " For -- Next ", i
Next i

End If


If cmb_looping.Text = "While -- wend" Then

While i <= count - 1
lst_looping.AddItem txt_text.Text & " data ke- " & i + 1 & " while -- wend ", i
i = i + 1
Wend

End If


If cmb_looping.Text = "Do Looping Until" Then

Do
lst_looping.AddItem txt_text.Text & " data ke- " & i + 1 & " Do -- Loop Until ", i
i = i + 1
Loop Until i > count - 1

End If

End If

End Sub


Private Sub Form_Load()

cmb_looping.AddItem "For -- Next"
cmb_looping.AddItem "While -- wend"
cmb_looping.AddItem "Do Looping Until"
End Sub

0 Response to "Looping with ( If) Dengan Menggunakan VB.Net"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel