visual basic
Category: Visual Basic
Private Sub Command1_Click()Dim kode As String
kode = UCase(Text1.Text)
Select Case kode
Case “11A”:
Text2.Text = “Akuntansi Komputer”
Text3.Text = “Siang”
Text4.Text = 9500000
Text5.Text = “”
Case “11B”:
Text2.Text = “Akuntansi Komputer”
Text3.Text = “Malam”
Text4.Text = 9500000
Text5.Text = 200000
Case “12A”:
Text2.Text = “Manajemen Informatika”
Text3.Text = “Siang”
Text4.Text = 9800000
Text5.Text = “”
Case “12B”:
Text2.Text = “Manajemen Informatika”
Text3.Text = “Malam”
Text4.Text = 9800000
Text5.Text = 2500000
End Select
Text6.Text = Val(Text4.Text) + Val(Text5.Text)
End Sub
Private Sub Command2_Click()
pesan = MsgBox(“Apakah Anda Yakin Ingin Keluar???”, vbYesNo, “Konfirmasi”)
If pesan = vbYes Then
End
Else
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End If
End Sub
Dari Hasil pengcodingan di atas akan didapatkan hasil seperti ini(salah satunya):
