APLIKASI RAMALAN JODOH

Img : Design Aplikasi Ramalan Jodoh Via Visual Basic 2012

Source Coding dibawah ini :


Public Class RJodoh

    Sub ULANG()
        TKamu.Text = ""
        TPasangan.Text = ""
        THasil1.Text = ""
        THasil2.Text = ""
        TTotal.Text = "0"
        TKamu.Focus()
    End Sub
    Dim KAMU As Integer
    Dim PASANGAN As Integer

    Private Sub btnUlang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUlang.Click
        Call ULANG()

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        If MessageBox.Show("Apakah kamu ingin meninggalkan aplikasi Ramalah Jodoh..?", "PERHATIAN", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
            Call ULANG()
            Me.Close()

        End If
    End Sub

    Private Sub btnRamal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRamal.Click
        If TKamu.Text = "" Or TPasangan.Text = "" Then
            MessageBox.Show("Data tidak boleh ada yang kosong!", "PERHATIAN", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        KAMU = Len(TKamu.Text)
        PASANGAN = Len(TPasangan.Text)

        THasil1.Text = Val(KAMU) + Val(PASANGAN) * 2
        THasil2.Text = THasil1.Text Mod 9

        Select Case THasil2.Text
            Case "1"
                TTotal.Text = "0%"
                THasil1.Text = "Mungkin ko belum saatnya untuk bersama"
                THasil2.Text = "Carilah penganti yang lebih baik dari dia"
            Case "2"
                TTotal.Text = "5%"
                THasil1.Text = "Ada sedikit harapan tapi mendingan ko tra usa pikir de nanti ko menyesal"
                THasil2.Text = "Lebih cepat ko cari pengganti sebelum ko terlambat"
            Case "3"
                TTotal.Text = "10%"
                THasil1.Text = "De ingin sesuatu yang mewah"
                THasil2.Text = "Rajin-rajinlah menabung untuk belikan de membeli mobil mewah"
            Case "4"
                TTotal.Text = "83%"
                THasil1.Text = "Ko pu pasangan ingin lebih sering dekat dengan ko"
                THasil2.Text = "Usahakan ko selalu bersama de supaya orang lain tra kore dia"
            Case "4"
                TTotal.Text = "50%"
                THasil1.Text = "Ko harus hati-hati dengan dia karna dia punya rencana yang tra baik"
                THasil2.Text = "Ko minta putus saja agar tra terjadi"
            Case "6"
                TTotal.Text = "75%"
                THasil1.Text = "Kam dua lebih mesra lagi dalam menjalin hubungan cinta"
                THasil2.Text = "Cukup satu saja jangan ko cari banyak-banyak"
            Case "7"
                TTotal.Text = "90%"
                THasil1.Text = "Waoo ini baru pasangan yang sudah hampir cocok"
                THasil2.Text = "Semoga malam ini bisa jadi kamu dua pu malam indah"
            Case "8"
                TTotal.Text = "100%"
                THasil1.Text = "Selamat menempuh hidup yang baru buat kamu dua"
                THasil2.Text = "Ingat undang kam dua pu mantan"
            Case "9"
                TTotal.Text = "200%"
                THasil1.Text = "Kamu dua cinta melebihi batas yang ada"
                THasil2.Text = "periksa ko deng dia ke dokter psikolog terdekat"
            Case "0"
                TTotal.Text = "99,9%"
                THasil1.Text = "Peluang yang sangat besar untuk mencetak goal tapi  ko rugi 1%"
                THasil2.Text = "Tetap semangat"

        End Select
    End Sub

Doc: Form Design About

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        About.Show()
    End Sub
End Class

Untuk Aplikasinya teman-teman Download DISINI

Cetak

Bagikan

Related Posts :