Membuat program ramalan menggunakan visual basic 2008

Setelah saya membuat program converter masehi ke hijriyah menggunakan visual basic 2008 dan program deteksi hari, selanjutnya saya akan Membuat program ramalan menggunakan visual basic 2008,  dalam pembuatan ramalan ini memang masih bisa dikatakan sangat sederhana dan sangat mudah karena hanya menggunakan satu form saja, untuk mengawali tutorial ini saya akan sedikit menggambarkan bagaimana cara kerja program ramalan yang akan dibuat yaitu, anda cukup memasukkan nama dan tanggal lahir saja dan secara otomatis program ramalan ini akan menditeksi hari kemudian setelah hari lahir terditeksi program akan secara otomatis menerangkan watak dan keuangan anda.

Selanjutnya ini adalah cara Membuat program ramalan menggunakan visual basic 2008, caranya sangat mudah sekali anda cukup membuat satu form dengan isi sebagai berikut: 1 picuturebox, 4 textbox, 1 Richtextbox , 5 label dan 1 button dan inilah keterangan untuk masing masing komponen.

Taruhlah gambar apa saja pada picturebox, edit text label5 menjadi "Masukkan Nama Anda" dan taruh tepat dibawah picturebox, edit text label2 menjadi BLN, text label3 menjadi TGL dan text label4 menjadi THN dan label1 menjadi HARI, dan taruh Richtextbox tepat disamping kanan picture box, rubah background form menjadi hitam dan ganti forecolor semua label menjadi putih lihat gambar dibawah:

Setelah tampilan menjadi seperti gambar diatas klik dua kali formnya dan hapus semua kode yang ada kemudian pastekan kode dibawah ini:

