Pertemuan 7, 30 Maret 2015 : Membuat Aplikasi Perhitungan Nilai Mahasiswa Menggunakan Parameter ByRef di Visual basic 2008

1. Pertama Buka aplikasi VISUAL BASIC 2008, 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. Buat atribut seperti ini :


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. Kemudian coba jalankan dengan meng klik tombol Run coba.

Berikut hasilnya




! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J