Web Hosting
» » Contoh ByRef Pada Visual Basich : Perhitungan Nilai Mahasiswa [Pertemuan: VIII]

Monday, 30 March 2015

Contoh ByRef Pada Visual Basich : Perhitungan Nilai Mahasiswa [Pertemuan: VIII]

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.
Labels: