Mencari Bilangan Genap dan Ganjil dengan Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom




Buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “PROSES” , "ULANG" atau “KELUAR” bisa ditambahkan sesuai selera dengan format seperti diatas.
Untuk syntax cmdproses kita harus mendefinisikan apa arti bilangan genap dan ganjil.
Bilangan genap : adalah bilangan yang habis dibagi 2
Bilangan ganjil : adalah bilangan yang tidak habis dibagi 2.
Bahasa pemrogramannya adalah :

If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"

Yang berarti jika angka yang dimasukkan ke dalam textbox 1 mempunyai sisa hasil bagi (Mod) = 0 maka bilangan tersebut adalah genap jika tidak maka berarti bilangan itu ganjil.
-------------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Private Sub CMDKELUAR_Click()
End
End Sub
----------------------------------------------------
Private Sub CMDPROSES_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "GENAP"
Else
Label1.Caption = "GANJIL"
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub
----------------------------------------------------
Private Sub CMDULANG_Click()
Text1.Text = ""
Label1.Caption = ""
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
Text1.SetFocus
End Sub
-----------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDPROSES.SetFocus
End If
End Sub
-----------------------------------------------------