Jumat, 19 November 2010

Source Code Mencari Bilangan Genap/Ganjil dengan VB6

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.. :)

Artikel yang berkaitan



17 komentar:

  1. aku kurang ngerti masalah ginian hehehehe..salam enal sob

    BalasHapus
  2. Mantap gan infonya.... sang programming dah. pernah belajar VB sih tpi g banyak. bisa sharing dah.
    salam blogwalking.

    BalasHapus
  3. Mulai belajar ilmu baru nih...

    Coba ganti dengan yang No.3 Recent Comment with Scroll. lancar kaya saya.

    BalasHapus
  4. follow balik no 10 sob. maaf telat ^_^

    BalasHapus
  5. dari pada VB kayaknya lebih gampang Delphi bro...
    lebih gampang lagi pake kalkulator....:P

    BalasHapus
  6. link PEMOGRAMANVB juga sudah termasang di blogroll saya mas. mohon dicek, makasih ^_^

    BalasHapus
  7. sama2 sob. ndak pakai cbox sob?

    BalasHapus
  8. @kangtiar & Blogklik.com: mungkin dapat di pelajari lagi sob..dan sering berkunjung kesini.hehe...

    @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..

    BalasHapus
  9. wah coba dari kemarin nemu cara ini... gak kebingungan deh waktu ditanya Mahasiswa UT... makasih ya om...

    BalasHapus
  10. salam sahabat
    wah jadi tahu ich saya bilangan tersebut juga praktis yach.makasih dah saya follow

    BalasHapus
  11. hehe. ternyata bisa jadi sesederhana itu ya. ternyata tinggal pakai operasi modulus.

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

    BalasHapus
  12. @kakjaya: yupz,sama sob..

    @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..

    BalasHapus
  13. pa' tlng beritau listing untuk mencetak bilangan positif range 1-n ( n input sndiri) dengan penggabungan for dan if

    BalasHapus
  14. mantap bilangan genap pada vb6.sekalian yang delphi.maunya :P

    BalasHapus

Silahkan tulis komentar jika ada yang ingin ditanyakan dari artikel ini, komentar kalian sangat berarti bagi saya.

Format untuk komentar:
1) Pilih profil sebagai Name/URL
2) Isikan nama anda
3) Isikan URL (Blog/Website/Facebook/Twitter/Email/Kosongkan)
4) Isikan Komentar
5) Postkan Komentar anda.

Maaf untuk komentar ANONIM tidak akan saya RESPON.