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

Program Linked List Binary Tree

Ini adalah contoh program linked list yaitu binary tree , program ini akan men sort angka - angka yang dimasukkan sesuai dengan pilihan , yaitu PreOrder , InOrder , dan juga PostOrder . Angka akan di sort dengan sistem Tree. Untuk lebih lanjut dapat di download program ini beserta source code nya :

Download Link : http://www.easy-share.com/1913034556/Program Tree.rar

Download Link : http://www.ziddu.com/download/12637601/ProgramTree.rar.html


Coding di Form :

Public Class Form1

    Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click

        If Len(Trim(txtinput.Text)) = 0 Then

            MessageBox.Show("Mohon Isi Data yang akan di input")

            Exit Sub

        End If

        If IsNumeric(txtinput.Text) Then

            insert(CInt(txtinput.Text))

        End If

        str = str & " " & txtinput.Text

        txtshow.Text = str

        txtinput.Text = ""

        txtinput.Focus()

    End Sub