Aplikasi Menghitung Nilai Mahasiswa

Membuat Aplikasi Menghitung Nilai Mahasiswa

1. Buatlah User Interface seperti berikut

Object	Name	Caption/Text
Frame1	Frame1	Data Mahasiswa
Frame2	Frame2	Nilai Kuis
Frame3	Frame3	Nilai Akhir
Frame4	Frame4	Hasil
Label1	Label1	Nama
Label2	Label2	NPM
Label3	Label3	Kuis 1
Label4	Label4	Kuis 2
Label5	Label5	Kuis 3
Label6	Label6	Rata Kuis
Label7	Label7	UTS
Label8	Label8	Absen
Label9	Label9	Nilai Total
Label10	Label10	Nilai Huruf
Label11	Label_output	-
TextBox1	Txt_nama	-
TextBox2	Txt_npm	-
TextBox3	Txt_k1	-
TextBox4	Txt_k2	-
TextBox5	Txt_k3	-
TextBox6	Txt_rk	-
TextBox7	Txt_uts	-
TextBox8	Txt_absen	-
TextBox9	Txt_total	-
TextBox10	Txt_huruf	-
Command Button1	Cmd_hk	Hitung Kuis
Command Button2	Cmd_ht	Hitung Total
Command Button3	Cmd_Hapus	Hapus
Command Button4	Cmd_keluar	Keluar

2. Buka jendela kode (code editor) pada Txt_nama, dengan cara klik 2X Txt_nama, lalu masukkan code atau script seperti di bawah ini.

Private Sub Txt_nama_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then

KeyAscii = 0

End If

End Sub

Keterangan :

• Jika bukan (KeyAscii >= Asc("a"))

• Huruf lebih dari a

• And KeyAscii <= Asc("z")

• Dan huruf kurang dari z

• Or (KeyAscii >= Asc("A")

• Atau Huruf lebih dari A

• And KeyAscii <= Asc("Z")

• Dan huruf kurang dari Z

• Or KeyAscii = vbKeyBack

• Atau tombol BackSpace

• Or KeyAscii = vbKeyDelete

• Atau tombol Delete

• Or KeyAscii = vbKeySpace

• Atau tombol Spasi

• Then

KeyAscii = 0

• Maka KeyAscii = 0(kosong)

• Yang bisa di Input dalam Text Box Nama(Txt_nama) hanya Huruf kecil dari a-z, huruf kapital/besar dari a-z, tombol Backspace, Delete, dan Spasi, Selain itu tombol keyboard tidak di izinkan untuk masuk ke Txt_nama, jika di ketikkan atau di input selain tombol di atas maka KeyAscii = 0 (Kosong) tidak bisa di input.

3. Buka jendela kode (code editor) pada Txt_npm, dengan cara klik 2X Txt_npm, lalu masukkan code atau script seperti di bawah ini.

Private Sub Txt_npm_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete)) Then

KeyAscii = 0

End If

End Sub

Keterangan :

• Penejalasan tentang KeyAscii sama pada Txt_nama
• Tombol yang di Izinkan pada Txt_npm hanya angka 0-9, (KeyAscii >= 65 And KeyAscii <= 90) adalah KeyAscii untuk Huruf Kapital/Besar, tombol Backspace Dan Delete.
• Lalu, jika selain tombol yg di sebutkan di atas di input maka tidak akan ada inputan atau masukkan, karena KeyAscii nya = 0

4. Buka jendela kode (code editor) pada Txt_k1, dengan cara klik 2X Txt_k1, lalu masukkan code atau script seperti di bawah ini. Kode ini untuk Txt_k1, Txt_k2, dan Txt_k3, atau untuk nilai Kuis 1, Kuis 2, dan Kuis 3.

Private Sub Txt_k1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 46 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then

KeyAscii = 0

End If

End Sub

Keterangan :

