tugas 3.program13

13

Private Sub CMDBATAL_Click()

TXTKB.SetFocus

TXTKB.Text = “”

TXTJB.Text = “”

TXTP.Text = “”

TXTPENERBIT.Text = “”

TXTHG.Text = “”

TXTTAHUN.Text = “”

End Sub

Private Sub CMDKELUAR_Click()

End

End Sub

Private Sub CMDLAGI_Click()

TXTKB.SetFocus

TXTKB.Text = “”

TXTJB.Text = “”

TXTP.Text = “”

TXTPENERBIT.Text = “”

TXTHG.Text = “”

TXTTAHUN.Text = “”

End Sub

Private Sub CMDPROSES_Click()

Dim s As String

TXTTAHUN.Text = “20” & Right(TXTKB.Text, 2)

s = Left(TXTKB.Text, 1)

If s = “A” Then

TXTPENERBIT.Text = “andi offset yogyakarta”

TXTHG.Text = “75900”

ElseIf s = “I” Then

TXTPENERBIT.Text = “indah surabaya”

TXTHG.Text = “62000”

ElseIf s = “S” Then

TXTPENERBIT.Text = “salemba empat”

TXTHG.Text = “42000”

ElseIf s = “E” Then

TXTPENERBIT.Text = “elekmedia komputindo”

TXTHG.Text = “53000”

ElseIf s = “M” Then

TXTPENERBIT.Text = “Maxicom”

TXTHG.Text = “83000”

End If

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

If s = “SIM” Then

TXTP.Text = “andra setiawan”

TXTJB.Text = “sistem informasi manajemen”

ElseIf s = “EDP” Then

TXTP.Text = “desi istiqomah”

TXTJB.Text = “elektronik data procesing”

ElseIf s = “RPL” Then

TXTP.Text = “ernita sari”

TXTJB.Text = “rekayasa perangkat lunak”

ElseIf s = “MNJ” Then

TXTP.Text = “sandy fitrajaya”

TXTJB.Text = “manjemen”

ElseIf s = “CDR” Then

TXTP.Text = “tri indah sari”

TXTJB.Text = “corel draw”

End If

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