DATA MAHASISWA STMIK PRINGSEWU

-

Private Sub cmdbatal_Click()
Txtn1 = ""
Txtn2 = ""
txttotal = ""
Txtn1.SetFocus
End Sub

Private Sub Cmdhitung_Click()
Txtn1 = ""
Txtn2 = ""
txttotal = ""
Txtn1.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

DATA MAHASISWA STMIK PRINGSEWU WITH KEYPRESS

-
Gambar
Private Sub cmdbatal_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub Cmdhitung_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub cmdhitung_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn2.SetFocus End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub
Baca selengkapnya

tugas 3_4

-
Gambar
Private Sub cmdbatal_Click() cbokode = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Cbokode = "" Txt judul = "" Txt pengarang = "" Txt terbit = "" Txt penerbit = "" Txt harga = "" End Sub Private Sub cmdproses_Click() Dim P, JB, PENG, HAR, PENER As String Txtterbit.Text = " 20 " & Right(cbokode.Text,2) P = Mid( cbokode .Text, 3 , 3 ) If P = " SIM " Then JB   = "Sistem Informasi Manajemen" PENG =   " Yati Nur Oktafia " HAR =   " 75900 " ElseIf P = " EDP " Then JB   = " Elektronik Data Proc e ssing" PENG =   " Imam Tarmizi " HAR =   " 62000 " ElseIf P = " MNJ " Then JB   = "Manajemen" PENG =   " Valentina Mariana Adiwianti " HAR =   " 42000 " ElseIf P...
Baca selengkapnya

PENJUMLAHAN WITH KEYPRESS

-
Gambar
Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txtn1) + Val(txtn2) End If End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(t...
Baca selengkapnya