Jumat, 30 Maret 2012

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

Sabtu, 17 Maret 2012

Membuat program aplikasi sederhana "Menentukan harga Jasmine  House" dalam Visual Basic 2008 menggunakan fungsi IF

Assalamualaikum Wr Wb
Saya akan membuat suatu program untuk mengetahui harga kostan beserta fasilitas yang ada dan fasilitas tambahan. Harga pada Lantai 1 dan 2 dibedakan dikarenakan fasilitas awal yang didapat berbeda. Dan untuk membawa fasilitas tambahan para pelanggan kost diharuskan untuk membayar biaya tambahan disetiap bulannya dikhususkan pada TV dan Dispenser. Berikut cara pembuatan programnya...


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 mendesain form pertama menggunaan Toolbox dengan menggunakan
GroupBox1> RadioButton1 > RadiButton2 > Button1
dan mengganti nama text
GroupBox1 menjadi Pilih Posisi Kamar
RadioButton1 menjadi Lantai 1
RadioButton2 menjadi Lantai 2
Button1 menjadi Lihat Fasilitas Kamar
Form1 menjadi Jasmine  House


Kemudian membuat form baru dengan cara :
Project > Add Windows Form > Add
Lalu desain form kedua menggunakan Toolbox dengan menggunakan
GroupBox1 >Label1 >Label2 >ComboBox1 >ComboBox2 >Button1> Textbox1
Selanjutnya mengganti nama text pada properties
Name menjadi lantai1
GroupBox1 menjadi Tambah Fasilitas
Label1 menjadi TV
Label2 menjadi Dispenser
ComboBox1 menjadi Tidak
ComboBox2 menjadi Tidak
Button1 menjadi Lihat Harga
Form1 menjadi Kamar Lantai 1


Kemudian membuat form baru dengan cara :
Project > Add Windows Form > Add
Lalu desain form kedua menggunakan Toolbox dengan menggunakan
GroupBox1 >Label1 >Label2 >ComboBox1 >ComboBox2 >Button1> Textbox1
Selanjutnya mengganti nama text pada properties 
Name menjadi lantai2
GroupBox1 menjadi Tambah Fasilitas
Label1 menjadi TV
Label2 menjadi Dispenser
ComboBox1 menjadi Tidak
ComboBox2 menjadi Tidak
Button1 menjadi Lihat Harga
Form1 menjadi Kamar Lantai 2


Setelah ketiga form jadi, maka kita dapat membuat koding dengan mengklik dua kali pada button1  pada form pertama. Selanjutnya melakukan pengodingan seperti gambar diatas dengan menggunakan fungsi if.


Maksud koding adalah
Kita dapat memilih lantai 1 atau lantai 2
Jika memilih lantai 1 (mengklik radiobutton1).  Lalu  mengklik button maka akan muncul form lantai 1
Dan sebaliknya, jika memilih lantai 2 lalu mengklik button akan muncul form lantai 2.


Selanjutnya kita dapat membuat koding dengan mengklik dua kali pada button1 pada form kedua (lantai1). Dan kita dapat melakukan pengodingan seperti gambar diatas


maksud dari koding adalah
Jika mengklik "Ya" pada Combobox1. Lalu mengklik button1 maka akan muncul harga kos+harga tambahan fasilitas TV pada textbox1.
Dan sebaliknya dengan Combobox2.
Dapat juga mengklik "Ya" pada keduanya
Koding tersebut menggunakan fungsi if.


Pada pengodingan form lantai2 ini sama seperti pengodingan form lantai 1 hanya saja  berbeda dalam penentuan harga kostan. 
Lantai 1 harga kost sebesar 1000000 sedangkan lantai2 sebesar 900000.




Maka hasilnya seperti....


Melihat fasilitas dan harga Lantai 1 dengan mengklik Lihat Fasilitas Kamar...

Mengklik Ya pada TV  karena ingin menambah fasilitas> klik Button Lihat Harga > Hasil keseluruhan
hasil keseluruhan : Harga kos + harga fasilitas tambahan 


Untuk melihat Fasilitas dan Harga Lantai 2...


Apabila tidak ingin menggunakan fasilitas tambahan maka dapat langsung mengklik Lihat harga maka akan muncul harga kost pada textbox.






SourceCode:

Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (RadioButton1.Checked = True) Then
            lantai1.Show()
        ElseIf (RadioButton2.Checked = True) Then
            lantai2.Show()
        Else
            MessageBox.Show("pilih posisi kamar")
        End If

Form2
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Dim a As Integer
        a = 0
        Dim b As Integer
        b = 0

        If (ComboBox1.Text = "Ya" And ComboBox2.Text = "Ya") Then
            a = 25000
            b = 30000
            
        ElseIf (ComboBox1.Text = "Ya") Then
            a = 25000
        ElseIf (ComboBox2.Text = "Ya") Then
            b = 30000
        End If


        TextBox1.Text = 1000000 + a + b

Form3

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

        Dim a As Integer
        a = 0
        Dim b As Integer
        b = 0

        If (ComboBox1.Text = "Ya" And ComboBox2.Text = "Ya") Then
            a = 25000
            b = 30000

        ElseIf (ComboBox1.Text = "Ya") Then
            a = 25000
        ElseIf (ComboBox2.Text = "Ya") Then
            b = 30000
        End If
        TextBox1.Text = 900000 + a + b




Sekian penjelasan dalam pembuatan program aplikasi "Menentukan harga Jasmine House".
Semoga bermanfaat khusus para pembaca yang ingin membuat kost-kostan siapa tau program aplikasi saya dapat membantu...
Silahkan dicoba.........
Wassalamualaikum Wr. Wb.


Primatazya Putri Dyah Permatasari
1106096066