Phinasti Stmik Pringsewu

Private Sub cmdbatal_Click() Txtkode = ”” Txtjudul   = ”” Txtpengarang   = ”” Txtterbit = ”” Txtpenerbit   = ”” Txtharga = “” Txtkode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtkode = ”” Txtjudul   = ”” Txtpengarang   = ”” Txtterbit = ”” Txtpenerbit   = ”” Txtharga = “” Txtkode.SetFocus End Sub Private Sub cmdproses_Click() Dim P, JB, PENG, HAR, PENER As String Txtterbit.Text = "20" & Mid(txtkode.Text, 5,2) P = Left(txtkode.Text, 3) If P = " SIM"   Or P = “ sim” Then JB   = "Sistem Informasi Manajemen" PENG =   "Fadiya Ulfa" HAR =   "75900" ElseIf P = "EDP" Or P = “edp” Then JB   = " Elektronik Data Processing" PENG =   " Nurul Agustina" HAR =   "62000" ElseIf P = "MNJ" Or P = “mnj” Then JB   = "Manajemen" PENG =   "Rian Hidayat" HAR =  

Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtkt = ”” Txtht = ”” Txtjk = ”” Txtjb = ”” Txtjt = ”” Txttotalp = “” Txtkt.SetFokus End Sub Private Sub cmdproses_Click() Dim P, JK, HT, JB As String P= Left(txtkt.Text,3) If P = ”BIM” Or P = “bim” Then JK = “BIMA” HT = “20000” JB = “15.00” ElseIf P = ”EKO” Or P = “eko” Then JK = “EKONOMI” HT = “25000” JB = “16.00” ElseIf P = ”MUT” Or P = “mut” Then JK = “MUTIARA” HT = “30000” JB = “17.00” ElseIf P = ”SEN” Or P = “sen” Then JK = “SENJA” HT = “35000” JB = “17.00” End If Txtjk.Text   = JK Txtht. Text = HT Txtjb. Text = JB Txtjt.SetFocus End Sub Private Sub Form_Activate() Txtkt. SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttotalp = Val(txtht.Text) * val (txtjt. Text) End If End Sub