CONTOH MUDAH PENGGUNAAN FUNGSI IF,ELSE PADA VB. NET

pert 7

1.  Dim nilai As Double = TextBox1.Text
2.          Dim NilaiHuruf As String
3.          If TextBox1.Text = "" Then
4.              Exit Sub
5.          Else
6.              If nilai >= 0 And nilai < 50 Then
7.                  NilaiHuruf = "E"
8.              ElseIf nilai >= 50 And nilai < 60 Then
9.                  NilaiHuruf = "D"
10.      ElseIf nilai >= 60 And nilai < 70 Then
11.                NilaiHuruf = "C"
12.      ElseIf nilai >= 70 And nilai < 80 Then
13.                NilaiHuruf = "B"
14.      ElseIf nilai >= 80 And nilai < 90 Then
15.                NilaiHuruf = "A"
16.      Else
17.                NilaiHuruf = "A+"
18.      End If
19.   End If

20.            MessageBox.Show("Nilai Huruf " & NilaiHuruf, "",      MessageBoxButtons.OK, MessageBoxIcon.Information)
21.         End Sub

Perulangan, PERT.5

PERT.5

Perulangan

Struktur For - Next 

Struktur For-Next digunakan untuk mengulang blok perintah dalam jumlah yang sudah ditentukan. Pada struktur ini Anda tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung ini akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan.

Bentuk penulisan dari struktur For-Next sebagai berikut : 

PERT. 6

PERT. 6