PROGRAM LOGIN DAN MENGHITUNG NILAI SISWA

Pada postingan kali ini saya akan membahas tentang pembuatan form login dan form menghitung nilai siswa dalam angka dan dalam bentuk huruf.Untuk membuat program ini dibutuhkan database sebagai tempat penyimpanan datanya.Dan database yang digunakan yaitu Microsoft Access 2013.Selamat membaca !

PENJELASAN PROGRAM YANG AKAN DIBUAT

Kali ini kita akan membuat program untuk menghitung nilai rata-rata seorang siswa yang dihitung dari nilai tugas(20%),nilai UTS(30%) dan nilai UAS(50%).Jadi pertama-tama kita akan membuat form untuk menyimpan data siswa(nim dan nama siswa) kemudian jika kita membuka form nilai siswa,kita dapat secara otomatis mencari siswa yang kita inginkan untuk dihitung nilainya dengan mengklik combo box yang sudah menyimpan data siswa di form data siswa.

*kita sedikit menambahkan form login untuk menyempurnakan program ini.

MEMBUAT DATABASE

1.Pertama-tama kita akan membuat database terlebih dahulu.Buka Microsoft Access dan create a new blank database.

2.Kemudian simpan nama database dengan nilaisiswa.mdb
3.Setelah itu klik create pada tab microsoft access dan pilih table (CREATE→TABLE).Dan buatlah 2 tabel (tabel data siswa dan tabel nilai siswa)

4.Setelah itu buatlah isi tabel data siswa (Caranya klik kanan pada tabel data siswa dan pilih design view)

Pada Field Name tuliskan :
NIM dengan tipe datanya short text (field size 50)
NamaSiswa tipe datanya short text  (field size 50)

Kemudian simpan tabel dengan nama tbdatasiswa.

Dan pada tabel nilai siswa buatlah seperti berikut :

Pada Field Name isilah :
NIM dengan tipe data Auto Number (Field Size: Long Integer)
namasiswa dengan tipe data Short Text (Field Size : 50)
nilaitugas dengan tipe data Number (Field Size: Long Integer)
nilaiuts dengan tipe data Number (Field Size: Long Integer)
nilaiuas dengan tipe data Number (Field Size: Long Integer)
nilaiangka dengan tipe data Number (Field Size: Long Integer)
nilaihuruf dengan tipe data Short Text (Field Size : 5)
komentar dengan tipe data Short Text (Field Size : 50)

*Nama Field lebih baik tanpa spasi karena akan memudahkan nantinya pada pembuatan coding/script. 

Setelah itu simpan tabel nilai siswa dengan nama tbnilaisiswa.Jadi sekarang kita mempunyai dua tabel yaitu tbdatasiswa dan tbnilaisiswa.Database ini berfungsi untuk menyimpan semua data-data yang nantinya kita buat dalam bahasa pemrograman visual basic 6.0

Nah sekarang kita selesai membuat database dari program hitung nilai siswa !Kali ini bukalah seperti biasa visual basic 6.0 anda dan buka Standard.Exe.

*Kita akan membuat 3 Form yaitu : FORM LOGIN,FORM DATA SISWA,FORM NILAI SISWA

