Membuat Project Aplikasi Perhitungan Nilai Mahasiswa dengan VB 2010

Assalamualaikum Wr.Wb

Selamat siang kawan-kawan seperjuangan, kalian pasti mencari sebuah tutorial yang berkaitan tentang tugas kuliah kalian tentang vb 2010, Apa kaliah telah mengenal VB 2010? Apakah kalian sudah mengerti cara menggunakannya? Jika belum mari dibaca beberapa pengenalan tentang vb 2010.

Pengertian VB 2010 atau Microsoft Visual Basic.
adalah aplikasi yang sering digunakan oleh Programmer atau lebih dalam Sebuah bahasa pemograman komputer. Nama lain dari vb 2010 ini adalah VB. Net 2010 jadi jangan heran ada yang membuat tutor tentang vb net. Vb 2010 aplikasi yang berbasis windows. Programmer handal pun masih menggunakan vb 2010 ini. Berikut ini sedikit penjelasan tentang kemampuan dari vb 2010 ini :

1.Untuk membuat objet pembantu, Mungkin anda sudah paham maksudnya tidak perlu dijelasin.
2.dan yang paling utama dari aplikasi ini yaitu untuk membuat aplikasi berbasis windows
3.terakhir menghasilakan program berakhir EXE yang arti nya dapat langsung dijalankan.

gimana anda sudah mengerti apa itu vb? selanjutnya sesuai dengan judul diatas "Membuat Aplikasi Perhitungan Nilai Mahasiswa dengan VB 2010.

1. Anda harus membuat desain interface program yang akan kita buat. (Lihat gambar dibawah)

2. Buat beberapa komponen yang ada ditoolbox :

1. 1 buah GroupBox : Text : Nilai Akhir Mahasiswa
2. 7 Buah Label
1. Label 1 : Text : Nama Mahasiswa
2. Label 2 : Text : Absen
3. Label 3 : Text : Tugas
4. Label 4 : Text : Keaktifan
5. Label 5 : Text : Uts
6. Label 6 : Text : Uas
7. Label 7 : Text : Nilai
3. 7 Buah TextBox
1. Textbox 1 : (name) : txtnama
2. Textbox 2 : (name) : txtabsen
3. Textbox 3 : (name) : txttugas
4. Textbox 4 : (name) : txtkeaktifan
5. Textbox 5 : (name) : txtuts
6. Textbox 6 : (name) : txtuas
7. textbox 7 : (name) : txtnilaiakhir
4. 3 Buah Button
1. Button 1 | (name) : btnclear, text : clear
2. Button 2 | (name) : btnhitung, text : Hitung
3. Button 3 | (name) : btnexit, text : exit

Perhatian : Sesuiakan dengan huruf 

3. Setelah anda buat seperti gambar yang diatas lanjut anda akan mengisi kodingnya agar berfungsi ketika dijalankan. Ikuti caranya :

• Klik 2x pada button2(btnhitung) kemudian isi kodingnya

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

Dim absen, tugas, keaktifan, uts, uas As Integer
Dim nilaiakhir As Integer

absen = txtabsen.Text * 20 / 100
tugas = txttugas.Text * 15 / 100
keaktifan = txtkeaktifan.Text * 10 / 100
uts = txtuts.Text * 25 / 100
uas = txtuas.Text * 30 / 100

nilaiakhir = absen + tugas + keaktifan + uts + uas
txtnilaiakhir.Text = nilaiakhir

If nilaiakhir > 85 Then
MsgBox(“Nilai A”)
ElseIf nilaiakhir > 70 Then
MsgBox(“Nilai B”)
ElseIf nilaiakhir > 60 Then
MsgBox(“Nilai C”)
ElseIf nilaiakhir > 50 Then
MsgBox(“Nilai D”)
ElseIf nilaiakhir > 0 Then
MsgBox(“Nilai E”)

End If

End Sub
Function Grade(ByRef nilairatarata As Integer)
Dim hasil As Boolean
If nilairatarata <= 40 Then
hasil = True
Else
hasil = False
End If
Return hasil
End Function

• Klik 2x pada button1(btnclear) isi koding :

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtnama.Clear()
txtabsen.Clear()
txttugas.Clear()
txtkeaktifan.Clear()
txtuts.Clear()
txtuas.Clear()
txtnilaiakhir.Clear()
End Sub

 

•  Klik 2x pada Button3(btnexit),isi koding :

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Close()
End Sub

4. Finish. Anda harus teliti dalam mengisi kodingnya jika salah sedikit maka tidak akan berhasil.  




  HASILNYA : 

Selamat mencoba kawan-kawan dan Good Luck.


Assalamu’alaikum Wr Wb.