membuat program zodiak bintang menurut bulan lahir menggunakan vb 2008

Tugas III Sessi VII Mata Kuliah PB1

Membuat Program Zodiak Bintang Menurut Bulan Lahir dengan menggunakan Visual Studio 2008

Assalamualaikum Wr Wb

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.

langkah pertama : klik Open 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

langkah kedua : masukkan 2 buah Label, 1 buah ComboBox, 1 buah TextBoxdan 2 buah Button. 

Langkah Ketiga: Lalu ubah Name dan Text masing masing sepeti ini

langkah kempat:buat koding Btn Entry sebelum membuat soure codenya diharuskan membuat Form2 terlebih dahulu dikarenakan setelah memasukan Password dan berhasil akan  muncul Form2 (Form2.Show()).

Tahap Selanjutnya membuat source code untuk memasukan Password dan menunjukkan Password itu salah atau benar kita dapat melakukan pengodingan dengan mengklik BtnEntry pada Form1

contoh source codenya:

Public Class Form1

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

        Dim y As Integer

        If Tpass.Text = " wilda " Then

            Me.Hide()

            Form2.Show()

        Else

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

            Tuser.Text = """"

        End If

    End Sub

Selanjutnya klik dua kali BtnCancel (Button2) untuk mengcancel dengan memberikan source codenya

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

        Me.Close()

    End Sub

End Class

Terlebih dahulu kita harus mengganti StartUp Formnya menjadi Form2 dan tampilan akan terlihat seperti gambar dibawah ini :

langkah kelima : klik dan masuk ke Form2

 dengan menggunakan Label, Combobox, dan Button. Selanjutnya kita mengganti Name dan Text

Ketika merubah name dan textnya Form2 akan terlihat seperti di bawah ini

Agar CmbBulan terisi dengan bulan, maka double click pada form zodiak Bintang lalu codingannya seperti ini:

 Private Sub BtnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHasil.Click

        If Cmdbulan.Text = "january" Then

            TZodiak.Text = "Capricorn"

        ElseIf Cmdbulan.Text = "February" Then

            TZodiak.Text = "Aquarius"

        ElseIf Cmdbulan.Text = "March" Then

            TZodiak.Text = "Aries"

        ElseIf Cmdbulan.Text = "April" Then

            TZodiak.Text = "Leo"

        ElseIf Cmdbulan.Text = "May" Then

            TZodiak.Text = "Gemini"

        ElseIf Cmdbulan.Text = "December" Then

            TZodiak.Text = "Sagitarius"

        Else

            TZodiak.Text = "Capricorn"

        End If

    End Sub

double click pada CmbBulan dan membuat coding seperti ini agar pada saat memilih bulan pada CmbBulan, TZodiak terhapus secara otomatis

ini adalah contoh source codenya:

Private Sub Cmdbulan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdbulan.SelectedIndexChanged

        TZodiak.Text = ""

    End Sub

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

Sekian penjelasan saya tentang cara membuat program zodiak Bintang menggunakan Visual Basic 2008 ,apabila ada yang kurang mohon maaf

semoga bermanfaat untuk semua :)

Terima Kasih
Wassalamu'alaikum Wr.Wb.