Prima Aji Pamungkas

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 = "PRIMA AJI PRINGSEWU" End If A = Mid(Combo1, 3, 3) If A = "MNJ" Then Text1 = "MANAJEMEN" Text2 = "PRIMA ...

Private Sub Form_load() CboKode.AddItem "Apple MC965 MacBook Pro" CboKode.AddItem "Apple MC966 MacBook Pro" CboKode.AddItem "Apple MC968 MacBook Pro" CboKode.AddItem "Apple MC969 MacBook Pro" 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 Cmdproses_Click() txthp = Val(txtjj) * Val(Txths) If txthp > 40000000 Then txtdis = (0.15) * Val(txthp) ...

Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" txtps = "Diploma Dua" ElseIf S = "2" Then txtjur = "Manajemen Informatika" txtps = "Strata Satu" ElseIf S = "3" Then txtjur = "Tehnik Informatika" txtps = "Diploma Tiga" ElseIf S = "4" Then txtjur = "Manajemen & Komp. Akuntansi" txtps = "Diploma Empat" End If txturut = Right(Txtnpm.Text, 4) End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnpm.SetFocus End If

Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" ElseIf S = "2" Then txtjur = "Manajemen Informatika" ElseIf S = "3" Then txtjur = "Tehnik Informatika" ElseIf S = "4" Then txtjur = "Manajemen & Komp. Akuntansi" End If S = Mid(Txtnpm, 4, 2) If S = "01" Then txtps = "Strata Satu" ElseIf S = "02" Then txtps = "Diploma Tiga" ElseIf S = "03" Then txtps = "Diploma Empat" ElseIf S = "00" Then txtps = "Diploma Dua" End If txturut= Right(Txtnpm, 3)  End Sub Private Sub Cmdkeluar_Cl...

Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub combo1_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Combo1.Text Case "I" gapok = 5500000 tunjangan = 250000 Case "II" gapok = 2000000 tunjangan = 250000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 Text3= gapok Text4 = tunjangan Text5 = pajak Text6 = total - pajak End...