Menentukan Bilangan Ganjil Genap Pada VB

Jika anda belajar VB, ada kalanya kita ditugaskan untuk mencari bilangan ganjil dan genap. Bilangan ganjil adalah bilangan yang jika dibagi 2 memiliki sisa 1. Sedangkan bilangan genap adalah bilangan yang jika dibagi 2, sisanya adalah nol. Contohnya jika kita punya bilangan 12 di bagi 2 akan menghasilkan 6 tanpa sisa. Sedangkan 13 jika dibagi 2 akan menghasilkan 6 sisa 1.

Algoritma bilangan ganjil / genap

Masukkan sebuah bilangan → i
Lakukan operasi mod pada i
Simpan sisanya dalam variabel n
Jika n = 0 maka i adalah bilangan genap
Jika n = 1 maka i adalah bilangan ganjil
Selesai

Sedangakan untuk aplikasi ke program visual basic sangat mudah berikut adalah Source code bilangan ganjil/genap dengan VB 6.0

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

Untuk perancangan formnya anda dapat sesuaikan dengan source code diatas sesuai dengan kebutuhan yang ada pada form. Mudah bukan?

Salam Pembelajar
Pintar VB | Tutorial Lengkap VB 6.0 dan VB Net

Tweet