Menentukan Bilangan Ganjil Dan Genap Dengan VB 6.0



Buatlah Form Seperti Di Bawah Ini:

Memuat foto
Masukkan Listing Dibawah Ini:

Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0 Then
ket = "GENAP"
Else
ket = "GANJIL"
End If
Text2 = ket
End Sub

Private Sub Command2_Click()
End
End Sub



Program ini dibuat oleh Heri Afrizal di bireuen

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Cara Menulis Kode PHP yang Baik dan Benar

Cara Membuat Form PHP menggunakan Adobe Dreamweaver CS5