tugas2.1 harga setelah discont 10%



Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - Val(txtdis)
End Sub

Private Sub cmdlagi_Click()
txtha = ""
txtdis = ""
txtak = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

kalkulator tanpa keypress

Gambar
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetF...
Baca selengkapnya

tugas 3.6

Gambar
Private Sub cmdbatal_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi Manageman" txtpengarang = "Fadila Ulfa" txtharga = "75900" ElseIf A = "EDP" Then txtjudul = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajeman" txtpengarang = "Riyan Hidayat" txtharga = "42000" ElseIf A = "CDR" Then txtjudul = ...
Baca selengkapnya

Tugas 3.3 ENTRI PENJUALAN LAPTOP APPLE

Gambar
Private Sub cbokode_Click() Dim Penjualan, discount, kode, merk, bayar As String Dim Harga As Variant merk = Mid(cbokode.Text, 7, 5) If merk = "MC965" Then txtmerk = "Apple MacBook Air MC965?" Harga = "12800000" ElseIf merk = "MC966" Then txtmerk = "Apple MacBook Air MC966?" Harga = "15800000" ElseIf merk = "MC968" Then txtmerk = "Apple MacBook Air MC968" Harga = "9900000" ElseIf merk = "MC969" Then txtmerk = "Apple MacBook Air MC969?" Harga = "11900000?" ElseIf merk = "MC700" Then txtmerk = "Apple MacBook Air MC700" Harga = "10800000" ElseIf merk = "MC721" Then txtmerk = "Apple MacBook Air MC721?" Harga = "15900000?" ElseIf merk = "MC723" Then txtmerk = "Apple MacBook Air MC723" Harga = "19300000" ElseIf merk = "MC724" Then txtmerk = ...
Baca selengkapnya