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 2.8 huruf mutu mahasiswa STMIK pringsewu menggunakan keypress

Gambar
Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100006" nama = "Rosi Elvia" jurusan = "Sistem Informasi" Case "17100034" nama = "Marisca nova linda" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.T...
Baca selengkapnya

penjumlahan menggunakan keypress

Gambar
Private Sub cmdhitung_Click() txttotal = Val(Txtnilai1) + (txtnilai2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Txtnilai1 = "" txtnilai2 = "" txttotal = "" Txtnilai1.SetFocus End Sub Private Sub Txtnilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnilai2.SetFocus End If End Sub Private Sub txtnilai2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(Txtnilai1) + (txtnilai2) txttotal.SetFocus End If End Sub
Baca selengkapnya