• Tombol yang di Izinkan pada Txt_K1,k2,dan k3 hanya angka, tanda baca titik(.)untuk koma, tombol Delete, dan Backspace, Karena pada nilai tidak memerlukan huruf spasi, dan lain sebagainya.

5. Buka jendela kode (code editor) pada Txt_rk (Hitung Kuis), dengan cara klik 2X Txt_rk, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Jika text Box Rata Kuis kosong maka command Button Hitung Total bersifat True pada Enablenya, jadi terkunci, tidak bisa di klik sebelum Text Box Rata Kuis terisi
• Dan pada saat TextBox Rata kuis Terisi maka Command Button Hitung Total bersifat False pada enablednya, maka akan aktif kembali command button nya setelah Rata Kuis terisi

6. Buka jendela kode (code editor) pada Cmd_hk (Hitung Kuis), dengan cara klik 2X Cmd_hk, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Dim k1, k2, k3, rk As Integer

• Variael k1, k2, k3, rk, sebagai Integer

• If Txt_nama = "" Then

MsgBox "Nama Belum Di Isi!", vbOKOnly, "Nama"

Txt_nama.SetFocus

Else

• Jika Txt_nama = kosong atau belum terisi maka akan tampil Message Box “Nama Belum Di Isi” Hanya tombol Ok yang muncul dan Headernya Nama, dan kursor akan otomatis atau set focus pada Txt_nama.Text (Text Box Nama)

• If Txt_npm = "" Then

MsgBox "NPM Belum Di Isi", vbOKOnly, "NPM"

Txt_npm.SetFocus

Else

• Jika Txt_npm = kosong atau belum terisi maka akan tampil Message Box “NPM Belum Di Isi” Hanya tombol Ok yang muncul dan Headernya NP, dan kursor akan otomatis atau set focus pada Txt_npm.Text (Text Box NPM)

• k1 = Val(Txt_k1.Text)

k2 = Val(Txt_k2.Text)

k3 = Val(Txt_k3.Text)

rk = (k1 + k2 + k3) / 3

Txt_rk.Text = rk

• Val

Val merupakan fungsi untuk mengubah nilai STRING pada sebuah properti Text di Textbox menjadi nilai Numerik

• rk(Rata Kuis) = nilai hasil input dari (k1+k2+k3)/3
• dan hasilnya akan tampil pada Txt_rk.Text (Text Box Rata kuis)

• lalu tutup atau akhiri fungsi if di atas sebanyak 2 kali

End If

End If

7. Buka jendela kode (code editor) pada Cmd_ht (Hitung Total), dengan cara klik 2X Cmd_ht, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Dim rk, uts, absen, total As Integer

• Membuat variabel rk(Rata Kuis), uts, absen, dan total sebagai Integer

• If Txt_uts = "" Then

MsgBox "Nilai UTS Belum Di Isi!", vbOKOnly, "UTS"

Txt_uts.SetFocus

Else

• Jika Text Box UTS kosong atau belum terisi maka akan muncul Message Box “Nilai UTS belum Di isi, hanya tombol ok pada message box ini, dan headernya UTS, lalu kursor akan Set Focus atau otomatis berada pada Txt_uts (Text Box UTS)

• If Txt_absen = "" Then

MsgBox "Nilai Absen Belum Di Isi", vbOKOnly, "Absen"

Txt_absen.SetFocus

Else

• Jika Text Box absen kosong atau belum terisi maka akan muncul Message Box “Nilai Absen belum Di isi, hanya tombol ok pada message box ini, dan headernya Absen lalu kursor akan Set Focus atau otomatis berada pada Txt_absen (Text Box Absen)

• rk = Txt_rk.Text

uts = Txt_uts.Text

absen = Txt_absen.Text

• nilai dari variabel rk berada pada Txt_rk.Text
• nilai dari variabel uts berada pada Txt_uts.Text
• nilai dari variabel absen berada pada Txt_absen.Text

