Genap-Ganjil poenya VB

Teoritis, kita udah bisa membedakan dong antara bilangan genap ama bilangan ganjil, iyupz, logikanya…cieh pake logika, singkatnya yang jelas bilangan ganjil itu nggak genap dan bilangan genap itu nggak ganjil,,hehehe….

Bilangan genap itu kalo dibagi 2 sisa hasil baginya bakalan 0, gini 4/2 = 2 yaitu 2 x 2 = 4, nah hasil baginya nggak ada sisa dong alias nge-pas.

Kalo bilangan ganjil hasil baginya nggak balakan 0 gini, 5/2=2,…. Yaitu 2 x 2 = 4 nah masih sisa 1 kan, itu yang membuat jurang perbedaan antara bilangan genap ama bilangan ganjil.

Ya begitulah…..

Sekedar pengantar ajah, sekarang ane mau ngasih ente-ente sekalian sintak VB nya, nih:

Private Sub Cmdproses_Click()

If Txtangka.text Mod 2 = 0 Then

Txthasil.text = "genap"

Else

Txthasil.text = "ganjil"

End If

End Sub

Jadi niy ye, kalau kita masukin angka 5 akan langsung di proses, kalau hasilnya seperti yang ane curhatin di atas kalau hasil baginya 0 namanya bilangan genap, kalau hasil baginya bukan 0 alias masih sisa maka bilangan itu bilangan ganjil. Gimana sodara-sodara, sudah mendapat pencerahankah, hehe…
sekedar berbagi aja nih…..

Semoga bermanfaat…..