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 :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).