Vokasi Akuntansi Teknologi Sistem Informasi
Universitas Indonesia
Penjelasan
Pada tugas visual basic ini saya membuat aplikasi penjualan barang-barang olahraga dengan memakai kurs dollar.dengan tujuan untuk memudahkan pengguna dalam melayani pembeli dan jika pembeli membawa uang Rp maka akan bisa langusung di tukar ke dollar,
berikut adalah penjelasan dan cara menjalankan program ini:
1. Kita harus memasukkan uang kita Rp atau $ ke textbox1 atau 2.
2. Cari nama barang yang ingin kita beli di combobox1
3. Jika barangya sedang promo akan muncul di textbox5,dan kita klik button Total Harga Diskon maka akan keluar harga barang yang sedang promo tersebut
4. Masukkan jumlah barang yang ingin kita beli di combobox2
5. Klik button total,maka akan keluar jumlah harga keseluruhan yang akan kita bayar,
6. Klik button kembalian,maka akan keluar sisa uang belanja.
Kodingnya :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox6.Text = TextBox3.Text * ComboBox2.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = TextBox4.Text - TextBox5.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "nike lari" Then
TextBox4.Text = "$50"
Else
If ComboBox1.Text = "nike futsal" Then
TextBox4.Text = "$65"
Else
If ComboBox1.Text = "adidas futsal" Then
TextBox4.Text = "$40"
Else
If ComboBox1.Text = "adidas lari" Then
TextBox4.Text = "$60"
Else
If ComboBox1.Text = "jersey" Then
TextBox4.Text = "$80"
Else
If ComboBox1.Text = "perset(kaoskaki,sepatu,bola)" Then
TextBox4.Text = "$200"
End If
End If
End If
End If
End If
End If
If ComboBox1.Text = "nike futsal" Then
TextBox5.Text = 65 * 5 / 100
Else
If ComboBox1.Text = "perset(kaoskaki,sepatu,bola)" Then
TextBox5.Text = 200 * 15 / 100
Else
If ComboBox1.Text = "adidas lari" Then
TextBox5.Text = 60 * 10 / 100
End If
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox2.Text = TextBox1.Text / 9000
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox7.Text = TextBox2.Text - TextBox6.Text
End Sub
End Class
Screnshootnya:
(maaf ada kesalahan sedikit)
Demikian penjelasannya misalkan ada kesalahan tolong di beri saran agar saya bisa memperbaikinya,karena saya masih baru belajar.Terima Kasih
