Program Deret Angka

Program deret Angka ini terdiri dari perhitungan bilangan Ganjil , Genap , Prima , dan juga Fibonnaci. Program ini akan mencari dari angka 1 sampai seterusnya antara Genap , Ganjil , Prima ataupun Fibonacci.
Untuk lebih jelasnya anda dapat mencoba menggunakan program ini sendiri ataupun memodifikasinya.

Download Link : http://www.easy-share.com/1913049336/DeretanMaut.rar
Download Link : http://www.ziddu.com/download/12643253/DeretanMaut.rar.html

Coding di Form :

Public Class Form1

    Function validateinput() As Boolean

        Dim flag As Boolean

        If txtInputAngka.Text.Trim.Length < 1 Then

            MessageBox.Show("Tuliskan jumlah angka terlebih dahulu")

            flag = False

        Else

            flag = True

        End If

        Return flag

    End Function

    Private Sub btnGenap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenap.Click

        If validateinput() = False Then

            Exit Sub

        End If

        If txtInputAngka.Text <= 50 Then

            Dim counter, nilai As Integer

            Dim angka As Integer

            angka = txtInputAngka.Text

            lsbHasil.Items.Clear()

            Do While counter < angka

                nilai += 1

                If nilai Mod 2 = 0 Then

                    counter += 1

                    lsbHasil.Items.Add("Angka ke" & counter & ": " & nilai)

                End If

            Loop

        Else

            MessageBox.Show("Angka tidak boleh melebihi 50", "")

        End If

    End Sub

    Private Sub btnGanjil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGanjil.Click

        If validateinput() = False Then

            Exit Sub

        End If

        If txtInputAngka.Text <= 50 Then

            Dim counter, nilai As Integer

            Dim angka As Integer

            angka = txtInputAngka.Text

            lsbHasil.Items.Clear()

            Do While counter < angka

                nilai += 1

                If nilai Mod 2 = 1 Then

                    counter += 1

                    lsbHasil.Items.Add("Angka ke" & counter & ": " & nilai)

                End If

            Loop

        Else

            MessageBox.Show("Angka tidak boleh melebihi 50", "")

        End If

    End Sub

    Private Sub txtInputAngka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtInputAngka.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then

            e.Handled = True

        End If

    End Sub

    Private Sub btnPrima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrima.Click

        If validateinput() = False Then

            Exit Sub

        End If

        If txtInputAngka.Text <= 50 Then

            Dim counter, nilai As Integer

            Dim angka As Integer

            angka = txtInputAngka.Text

            lsbHasil.Items.Clear()

            Do While counter < angka

                nilai += 1

                If (nilai <> 1) Then

                    If (nilai = 2 Or nilai = 3 Or nilai = 5 Or nilai = 7) Or (nilai Mod 2 <> 0 And nilai Mod 3 <> 0 And nilai Mod 5 <> 0 And nilai Mod 7 <> 0) Then

         

                        counter += 1

                        lsbHasil.Items.Add("Angka ke" & counter & ": " & nilai)

                    End If

                End If

            Loop

        Else

            MessageBox.Show("Angka tidak boleh melebihi 50", "")

        End If

    End Sub

    Private Sub btnFibonacci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFibonacci.Click

        If validateinput() = False Then

            Exit Sub

        End If

        Dim counter, nilai As Long

        Dim angka As Double

        Dim a, b As Double

        angka = txtInputAngka.Text

        lsbHasil.Items.Clear()

        a = 1

        Do While counter < angka

            counter += 1

            nilai = a + b

            lsbHasil.Items.Add("Angka ke" & counter & ":" & nilai)

            a = b

            b = nilai

        Loop

    End Sub

End Class