APLIKASI HITUNG NILAI IPK
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi hitung aplikasi hitung nilai IPK dengan 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 script di bawah ini
Public Class Form1
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Close()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
txtket.Text = ""
txtabsen.Text = ""
txtuts.Text = ""
txtnama.Text = ""
txthuruf.Text = ""
txtrata.Text = ""
txttugas.Text = ""
txtuas.Text = ""
End Sub
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
Dim nama As String
Dim tugas As Double
Dim mid As Double
Dim uas As Double
Dim keaktifan As Double
Dim absensi As Double
Dim rata As Double
Dim huruf As String
Dim ket As String
nama = txtnama.Text
tugas = Val(txttugas.Text)
keaktifan = Val(txtkeaktifan.Text)
absensi = Val(txtabsen.Text)
mid = Val(txtuts.Text)
uas = Val(txtuas.Text)
rata = ((0.2 * absensi) + (0.15 * tugas) + (0.1 * keaktifan) + (0.25 * mid) + (0.3 * tugas))
txtrata.Text = rata
If rata <= 39 Then
huruf = "E"
ket = "anda gagal"
ElseIf rata <= 56 Then
huruf = "D"
ket = "cukup"
ElseIf rata <= 69 Then
huruf = "C"
ket = "cukup"
ElseIf rata <= 84 Then
huruf = "B"
ket = "Baik"
ElseIf rata > 85 Then
huruf = "A"
ket = "Sangat Bagus"
End If
txthuruf.Text = huruf
txtket.Text = ket
txtnama1.Text = txtnama.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
8. Maka hasilnya seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon