Tugas Visual Basic

tampilannya adalah:


source codenya adalah:

Private Sub cmdhapus_Click()
txtkode_jurusan.Text = ""
txtjurusan.Text = ""
txtkelas.Text = ""
txtbiaya_persemester.Text = ""
txtbiaya_tambahan.Text = ""
txttotal.Text = ""
txtkode_jurusan.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim kode As String
kode = UCase(txtkode_jurusan.Text)
Select Case kode
Case "11 A":
txtjurusan.Text = "Akuntansi"
txtkelas.Text = "Siang"
txtbiaya_persemester.Text = 950000
Case "11 B":
txtjurusan.Text = "Akuntansi"
txtkelas.Text = "Malam"
txtbiaya_persemester.Text = 950000
Case "12 A":
txtjurusan.Text = "MI"
txtkelas.Text = "Siang"
txtbiaya_persemester.Text = 980000
Case "12 B":
txtjurusan.Text = "MI"
txtkelas.Text = "Malam"
txtbiaya_persemester.Text = 980000
End Select

If txtjurusan.Text = "Akuntansi" And txtkelas.Text = "Malam" Then
txtbiaya_tambahan = 200000
ElseIf txtjurusan.Text = "MI" And txtkelas.Text = "Malam" Then
txtbiaya_tambahan = 250000
Else
txtbiaya_tambahan.Text = 0
End If
txttotal = Val(txtbiaya_persemester.Text) + Val(txtbiaya_tambahan.Text)
End Sub



Private Sub txtbiaya_persemester_Change()
txtbiaya_persemester.ForeColor = vbRed
End Sub

Private Sub txtbiaya_tambahan_Change()
txtbiaya_tambahan.ForeColor = vbRed
End Sub

Private Sub txtjurusan_Change()
txtjurusan.ForeColor = vbRed
End Sub

Private Sub txtkelas_Change()
txtkelas.ForeColor = vbRed
End Sub

Private Sub txtkode_jurusan_Change()
txtkode_jurusan.ForeColor = vbRed
End Sub

Private Sub txttotal_Change()
txttotal.ForeColor = vbRed
End Sub