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.


Seperti gambar di atas saya sudah membuat program aplikasi penilian siswa menggunakan visual basic kurikulum 2013..

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:

    Komentar

    Posting Komentar

    Postingan populer dari blog ini

    Pemilihan Presiden dan Wakil Presiden

    Gambar
    Pemilihan Presiden dan Wakil Presiden merupakan salah satu materi yang terdapat pada mata pelajaran Pendidikan Kewarganegaraan kelas 6. Materi Pemilihan Presiden dan Wakil Presiden ini mengulas tentang bagaimana proses Pemilihan calon Presiden dan Wakil Presiden secara demokrasi, mulai dari penentuan calon peserta, pemilih, cara berkampanye, pemungutan suara hingga penetapan calon terpilih. Berikut ulasan materinya. semoga bermanfaat.  Sebelum pemilu tahun 2004 pemilihan Presiden dan Wakil Presiden RI dilakukan oleh Majelis Permusyawaratan Rakyat (MPR). Namun, mulai Pemilu 2004 calon Presiden dan Wakil Presiden RI dipilih secara langsung oleh bangsa Indonesia melalui pemilihan umum presiden dan wakil presiden. Proses pemilihan calon presiden dan wakil presiden dan tahapan-tahapannya hampir sama dengan pemilihan DPR, DPRD, dan DPRD. Pemilu presiden dan wakil presiden diselenggarakan oleh KPU. 1. Peserta Pemilu Presiden dan Wakil Presiden Peserta pemilu presiden dan wakil presiden ad...
    Baca selengkapnya

    Kerajaan Singasari

    Gambar
    Kerajaan Singasari berdiri pada tahun 1222. Kerajaan ini didirikan oleh Ken Arok. Ia mendirikan Singasari setelah mengalahkan Kerajaan Kediri pada pertempuran di Ganter. Kerajaan Singasari terletak di antara Kota Lawang - Malang, Jawa Timur. Ken Arok adalah pembentuk dinasti Rajasa sebagai raja yang memiliki pengaruh di kerajaannya. Ia berusaha mempertahankan keberadaan Singasari atas keturunannya sendiri. Tohjoyo direncanakan sebagai penggantinya. Namun, sebelum rencananya terwujud terjadi kemelut dalam kerajaan. Anusapati (anak Tunggul Ametung) membunuh Ken Arok melalui orang upahan. Setelah mengetahui bapaknya dibunuh, Tohjoyo lalu membunuh Anusapati pada tahun 1248. Rencana balas dendam antar keturunan terus berlanjut. Tohjoyo pun mengalami nasib yang sama. Ia dibunuh oleh keturunan Anusapati. Akhirnya, pada tahun 1268 Wisnuwardhana memerintah di Kerajaan Singasari. Mulai masa itulah kerajaan ini berhenti bertikai dengan bantuan Mahesa Campaka. Mahesa Cempaka adalah saudara seayah ...
    Baca selengkapnya

    Pesawat Sederhana

    Gambar
    Berikut ini merupakan materi IPA kelas 5 tentang Pesawat sederhana yang dapat kalian pelajari. Berikut uraian singkat materi pesawat sederhana. PESAWAT SEDERHANA Pesawat sederhana dirancang untuk memudahkan pekerjaan manusia. Untuk lebih jelasnya maka kita akan memperlajari prinsip-prinsip pada bidang miring. 1. Tuas Pengungkit merupakan tuas yang paling sederhana. janis tuas dibedakan menjadi 3 golongan yaitu; a. pengungkit jenis I Urutannya yaitu beban - titik tumpu - kuasa Contoh: gunting dan tang b. pengungkit jenis II Kuasa - beban - titik tumpu Contohnya mendorong gerobak pasir c. pengungkit jenis III Contohnya memegang sekop untuk mengambil tanah 2. Bidang Miring Bidang miring adalah letak permukaan-permukaan yang miring. Bidang miring digunakan untuk memudahkan pekerjaan kita. Misalnya, memindahkan kayu ke dalam truk. Keuntungan menggunakan bidang miring. Tenaga yang dibutuhkan sama, tetapi memudahkan usaha atau kerja. Kelemahan bidang miring adalah jarak tempuhnya menjadi jau...
    Baca selengkapnya