PKK PancaKarya
Membuat Aplikasi pendaftaran login dari produk Pancakarya (kuliner)
1. Tampilan awal
Tampilan awal berupa identitas basic seperti nama dll
2. Setelah Berasil login, akan mucnul seperti ini
Sub hitung()
Dim udukmoz As Int32 = Convert.ToInt32(TextBox1.Text) * 10
Dim udukbakar As Int32 = Convert.ToInt32(TextBox2.Text) * 10
Dim escampur As Int32 = Convert.ToInt32(TextBox3.Text) * 10
Dim birpletok As Int32 = Convert.ToInt32(TextBox4.Text) * 8
TextBox5.Text = CStr(udukmoz + udukbakar + birpletok + escampur) + "000"
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub reset_Click(sender As Object, e As EventArgs) Handles reset.Click
MessageBox.Show("Pesanan anda terkonfirmasi", "Terkonfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
product_countmoz = TextBox1.Text
product_countkar = TextBox2.Text
product_countcam = TextBox3.Text
product_counttok = TextBox4.Text
product_ttl = TextBox5.Text
Me.Hide()
Form5.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
hitung()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox5.Text = String.Empty
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
End Sub
4. Setelah itu, akan masuk ke tampilan perhitungan total
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = product_countmoz
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
TextBox2.Text = product_countkar
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
TextBox3.Text = product_countcam
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
TextBox4.Text = product_counttok
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
TextBox5.Text = product_ttl
End Sub
Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
End Sub
Private Sub reset_Click(sender As Object, e As EventArgs) Handles reset.Click
Me.Hide()
Form4.Show()
End Sub
End Class
5. Setelah semua selesai akan tampil terimakasih/penutup
Comments
Post a Comment