Coding Menentukan Bilangan Ganjil Genap dengan VB 6.0

Artikel Terkait Tutorial VB6
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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Rekomendasi Web Hosting
Hosting murah minimal order 1 bulan cuma 20rb. Gunakan voucher diskon 30%, kode voucher: MCP, total bayar hanya 14rb!!! Daftar sekarang