Program untuk mengetahui Shio dengan menggunakan Visual Studio

Assalamualaikum Wr. Wb

Pada kesempatan kali ini saya akan menjelaskan bagaimana membuat program aplikasi sederhana dengan menggunakan Fungsi If, Fungsi Messagebox, Fungsi String, Looping dan membuat Verifikasi Password sebagai pembuka pada awal aplikasi dijalankan.

Mula-mula kita harus membuka program Microsoft Visual Studio 2008 dengan cara

Start > All Programs > Microsoft Visual Studio 2008

Setelah masuk dalam MIcrosoft Visual Studio 2008

klik Create Project > Windows Form Application > Ok

Lalu kita mendesain Form1 dengan menggunakan Label, Textbox, dan Button.

selanjutnya kita mengganti text, name, dan PasswordChar, seperti ini :

guna Password Char adalah saat kita mengetik password maka yang muncul *,bukan huruf

Dapat pula mengganti font dan back color sesuai yang anda inginkan.

Maka Form1 akan terlihat seperti gambar dibawah ini :

Dalam membuat koding Btn Entry kita diharuskan membuat Form2 terlebih dahulu dikarenakan setelah memasukan Password dan berhasil akan  muncul Form2 (Form2.Show()).

klik project >Add Windows Form>Add

Lalu untuk memasukan Password dan menunjukkan Password itu salah atau benar kita dapat melakukan pengodingan dengan mengklik BtnEntry pada Form1

Source Codenya seperti ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEntry.Click

        Dim y As Integer

        If TPass.Text = "panca" Then

            Me.Hide()

            Form2.Show()

        Else

            y = MsgBox("Password yang Anda masukkan salah", MsgBoxStyle.OkOnly, "Konfirmasi")

            Tuser.Text = ""

        End If

    End Sub

Dan apabila ingin mengcancel tersebut kita dapat melakukan pengodingan dengan mengklik dua kali BtnCancel.

Source Codenya seperti ini :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

        Me.Close()

    End Sub

Selanjutnya kita mendesain Form2 dengan menggunakan Label, Combobox, dan Button. Selanjutnya kita mengganti Name dan Text seperti gambar dibawah ini:

Dapat pula mengganti font dan back color sesuai yang anda inginkan.

Maka Form2 akan terlihat seperti gambar dibawah ini:

Agar CmbTahun terisi dengan Tahun yang diingin maka kita harus membuat koding dengan mengklik dua kali pada Form2.
(Saya menginginkan dari tahun 1990 sampai 2015)

Source Codenya seperti ini :

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer

        For i = 1990 To 2015

            CmbTahun.Items.Add(i)

        Next

Untuk mengetahui hasil dari Shio tersebut adalah dengan cara mengklik dua kali pada BtnHasil.

Source Codenya seperti ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhasil.Click
        If CmbTahun.Text = "1996" Or CmbTahun.Text = "2008" Then
            TShio.Text = "Tikus"
        ElseIf CmbTahun.Text = "1997" Or CmbTahun.Text = "2009" Then
            TShio.Text = "Kerbau"
        ElseIf CmbTahun.Text = "1998" Or CmbTahun.Text = "2010" Then
            TShio.Text = "Macan"
        ElseIf CmbTahun.Text = "1999" Or CmbTahun.Text = "2011" Then
            TShio.Text = "Kelinci"
        ElseIf CmbTahun.Text = "2000" Then
            TShio.Text = "Naga"
        ElseIf CmbTahun.Text = "2001" Then
            TShio.Text = "Ular"
        ElseIf CmbTahun.Text = "2002" Or CmbTahun.Text = "2014" Or CmbTahun.Text = "1990" Then
            TShio.Text = "Kuda"
        ElseIf CmbTahun.Text = "2003" Or CmbTahun.Text = "2015" Or CmbTahun.Text = "1991 Then" Then
            TShio.Text = "Kambing"
        ElseIf CmbTahun.Text = "1992" Or CmbTahun.Text = "2004" Then
            TShio.Text = "Monyet"
        ElseIf CmbTahun.Text = "1993" Or CmbTahun.Text = "2005" Then
            TShio.Text = "Ayam"
        ElseIf CmbTahun.Text = "1994" Or CmbTahun.Text = "2006" Then
            TShio.Text = "Anjing"
        Else
            TShio.Text = "Babi"
        End If
    End Sub

Lalu mengklik dua kali melakukan  pengodingan pada CmbTahun agar pada saat memilih bulan pada CmbTahun, TShio terhapus secara otomatis.

Source Codenya seperti ini :

Private Sub CmbTahun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTahun.SelectedIndexChanged

        TShio.Text = ""

    End Sub

Lalu apabila ingin keluar dengan cara mengklik dua kali pada btnkeluar dan melakukan pengodingan

Source Codenya seperti ini:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Dim y As Integer

        y = MsgBox("Apakah Anda yakin ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Konfirmasi")

        If y = vbOK Then

            Me.Close()

        End If

    End Sub




Selanjutnya mengklik F5 untuk melihat hasilnya...

Pertama-tama kita memasukan User Name dan Password.
Apabila Password yang dimasukan salah maka hasilnya seperti gambar dibawah ini..

Selanjutnya apabila kita memasukan Password yang benar maka akan muncul Form2 seperti gambar dibawah ini:

Lalu apabila ingin memilih Tahun dengan cara mengklik CmbTahun seperti gambar dibawah ini:

Setelah itu memilih tahun yang Anda inginkan, selanjutnya klik BtnHasil untuk mengetahui Shio apa pada tahun yang Anda pilih. Maka hasilnya akan seperti gambar dibawah ini:

Aapabila ingin Keluar, mengklik BtnKeluar.

Apabila mengklik OK maka Form akan keluar dan apabila mengklik Cancel maka akan kembali ke Form2

Sekian program sederhana yang saya buat, semoga bermanfaat.

Terimakasih..

Wassalamualaikum Wr. Wb

PRIMATAZYA PUTRI DYAH PERMATASARI

1106096066