Identifikasi 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?

Link : http://tunasmedia.com/

Disclaimer: Gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami disini.
Related Posts
Disqus Comments