tugas 6

 

IMG_20160103_215245

Private Sub kosong()

Cbokd.SetFocus

Cbokd.Text = “”

Txtjb.Text = “”

Txtpg.Text = “”

Txtth.Text = “”

Txtpn.Text = “”

Txtha.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Cbokd.Text, 1, 1)

If b = “A” Then

Txtpn.Text = “Andi Offset Yogyakarta”

ElseIf b = “I” Then

Txtpn.Text = “Indah Surabaya”

ElseIf b = “S” Then

Txtpn.Text = “Salemba Empat”

ElseIf b = “E” Then

Txtpn.Text = “Elek Media Komputindo”

ElseIf b = “M” Then

Txtpn.Text = “Maxicom”

End If

b = Mid(Cbokd.Text, 3, 3)

If b = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

Txtha.Text = “75900”

Txtpg.Text = “Yati Nur OKtavia”

ElseIf b = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

Txtha.Text = “62000”

Txtpg.Text = “Imam Tarmizi”

ElseIf b = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtha.Text = “42000”

Txtpg.Text = “Valentina Mariana Adiwianti”

ElseIf b = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtha.Text = “53000”

Txtpg.Text = “Riyan Suhandi”

ElseIf b = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

Txtha.Text = “83000”

Txtpg.Text = “Sinta Umpu Singa”

End If

Txtth.Text = “20” & Right(Cbokd.Text, 2)

End Sub

 

Private Sub Form_Load()

Cbokd.AddItem “A-SIM-01”

Cbokd.AddItem “I-EDP-02”

Cbokd.AddItem “S-MNJ-03”

Cbokd.AddItem “E-CDR-04”

Cbokd.AddItem “M-RPL-05”

End Sub

Standard

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s