TUGAS 4 yang ke9

LINTANG9

Private Sub cmdbatal_Click()

Cbokb.SetFocus

Cbokb.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpen.Text = “”

Txth.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Cbokb.SetFocus

Cbokb.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpen.Text = “”

Txth.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim a, b, c, d As String

Dim h As Double

Txttt.Text = “20” & Right(Cbokb.Text, 2)

a = Mid(Cbokb.Text, 3, 3)

If a = “SIM” Then

b = “SISTEM INFORMASI MANAJEMEN”

c = “YATI NUR OKTAVIA”

h = “75900”

ElseIf a = “MNJ” Then

b = “MANAJEMEN”

c = “VALENTINA MARIANA ADIWIANTI”

h = “42000”

ElseIf a = “EDP” Then

b = “ELECTRONIK DATA PROCESSING”

c = “IMAM TARMIZI”

h = “62000”

ElseIf a = “CDR” Then

b = “COREL DRAW”

c = “RIYAN SUHANDI”

h = “53000”

ElseIf a = “RPL” Then

b = “REKAYASA PERANGKAT LUNAK”

c = “SINTA UMPUL SINGA”

h = “83000”

End If

Txtjb.Text = b

Txtpeng.Text = c

Txth.Text = h

d = Left(Cbokb.Text, 1)

If d = “A” Then

Txtpen.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf d = “I” Then

Txtpen.Text = “INDAH SURABAYA”

ElseIf d = “M” Then

Txtpen.Text = “MAXICOM”

ElseIf d = “S” Then

Txtpen.Text = “SURYA PERMAI”

ElseIf d = “E” Then

Txtpen.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

Private Sub Form_Load()

Cbokb.AddItem “A-SIM-01”

Cbokb.AddItem “I-EDP-02”

Cbokb.AddItem “S-MNJ-03”

Cbokb.AddItem “E-CDR-04”

Cbokb.AddItem “M-RPL-05”

End Sub

 

Iklan

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