VB NET.APLIKASI MENGHITUNG NILAI SISWA

Baik langsung saja kita pada halam form1nya dimana kita mengguna sebagian perintah dari tools yaitu sebagai berikut

1. Label1-8
2. Combobox 2
3. Textboxt 5
4. Button 3
Lihat gambar 1 dan 2 di bawah ini
 

 baikkita teruskan untuk mengubah gambar 1 menjadi gambar 2 di atas langkahnya sebagai berikut
1. Pada porperti halaman form1 lihat dan cari text label1



2. Pada porperti sesuaikan dengan text di bawah ini
1. Text label1=text NPM
2. Text label2=text nama
3. Text label3=text ALAMAT
4. Text label4=text MATERI
5. Text label5=text NILAI UTS
6. Text label6=text NILAI UAS
7. Text label7=text HASIL
8. Text button1=text PROSE
9. Text button2=text HAPUS
10. Text button3=text KELUAR




Sekarang kita ganti nama “name” pada combobox dan textboknya
 Pada klik combobox pada form dan sesuaikan seperti teks di bawah ini
Pada porperti

1. Name =combox1 ganti dengan name =NAMA
2. Name =combox1 ganti dengan name =MATERI
3. Name =textbox1 ganti dengan name =NAMA
4. Name =combox2 ganti dengan name =ALAMAT
5. Name =combox3 ganti dengan name =UTS
6. Name =combox4 ganti dengan name =UAS
7. Name =combox5 ganti dengan name =HASIL

Setelah selesai menyesuaikan semua perintah dalam form1 sekarang kita masuk pada source pengkodean,berikut adalah source kode pada setiap bagiannya,ikuti langkah berikut ini

Klik pada bagian halam kosong form1 akan muncul tataletak atau letak kita tempatkan kode bahasa pemograman VB.NET.untuk itu langkahnya sebagai berikut

1. Pada bagian kosong pada form1 klik double dan masukan kode di bawah ini

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("13110160")
        NPM.Items.Add("13110170")
        NPM.Items.Add("13110180")
        MATERI.Items.Add("VB.NET 2008")
        MATERI.Items.Add("MATEMATIKA")
        MATERI.Items.Add("AGAMA")
    End Sub
End Class

2. Pada combobox “NPM” klik double dan masukkan kode di bawah ini

Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        If NPM.Text = "13110160" Then
            NAMA.Text = "APERIUS GIAWA"
            ALAMAT.Text = "DESA BOTOHILI KECAMATAN LOLOWA'U KAB.NIAS SELATAN"
        ElseIf NPM.Text = "13110170" Then
            NAMA.Text = "ARIS LOMBU"
            ALAMAT.Text = "DESA LOLOWA U KEC.LOLOWAU KAB.NIAS BARAT"
        ElseIf NPM.Text = "13110180" Then
            NAMA.Text = "ARIS GIAWA"
            ALAMAT.Text = "MEDAN KOTA"
        End If
    End Sub
End Class
3. Klik pada buton keluar dan masukan kode di bawah ini

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

4. Klik double pada button hapus dan masukkan kode dibawah ini

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NPM.Text = ""
        NAMA.Text = ""
        ALAMAT.Text = ""
        UTS.Text = ""
        UAS.Text = ""
        HASIL.Text = ""
        MATERI.Text = ""
    End Sub
End Class

Jalankan programnya dengan menekan tombol F5 pada keyboard klik pada combobox NPM manaka lihatlah apa yang keluart,kemudian klik pada bagian materinya dan lihat apa yang keluar

Pada bagian nilai UTS dan UASnya masukan sendiri yahh kan pernah juga saya masukkan di blog sebelumnya


Sekiat dan terimakasih pertemuan kita pada malam hari ini semoga bermanfaat
Jika ada kata atau sorce kode yang salah meletakkan atau salah mencantumkan mohon di maafkan
 Hasil setelah di jalankan