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.
Wassalamu'alaikum Wr.Wb.
