Menentukan Bilangan Ganjil Genap Dengan VB 6.0

Cara Menentukan Bilangan Ganjil Genap Dengan VB 6.0
Pada Latihan VB 6.0 kali ini akan dibahas tentang Cara Menentukan Bilangan Ganjil Genap Dengan VB 6.0

Berikut Langkahnya :
Buka Aplikasi VB 6.0 anda
Buatlah sebuah Form Dengan Design seperti gambar dibawah ini :
Cara Menentukan Bilangan Ganjil Genap Dengan VB 6.0

Gambar diatas terdapat :
Label1
Label2
Text1
Command1
Command2

Kemudian masukan koding dibawah ini :

Private Sub command1_Click()
    If Text1 = "" Then
        MsgBox "Bilangan masih kosong"
        Else
           If Text1.Text Mod 2 = 0 Then
           Label2.Caption = Text1.Text + " Bilangan Genap"
           Else
           Label2.Caption = Text1.Text + " Bilangan Ganjil"
           End If
        End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label2.Caption = ""
Text1.Text = ""
End Sub

Kemudian jalankan Program diatas
Hasilnya bisa di Download dengan KLIK LINK INI


Salam
BelajarVB.com

Subscribe to receive free email updates:

0 Response to "Menentukan Bilangan Ganjil Genap Dengan VB 6.0"

Post a Comment