Cara Membuat Program Penilaian Siswa Dengan VISUAL BASIC 6.0

Bentuk Desaign yang saya buat...

Cara membuat program penilaian siswa dengan visual basic. HALO sobat kali ini saya akan sedikit memberikan tutorial bagaimana caranya membuat program penilaian sekolah dengan memggunakan microsoft VISUAL BASIC 6.0.

Ada banyak juga software yang bisa digunakan untuk membuat sebuah aplikasi atau program nilai siswa seperti Java netbeans, Visual Studio, dan yang lain nya. Tapi disini saya suka menggunakan software yang bernama Visual basic ini karna cepet di mengerti dan cocok untk pemula seperti saya..hehehe

Visual Basic merupakan bahasa pemograman yang cukup gampang untuk di pelajari dengan bahasa pemograman nya yang cukup mudah untuk di mengerti. Untuk membuat sebuah program atau aplikasi yang sederhana Visual basic lah solusi nya. Visual basic dapat menolong kita membuat sebuah program berbasis windows dengan sangat cepat ftur-fitur dan tool yang disediakan juga lengkap dan mudah untuk di mengerti.

CARA MEMBUAT PROGRAM NILAI SISWA DENGAN VISUAL BASIC 6.0

1. Langkah Pertama download dan instal dulu software nya anda bisa mendownload nya

disini

2. Disain tampilannya sesuai diatas atau sesuai kreasi agan sendiri dan disini saya menggunakan:

Form , dimana tempat kita akan membuat semua fitur-fitur program nya
Frame, dimana sebuah garis dan tulisan untuk mewakili fitur-fitur di dalam nya seperti data siswa
dan nilai sisswa
Label , judul dari TextBox nya
TextBox dan text box ini tempat kita memasukan angka atau huruf
1 ComboBox dimana saya gunakan untuk menampil kan semua data kelas
3 CommandButton untuk membuat sebuah tombol seperti HAPUS, HITUNG dan KELUAR

3.Kemudian Ganti name TextBoxnya sesuai dibawah ini :

Private Sub Text1_Change() ganti dengan Private Sub txtNIS_KeyPress(KeyAscii As Integer)
Private Sub Text2_Change() ganti dengan Private Sub txtNAMA_KeyPress(KeyAscii As Integer)
coba anda meneruskannya sendiri,,,

Untuk ComboBoxnya
Private Sub Combo1_Change() ganti dengan Private Sub cmbKELAS_Click()

Untuk CommandButtonnya
Private Sub Command1_Click() ganti dengan Private Sub cmdHITUNG_Click()

4.Copy dan Pastekan script dibawah ini sesuai dengan namanya:

"Keterangan: script ini untuk menjalankan perintah ComboBox KELAS, jika anda memilih data yang ada di situ maka akan otomatis muncul di TextBox JURUSAN"

Private Sub cmbKELAS_Click()
If cmbKELAS.ListIndex = 0 Then
txtJURUSAN.Text = "KELAS X TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 1 Then
txtJURUSAN.Text = "KELAS X TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 2 Then
txtJURUSAN.Text = "KELAS X TKJ 3-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 3 Then
txtJURUSAN.Text = "KELAS XI TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 4 Then
txtJURUSAN.Text = "KELAS XI TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 5 Then
txtJURUSAN.Text = "KELAS XII TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
Else: cmbKELAS.ListIndex = 6
txtJURUSAN.Text = "KELAS XII TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
End If
txtABSEN.SetFocus
End Sub

"Keterangan : Ini script untuk perintah membersihkan semua yang ada di TextBox maupun ComboBox"Private Sub cmdBERSIH_Click()
txtNIS.Text = ""
txtNAMA.Text = ""
cmbKELAS.Text = ""
txtKETERANGAN.Text = ""
txtJURUSAN.Text = ""
txtABSEN.Text = ""
txtUAS.Text = ""
txtUTS.Text = ""
txtRATA2.Text = ""
txtGRADE.Text = ""
txtNIS.SetFocus
End Sub

"Keterangan : Ini script untuk menghitung rata-rata dan memberi keterangan nilai tersebut"Private Sub cmdHITUNG_Click()
txtRATA2 = Val((10 / 100 * txtABSEN.Text) + _
(20 / 100 * txtTUGAS.Text) + _
(30 / 100 * txtUTS.Text) + _
(40 / 100 * txtUAS.Text))
Select Case Val(txtRATA2.Text)
Case 90 To 100
txtGRADE.Text = "A"
txtKETERANGAN.Text = "Sangat Memuaskan"
Case 70 To 89
txtGRADE.Text = "B"
txtKETERANGAN.Text = "Memuaskan"
Case 60 To 69
txtGRADE.Text = "C"
txtKETERANGAN.Text = "Cukup Memuaskan"
Case 1 To 59
txtGRADE.Text = "D"
txtKETERANGAN.Text = "Kurang Memuaskan"
Case 0
txtGRADE.Text = "E"
txtKETERANGAN.Text = "Mengecewakan"
End Select
End Sub
Private Sub cmdKELUAR_Click()
A = MsgBox("Yakin mau keluar dari Form ini?", vbYesNo + vbInformation,
"PESAN")
If A = vbYes Then
End
End If
End Sub
"Keterangan : Ini script untuk memberi warna kuning seperti di tampilan diatas"
Private Sub Form_Activate()
txtRATA2.BackColor = &H80FFFF
txtGRADE.BackColor = &H80FFFF
txtKETERANGAN.BackColor = &H80FFFF
End Sub
"Keterangan : Ini script untuk memberi data pada ComboKelas"Private Sub Form_Load()
With cmbKELAS
.AddItem "XTKJ1"
.AddItem "XTKJ2"
.AddItem "XTKJ3"
.AddItem "XITKJ1"
.AddItem "XITKJ2"
.AddItem "XIITKJ1"
.AddItem "XIITKJ2"
End With
End Sub
Private Sub txtABSEN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUTS.SetFocus
End If
End Sub
If KeyAscii = 13 Then
cmbKELAS.SetFocus
End If
End Sub
Private Sub txtNIS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNAMA.SetFocus
End If
End Sub
Private Sub txtTUGAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUAS.SetFocus
End If
End Sub
Private Sub txtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdHITUNG.SetFocus
End If
End Sub
Private Sub txtUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTUGAS.SetFocus
End If
End Sub

Kalok sudah memasukan coding nya klik Run dan Selamat anda sudah berhasil membuat program penghitung nilai dengan Visual Basic 6.0
Sekian tutorial ini semoga bermanfaat dan jangan lupa sering-seringlah mencoba...Pepatah bilang BISA KARNA TERBIASA...
Kalok ada yang mau di tanyakan silahkan komentar di bawah ya.

ARTIKEL TERKAIT LAIN NYA: