BilanganGenap / GanjilPada VB


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.

Algoritmabilanganganjil / genap

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

Sedangkan untuk aplikasi ke program visual basic sangat mudah berikut adalah Source code bilangan ganjil/genap dengan vb6

Private Sub command1_Click()
    If Text1 = "" Then
        MsgBox "Bilanganmasihkosong"
        Else
           If Text1.Text Mod 2 = 0 Then
           Label2.Caption = Text1.Text + " BilanganGenap"
           Else
           Label2.Caption = Text1.Text + " BilanganGanjil"
           End If
        End If
End Sub

Untuk perancangan formnya anda dapat sesuaikan dengan source code diatas sesuaidengan kebutuhan yang adapada form. SemogaBermanfaat.. :)

0 Response to "BilanganGenap / GanjilPada VB"

Posting Komentar

powered by Blogger | WordPress by Newwpthemes | Converted by BloggerTheme