Fungsi Looping For Next

Fungsi Looping/Perulangan For Next adalah fungsi untuk mengeksekusi kode sampai batas perulangannya,berbeda dengan timer fungsi ini tidak mempunyai interval jadi peng-eksekusi-an kode nya begitu cepat hampir sesuai dengan kecepatan processor. Fungsi Looping/perulangan ini kerap di jumpai pada program yang di buat dalam visual basic.
Algoritmanya seperti ini :

For <Variabel = BatasMinimum> to <BatasMaksimum> Step <BerapaLangkah> 
<Kode yang ingin di eksekusi> 
Next <Variabel>  

Atau seperti ini :

For Usia = Muda to Tua Step 1 
UmurKu = Usia
Next Usia

• Percobaan 

Buatlah :
1. 1 Buah ListBox

• Name = List1

2. 1 Buah CommanButton

• Name = Command1
• Caption = "Generate"

Sehinggan menjadi seperti ini : <Klik untuk memperbesar>

Tulis Kode ini di bagian Command1_Click()

 Dim i As Integer 
List1.Clear
List1.AddItem "Naik 1 angka, 0 sampai 10" 
For i = 0 To 10 Step 1 
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 1 angka, 10 sampai 0" 
For i = 10 To 0 Step -1
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Naik 2 angka, 0 sampai 10" 
For i = 0 To 10 Step 2
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 2 angka, 10 sampai 0" 
For i = 10 To 0 Step -2
         List1.AddItem "Angka " & i 
Next i

 Download Projectnya disini 

Fungsi IIF

Fungsi IIF adalah fungsi untuk menyatakan suatu keputusan hampir mirip dengan fungsi IF THEN ELSE namun berbeda,boleh di bilang serupa namun tak sama :D
Algoritmanya seperti ini :
Ekspresi = IIF(<Ekspressi>,<Pernyataan Benar>,<Pernyataan Salah>)
atau seperti ini :
Aku = IIF(Aku = Lelah , Istirahat , Lanjut )

• Percobaan

Buatlah :
1. 1 Buah Label

• Name = Label1

2. 1 Buah Timer

• Name = Timer1
• Interval = 1000

Sehingga menjadi seperti ini : <Klik untuk memperbesar>

Lalu tulis kode ini di bagian Timer1_Timer()

Static nilai As Integer

nilai = nilai + 1

Me.BackColor = IIf(nilai Mod 2 = 0, vbRed, vbBlue)

Label1.Caption = IIf(Me.BackColor = vbBlue, "Warna Biru", "Warna Merah")

nilai = IIf(nilai > 3, 0, nilai)

Download Projectnya disini

Fungsi Select Case

Select Case merupakan fungsi pengambilan keputusan hampir sama dengan If  Then Else.
Contoh :
Select case Variabel
Case <Kondisi 1>
<Keputusan 1>
Case <Kondisi 2>,<Kodisi 3>,<Kondisi 4>
<Keputusan 2>
End Select

• Percobaan

Buatlah 1 buah Timer dengan interval = 1000 dan 1 buah Label dengan nama Label1.

Sehingga menjadi seperti ini : <Klik untuk memperbesar>

Dan tulis kode berikut pada timer :

Static nilai As Integer

nilai = nilai + 1

Select Case nilai

    Case Is < 10

        Label1.Caption = "Angka " & nilai & " Kurang Dari 10"

    Case 10

        Label1.Caption = "Angka " & nilai & " berjumlah 10"

    Case 11, 12, 13, 14, 15

        If nilai Mod 2 = 0 Then

            Label1.Caption = "Angka " & nilai & " Adalah Genap"

        Else

            Label1.Caption = "Angka " & nilai & " Adalah Ganjil"

        End If

    Case Is > 15

        Label1.Caption = "Angka " & nilai & " Lebih Dari 15"

    Case 20

        nilai = 0

End Select

Lalu jalankan aplikasi denga  menekan tombol F5.

Download Projectnya Disini

Fungsi IF..THEN...ELSEIF...ELSE

Fungsi IF..THEN...ELSEIF...ELSE merupakan suatu fungsi untuk pengambilan suatu keputusan,
contoh :
If <Kondisi 1> Then 
<Keputusan 1>
ElseIf  <Kondisi 2> Then 
<Keputusan 2>
Else <Kondisi 3> Then
<Keputusan 3>
End If

• Percobaan

Buatlah 1 CommandButton dengan nama Command1 Dan 2 buah Texbox dengan nama masing-masing Text1 dan Text2.

sehingga menjadi seperti ini

tulis kode berikut ini pada command1_Click
If IsNumeric(Text1.Text) = False Then
    Text2.Text = "Bukan Bilangan"
ElseIf Val(Text1.Text) Mod 2 = 0 Then
    Text2.Text = "Bilangan Genap"
Else
    Text2.Text = "Bilangan Ganjil"
End If

Jalankan Aplikasi nya dengan menekan tombol F5 dan coba masukan nilai apa saja pada text1 lalu coba klik tombol cek.

Download project nya disini