Source Code Program Check IPK

Cara Membuat Program Check IP

Kali ini saya akan berbagi cara membuat program check IPK (index prestasi komulatif) mahasiswa menggunakan bahasa pemrograman vb 2008, fungsi dari program ini adalah untuk menentukan kategori IPK yang telah kita dapatkan, didalam program ini saya membuatkan 3 tombol button yang mana ada 3 fungsinya yaitu: untuk check IPK, untuk mereset ulang program, dan yang terakhir untuk keluar.

Sebenarnya program ini masih sangat sederhana sehingga saya menyarankan bagi kawan-kawan kalau ingin mengembangkan silakan bisa mengembangkannya sesuai keinginan anda. baik agar tidak terlalu berbelit-belit langsung aja check tutorial berikut

• Pertama buat tampilan seperti ini:



• Berikut Toolbox yang Harus Anda Gunakan







• Berikut Listing untuk Program Check IP ini:



Dim angka AsInt16
bcheck

Private Sub Bcheck_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Bcheck.Click
        Try
            Iftb1.Text > 4 And tb1.Text <= 22262 Then
                tbpred.Text = "IP Max 4.00"
            ElseIftb1.Text < 0 And tb1.Text >= -22268 Then
                tbpred.Text = "IP Min 0"
            ElseIftb1.Text > 22262 Then
                MsgBox("Warning!!Anda Melewati Batas Max")
            ElseIftb1.Text < -22268 Then
                MsgBox("Warning!!Anda Melewati Batas Min")
            ElseIftb1.Text >= 3.5 And tb1.Text <= 4.0 Then
                tbpred.Text = "Cumlaude"
            ElseIftb1.Text >= 3.0 And tb1.Text < 3.5 Then
                tbpred.Text = "Amat Baik"
            ElseIftb1.Text >= 2.5 And tb1.Text < 3 Then
                tbpred.Text = "Baik"
            ElseIftb1.Text >= 2 And tb1.Text < 2.5 Then
                tbpred.Text = "Cukup"
            Else
                tbpred.Text = "Tidak Lulus"
            EndIf
        Catchex As Exception
            MsgBox("Only For Number")
        End Try
    End Sub
bdefault



Private Sub Bdefault_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Bdefault.Click
        tb1.Text = ""
        tbpred.Clear()
        tb1.Focus()
    End Sub
bclose



Private Sub Bclose_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Bclose.Click
        Close()
    End Sub

Nb: untuk membuat desain GUI-nya anda bisa memvariasakannya sendiri

SEMOGA BERMANFAAT

Download Source Code-nya DISINI

Baca Juga Selengkapnya Kumpulan Project VB 2008 DISINI

Author : Unknown

Share this

Related Posts