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 !

Comments

  1. Wow you did good matet,thanks

    ReplyDelete
  2. Sangat-Sangat bermanfaat... makasih pak...
    mau nanya pak... klo mencegah data ganda di datagrid itu gmna ya caranya ?
    kalo boleh lanjudkan scriptnya di tutorial ini aja Pak... makasi n mohon bantuannya..

    ReplyDelete

Post a Comment