Imports System.Globalization.GregorianCalendar
Public Class Form1
    Dim tgl As New Globalization.GregorianCalendar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = tgl.GetDayOfWeek(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text).ToString
        If Label1.Text = "Sunday" Then
            Label1.Text = "Ahad"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Monday" Then
            Label1.Text = "Senin"
        ElseIf Label1.Text = "Tuesday" Then
            Label1.Text = "Selasa"
        ElseIf Label1.Text = "Wednesday" Then
            Label1.Text = "Rabu"
        ElseIf Label1.Text = "Thursday" Then
            Label1.Text = "Kamis"
        ElseIf Label1.Text = "Friday" Then
            Label1.Text = "Jum'at"
        ElseIf Label1.Text = "Saturday" Then
            Label1.Text = "Sabtu"
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text > 12 Then
            MsgBox("Bulan tidak lebih dari 12")
            TextBox1.Text = "0"
        Else
            TextBox1.Text = TextBox1.Text
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text > 31 Then
            MsgBox("Tanggal tidak lebih dari 31")
            TextBox2.Text = "0"
        Else
        End If
    End Sub


    Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If Label1.Text = "Ahad" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang sabar, bisa menahan amarah." & vbNewLine & "2. Anda bisa menyimpan kesedihan didepan orang lain dengan senyuman anda" & vbNewLine & "3. Anda punya semangat tinggi untuk membahagiakan orang lain, patriotis, dan sering membantu orang lain" & vbNewLine & "4. Anda orangnya murah senyum kepada siapa saja, menyayangi anak, dan rela berbuat apa saja demi keluarga" & vbNewLine & "Keuangan:" & vbNewLine & "Anda orangnya cepat bosan dengan sesuatu sebenarnya anda orangnya gampang sekali meraih kesuksesan dalam hal finansial, namun karena anda cepat bosan maka kesuksesan yang anda peroleh akan cepet kabur juga." & vbNewLine & "Anda juga orangnya tidak betah menabung, karena watak anda yang suka berbagi dengan orang lain, namun semakin anda berbagi rezeki dengan orang lain, rezeki anda akan semakin bertambah." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Senin" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang sangat perhatian kepada orang lain." & vbNewLine & "2. Anda gampang tergiur dengan masalah finansial orang lain." & vbNewLine & "3. Anda oorang yang gigih, teguh pendirian dan tak gampang percaya kepada orang lain" & vbNewLine & "4. Anda orang yang mempunyai sifat Percaya Diri yang tinggi, sehingga banyak orang yang tertarik melihat anda." & vbNewLine & "Keuangan:" & vbNewLine & "Karena kegigihan dan semangat anda yang tinggi anda akan meraih apa yang anda inginkan, meskipun jalan yang dilalui cukup berat." & vbNewLine & "Anda juga orangnya boros, mungkin borosnya anda untuk sesuatu yang menjadikan anda meraih yang anda inginkan, dan mungkin saking percaya dirinya sehingga anda tidak memperhitungkan keluar masuknya keuangan anda." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Selasa" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang kurang memperhatikan diri sendiri." & vbNewLine & "2. Anda orang yang cermat dengan masalah yang terjadi." & vbNewLine & "3. Anda orang yang sabar" & vbNewLine & "4. Anda orang yang mempunyai sifat kurang Percaya Diri." & vbNewLine & "Keuangan:" & vbNewLine & "Anda orang yang sabar dan cermat menghadapi masalah, anda dapat menemukan sesuatu yang baru, bisa jadi sesuatu yang anda temukan bernilai sangat mahal, namun karena anda kurang percaya diri, sehingga apapun yang anda temukan, tidak sedikit yang hilang begitu saja." & vbNewLine & "Anda Anda dapat menimpan hasil dari kerja anda dengan rapat sehingga terkadang terlihat pelit, sampai-sampai saking hati-hatinya anda, uang yang anda perolehpun tidak banyak yang anda gunakan untuk mengurus diri anda sendiri." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Rabu" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang bijaksana." & vbNewLine & "2. Anda orang yang terbuka dan suka berterus terang kepada orang lain." & vbNewLine & "3. Anda menyukai barang-barang antik seperti cincin dan barang-barang yang menurut anda unik dan menarik." & vbNewLine & "4. Anda orang yang kurang cerdas, namun tekun dan mempunyai rasa penasaran ang tinggi." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan ketekunan dan rasa penasaran yang tinggi anda, anda dapat menemukan jalan kesuksesan yang jarang orang lain temukan." & vbNewLine & "Namun karena anda mencintai dan menggemari barang antik yang harganya juga tidak sedikit uang yang anda dapatkan juga akan cepat habis dan tidak jarang membuat keuangan anda naik turun pada tiap bulannya." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Kamis" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & " Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang pintar." & vbNewLine & "2. Anda orang yang gampang percaya kepada orang lain." & vbNewLine & "3. Anda orang yang mempunyai jiwa pemimpin yang tinggi." & vbNewLine & "4. Anda orang yang mempunyai sifat Percaya Diri yang tinggi." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan kepintaran anda, anda akan mudah sekali mencari rizki dan penghasilan." & vbNewLine & "Dan anda juga orangnya sangat mudah percaya dengan orang lain, sehingga tidak jarang anda tertipu oleh orang yang anda kenal atau tidak anda kenal sekalipun." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Jum'at" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & "Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda orang yang keras kepala tidak mau mengalah dan maunya menang sendiri." & vbNewLine & "2. Anda orangnya sangat perhatian dengan orang lain." & vbNewLine & "3. Anda orang yang cermat dalam menilai sesuatu." & vbNewLine & "4. Anda orang yang mampu menghadapi masalah dengan tegar." & vbNewLine & "Keuangan:" & vbNewLine & "Jalan kesuksesan anda dalam finansial sangatlah terbuka lebar didepan anda, namun terkadang karena watak anda yang tidak mau mengalah, jalan kesuksesan tersebut menjadi tertutup." & vbNewLine & "Keuangan anda naik turun, tapi lebih banyakan naiknya dibanding turunnya karena ketika anda rajin menabung, tabungan anda akan utuh hingga anda membutuhkannya, dan tabungan anda akan cepat habis karena kemauan anda yang tidak dapat dihentikan oleh siapa saja." & vbNewLine & "Wassalamu'alaikum Wr. Wb"
        ElseIf Label1.Text = "Sabtu" Then
            RichTextBox1.Text = "Assalamu'alaikum Wr. Wb" & vbNewLine & "Saudara " & TextBox4.Text & "Yang berbahagia anda lahir pada tanggal " & TextBox2.Text & "-" & TextBox1.Text & "-" & TextBox3.Text & " Anda lahir pada hari " & Label1.Text & " dibawah ini adalah ramalan anda" & vbNewLine & "Watak:" & vbNewLine & "1. Anda seorang yang mempunyai keinginan yang kuat dan terkadang terkesan memaksakan kehendak." & vbNewLine & "2. Anda orang yang cerdas dan pintar." & vbNewLine & "3. Anda orang yang mempunyai rasa penasaran yang tinggi" & vbNewLine & "4. Anda orang yang ceroboh." & vbNewLine & "Keuangan:" & vbNewLine & "Dengan keinginan anda yang kuat dan kecerdasan dan kepintaran anda didukung rasa penasaran yang tinggi anda akan sangat mudah menuju jalan kesuksesan." & vbNewLine & "Anda juga ceroboh sehingga tidak jarang kecerobohan yang menurut anda adalah kesalahan kecil dan menurut orang lain adalah kesalahan besar maka akan mengganggu karir dan jalan kesuksesan anda." & vbNewLine & "Wassalamu'alaikum Wr. Wb"

        End If
    End Sub
End Class

Kode dapat anda rubah pada keterangan ramalannya sesuai keinginan hati anda saja karena ramalan diatas sebenarnya 100% adalah ramalan buatan saya sendiri dan dibawah ini adalah gambar setelah program tersebut di Run.

 

Saya juga sedang membuat video turorialnya untuk mempermudah anda dalam mempelajari program visual basic 2008.