Contoh Source Code Menentukan Hasil Kelipatan Dalam Console VB .Net

Assalamualaikum teman-teman semua. 

Kali ini saya akan berbagi sedikit code program VB .Net untuk jenis aplikasi console.

Seperti sebelumnya, semua materi program yang ada di blog ini semuanya adalah arsip dokumen saya kuliah.

Jadi daripada didiamkan di laptop, mending saya bagi saja disini. Mana tau bermanfaat.

Ok langsung saja, berikut adalah source code untuk menentukan jenis hasil angka kelipatan berapa dalam console VB .Net.

Soal Program:

1.  Buatlah algoritma yang membaca sebuah bilangan bulat positif lalu menetukan apakah bilangan tersebut merupakan kilapatan 4.!

 Module Module1

    Sub Main()

        Dimbil_bulat, ex As Integer

        bil_bulat = Console.ReadLine()

        ex = bil_bulat Mod4

        

        If ex = 0 Then

            Console.WriteLine("Kelipatan Empat")

        Else

            Console.WriteLine("Bukan Kelipatan Empat")

        End If

        Console.ReadKey()

    End Sub

End Module

Sekarang saya akan jelaskan kode sebagian besar barisnya.

 1. Dim bil_bulat, ex As Integer

    

Bagian baris ini adalah untuk deklarasi Variabel dan Tipe Data nya. Variabel bil_bulat dan variabel Ex adalah Integer karena nanti kita akan membatasi pengguna untuk memasukkan angka saja. 

Jadi ketika pengguna memasukkan selain angka bilangan bulat, program akan terhenti.

2.  bil_bulat = Console.ReadLine()

Bagian baris ini adalah untuk memerintahkan pengguna untuk memasukkan sebuah angka bilangan bulat Integer dan program akan memasukkan nilai ke variabel bil_bulat dan menyimpan ke memori.

 3. ex = bil_bulat Mod 4

Nah pada variabel Ex, kita masukkan rumus bahwa setiap angka yang dimasukkan pengguna ke dalam variabel bil_bulat akan di MOD dengan angka 4. MOD adalah SISA HASIL BAGI.

Artinya jika pengguna memasukkan angka 8, maka MOD-nya adalah 0. Karena sisa dari pembagian 8:4 adalah 0. Masih belum paham? 8:4 = 2. Jadi ada sisa gak? ya gak ada atau 0. 

Kalau 9 MOD 4? 9:4 = 2 dengan sisa 1. Jadi hasil 9 MOD 4 adalah 1.

4.          If ex = 0 Then

            Console.WriteLine("Kelipatan Empat")

        Else

            Console.WriteLine("Bukan Kelipatan Empat")

        End If

Pada kode baris ini, terdapat logika percabangan If Else.

Jika hasil MOD (sisa hasil bagi) angka yang dimasukkan pengguna adalah 0, maka program akan menampilkan pesan "Kelipatan Empat" dan sebaliknya jika selain 0, maka program akan menampilkan "Bukan Kelipatan Empat". 

Jika disoal yang perintahkan adalah kelipatan 2, kalian tinggal ganti rumus variabel Ex diatas dengan ex = bil_bulat Mod 2. 

Atau dengan angka apapun, dengan hasil yang coba akan berhasil.

5. Console.ReadKey()

Code ini  adalah untuk agar tampilan program tidak akan keluar saat menampilkan hasil.