RETNO STMIK PRINGSEWU

Private Sub Command1_Click() Dim A As String A = Mid(Text1, 1, 3) If A = "SIM" Then Text2 = "Sistem Informasi Manajemen" Text3 = "Fadiya Ulfa" Text6 = "75900" ElseIf A = "EDP" Then Text2 = "Elektronik Data Proseccing" Text3 = "Nurul Agustina" Text6 = "62000" ElseIf A = "MNJ" Then Text2 = "MANAJEMEN" Text3 = "Rian Hidayat" Text6 = "42000" ElseIf A = "CDR" Then Text2 = "Corel Draw" Text3 = "Siti Nur Khotima" Text6 = "53000" ElseIf A = "RPL" Then Text2 = "Rekayasa Perangkat Lunak" Text3 = "Winda Erlianti" Text6 = "83000" End If A = Mid(Text1, 5, 2) If A = "09" Then Text4 = "2009" ElseIf A = "10" Then Text4 = "2010" ElseIf A = "11" Then Text4 = "2011" ElseIf A = "...

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" txttotalp = "" End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" End If If a = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txtjt.SetFocus End Sub Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(Txtjt) * Val(Txtht) End If End Sub

Private Sub Command1_Click() Dim A As String A = Mid(Combo1, 1, 1) If A = "A" Then Text4 = "Abdi Offsyet Yogyakarta" End If A = Mid(Combo1, 3, 3) If A = "SIM" Then Text1 = "Sistem Informasi Manajemen" Text2 = "Yati Nur Oktavia" Text5 = "75900" End If A = Mid(Combo1, 7, 2) If A = "01" Then Text3 = "2001" End If A = Mid(Combo1, 1, 1) If A = "I" Then Text4 = "Indah Surabaya" End If A = Mid(Combo1, 3, 3) If A = "EDP" Then Text1 = "Electronik Data Processing" Text2 = "Imam Tarmizi" Text5 = "62000" End If A = Mid(Combo1, 7, 2) If A = "02" Then Text3 = "2002" End If A = Mid(Combo1, 1, 1) If A = "S" Then Text4 = "Nur Aini" End If A = Mid(Combo1, 3, 3) If A = "MNJ" Then Text1 = "MANAJEMEN" Text2 = "Retno Nur" ...

Private Sub Command2_Click() CboKode = "" txtmerk = "" Txths = "" Txtdis = "" Txthp = "" Txtjj = "" Txttb = ""  End Sub Private Sub CboKode_Click() Dim s As String s = Mid(CboKode, 7, 5)   If s = "MC965" Then   txtmerk = "Apple MacBook Pro MC965"   Txths = "12800000"   End If   If s = "MC966" Then   txtmerk = "Apple MacBook Pro MC966"   Txths = "15800000"   End If   If s = "MC968" Then   txtmerk = "Apple MacBook Pro MC968"   Txths = "9900000"   End If   If s = "MC969" Then   txtmerk = "Apple MacBook Pro MC969"   Txths = "11900000"   End If   txtjj.SetFocus   End Sub Private Sub Command1_Click() txthp = Val(txtjj) * Val(Txths) If txthp > 40000000 Then txtdis = (0.15) * Val(txthp) ElseIf txthp > 35000000 Then txtd...