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
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...
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:
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