FORM LOGIN(HASIL FORM DAPAT DILIHAT DI

1.Pertama-tama untuk form login, tariklah 4 Label,2 TextBox,1 Check-Box,2 Command Button

2.Kemudian ubah lah caption :

Label 1 = PROGRAM MENGHITUNG NILAI SISWA

Label 2 = "Username" 

Label 3 = "Password"

Label 4 = "lblinfo"

TextBox 1 = ""

TextBox 2 = ""

Checkbox 1 = "Show Password"

Command Button 1 = "LOGIN"

Command Button 2 = "EXIT"

3.Ubah Name pada Textbox,CommandButton,Checkbox pada Properties(untuk proses scripting) :

Textbox 1 =  "txtusername"
Textbox 2 = "txtpassword"
Command Button 1 = "btnlogin"
Command Button 2 = "btnexit"
Checkbox 1 = "chkpassword"

4.Kemudian pada btnlogin ketikkan coding berikut :

Private Sub btnlogin_Click()
    If txtusername = "admin" And txtpassword = "admin" Then
        FormDataSiswa.Show
        FormLogin.Visible = False
        Unload Me
    Else
        MsgBox "Username atau Password yang anda masukkan tidak cocok !", vbCritical, "WARNING"
        txtusername.SetFocus
    End If
End Sub

PENJELASAN CODING

Private Sub btnlogin_Click()
If txtusername = "admin" And txtpassword = "admin" Then→Jika txtusername dan txtpassword  isinya "admin" maka
FormDataSiswa.Show→ Memunculkan Form Data Siswa
FormLogin.Visible = False→ Form login dibuat tidak terlihat/hilang
Unload Me→ Keluar dari form
Else→ Jika Tidak
MsgBox "Username atau Password yang anda masukkan tidak cocok !", vbCritical, "WARNING"→ Muncul kotak pesan bertuliskan "Username atau Password yang anda masukkan tidak cocok" dengan "Warning" sebagai nama kotak pesannya.
txtusername.SetFocus→Kursor langsung di txtusername
End If→Mengakhiri percabangan if

End Sub→ Mengakhiri proses di tombol login

Pada btnexit ketikkan coding berikut :

Private Sub btnexit_Click()

    If MsgBox("Anda ingin keluar?", vbYesNo, "SUNSHINE PRE-SCHOOL") = vbYes Then

    End

    End If

End Sub

PENJELASAN CODING

Private Sub btnexit_Click()

    If MsgBox("Anda ingin keluar?", vbYesNo, "SUNSHINE PRE-SCHOOL") = vbYes Then→Jika button exit diklik maka akan muncul kotak pesan "Anda ingin keluar?"(vbYesNo artinya kotak pesan dengan pilihan ya dan tidak) jika ya maka

    End → Keluar

    End If→Mengakhiri percabangan if

End Sub

Pada checkbox show password ketikkan coding berikut : 

Private Sub chkpassword_Click()

     If chkpassword.Value = Checked Then

        txtpassword.PasswordChar = ""

    Else

        txtpassword.PasswordChar = "*"

    End If

End Sub

PENJELASAN CODING

Private Sub chkpassword_Click()

     If chkpassword.Value = Checked Then→jika nilai checkbox tercentang maka

        txtpassword.PasswordChar = ""→ munculkan karakter di textbox password

    Else→jika tidak

        txtpassword.PasswordChar = "*"→karakter password tetap dalam bentuk *

    End If→mengakhiri percabangan if

End Sub

*Untuk mengatur karakter password dapat juga diatur di properties Password Char

Pada textbox username dan password ketikkan coding berikut :

Private Sub txtusername_GotFocus()

    lblinfo.Caption = "Masukkan username anda."

    

    txtusername.SelStart = 0

    txtusername.SelLength = Len(txtusername.Text)

End Sub

Private Sub txtpassword_GotFocus()

    lblinfo.Caption = "Masukkan password."

    

    txtpassword.SelStart = 0

    txtpassword.SelLength = Len(txtpassword.Text)

End Sub

PENJELASAN CODING

Private Sub txtusername_GotFocus()→pada txtusername di event GotFocus(fokuskan kursor)

    lblinfo.Caption = "Masukkan username anda."→jika kursor berada di textbox username maka pada lblinfo akan menuliskan "Masukkan username anda."

    

    txtusername.SelStart = 0→untuk mengatur starting point dari teks yang diseleksi

    txtusername.SelLength = Len(txtusername.Text)→jika mengklik textbox username maka apapun yang dituliskan di txtpassword akan terseleksi semua(blok)

End Sub

Private Sub txtpassword_GotFocus()→pada txtpassword di event GotFocus(fokuskan kursor)

    lblinfo.Caption = "Masukkan password."→jika kursor berada di textbox password maka pada lblinfo akan menuliskan "Masukkan username anda."

    

    txtpassword.SelStart = 0→untuk mengatur starting point dari teks yang diseleksi

    txtpassword.SelLength = Len(txtpassword.Text)→jika mengklik textbox password maka apapun yang dituliskan di txtpassword akan terseleksi semua(blok)

End Sub

HASIL AKHIR FORM LOGIN

FORM DATA SISWA

1.Tariklah 2 Label,2 Textbox,4 Command Button,1 Adodc,dan 1 Datagrid.

2.Adodc dan Datagrid harus dimunculkan di properties.Caranya dengan mengklik kanan toolbox dan pilih Component,kemudian centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB).

3.Kemudian tarik adodc dengan data grid ke dalam form.

4.Kemudian ubah name pada textbox, dan commandbutton :

textbox 1 = "txtnim"

textbox 2 = "txtnamasiswa"

command 1 = "btnsimpan"

command 2 = "btnkeluar"

command 3 = "btnhapus"

command 4 = "btnnilai"

Dan ubah caption menjadi seperti berikut :

Label1 = NIM

Label2 = Nama Siswa

Cmd1 = SIMPAN

Cmd2 = KELUAR

Cmd3 = KELUAR

Cmd4 = FORM NILAI SISWA

5.Berikutnya kita akan mengkoneksikan database yang sudah kita buat ke form ini(tbdatasiswa=Form Data Siswa)

6.Caranya dengan mengklik kanan adodc anda dan pilih Adodc Properties

7.Kemudian klik tombol build,dan masukkan database yang kita simpan tadi ke dalam kolom

8.Kemudian test connection ,jika success ,klik ok dan ke form record source.Pada bagian command type pilih adCmd Text dan pada command Text(SQL) tuliskan select * from tbdatasiswa.(Select * artinya mengambil semua field yang ada di database)

9.Kemudian klik OK dan kembali ke datagrid,lihat di properties data grid,pada datasource nya ubah menjadi Adodc1 (name dari adodc kita adalah adodc1).Setelah itu klik kanan pada datagrid dan pilih Retrieve Fields.

10.Hasilnya akan menjadi seperti gambar di bawah

Sekarang kita akan masuk ke coding.Pada tombol Simpan ketikkan coding berikut :

Private Sub btnsimpan_Click()

    If txtnim.Text = "" Or txtnamasiswa.Text = "" Then

        MsgBox "Data harus lengkap", vbInformation, "POP UP"

    Else

        Adodc1.Recordset.AddNew

        Adodc1.Recordset!NIM = txtnim.Text

        Adodc1.Recordset!namasiswa = txtnamasiswa.Text

        Adodc1.Recordset.Update

        DataGrid1.Refresh

    End If

        txtnim.Text = ""

        txtnamasiswa.Text = ""

        

End Sub

PENJELASAN CODING

Private Sub btnsimpan_Click()

    If txtnim.Text = "" Or txtnamasiswa.Text = "" Then→jika textbox nim dan textbox nama sisa kosong maka

        MsgBox "Data harus lengkap", vbInformation, "POP UP"→muncul kotak pesan berisi data harus lengkap dengan POP UP sebagai nama kotak pesan

    Else→jika tidak

        Adodc1.Recordset.AddNew→adodc1 dibuat untuk bisa menambahkan data baru

        Adodc1.Recordset!NIM = txtnim.Text→mengambil data dari database field NIM dan dimasukkan di kolom nim pada datagrid1

        Adodc1.Recordset!namasiswa = txtnamasiswa.Text→mengambil data dari database field namasiswa dan dimasukkan ke kolom nama siswa pada datagrid1

        Adodc1.Recordset.Update→mengupdate adodc1

        DataGrid1.Refresh→menyegarkan datagrid1

    End If→mengakhiri percabangan if

        txtnim.Text = ""→setelah data tersimpan di datagrid1 maka textbox nim akan otomatis dikosongkan

        txtnamasiswa.Text = ""→setelah data tersimpan di datagrid1 maka textbox nama siswa akan otomatis dikosongkan

        

End Sub

Kemudian pada button keluar ketikkan coding berikut :

Private Sub btnkeluar_Click()

    If MsgBox("Anda ingin keluar ?", vbYesNo) = vbYes Then

    End

    End If

End Sub

PENJELASAN CODING

Private Sub btnkeluar_Click()

    If MsgBox("Anda ingin keluar ?", vbYesNo) = vbYes Then→jika tombol keluar diklik akan muncul kotak pesan berisi "Anda ingin keluar ? jika ya maka

    End→selesai/keluar dari program

    End If→mengakhiri percabangan if

End Sub

Pada tombol Hapus ketikkan coding berikut

Private Sub btnhapus_Click()

    Adodc1.Recordset.Delete→menghapus data di dalam datagrid

End Sub

Pada tombol form nilai siswa ketikkan coding berikut :

Private Sub btnformnilai_Click()

    FormNilaiSiswa.Show→jika button ini diklik maka form nilai siswa akan muncul(untuk menghitung nilai siswa)

End Sub

HASIL AKHIR FORM DATA SISWA

FORM NILAI SISWA

Sekarang kita masuk ke form nilai siswa.Ikuti langkah-langkah berikut :

1.Tarik Label,Textbox,ComboBox,CommandButton,dan Adodc.

2.Seperti biasa ubah masing-masing caption seperti gambar di atas.Pada Textbo textnya semua dikosongkan.

3.Setelah itu pada combobox ubah style pada properties menjadi "Dropdown list" (Ini akan membuat text pada combobox menjadi ada tulisan dari name combobox

4.Berikutnya ubah masing-masing name dari objek sbb :

combobox1 = "cbnim"

textbox 1 = "txtnamasiswa"

textbox 2 = "txtnilaitugas"

textbox 3 = "txtnilaiuts"

textbox 4 = "txtnilaiuas"

texbox  5 = "txtnilaiangka"

textbox 6 = "txtnilaihuruf"

textbox 7 = "txtkomentar"

command 1 = "btnhitung"

command 2 = "btnrefresh"

command 3 = "btnexit"

5.Setelah itu mari kita mengkoneksikan database ke form ini

6.Klik kanan pada adodc dan pilih adodc properties,kemudian build>cari database anda>test connection>Ok>Recordsource>pilih acmd Text>Tuliskan select * from tbnilaisiswa>OK

CODING

Pertama-tama kita akan membuat prosedur sendiri yang nanti nya tinggal dipanggil di objek lain.

1.Ketikkan lah coding berikut secara langsung

Private Sub LoadDataKelas()

    Adodc1.RecordSource = "select nim from tbdatasiswa order by nim"

    Adodc1.Refresh

    cbnim.Clear

    

    If Not Adodc1.Recordset.EOF Then

        Adodc1.Recordset.MoveFirst

        While Not Adodc1.Recordset.EOF

            cbnim.AddItem Adodc1.Recordset.Fields(0)

            Adodc1.Recordset.MoveNext

        Wend

    End If

End Sub

PENJELASAN CODING

Private Sub LoadDataKelas()→membuat prosedur baru dengan nama LoadDataKelas

    Adodc1.RecordSource = "select nim from tbdatasiswa order by nim"→mengambil data dari database tbdatasiswa diurutkan dari nim

    Adodc1.Refresh→menyegarkan adodc

    cbnim.Clear→mengosongkan combobox nim

    

    If Not Adodc1.Recordset.EOF Then→

        Adodc1.Recordset.MoveFirst→

        While Not Adodc1.Recordset.EOF→

            cbnim.AddItem Adodc1.Recordset.Fields(0)→

            Adodc1.Recordset.MoveNext→

        Wend→mengakhiri perulangan while

    End If→mengakhiri percabangan if

End Sub

Kemudian klik 2 kali pada form,kita akan mengetikkan coding di form load

Private Sub Form_Load()

    LoadDataKelas

        

    cbnim.Enabled = True

    txtnamasiswa.Enabled = True

    txtnilaitugas.Enabled = True

    txtnilaiuts.Enabled = True

    txtnilaiuas.Enabled = True

    btnhitung.Enabled = True

    txtnilaiangka.Enabled = False

    txtnilaihuruf.Enabled = False

    txtkomentar.Enabled = False

    btnrefresh.Enabled = True

    btnexit.Enabled = True

    

End Sub

PENJELASAN CODING

Private Sub Form_Load()→event yang terjadi pada formload(pada saat form nilai siswa terbuka)

    LoadDataKelas→memanggil prosedur yang kita buat sendiri(jadi proses yang terjadi di prosedur LoadDataKelas akan terlaksana di form load)

        

    cbnim.Enabled = True→pada saat form nilai siswa dibuka combobox nim dapat diklik

    txtnamasiswa.Enabled = True→pada saat form nilai siswa dibuka textbox nama siswa dapat diklik

    txtnilaitugas.Enabled = True→pada saat form nilai siswa dibuka textbox nilai tugas dapat diklik

    txtnilaiuts.Enabled = True→pada saat form nilai siswa dibuka textbox nilai uts dapat diklik

    txtnilaiuas.Enabled = True→pada saat form nilai siswa dibuka textbox nilai uas dapat diklik

    btnhitung.Enabled = True→pada saat form nilai siswa dibuka tombol hitung dapat diklik

    txtnilaiangka.Enabled = False→pada saat form nilai siswa dibuka textbox nilai angka tidak dapat diklik

    txtnilaihuruf.Enabled = False→pada saat form nilai siswa dibuka textbox nilai huruf tidak dapat diklik

    txtkomentar.Enabled = False→pada saat form nilai siswa dibuka textbox komentar tidak dapat diklik

    btnrefresh.Enabled = True→pada saat form nilai siswa dibuka tombol dapat diklik

    btnexit.Enabled = True→pada saat form nilai siswa dibuka combobox nim dapat diklik

    

End Sub

Selanjutnya pad combobox nim/cbnim ketikkan coding berikut

Private Sub cbnim_Click()

    Adodc1.RecordSource = "select namasiswa from tbdatasiswa where NIM = '" & cbnim.Text & "'"

    Adodc1.Refresh

    

    txtnamasiswa.Text = Adodc1.Recordset.Fields(0)

End Sub

PENJELASAN CODING

Private Sub cbnim_Click()

    Adodc1.RecordSource = "select namasiswa from tbdatasiswa where NIM = '" & cbnim.Text & "'"→mengambil nama siswa dari tbdatasiswa dimana jika nim sama dengan **** maka nama siswa nya juga akan otomatis diambil.

    Adodc1.Refresh→menyegarkan adodc

    

    txtnamasiswa.Text = Adodc1.Recordset.Fields(0)→mengambil nama siswa di database dan memasukkan ke textbox nama siswa

End Sub

Selanjutnya kita masuk ke button hitung.Ketikkan coding berikut !

Private Sub btnhitung_Click()

    If cbnim.Text = "" Or txtnamasiswa.Text = "" Or txtnilaitugas.Text = "" Or txtnilaiuts.Text = "" Or txtnilaiuas.Text = "" Then

    MsgBox "Data Belum Terisi Lengkap !", vbInformation, "Warning"

    Else

    txtnilaiangka.Text = (0.2 * txtnilaitugas.Text + 0.3 * txtnilaiuts.Text + 0.5 * txtnilaiuas.Text)

     If txtnilaiangka.Text <= 55 Then

    txtnilaihuruf.Text = "E"

    txtkomentar.Text = "Nilai anda kurang ! Anda Fail !"

     Else

      If txtnilaiangka.Text <= 65 Then

    txtnilaihuruf.Text = "D"

    txtkomentar.Text = "Nilai anda kurang ! Anda Fail !"

      Else

       If txtnilaiangka.Text <= 75 Then

    txtnilaihuruf.Text = "C"

    txtkomentar.Text = "Nilai anda baik ! Anda Berhasil !"

       Else

        If txtnilaiangka.Text <= 85 Then

    txtnilaihuruf.Text = "B"

    txtkomentar.Text = "Nilai cukup baik ! Anda Berhasil !"

        Else

         If txtnilaiangka.Text > 85 Then

    txtnilaihuruf.Text = "A"

    txtkomentar.Text = "Nilai anda memuaskan ! Anda Berhasil !"

    End If

     End If

      End If

       End If

        End If

         End If

    cbnim.Enabled = False

    txtnamasiswa.Enabled = False

    txtnilaitugas.Enabled = False

    txtnilaiuts.Enabled = False

    txtnilaiuas.Enabled = False

    btnhitung.Enabled = False

    txtnilaiangka.Enabled = False

    txtnilaihuruf.Enabled = False

    txtkomentar.Enabled = False

    btnrefresh.Enabled = True

    btnexit.Enabled = True

    

End Sub

PENJELASAN CODING

Private Sub btnhitung_Click()

    If cbnim.Text = "" Or txtnamasiswa.Text = "" Or txtnilaitugas.Text = "" Or txtnilaiuts.Text = "" Or txtnilaiuas.Text = "" Then→jika combobox nim,textbox nilai tugas,uts,dan uas salah satunya kosong,maka

    MsgBox "Data Belum Terisi Lengkap !", vbInformation, "Warning"→akan muncul kotak pesan

    Else→jika tidak

    txtnilaiangka.Text = (0.2 * txtnilaitugas.Text + 0.3 * txtnilaiuts.Text + 0.5 * txtnilaiuas.Text)→proses perhitungan untuk nilai angka,uts,dan uas(tugas = 20 %,uts = 30%,uas = 50%)

     If txtnilaiangka.Text <= 55 Then→jika textbox nilai angka di bawah/sama dengan 55 maka

    txtnilaihuruf.Text = "E"→textbox nilai huruf adalah E

    txtkomentar.Text = "Nilai anda kurang ! Anda Fail !"→komentar otomatis muncul "Nilai anda kurang !Anda Fail"

     Else→jika tidak

      If txtnilaiangka.Text <= 65 Then→jika textbox nilai angka di bawah/sama dengan 65 maka

    txtnilaihuruf.Text = "D"→textbox nilai huruf adalah D

    txtkomentar.Text = "Nilai anda kurang ! Anda Fail !"→komentar otomatis muncul "Nilai anda kurang !Anda Fail"

      Else→jika tidak

       If txtnilaiangka.Text <= 75 Then→jika textbox nilai angka di bawah/sama dengan 75 maka

    txtnilaihuruf.Text = "C"→textbox nilai huruf adalah C

    txtkomentar.Text = "Nilai anda baik ! Anda Berhasil !"→komentar otomatis muncul "Nilai anda baik !Anda Berhasil!"

       Else→jika tidak

        If txtnilaiangka.Text <= 85 Then→jika textbox nilai angka di bawah/sama dengan 85 maka

    txtnilaihuruf.Text = "B"→textbox nilai huruf adalah B

    txtkomentar.Text = "Nilai cukup baik ! Anda Berhasil !"→komentar otomatis muncul "Nilai anda cukup baik!Anda Berhasil !"

        Else→jika tidak

         If txtnilaiangka.Text > 85 Then→jika textbox nilai angka di atas 85 maka

    txtnilaihuruf.Text = "A"→textbox nilai huruf adalah A

    txtkomentar.Text = "Nilai anda memuaskan ! Anda Berhasil !"→komentar otomatis muncul "Nilai anda memuaskan!Anda Berhasil!"

    End If→mengakhiri percabangan if

     End If→mengakhiri percabangan if

      End If→mengakhiri percabangan if

       End If→mengakhiri percabangan if

        End If→mengakhiri percabangan if

         End If→mengakhiri percabangan if

    cbnim.Enabled = False→setelah semua selesai dihitung cbnim tidak bisa diklik

    txtnamasiswa.Enabled = False→setelah semua selesai dihitung textbox nama siswatidak bisa diklik

    txtnilaitugas.Enabled = False→setelah semua selesai dihitung textbox nilai tugas tidak bisa diklik

    txtnilaiuts.Enabled = False→setelah semua selesai dihitung texbtox nilai uts tidak bisa diklik

    txtnilaiuas.Enabled = False→setelah semua selesai dihitung textbox nilai uas tidak bisa diklik

    btnhitung.Enabled = False→setelah semua selesai dihitung tombol hitung tidak bisa diklik

    txtnilaiangka.Enabled = False→setelah semua selesai dihitung textbox nilai angka tidak bisa diklik

    txtnilaihuruf.Enabled = False→setelah semua selesai dihitung textbox nilai huruf tidak bisa diklik

    txtkomentar.Enabled = False→setelah semua selesai dihitung textbox komentar tidak bisa diklik

    btnrefresh.Enabled = True→setelah semua selesai dihitung tombol refresh bisa diklik

    btnexit.Enabled = True→setelah semua selesai dihitung tombol exit bisa diklik

    

End Sub

Kemudian kita masuk ke tombol refresh.Ketikkan coding berikut

Private Sub btnrefresh_Click()

    txtnamasiswa.Text = ""

    txtnilaitugas.Text = ""

    txtnilaiuts.Text = ""

    txtnilaiuas.Text = ""

    btnhitung.Enabled = True

    txtnilaiangka.Text = ""

    txtnilaihuruf.Text = ""

    txtkomentar.Text = ""

    btnrefresh.Enabled = True

    btnexit.Enabled = True

    

    cbnim.Enabled = True

    txtnamasiswa.Enabled = True

    txtnilaitugas.Enabled = True

    txtnilaiuts.Enabled = True

    txtnilaiuas.Enabled = True

    btnhitung.Enabled = True

    txtnilaiangka.Enabled = False

    txtnilaihuruf.Enabled = False

    txtkomentar.Enabled = True

    cbnim.SetFocus

End Sub

PENJELASAN CODING

-untuk tanda "" artinya semua objek di dalamnya kosong

-untuk enabled true artinya objek dapat diklik atau diisi

-untuk enabled false artinya objek tidak dapat diklik atau diisi

Pada tombol Exit ketikkan coding berikut

Private Sub btnexit_Click()

    If MsgBox("Keluar ?", vbYesNo, "Program") = vbYes Then

    End

    End If

    

End Sub

PENJELASAN CODING

Private Sub btnexit_Click()

    If MsgBox("Keluar ?", vbYesNo, "Program") = vbYes Then→jika button exit diklik maka muncul kotak pilihan "Keluar?" dengan Program sebagai nama kotak pesannya,dan pilihannya Yes atau No

    End→selesai/keluar

    End If→mengakhiri percabangan if

    

End Sub

HASIL AKHIR DARI FORM NILAI SISWA

Sekian postingan kali ini,untuk materi berikutnya kita akan membuat program lagi.Semoga ilmu yang dishare dapat bermanfaat ! Terima Kasih !