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

Program Zodiak & Umur

Program Zodiak & Hitung umur ini saya buat setelah UTS Kuliah , program ini terdiri dari beberapa function and procedure . Semoga dapat dimanfaatkan dan dikembangkan lagi.

Untuk mendownload source code program ini dapat di download di bawah ini .

Download Link : http://www.easy-share.com/1913045301/prog_zodiak_hitungumur.rar

Download Link : http://www.ziddu.com/download/12637602/prog_zodiak_hitungumur.rar.html

Coding di Form :

Public Class lsthasil

    Function getzodiak(ByVal tgllahir As Date) As String

        Dim tanggal, bulan, zodiak As String

        tanggal = tgllahir.Day

        bulan = tgllahir.Month

        Select Case tgllahir.Month

            Case 1

                If tanggal >= 20 Then

                    zodiak = "Aquarius"

                Else

                    zodiak = "Capricorn"

                End If