TUGAS PAK HARJONO
Ini merupakan tugas UTS ( Ujian TIdak Serius ) pertama saya, setelah saya mencari ilham kesana kemari tentunya dengan bantuan si mesin pencari serba tahu yaitu google, akhirnya saya menemukan dasar-dasar coding perhitungan yang menurut saya cukup sulit, maklum kan namanya juga baru belajar alias pemula.
oke langsung saja pada ini masalahnya
Gambar Design Aplikasi Kasir Versi One
ada 4 tipe menu yang harus kita isi
1. menu makanan 1 ( jumlah dan harga )
2. menu makanan 2 ( jumlah dan harga )
3. menu minuman 1 ( jumlah dan harga )
4. menu minuman 2 ( jumlah dan harga )
terus kita hitung semuanya ( yaitu total harga dari menu makanan1.2 dan menu minuman 1,2 )
oke langsung simak aja pertanyaan dan jawabannya di bawah ini.
Pertanyaan
:
No.1
1a. Buat coding untuk mengisi menu makanan1
1b. Buat coding untuk mengisi menu makanan2
1c. Buat coding untuk mengisi menu makanan3
1d. Buat coding untuk mengisi menu makanan4
Jawaban
:
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Menu Makanan1")
ComboBox2.Items.Add("Menu Makanan2")
ComboBox3.Items.Add("Menu Makanan3")
ComboBox4.Items.Add("Menu Makanan4")
End Sub
No.2
Buat
coding tombol hitung ( ini buat menghitung secara keseluruhan dari setiap harga dan jumlah) jika tidak memakai label TOTAL HARGA maka coding (
lblTotal.Text = TxtTotalBayar.Text ) di hapus saja, karena ini adalah versi saya hehe
Jawaban
:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
Dim hasil1, hasil2, hasil3, hasil4 As Integer
hasil1 = Val(TxtJumlah1.Text) * (TxtHarga1.Text)
hasil2 = Val(TxtJumlah2.Text) * (TxtHarga2.Text)
hasil3 = Val(TxtJumlah3.Text) * (TxtHarga3.Text)
hasil4 = Val(TxtJumlah4.Text) * (TxtHarga4.Text)
TxtTotalBayar.Text = hasil1 + hasil2 + hasil3 + hasil4
If TxtTotalBayar.Text = True Then
lblTotal.Text = TxtTotalBayar.Text
End If
End Sub
No.3
Buat
coding tombol Bersihkan
Jawaban
:
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TxtJumlah1.Text = ""
TxtJumlah2.Text = ""
TxtJumlah3.Text = ""
TxtJumlah4.Text = ""
TxtHarga1.Text = ""
TxtHarga2.Text = ""
TxtHarga3.Text = ""
TxtHarga4.Text = ""
TxtTotalBayar.Text = ""
TxtBayar.Text = ""
TxtKembalian.Text = ""
End Sub
No.4
Buat
coding tombol Keluar
Jawaban
:
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
Me.Close()
End Sub
End Class
mohon maaf jika ada kesalahan.
terima kasih sudah berkunjung ke blog sederhana ini.
0 komentar:
Posting Komentar