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 vb6
Private Sub command1_Click()
If text1.Text Mod 2 = 0 Then
label1.Caption = text1.Text + ” Bilangan Genap”
Else
label1.Caption = text1.Text + ” Bilangan Ganjil”
End If
End Sub
Untuk perancangan formnya anda dapat sesuaikan dengan source code diatas sesuai dengan kebutuhan yang ada pada form. Semoga Bermanfaat.. :)
aku kurang ngerti masalah ginian hehehehe..salam enal sob
BalasHapusMantap gan infonya.... sang programming dah. pernah belajar VB sih tpi g banyak. bisa sharing dah.
BalasHapussalam blogwalking.
Mulai belajar ilmu baru nih...
BalasHapusCoba ganti dengan yang No.3 Recent Comment with Scroll. lancar kaya saya.
Manthap gan,..tapi saya bingung
BalasHapussukses selalu gan... masih rada binggung sama VB...
BalasHapusfollow balik no 10 sob. maaf telat ^_^
BalasHapusdari pada VB kayaknya lebih gampang Delphi bro...
BalasHapuslebih gampang lagi pake kalkulator....:P
yuk. duluan yah ^_^
BalasHapuslink PEMOGRAMANVB juga sudah termasang di blogroll saya mas. mohon dicek, makasih ^_^
BalasHapussama2 sob. ndak pakai cbox sob?
BalasHapus@kangtiar & Blogklik.com: mungkin dapat di pelajari lagi sob..dan sering berkunjung kesini.hehe...
BalasHapus@bali-dogen: yupz sebenarnya tergantung gimana program yg mudah kita pahami,tetap pada dasarnya sama aja sob..
@halimah : belum sob,masi belum sempat coz lagi sibuk2 na..
thanks atas kunjungan na sob..
wah coba dari kemarin nemu cara ini... gak kebingungan deh waktu ditanya Mahasiswa UT... makasih ya om...
BalasHapussalam sahabat
BalasHapuswah jadi tahu ich saya bilangan tersebut juga praktis yach.makasih dah saya follow
hehe. ternyata bisa jadi sesederhana itu ya. ternyata tinggal pakai operasi modulus.
BalasHapusyaya makasi.
oya, saya lagi nyobain bikin aplikasi untuk kontrol lAMPU rumah (on/off dari pc) tapi yang dipake untuk interfaenya vb6. bisa minta tlong gmana caranya?
@kakjaya: yupz,sama sob..
BalasHapus@dhana: sama2 mbak...
@anak elektro :untuk membuat interface yang terhubung dengan hardware lebih kompleks,kita harus setting port konektor ke kompter dan menyesuaikan pada interface VB yang akan kita gunakan untuk kontroling perangkat keras,dan membutuhkan persiapan yang banyak.
@easy peak : thanks for comment and information..
pa' tlng beritau listing untuk mencetak bilangan positif range 1-n ( n input sndiri) dengan penggabungan for dan if
BalasHapusmantap bilangan genap pada vb6.sekalian yang delphi.maunya :P
BalasHapus