Cara Membuat Keterangan Nilai Akhir Semester Menggunakan Microsoft Visual Basic 2010 Express

Assalammualaikumm sobattt,,, kali ini saya mau memberi tutorial pembuatan keterangan nilai akhir untuk kelulusann menggunjakan Microsoft Visual Basic Exspress 2010, Langsung aja lahh yaa,, cekidotttt.............................

Cara Membuat Keterangan Nilai Akhir Semester Menggunakan Microsoft Visual Basic 2010 Express

· Pertama-tama bukalah aplikasi VB Express

· Lalu Buatlah sebuah projek dengan cara klik New Projek pada gambar dibawah ini :

· Setelah itu akan muncul gambar sebagai berikut :

· Langkah selanjutnya pilih lah Windows Forms Aplication, Setelah itu klik OK

· Jika sudah, buatlah design Forms sebagai berikut:

Keterangan:

No	OBJEK	PROPERTI	NILAI PROPERTI
1.	Label 1 s/d 8	Text	Urutkan Berdasarkan gambar ; -Nilai Akhir -UTS -UAS -Tugas -Absensi -Nilai Akhir -Huruf Mutu -Keterangan
2.	Button 1 s/d 3	Text Name Text Name Text Name	Urutkan Berdasarkan gambar : Check btCheck Clear btclear Tutup bttutup
3.	Textbox 1/7	Name Enabled	Urutkan Berdasarkan gambar: -txtuts -txtuas -txttugas -txtabsen -txtna -txthm -txtket Khusud untuk txtna & txthm nilai properties Enabled=False

· Setelah selesai,, Double klik pada bottom check, lalu tulislah Coding sebagai berikut :

Private Sub btCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCheck.Click

txtna.Text = Val(txtuts.Text * 0.3) + Val(txtuas.Text * 0.3) + Val(txttugas.Text * 0.3) + Val(txtabsen.Text * 0.1)

If Val(txtna.Text) >= 80 Then

txthm.Text = "A"

ElseIf Val(txtna.Text) >= 70 Then

txthm.Text = "B"

ElseIf Val(txtna.Text) >= 56 Then

txthm.Text = "C"

ElseIf Val(txtna.Text) >= 40 Then

txthm.Text = "D"

Else

txthm.Text = "E"

End If

Select Case txthm.Text

Case "A"

txtket.Text = "Sangat Baik"

Case "B"

txtket.Text = "Baik"

Case "C"

txtket.Text = "Cukup"

Case "D"

txtket.Text = "Kurang"

Case "E"

txtket.Text = "Sangat Kurang"

End Select

End Sub

· Lalu Double Klick pada bottom Clear, dan masukkan cocing sebagai berikut :

Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

Me.txtuts.Clear()

Me.txtuas.Clear()

Me.txtabsen.Clear()

Me.txttugas.Clear()

Me.txtna.Clear()

Me.txthm.Clear()

Me.txtket.Clear()

End Sub

· Langkah selanjutnya Double Klick pada Bottom Tutup dan masukkan Coding sebagai berikut :

Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

Me.Close()

End Sub

End Class

· Jika sudah selesai jalankanlah program tersebut dengan menekan tombol F5, maka tampilannya menjadi sebagai berikut, setelah itu silahkan masukkan nilai-nilai yang sesuai kemudian klik buttom check.

Pages

Cara Membuat Keterangan Nilai Akhir Semester Menggunakan Microsoft Visual Basic 2010 Express