• total = ((rk * 0.2) + (uts * 0.7) + (absen * 0.1))

• nilai variabel total di dapat dari memasukkan rumus seperti di atas
• 0.2 maksudnya nilai kuis 20 %
• 0.7 maksudnya nilai UTS 70 %
• 0.1 maksudnya nilai Absen 10 %

• Txt_total.Text = total

• Hasilnya akan di tampilkan pada Text Box Total

• If Txt_total.Text >= 80 Then

   Txt_huruf.Text = "A"

• Jika nilai Total lebih dari atau sama dengan 80 maka akan di ubah lalu di tampilkan pada Txt_huruf(Text Box Nilai Huruf) dalam bentuk huruf, yaitu huruf A, atau peringkat A

• ElseIf Txt_total.Text >= 70 Then

   Txt_huruf.Text = "B"

• Jika nilai Total lebih dari atau sama dengan 70 maka akan di ubah lalu di tampilkan pada Txt_huruf(Text Box Nilai Huruf) dalam bentuk huruf, yaitu huruf B, atau peringkat B

• ElseIf Txt_total.Text >= 60 Then

   Txt_huruf.Text = "C"

• Jika nilai Total lebih dari atau sama dengan 60 maka akan di ubah lalu di tampilkan pada Txt_huruf(Text Box Nilai Huruf) dalam bentuk huruf, yaitu huruf C, atau peringkat C

• ElseIf Txt_total.Text >= 50 Then

   Txt_huruf.Text = "D"

• Jika nilai Total lebih dari atau sama dengan 60 maka akan di ubah lalu di tampilkan pada Txt_huruf(Text Box Nilai Huruf) dalam bentuk huruf, yaitu huruf D, atau peringkat D

• ElseIf Txt_total.Text < 50 Then

   Txt_huruf.Text = "E"

• Jika nilai Total Kurang dari 50 maka akan di ubah lalu di tampilkan pada Txt_huruf(Text Box Nilai Huruf) dalam bentuk huruf, yaitu huruf E, atau peringkat E

• End If

• Untuk menutup atau mengakhiri fungsi If

• If total >= 60 Then

• Jika Nilai Lebih dari atau sama dengan 60 maka

• Label_output.Caption = ("Selamat " + Txt_nama.Text + " Anda Lulus Dengan Nilai " + Txt_total.Text + " Dengan Peringkat " + Txt_huruf)

Else

• Pada Label Output akan tampil kata Selamat + Hasil input dari Txt_Nama + Anda lulus dengan nilai + Hasil Hitung pada Txt_total + Dengan Peringkat + Hasil data yang muncul pada Txt_huruf lalu

• Label_output.Caption = ("Maaf " + Txt_nama.Text + " Anda Tidak Lulus Dengan Nilai " + Txt_total.Text + " Dengan Peringkat " + Txt_huruf)

• Pada Label Output akan tampil kata Maaf + Hasil input dari Txt_Nama + Anda tidak Lulus dengan nilai + Hasil Hitung pada Txt_total + Dengan Peringkat + Hasil data yang muncul pada Txt_huruf

• End If

End If

End If

• Untuk menutup atau mengakhiri fungsi If

8. Buka jendela kode (code editor) pada Cmd_Hapus (Hapus), dengan cara klik 2X Cmd_Hapus, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Di gunakan untuk menghapus Text Box dan Label seperti yang tertera pada command di atas

9. Buka jendela kode (code editor) pada Cmd_keluar (Keluar), dengan cara klik 2X Cmd_keluar, lalu masukkan code atau script seperti di bawah ini.

Keterangan : Jika di Klik tombol Keluar maka akan muncul Messagwe Box “Apa anda yakin ingin keluar ?” lalu akan muncul tombol Yes dan No + pertanyaandan headernya bernama Keluar, jika No akan Kembali pada Program itu dan Jika Yes akan keluar dari program itu.

10. Berikut ini adalah hasil dari Program yang telah di buat