BilanganGenap / GanjilPada VB
2:07:00 PM
KertasputiH
, Posted in
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.. :)
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