Pertemuan 8, 13 April 2015 : Membuat Aplikasi Perhitungan Nilai Mahasiswa Menggunakan Parameter ByRef di Visual basic 2010

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

 

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

 

3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

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

4. Klik 2X pada Button2 (btnhitung), lalu isikan koding seperti berikut :

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

5. Klik 2X pada Button1 (btnclear), lalu isikan koding seperti berikut :

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

6. Klik 2X pada Button3 (btnexit), lalu isikan koding seperti berikut :

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

Close()

End Sub

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Sekian dan Terima Kasih.