APLIKASI MENCARI BILANGAN GENAP GANJIL PRIMA DAN FIBONACI
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi mencari bilangan genap ganjil prima dan fibonaci di vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih "Button" , "ListBox" , "GroupBox" , " Label" , "ComboBox" seperti gambar di bawah ini
6. maka hasilnya akan muncul form seperti gambar di bawah ini
CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "
No
|
Tools
|
Properties
|
Nilai
|
1
|
ListBoxt
|
Name
|
lstbilangan
|
2
|
ComboBox
|
Text
Name
|
Pilih Bilangan
cboBilangan
|
3
|
Button1
|
Text
Name
|
Masukan Bilangan
btnmasukanbilangan
|
4
|
Button2
|
Text
Name
|
EXIT
btnExit
|
7. Kemudian copy script di bawah ini .
9. Maka hasilnya akan seperti gambar di bawah ini
Public Class Bilangan
Dim awal, akhir, hasil As String
Private Sub btnmasukanbilangan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasukanbilangan.Click
Dim x, y, z As Integer
Dim i As Integer
If cboBilangan.SelectedItem = "Ganjil" Then
lstBilangan.Items.Clear()
awal = Val(InputBox("masukkan batasan awal", "Batasan"))
akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
For i = awal To akhir
i = i + 0
If (i Mod 2 = 1) Then
lstBilangan.Items.Add(i)
End If
Next
ElseIf cboBilangan.SelectedItem = "Genap" Then
lstBilangan.Items.Clear()
awal = Val(InputBox("masukkan batasan awal", "Batasan"))
akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
For i = awal To akhir
i = i + 0
If (i Mod 2 = 0) Then
lstBilangan.Items.Add(i)
End If
Next
ElseIf cboBilangan.SelectedItem = "Prima" Then
lstBilangan.Items.Clear()
awal = Val(InputBox("masukkan batasan awal", "Batasan"))
akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
If awal >= 2 Then
For x = awal To akhir
z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
z = z + 1
End If
Next
If z <= 1 Then
lstBilangan.Items.Add(x)
End If
Next
Else
MsgBox("Bilangan Prima dimulai dari 2")
End If
ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
lstBilangan.Items.Clear()
akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
y = 0
z = 1
lstBilangan.Items.Add(y)
lstBilangan.Items.Add(z)
For i = 0 To akhir
x = y + z
y = z
z = x
If x > akhir Then Exit For
lstBilangan.Items.Add(x)
Next
End If
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
9. Maka hasilnya akan seperti gambar di bawah ini
 |
| PRIMA |
 |
| GANJIL |
 |
| FIBONACI |
 |
| GENAP |
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon