Tugas 3.7

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Command1_Click()

Dim A As String

A = Mid(Text1, 1, 3)

If A = "SIM" Then

Text2 = "Sistem Informasi Manajemen"

Text3 = "Fadiya Ulfa"

Text6 = "75900"

ElseIf A = "EDP" Then

Text2 = "Elektronik Data Proseccing"

Text3 = "Nurul Agustina"

Text6 = "62000"

ElseIf A = "MNJ" Then

Text2 = "MANAJEMEN"

Text3 = "Rian Hidayat"

Text6 = "42000"

ElseIf A = "CDR" Then

Text2 = "Corel Draw"

Text3 = "Siti Nur Khotima"

Text6 = "53000"

ElseIf A = "RPL" Then

Text2 = "Rekayasa Perangkat Lunak"

Text3 = "Winda Erlianti"

Text6 = "83000"

End If

A = Mid(Text1, 5, 2)

If A = "09" Then

Text4 = "2009"

ElseIf A = "10" Then

Text4 = "2010"

ElseIf A = "11" Then

Text4 = "2011"

ElseIf A = "12" Then

Text4 = "2012"

ElseIf A = "13" Then

Text4 = "2013"

End If

A = Mid(Text1, 8, 1)

If A = "A" Then

Text5 = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

Text5 = "Indah Surabaya"

ElseIf A = "S" Then

Text5 = "Salemba Empat"

ElseIf A = "E" Then

Text5 = "Elek Media Komputindo"

ElseIf A = "M" Then

Text5 = "Maxicom"

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub