Contoh Program Sederhana Visual Basic Menghitung Nilai Mahasiswa

     Pada Contoh Program Sederhana kali ini, saya akan memberikan contoh program sederhana tentang menghitung nilai mahasiswa. Perhitungan dari beberapa nilai yang dijadikan nilai akhir seorang mahasiswa. Kita akan menggunakan operasi penjumlahan dan pembagian. Baiklah langsung saya kita ikuti langkah-langkahnya:

Baca Juga :  Contoh Program Queue Di C++

      1. Buat desain interface 

Silahkan kalian buat desain interface sesuai keinginan kalian, atau desain interface seperti yang saya buat berikut:
   

     setelah desain interface dibuat, kita harus mengubah rincian form agar mudah di ingat dalam pembuatan source code.

Baca Juga :  Contoh Program Visual Basic Membuat Perhitungan Pembelian Buah

  
     2. Rincian Form

No.	Object	Properties	Nilai
1.	Form1	Text	TUGAS 3
2.	Label1	Text	Nilai Mahasiswa
		Style Font	Script MT
		Font Size	24
		Bold	True
3.	Label2	Text	Data ke-
4.	Label3	Text	Nama
5.	Label4	Text	Nilai UTS
6.	Label5	Text	Nilai UAS
7.	Label6	Text	Nilai Quiz dan Tugas
8.	Label7	Text	Kehadiran
9.	ListBox1
10.	ListBox2
11.	Button1	Text	Reset
12.	Button2	Text	Tambah Data
13.	Button3	Text	Hitung Dan Tampilkan Data
14.	TextBox1
15	TextBox2
16.	TextBox3
17.	TextBox4
18.	TextBox5
19.	TextBox6

 
 Setelah selesai kita masukkan source codenya.

     3. Source Code

Public Class Form1

    Dim nama As String

    Dim uts, uas, tugas, kehadiran As Integer

    Dim akhir As Double

    Dim asiswa(2, 4) As String

    Dim aakhir(0) As Double

    Dim anama(0) As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        asiswa(TextBox1.Text - 1, 0) = TextBox2.Text

        asiswa(TextBox1.Text - 1, 1) = TextBox3.Text

        asiswa(TextBox1.Text - 1, 2) = TextBox4.Text

        asiswa(TextBox1.Text - 1, 3) = TextBox5.Text

        asiswa(TextBox1.Text - 1, 4) = TextBox6.Text

        ListBox1.Items.Add(asiswa(TextBox1.Text - 1, 0) & vbTab & asiswa(TextBox1.Text - 1, 1) & vbTab & asiswa(TextBox1.Text - 1, 2) & vbTab & asiswa(TextBox1.Text - 1, 3) & vbTab & asiswa(TextBox1.Text - 1, 4))

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        nama = TextBox2.Text

        uts = TextBox3.Text

        uas = TextBox4.Text

        tugas = TextBox5.Text

        kehadiran = TextBox6.Text

        akhir = (CDbl(uts * 0.3) + CDbl(uas * 0.4) + CDbl(tugas * 0.2) + CDbl(kehadiran * 0.1))

        ReDim Preserve anama(anama.Length)

        anama(anama.Length - 1) = nama

        ReDim Preserve aakhir(aakhir.Length)

        aakhir(aakhir.Length - 1) = akhir

        ListBox2.Items.Add(anama(anama.Length - 1) & vbTab & aakhir(aakhir.Length - 1))

    End Sub

End Class

 
jika sudah selesai silahkan di run.
dan hasilnya kurang lebih seperti gambar berikut

 Terima Kasih...
Selamat Mencoba...