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