tugas 8.1

ABI 8.1

Private Sub Cmdlagi_Click()
txtjb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.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 = “rizky kurniawan”

h = “75900”

ElseIf a = “MNJ” Then

b = “MANAJEMEN”

c = “abi kuniawan”

h = “42000”

ElseIf a = “EDP” Then

b = “ELECTRONIK DATA PROCESSING”

c = “rido sanjaya”

h = “62000”

ElseIf a = “CDR” Then

b = “COREL DRAW”

c = “yazir saputra”

h = “53000”

ElseIf a = “RPL” Then

b = “REKAYASA PERANGKAT LUNAK”

c = “mat sukri”

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 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 Form_Load()

cbokb.AddItem “A-SIM-01”

cbokb.AddItem “I-EDP-14”

cbokb.AddItem “S-MNJ-13”

cbokb.AddItem “E-CDR-12”

cbokb.AddItem “M-RPL-11”

End Sub

Advertisements