Pertemuan 4

RUMUS :
Public Class FormComboBox

Dim bpp, sks As Integer
Dim Jurusan, kuliah As String


Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtNPMMahasiswa.Text = ""
TxtNamaMahasiswa.Text = ""
TxtAlamat.Text = ""
TxtJumlahSKS.Text = ""
LblBPP.Text = ""
LblSKS.Text = ""
LblTotalBiaya.Text = ""
CmbJurusan.Text = ""
LBData.Items.Clear()
End Sub

Private Sub LBData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBData.SelectedIndexChanged

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

End Sub

Private Sub FormComboBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CmbJurusan.Items.Clear()
CmbJurusan.Items.Add("TI")
CmbJurusan.Items.Add("SI")
CmbJurusan.Items.Add("MI")
CmbJurusan.Items.Add("KA")
CmbJurusan.Items.Add("TK")
End Sub

Private Sub RbPagi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbPagi.CheckedChanged
kuliah = "PAGI"
bpp = 1500000
sks = 75000
End Sub

Private Sub RbSore_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbSore.CheckedChanged
kuliah = "SORE"
bpp = 1750000
sks = 100000
End Sub

Private Sub TxtJumlahSKS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlahSKS.KeyPress
If e.KeyChar = Chr(13) Then
lblBPP.Text = bpp
LblSKS.Text = Val(TxtJumlahSKS.Text) * sks
LblTotalBiaya.Text = Val(lblBPP.Text) + Val(LblSKS.Text)
End If
End Sub

Private Sub TxtJumlahSKS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlahSKS.TextChanged

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
If MsgBox("Apa kamu mau keluar dari sini?", MsgBoxStyle.YesNo, "EXIT") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnKeluar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles BtnKeluar.KeyPress

End Sub

Private Sub CmbJurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbJurusan.SelectedIndexChanged
Select Case CmbJurusan.SelectedIndex
Case 0 : Jurusan = "Teknik Informatika (S-1)"
Case 1 : Jurusan = "Sistem Informatika (S-1)"
Case 2 : Jurusan = "Manajemen Informatika (D-3)"
Case 3 : Jurusan = "Komputerisasi akuntasi (D-3)"
Case 4 : Jurusan = "Teknik Komputer (D-3)"
End Select
End Sub

Private Sub LblBPP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblBPP.Click

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
LBData.Items.Add("DATA PEMBAYARAN")
LBData.Items.Add("")
LBData.Items.Add("NPM : " + TxtNPMMahasiswa.Text)
LBData.Items.Add("Nama : " + TxtNamaMahasiswa.Text)
LBData.Items.Add("Jurusan : " + CmbJurusan.Text)
LBData.Items.Add("Alamat : " + TxtAlamat.Text)
LBData.Items.Add("Waktu Kuliah : " + kuliah)
LBData.Items.Add("")
LBData.Items.Add("")
LBData.Items.Add("TOTAL YANG DIBAYAR : " + LblTotalBiaya.Text)


End Sub

Private Sub lblBPP_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblBPP.Click

End Sub
End Class