Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttp = ""
txtkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkode, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp = Val(txtht) * (txtjt)
End If
End Sub
Langganan:
Posting Komentar (Atom)
cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab
Untuk menggambar grafik 3- dimensi memerlukan suatu titik koordinat yaitu x,y, dan z atau bisa disebut array. Fungsi-fungsi dari visu...
-
Untuk menggambar grafik 3- dimensi memerlukan suatu titik koordinat yaitu x,y, dan z atau bisa disebut array. Fungsi-fungsi dari visu...
-
Grayscale atau abu-abu pada sebuah image digital adalah image yang pada setiap pixelnya hanya berisikan informasi intensitas warna putih ...
-
Private Sub Cmdbatal_Click() cbokode = "" txtjb = "" txtpengarang = "" txttt = "" txtpenerbit = &q...
Tidak ada komentar:
Posting Komentar