FORM MAHASISWA PBO1

Form Design Awal

TXTNama_KeyPress 


If e.KeyChar = Chr(13) Then
            TxtNPM.Focus()
        End If



TXTNPM_KeyPress

If e.KeyChar = Chr(13) Then

            LblJurusan.Text = Microsoft.VisualBasic.Mid(TxtNPM.Text, 5, 2)
            LblAngkatan.Text = Microsoft.VisualBasic.Left(TxtNPM.Text, 4)

            If LblJurusan.Text = "24" Then
                LblJurusan.Text = "Sistem Informasi"
            ElseIf LblJurusan.Text = "25" Then
                LblJurusan.Text = "Teknik Informatika"
            ElseIf LblJurusan.Text = "11" Then
                LblJurusan.Text = "Manajemen Informatika"
            ElseIf LblJurusan.Text = "13" Then
                LblJurusan.Text = "Komputerisasi Akuntansi"
            ElseIf LblJurusan.Text = "12" Then
                LblJurusan.Text = "Teknik Komputer"

            End If

        End If

Radio Button Pagi_Checked


        biaya = 60000
        lblBiayaper.Text = biaya
        txtJml.Focus()

Radio Button Sore_Checked

        biaya = 70000
        lblBiayaper.Text = biaya
        txtJml.Focus()

Txt_Jumlah SKS_KeyPress

If e.KeyChar = Chr(13) Then

            LblTotalB.Text = biaya * Val(txtJml.Text)

        End If

Button Kosong_Click

 TXTNama.Text = ""

        TxtNPM.Text = ""

        txtJml.Text = ""

        LblAngkatan.Text = ""

        LblJurusan.Text = ""

        LblTotalB.Text = ""

        lblBiayaper.Text = ""

        RbPagi.Checked = False

        RbSore.Checked = False

        TXTNama.Focus()

Button Keluar_Click 

button = MessageBox.Show _

       ("Apakah Anda Yakin Ingin Keluar dari Aplikasi?", _

       "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

        If Button = Windows.Forms.DialogResult.Yes Then

            Me.Close()

        Else

            'Do Nothing

        End If

F5 Debug Preview

SEMOGA BERMANFAAT

---