Membuat Aplikasi Menentukan Bilangan Genap di VB.Net

Sebelum anda Membuat Aplikasi Menentukan Bilangan Genap di VB.Net anda harus sudah memahami dasar Visual Basic atau Visual Studio. Disini saya menggunakan Visual Studio 2010.

- Silahkan buat design seperti di atas.

- Beri nama textbox1 =  "dari" dan textbox2 = "sampai"

- Beri nama ListBox dengan "ListGenap"

- Taruh script di bawah ini untuk tombol "TAMPILKAN"

Dim awal, akhir As Integer 

If Val(dari.Text) < Val(sampai.Text) Then 

awal = dari.Text 

akhir = sampai.Text 

End If 

ListGenap.Items.Clear() 

While awal < akhir 

If awal Mod 2 = 0 Then 

ListGenap.Items.Add(awal) 

End If  

awal = awal + 1 

End While

- Taruh script berikut di Button Keluar :

me.Close()

Selesai. Berikut tugas dari pelajaran Pemrograman Terstruktur.

Penjelasan script diatas adalah :

Jika dari kurang dari bagi, maka variabel dibuat "dari" dan "sampai".
Kemudian ListGenap akan dikosongkan.
Looping dimulai ketika variabel awal kurang dari akhir. Artinya jika lebih maka akan berhenti.
Jika awal dibagi 2 sisanya 0, maka akan masuk list. Selain itu dilewati.
Perhitungan terus berjalan ditambah 1 sampai mendekati variabel "sampai"

Mudah kan?

VB.Net

Share This :