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