Tugas Visual Basic 2 - Salon Gaya

Pada tugas kali ini, saya membuat program sederhana untuk perusahaan salon. Terdapat 4 pilihan, yaitu potong rambut, creambath, massage, dan rebonding. masing-masing mendapatkan diskon 50% dari setiap harga yang sudah ditentukan. berikut akan ditampilkan gambarnya.










Untuk codingnya :

SALON GAYA – FORM1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
form2.show()
End Sub
End Class

SALON GAYA – FORM2
Public Class Form2

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
PictureBox1.Visible = True
Else
PictureBox1.Visible = False
End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
PictureBox2.Visible = True
Else
PictureBox2.Visible = False
End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
PictureBox3.Visible = True
Else
PictureBox3.Visible = False
End If
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
PictureBox4.Visible = True
Else
PictureBox4.Visible = False
End If
End Sub

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

SALON GAYA – FORM3
Public Class Form3

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Len(TextBox1.Text) = 0 And Not Len(TextBox2.Text) = 0 Then
TextBox3.Text = (TextBox1.Text * 0.5) + (TextBox2.Text * 0.5)
End If

End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case 1
TextBox1.Text = "350000"
Case 2
TextBox1.Text = "100000"
Case 3
TextBox1.Text = "150000"
Case 4
TextBox1.Text = "200000"
End Select
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case 1
TextBox2.Text = "350000"
Case 2
TextBox2.Text = "100000"
Case 3
TextBox2.Text = "150000"
Case 4
TextBox2.Text = "200000"
End Select
End Sub
End Class