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

Buruan! Batas Upgrade Gratis Windows 10 Hanya Sampai Desember 2017

Gambar
Microsoft, seperti yang kita kenal bahwa perusahaan tersebut merupakan salah satu perusahaan software tersbesar di dunia dan sangat berpengaruh di duni gadget. Perusahaan yang berpusat di Redmond, Amerika Serikat tersebut dikabarkan akan memberikan batasan upgrade gratis windows 10 yaitu sampai 31 Desember 2017. Seperti yang telah dijelaskan Engadget dalam halaman Okezone Techno yang mengungkapkan bahwa Microsoft telah memperbarui situsnya dan mengungkapkan bahwa upgrade gratis bagi mereka yang menggunakan ‘ assitive technologies ‘ akan berakhir pada 31 Desember 2017. Bagi kamu yang masih menggunakan Windows 7 atau Windows 8.1 maka masih ada sekisar dua bulan untuk segera upgrade perangkat PC kamu menjadi Windows 10. Jika kesempatkan ini kamu lewatkan maka kamu harus membayar sejumlah uang untuk mulai menggunakan Windows 1o. Karena, apabila kamu mengupgrade Windows 10 maka kamu bisa merasakan beberapa fitur baru yang tidak ada pada generasi sebelumnya. Microsoft telah...
Baca selengkapnya