tugas3.program7

7

Private Sub CMDBATAL_Click()

KODEBUKU.SetFocus

KODEBUKU.Text = “”

TXTJB.Text = “”

TXTPG.Text = “”

TXTTT.Text = “”

TXTP.Text = “”

TXTH.Text = “”

End Sub

Private Sub CMDKELUAR_Click()

End

End Sub

Private Sub CMDLAGI_Click()

KODEBUKU.SetFocus

KODEBUKU.Text = “”

TXTJB.Text = “”

TXTPG.Text = “”

TXTTT.Text = “”

TXTP.Text = “”

TXTH.Text = “”

End Sub

Private Sub CMDPROSES_Click()

Dim s As String

TXTTT.Text = “20” & Right(KODEBUKU.Text, 2)

s = Mid(KODEBUKU.Text, 3, 3)

If s = “SIM” Then

TXTJB.Text = “Sistem Informasi Manajemen”

ElseIf s = “EDP” Then

TXTJB.Text = “Elektronik Data Processing”

ElseIf s = “MNJ” Then

TXTJB.Text = “Manajemen”

ElseIf s = “CDR” Then

TXTJB.Text = “Corel Draw”

ElseIf s = “RPL” Then

TXTJB.Text = “Rekayasa Perangkat Lunak”

End If

s = Left(KODEBUKU.Text, 1)

If s = “A” Then

TXTPG.Text = “Yati Nur Oktavia”

TXTH.Text = “75900”

TXTP.Text = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

TXTPG.Text = “Imam Tarmizi”

TXTH.Text = “620000”

TXTP.Text = “Indah Surabaya”

ElseIf s = “S” Then

TXTPG.Text = “Valentina Mariana adiwinanti”

TXTH.Text = “42000”

TXTP.Text = “Salemba Empat”

ElseIf s = “E” Then

TXTPG.Text = “Ryan Suhandi”

TXTH.Text = “53000”

TXTP.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

TXTPG.Text = “Sinta Umpu Singa”

TXTH.Text = “83000”

TXTP.Text = “Maxicom”

End If

TXTH.SetFocus

End Sub

Private Sub Form_Load()

KODEBUKU.AddItem “A-SIM-01”

KODEBUKU.AddItem “I-EDP-02”

KODEBUKU.AddItem “S-MNJ-03”

KODEBUKU.AddItem “E-CDR-04”

KODEBUKU.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