Pertemuan 7: 23 Maret 2015 Menampilkan Bilangan Ganjil, Genap, Prima dan Fibonacci pada VB .NET

Menampilkan bilangan ganjil, genap, prima dan fibonacci
Langsung saja, pertama kita buka aplikasi VB 2010. Kemudian Klik New Project pada menu File (kiri atas). Pilih Windows Form Application.

Kemudian buat form berikut.

Di kotak (ComboBox) bawah kata Bilangan, edit dengan cara klik panah kecil.

Kemudian pilih Edit Items (paling bawah) dan isikan dengan kata pilihan berikut.

Setelah itu, masukan source code seperti berikut.

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

Dan hasilnya adalah:

Bilangan Ganjil

Bilangan Genap

Bilangan Prima

Bilangan Fibonacci

Catatan: sebenarnya form di atas dapat diubah desainnya sesuai dengan keinginan sendiri.

Sekian dan terima kasih.