Cara menentukan bilangan ganjil dan bilangan genap pada VB.NET 2010

Salam Blogger, kali ini saya akan membahas tentang VB.Net yaitu mencari bilangan ganjil genap dengan menggunakan fungsi Modulus/ Sisa bagi.

Berikut langkah langkah nya :

1. Buat design from seperti berikut 

 

Dengan toolbox :

• label1 = Menentukan Bilangan Ganjil Genap
• label2 = Masukkan angka
• label3 = Hasil
• Textbox1
• Button1 = Proses
• Button2 = Close

2. Klik 2x pada button Proses dan ketikkan Syntax seperti berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text Mod 2 = 0 Then
            Label3.Text = "Bilangan Genap"
        Else
            Label3.Text = "Bilangan Ganjil"
        End If
    End Sub

3. Untuk syntax pada button Close ketikkan seperti berikut :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

4. Tekan F5 untuk menjalankan , lalu lihat hasilnya 

Ganjil

• Masukkan angka 1 pada textbox1
• Klik button Proses
• Maka hasilnya akan muncul sebagai bilangan ganjil 

Genap

• Masukkan angka 2 pada textbox1
• Klik button Proses
• Maka hasilnya akan muncul sebagai bilangan genap

 

SELESAI.