APLIKASI HITUNG IPK MENGGUNAKAN FUNCTION
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi hitung IPK menggunakan Function di vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , "TextBox" , "Label" , "GroupBox" seperti gambar di bawah ini
6. Maka hasilnya akan muncul form seperti gambar di bawah ini
7. Kemudian copy sript di bawah ini
'MUHAMMAD SAEPUL BURHAN
'TI1210043
'T.INFORMATIKA
Public Class Form1
Dim hasil, nilai As Integer
Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal
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
txtNama2.Text = txtNama.Text
txtNim2.Text = txtNim.Text
If GradeA(hasil) Then
txtHuruf.Text = "A"
ElseIf GradeB(hasil) Then
txtHuruf.Text = "B"
ElseIf GradeC(hasil) Then
txtHuruf.Text = "C"
ElseIf GradeD(hasil) Then
txtHuruf.Text = "D"
ElseIf GradeE(hasil) Then
txtHuruf.Text = "E"
End If
End Sub
' INI BROO SCRIPT FUNCITON
Function GradeE(ByRef hasil As Integer)
Dim nilai As Boolean
If hasil < 40 Then
nilai = True
Else
nilai = False
End If
Return nilai
End Function
Function GradeD(ByRef hasil As Integer)
Dim nilai As Boolean
If hasil >= 40 Then
nilai = True
Else
nilai = False
End If
Return nilai
End Function
Function GradeC(ByRef hasil As Integer)
Dim nilai As Boolean
If hasil >= 56 Then
nilai = True
Else
nilai = False
End If
Return nilai
End Function
Function GradeB(ByRef hasil As Integer)
Dim nilai As Boolean
If hasil >= 70 Then
nilai = True
Else
nilai = False
End If
Return nilai
End Function
Function GradeA(ByRef hasil As Integer)
Dim nilai As Boolean
If hasil >= 85 Then
nilai = True
Else
nilai = False
End If
Return nilai
End Function
'SAMPAI SINI BROO
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()
txtNama2.Clear()
txtNim2.Clear()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
8. Maka hasilnya seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon