Pertemuan 5 | 9 Maret 2015 | Menghitung Nilai Akhir

Tutorial :  Membuat program untuk menghitung nilai akhir

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Absen	lblAbsen
Label2	Tugas	lblTugas
Label3	Keaktifan	lblKeaktifan
Label4	UTS	lblUTS
Label5	UAS	lblUAS
Label6	Nilai Akhir	lblNilai
Label7	Huruf	lblHuruf
Textbox1	-	txtAbsen
Textbox2	-	txtTugas
Textbox3	-	txtKeaktifan
Textbox4	-	txtUTS
Textbox5	-	txtUAS
Textbox6	-	txtNilaiAkhir
Textbox7	-	txtHuruf
Button1	Hitung	btnHitung
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class FormNilai 'deklarasi Dim hasil As Integer Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal 'coding untuk tombol Hitung (menghitung nilai) Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click absen = txtAbsen.Text * (20 / 100) tugas = txtTugas.Text * (15 / 100) aktif = txtKeaktifan.Text * (10 / 100) uts = txtUTS.Text * (25 / 100) uas = txtUAS.Text * (30 / 100) hasil = absen + tugas + aktif + uts + uas txtNilaiAkhir.Text = hasil If txtNilaiAkhir.Text >= 85 Then txtHuruf.Text = "A" ElseIf txtNilaiAkhir.Text >= 70 Then txtHuruf.Text = "B" ElseIf txtNilaiAkhir.Text >= 56 Then txtHuruf.Text = "C" ElseIf txtNilaiAkhir.Text >= 40 Then txtHuruf.Text = "D" Else txtHuruf.Text = "E" End If End Sub 'coding untuk tombol clear Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtAbsen.Clear() txtTugas.Clear() txtKeaktifan.Clear() txtUTS.Clear() txtUAS.Clear() txtNilaiAkhir.Clear() txtHuruf.Clear() End Sub 'coding untuk tombol exit Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan angka 100 pada tiap tiap textbox, kemudian klik tombol Hitung, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear

• Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.