Ane hari ini dikasih tugas ama dosen tuk nyelesain soal2 quis minggu kmren,, oke ayo kita kerjain….
Buka aplikasi visual basic
Buat form 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” & Right(Text1.Text, 2)
A = Mid(Text1.Text, 3, 3)
If A = “SIM” Then
JB = “Sistem Informasi Manajemen”
PN = “Andra setiawan”
H = “75900”
ElseIf A = “EDP” Then
JB = “Elektronik Data Processing”
PN = “Desi Istiqomah”
H = “62000”
ElseIf A = “MNJ” Then
JB = “Manajemen”
PN = “Sandi fitrajaya”
H = “42000”
ElseIf A = “CDR” Then
JB = “Corel Draw”
PN = “Ernita Sari”
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 = Left(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….