Program Nilai Pelajaran dengan Virtual Basic

“DAFTAR NILAI SISWA”

Ini merupakan program sederha yang saya buat yaitu “DAFTAR NILAI SISWA”

Langkah pertama buat lah Form program seperti di bawah ini:

Toolbox yang digunakan antara lain adalah:

1. Untuk Penamaan “judul” sampai “mata pelajaran & hasi;l nilai” mengunakan tool Label

2. Untuk kolom yang ada tanda panah kebawah menggunakan tool Combobox

3. Untuk kolom kosong menggunakan tool TextBox

4. Untuk Tampilan,Reset & Keluar  menggunakan tool RadioButton

 

·         Langkah pertama pillih New Project.

 

·         Pilih Windows Form application.

·         Buat nama : Program Penghitungan Nilai

·         Lalu tekan OK.

·         Setelah itu akan muncul lembar baru seperti di atas.

 

·         Pillih menu Toolbox disanna terdapat banyak pilihan lalu pillih label untuk membuat “judul,mata pelajaran & hasil nilai”.

·         Setelah itu pilih button pada menu toolbox untuk membuat “Tampilkan,Reset & Keluar.

 

BERIKUT CODINGAN DARI PROGRAM “DAFTAR NILAI SISWA” DI ATAS

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

        MsgBox("Jumlah Nilai :" & Txtjml.Text & vbNewLine &

                "Rata-Rata   :" & Txtrata.Text)

    End Sub

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

        TxtBhsind.Clear()

        TxtBingg.Clear()

        TxtMtk.Clear()

        Txtjml.Clear()

        Txtrata.Clear()

    End Sub

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

        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2,

                      "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Txtjml.Text = Val(TxtBhsind.Text) + Val(TxtBingg.Text) + Val(TxtMtk.Text)

        Txtrata.Text = Val(Txtjml.Text) / 3

    End Sub

    Private Sub TxtMtk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtMtk.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

End Class