Nilai & Komen Fungsi IF

SOURCE CODE : Project dan Form

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:

a. Label1, Caption = Nilai
b. Label2, Caption = Komen
c. Textbox1, Name = txt_nilai
d. Textbox2, Name = txt_komen
e. Command Button1, Name = cmd_proses; Caption = Proses
f. Command Button2, Name = cmd_exit; Caption = Exit

3. Deklarasi variabel dengan coding sbb:

Dim nilai As Integer
Dim komen As String

4. Membuat coding cmd_proses

Private Sub cmd_proses_Click()
nilai = txt_nilai.Text
komen = txt_komen.Text
If nilai <= 3 Then
komen = "mati aj loh"
ElseIf nilai > 3 And nilai <= 6 Then
komen = "bodoh skali dikau"
ElseIf nilai > 6 And nilai <= 8 Then
komen = "biasa az" Else
komen = "sedikit pinter"
End If
txt_komen = komen
End Sub

5. Membuat coding

Private Sub cmd_exit_Click()
End
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 20 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma