TUGAS QUIS 2

Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….

• Buka aplikasi visual basic
• Buat forem sperti berikut

• Pada command proses, masukkan kode seperti berikut

Private Sub Command1_Click()

Dim JB, PN, PB As String

Dim H As Currency

Text4.Text = “20” & Mid(Text1.Text, 5, 2)

A = Left(Text1.Text, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PN = “Fadiya Ulfa”

H = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PN = “Nurul Agustina”

H = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PN = “Rian Hidayat”

H = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PN = “Siti Nur Khotimah”

H = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PN = “Winda Erlianti”

H = “83000”

End If

Text2.Text = JB

Text3.Text = PN

Text6.Text = H

B = Right(Text1.Text, 1)

If B = “A” Then

Text5.Text = “Andi offset Yogyakarta”

ElseIf B = “I” Then

Text5.Text = “Indah Surabaya”

ElseIf B = “S” Then

Text5.Text = “Salemba Empat”

ElseIf B = “E” Then

Text5.Text = “Elek Media Komputindo”

ElseIf B = “M” Then

Text5.Text = “Maxicom”

End If

End Sub

 

• Selesai. Untuk command2 yg lain,, agan2 pasti dah ngerti donk…
• Ni hasilnya….