TUGAS 9

7.PNG

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textkt.SetFocus
Textkt = “”
Textht = “”
Textjk = “”
Textjb = “”
Textjt = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Textkt.Text, 3)
If S = “BIM” Then
Textjk.Text = “BIMA”
Textht.Text = “50000”
Textjb.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Textjk.Text = “EKONOMI”
Textht.Text = “35000”
Textjb.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Textjk.Text = “MUTIARA”
Textht.Text = “23000”
Textjb.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Textjk.Text = “SENJA”
Textht.Text = “15000”
Textjb.Text = “20.00 WIB”
End If
Texttp.Text = Val(Textht.Text) * Val(Textjt.Text)
Textjt.SetFocus
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Textjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttp = Val(Textht) * Val(Textjt)
End If
End Sub

8

Private Sub Cmdbatal_Click()
Txtkode.SetFocus
Txtkode.Text = “”
Txtjb.Text = “”
txtpeng.Text = “”
Txttp.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
Txtjb.Text = “”
txtpeng.Text = “”
Txttp.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
Txttp.Text = “20” & Mid(Txtkode, 5, 2)
S = Left(Txtkode, 3)
If S = “SIM” Then
Txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Fadiya Ulfa”
Txtharga.Text = “75900”
ElseIf S = “EDP” Then
Txtjb.Text = “Elektronik Data Processing”
txtpeng.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf S = “MNJ” Then
Txtjb.Text = “Manajemen”
txtpeng.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf S = “CDR” Then
Txtjb.Text = “Corel Draw”
txtpeng.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf S = “RPL” Then
Txtjb.Text = “Rekayasa Perangkat Lunak”
txtpeng.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
S = Right(Txtkode, 1)
If S = “A” Then
Txtpen.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Txtpen.Text = “Indah Surabaya”
ElseIf S = “S” Then
Txtpen.Text = “Salemba Empat”
ElseIf S = “E” Then
Txtpen.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Txtpen.Text = “Maxicom”
End If
End Sub

9.PNG

Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgol = “”
Textks = “”
Textstt = “”
Textt = “”
Textjab = “”
Textbag = “”
Textgp = “”
Texttun = “”
Texttg = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgol = “”
Textks = “”
Textstt = “”
Textt = “”
Textjab = “”
Textbag = “”
Textgp = “”
Texttun = “”
Texttg = “”
End Sub

Private Sub Cmdproses_Click()
Dim r As String
r = Mid(Textnik.Text, 5, 1)
If r = “A” Then
Textgol = “A”
Textjab.Text = “MANAGER”
Textgp.Text = “4000000”
Texttun.Text = “1025000”
ElseIf r = “B” Then
Textgol.Text = “B”
Textjab.Text = “Ka.SEKSI”
Textgp.Text = “3500000”
Texttun.Text = “975000”
ElseIf r = “C” Then
Textgol.Text = “C”
Textjab.Text = “STAFF”
Textgp.Text = “3000000”
Texttun.Text = “925000”
End If
r = Right(Textnik.Text, 3)
If r = “KEU” Then
Textbag.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Textbag.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Textbag.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Textbag.Text = “IT UNIT”
ElseIf r = “SPM” Then
Textbag.Text = “SECURITY”
End If
r = Mid(Textnik.Text, 7, 1)
If r = “S” Then
ks = “S”
Stt = “SINGLE”
ElseIf r = “M” Then
ks = “M”
Stt = “MENIKAH”
ElseIf r = “J” Then
ks = “J”
Stt = “JANDA”
ElseIf r = “D” Then
ks = “D”
Stt = “DUDA”
End If
Textks.Text = ks
Textstt.Text = Stt
Textt.Text = Left(Textnik.Text, 4)
Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text)
End Sub
Private Sub Form_Activate()
Textnama.SetFocus
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

Iklan

Diterbitkan oleh

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s