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 :
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 :
ADVERTISEMENT
Rekomendasi Web Hosting
Hosting murah minimal order 1 bulan cuma 20rb. Gunakan voucher diskon 30%, kode voucher: MCP, total bayar hanya 14rb!!!
Daftar sekarang