Form Nilai Mahasiswa Menggunakan Visual Basic 2008

Gambar dibawaah ini adalah desain untuk "Form Nilai Mahasiswa"

Mungkin saya tidak perlu menjelaskan komponen - komponen desain "Form Nilai Mahasiswa" tersebut :) karena ini adalah materi dasar Visual Basic :p

Oke langsung saja, dibawah ini adalah code - code dari "Form Nilai Mahasiswa"

• Klik double Form 1 di sembarang tempat :)

PrivateSub Form1_Load (ByVal sender As   System.object, Byval e As System.EventArgs) HandlesMyBase.Load

npm.items.Add ("12110111")

npm.items.Add ("12110112")

npm.items.Add ("12110113")
npm.items.Add ("12110114")
npm.items.Add ("12110115") 

Kdosen.Items.Add("D-01")

Kdosen.Items.Add("D-02")

Kdosen.Items.Add("D-03")

Kdosen.Items.Add("D-04")

Kdosen.Items.Add("D-05")

kodeMT.Items.Add("MT-001")

kodeMT.Items.Add("MT-002")

kodeMT.Items.Add("MT-003")

kodeMT.Items.Add("MT-004")

kodeMT.Items.Add("MT-005")

Dim i AsInteger
For i = 1 To 100
            Nkehadiran.Items.Add(i)
Next i
        i = 1
DoWhile i <= 100
            Ntugas.Items.Add(i)
            i = i + 1
Loop
        i = 100
DoUntil i = 0
            Nuts.Items.Add(i)
            i = i - 1
Loop
        i = 100
While i >= 1
            Nuas.Items.Add(i)
            i = i - 1
EndWhile

EndSub

• Kemudian anda kembali lagi dengan Form1.vb [Desain] . Setelah itu klik double Combo Box "NPM"

PrivateSub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

SelectCase npm.Text

Case"12110111"

                nama.Text = "ARI IRAWAN"

Case"12110112"

                nama.Text = "SITI NURUL KHALISAH"

Case"12110113"

                nama.Text = "IKKE WIWIK NURJANNAH"

Case"12110114"

                nama.Text = "NOVI ANDRIANI"

Case"12110115"

                nama.Text = "IRMA SUSANTI"

CaseElse

                nama.Text = "-"

EndSelect

Dim x AsString

        x = Microsoft.VisualBasic.Right(npm.Text, 3)

Select x

Case"111"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem Informasi"

Case"112"

                jenjang.Text = "D3"

                jurusan.Text = "Teknik Informatika"

Case"113"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem Informasi"

Case"114"

                jenjang.Text = "D3"

                jurusan.Text = "Teknik Informatika"

Case"115"

                jenjang.Text = "D1"

                jurusan.Text = "Desain Grafis"

EndSelect

EndSub

• Kemudian anda kembali lagi :) dengan Form1.vb [Desain]. Setelah itu klik double Combo Box "Kode Dosen"

PrivateSub Kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdosen.SelectedIndexChanged

Select Kdosen.Text

Case"D-01"

                Ndosen.Text = "PURNAWAN ABADI S.KOM"

Case"D-02"

                Ndosen.Text = "SETIAWAN WIJAYA M.KOM"

Case"D-03"

                Ndosen.Text = "MAHARANI PUTRI S.KOM"

Case"D-04"

                Ndosen.Text = "PUTRA SINAGA M.KOM"

Case"D-05"

                Ndosen.Text = "REZA BAMBANG M.KOM"

EndSelect

EndSub 

• Kemudian anda kembali lagi :p dengan Form1.vb [Desain]. Setelah itu klik double "Kode Mata Kuliah"

PrivateSub kodeMT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodeMT.SelectedIndexChanged

SelectCase kodeMT.Text

Case"MT-001"

                MT.Text = "AGAMA ISLAM"

Case"MT-002"

                MT.Text = "BAHASA INGGRIS"

Case"MT-003"

                MT.Text = "PEMPROGRAMAN WEB"

Case"MT-004"

                MT.Text = "STRUKTUR DATA"

Case"MT-005"

                MT.Text = "JARINGAN WEB"

EndSelect

EndSub 

• Kemudian anda kembali lagi ne dengan Form1.vb [Desain] nya (hehehe maap ne ye, bolak balik kata-kata nya :p) . Ok setelah itu klik double  lagi ne :/ tapi yang ini beda, :) klik double "Button Proses" ... hehehe sama aja ye... :D

PrivateSub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

         

NA.Text = (0.1 * Val(Nkehadiran.Text)) + (0.15 * Val(Ntugas.Text)) + (0.35 * Val(Nuts.Text)) + (0.4 * Val(Nuas.Text))

SelectCase NA.Text

CaseIs>= 80

                NH.Text = "A"

                KET.Text = "Lulus"

Case 70 To 79

                NH.Text = "B"

                KET.Text = "Lulus"

Case 60 To 69

                NH.Text = "C"

                KET.Text = "Lulus"

Case 50 To 59

                NH.Text = "D"

                KET.Text = "Gagal"

CaseIs<= 49

                NH.Text = "E"

                KET.Text = "Gagal"

EndSelect

EndSub 

• Kemudian kembali lagi dengan Form1.vb [Desain]. Setelah itu klik double "Button Hapus" 

PrivateSub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

npm.Text = ""

nama.Text = ""

jenjang.Text = ""

jurusan.Text = ""

Kdosen.Text = ""

Ndosen.Text = ""

kodeMT.Text = ""

MT.Text = ""

Nkehadiran.Text = ""

Ntugas.Text = ""

NA.Text = ""

Nuas.Text = ""

Nuts.Text = ""

NH.Text = ""

KET.Text = ""

npm.Focus()

EndSub

• Sumpah ini yang terakhir deh :) Kemudian kembali lagi dengan Form1.vb [Desain]. setelah itu klik double "Button Keluar" 

PrivateSub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

End

EndSub

•   Huft,,, Setelah semuanya selesai anda input kan, kemudian anda tekan F5 yang ada  di keyboard anda :) . 
• Jren jreng jreng ini lah hasilnya ,,,,,,

Terima kasih !!! Semoga bermanfaat yoooo ....