Membuat Program 4 musim dengan menggunakan Visual Studio 2008

Assalamualaikum Wr Wb

Pada kesempatan ini saya akan menjelaskan cara membuat aplikasi yang dapat memberitahukan terdapat di bulan mana saja 4 musim yang terdapat Amerika yaitu, spring, autumn, summer dan winter. Dengan menggunakan ComboBox untuk bulannya dan TextBox untuk hasil musimnya yang menggunakan fungsi IF. Dan saya akan memunculkan Form password terlebih dahulu sblm membuka form musim

Pertama tama, saya akan menjelaskan bagaimana cara membuat form musim. Dan setelah blank form untuk musim sudah tersedia, masukkan 2 buah Label, 1 buah ComboBox, 1 buah TextBox dan 2 buah Button. Lalu ubah Name dan Text masing masing sepeti ini

Setelah semua name dan text di ganti, maka form akan terlihat seperti ini

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

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

        Dim j As Integer

        For j = 1 To 12

            CmbBulan.Items.Add(MonthName(j))

        Next

    End Sub

Lalu untuk mengeluarkan hasil musimnya, buat codingannya dengan cara double click pada BtnHasil. Dan codingannya seperti ini

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

        If CmbBulan.Text = "January" Or CmbBulan.Text = "February" Or CmbBulan.Text = "December" Then

            TxtMusim.Text = "Winter"

        ElseIf CmbBulan.Text = "March" Or CmbBulan.Text = "April" Or CmbBulan.Text = "May" Then

            TxtMusim.Text = "Spring"

        ElseIf CmbBulan.Text = "June" Or CmbBulan.Text = "July" Or CmbBulan.Text = "August" Then

            TxtMusim.Text = "Summer"

        Else

            TxtMusim.Text = "Autumn"

        End If

    End Sub

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

Private Sub CmbBulan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbBulan.SelectedIndexChanged

        TxtMusim.Text = ""

    End Sub

lalu double click pada BtnKeluar untuk membuat codingan seperti ini:

Dim o As Integer

        o = MsgBox("apakan anda yakin ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")

        If o = vbOK Then

            Me.Close()

        End If

Lalu setelah ini, saya akan membuat form baru untuk memunculkan form password. pertama tama klik Project lalu Add windows form yg terlihat seperti ini

 

lalu setelah mengklik Add Windows Form tampilan akan terlihat seperti ini

setelah klik button Add maka akan muncul Form baru, yaitu Form2. lalu masukkan 2 buah Label, 2 buah TextBox dan 2 buah button. lalu name dan text seperti di bawah ini

 

dan tampilan form akan menjadi seperti ini

 

lalu click pada TxtPassword dan lihat kotak Properties, lalu pada Passwordchar masukkan tanda * agar pada saat password di masukkan hanya * yg di tunjukkan

lalu untuk menunjukkann password itu benar atau salah, double click pada BtnEntry untuk membuat codingannya. dan codingannya seperti ini:

Private Sub btnEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEntry.Click

        Dim o As Integer

        If TxtPassword.Text = "Anton" Then

            Form1.Show()

        Else

            o = MsgBox("Password yang anda masukkan salah", MsgBoxStyle.OkOnly + MsgBoxStyle.Question, "konfirmasi")

        End If

    End Sub

lalu double click pada Btn Cancel untuk apabila tidak jadi memasukkan password. dan codingannya seperti ini

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

        Me.Close()

    End Sub

 lalu untuk mengubah form yg akan di debug click project lalu ke Musim Properties

lalu ubah StartUp Formnya menjadi Form2 dan tampilan akan terlihat seperti ini

 

lalu tekan tombol F5 untuk men-debug lalu tampilan akan seperti ini

dan apabila password salah, akan muncul messagebox seperti ini

 lalu apa bilan password yg di masuukan benar, maka form1 akan mucul seperti ini

 lalu apabila memilih setiap bulan, akan mucul musim perbulan seperti ini

Sekian penjelasan dr saya apabila ada kata kata yg kurang dan tidak pas tolong beritahu saya melalui comment.
Terima Kasih
Wassalamu'alaikum Wr.Wb.