Jumat, 04 Agustus 2017

Project Input Data Mahasiswa Menggunakan Visual Basic 6.0

Pada saat penerimaan mahasiswa baru pasti nya akan memakan banyak waktu untuk menginput data mahasiswa satu persatu. dengan adanya teknologi akan mempercepat kinerja kita bahkan dua kali lipat dari kerja secara manual.

Ada banyak aplikasi yang bisa di gunakan untuk membuat program mendaftarkan data mahasiswa, salah satu nya yaitu visual basic 6.0. ada beberapa alasan mengapa saya merekomendasikan menggunakan aplikasi desktop ini, pertama mudah di pahami karena bahasa yang digunakan adalah bahasa tingkat tinggi (high level language), yang kedua aplikasi ini masih banyak di gunakan di kalangan kita contoh nya pada toko penjualan pakaian, administrasi kampus dan dealer motor masih menggunakan visual basic 6.0.

selain program input data mahaswa kita juga bisa membuat program menghitung nilai mahasiswa, silahkan baca artikel kita sebelumnya contoh program visual basic 6.0 menghitung nilai mahasiswa.

Membuat Form Biodata Dengan Visual Basic 6.0

oke, kita lanjut membuat input biodata, sesuaikan dengan keinginan masing-masing.

#1 Buka aplikasi visual basic 6.0.

#2 Buat sebuah database, menggunakan Microsoft Access seuaikan dengan gambar berikut :

Project Input Data Mahasiswa Menggunakan Visual Basic 6.0

#3 Buat module untuk meletakkan koneksi nya, atau bisa langsung letak di form load.

#4 Kemudian desain form sesuai dengan gambar di bawah : 

Project Input Data Mahasiswa Menggunakan Visual Basic 6.0

#5 Masukkan Coding berikut, sesuaikan apa yang perlu di ubah.

Sub BERSIH()
T1 = clear
T2 = clear
T3 = clear
T4 = clear
T5 = clear
T6 = clear
T7 = "__/__/____"
T8 = clear
T9 = clear
T10 = clear
T11 = clear
T12 = clear
BM = False
SM = False
T1.SetFocus
End Sub
Private Sub Cc_Click()
Call BERSIH
End Sub

Private Sub Ccari_Click()
Dim cari As String
cari = InputBox("KETIK NIM YANG ANDA CARI")
Rb.Open "Select * from Mahasiswa where NIM = '" & cari & "' ", konek, adOpenKeyset, adLockPessimistic
If Rb.EOF = False Then
    T1 = Rb!NIM
    T2 = Rb!Nama
    T3 = Rb!Jekel
    T4 = Rb!PENDD
    T5 = Rb!AGAMA
    T6 = Rb!SMUAsa
    T7 = Rb!Tgl_Lahir
    T8 = Rb!Tpt_Lahir
    T9 = Rb!Kota_Asal
    T10 = Rb!Alamat
    T11 = Rb!NoHP
    T12 = Rb!JLH_SDR
    If Rb!Sts_Nikah = True Then
        BM.Value = False
        SM.Value = True
    Else
        BM.Value = True
        SM.Value = False
    End If
Else
    MsgBox "NIM YANG ANDA MASUKKAN TIDAK COCOK...!", vbCritical, "Kesalahan"
End If
Rb.Close
'T2.Enabled = True
'T3.Enabled = True
'T4.Enabled = True
'T5.Enabled = True
'T6.Enabled = True
'T7.Enabled = True
'T8.Enabled = True
'T9.Enabled = True
'T10.Enabled = True
'T11.Enabled = True
'T12.Enabled = True
End Sub

Private Sub Ch_Click()
If T1 = "" Or T2 = "" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Or T7 = "__/__/____" Or T8 = "" Or T9 = "" Or T10 = "" Or T11 = "" Or T12 = "" Then
MsgBox "SILAHKAN KLIK CARI SEBELUM DI HAPUS", vbInformation, "INFORMASI"
Else
konek.Execute " delete from mahasiswa where nim='" & T1 & "' "
Call BERSIH
MsgBox "nim telah berhasil di DELETE !", vbInformation, "Informasi"
End If
End Sub

Private Sub Cp_Click()
Dim StsNkh As Boolean
If T1 = "" Or T2 = "" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Or T7 = "__/__/____" Or T8 = "" Or T9 = "" Or T10 = "" Or T11 = "" Or T12 = "" Then
MsgBox "SILAHKAN KLIK CARI SEBELUM DI UPDATE", vbInformation, "INFORMASI"
Else
If BM.Value = True Then
StsNkh = False
ElseIf SM.Value = True Then
StsNkh = True
Else
StsNkh = False
End If
konek.Execute "update mahasiswa set nama='" & T2 & "',jekel='" & T3 & "',pendd='" & T4 & "',agama='" & T5 & "',smuasa='" & T6 & "',tgl_lahir='" & Format(T7, "DD/MM/YYYY") & "',tpt_lahir='" & T8 & "',kota_asal='" & T9 & "',alamat='" & T10 & "',nohp='" & T11 & "',jlh_sdr=" & Val(T12) & ",sts_nikah=" & StsNkh & " where nim='" & T1 & "'"
MsgBox "NIM : " & T1 & " , telah berhasil di UPDATE !", vbInformation, "Informasi"
End If
End Sub

Private Sub Cs_Click()
If T1 = "" Or T2 = "" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Or T7 = "__/__/____" Or T8 = "" Or T9 = "" Or T10 = "" Or T11 = "" Or T12 = "" Then
MsgBox "SEMUA KOLOM HARUS DI ISI", vbInformation, "INFORMASI"
End If
If Not IsDate(T7.Text) Then
MsgBox "Tanggal Tidak Valid"
T7.SetFocus
Else
If SM.Value = True Then
 StsNkh = True
 Else
 StsNkh = False
 End If
 rc.Open "Select * from mahasiswa where NIM = '" & T1 & "' ", konek, adOpenKeyset, adLockPessimistic
If rc.EOF = False Then
MsgBox "DATA YANG TELAH ADA TIDAK BISA DI SIMPAN " & vbNewLine & "HANYA BISA DI PERBAHARUI", vbInformation, "Informasi"
Else
konek.Execute "insert into mahasiswa values('" & T1 & "', '" & T2 & "', '" & T3 & "', '" & T4 & "', '" & T5 & "', '" & T6 & "','" & Format(T7, "dd/mm/yyyy") & "', '" & T8 & "', '" & T9 & "', '" & T10 & "', '" & T11 & "', '" & T12 & "', " & StsNkh & ")"
MsgBox "Data Telah Di Simpan ....", vbInformation, "Informasi"
End If
rc.Close
End If
End Sub

Private Sub CSelesai_Click()
Unload Me
End Sub

Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)

End Sub

Private Sub Form_Activate()
T1.SetFocus
End Sub

Private Sub T1_KeyPress(KeyAscii As Integer)

T1.MaxLength = 8
'Validasi Agar Hanya Bisa Menginput Angka Tanpa Spasi
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then
KeyAscii = 0
End If
If KeyAscii = 13 Then
    
    
        Rb.Open "select nim from mahasiswa where nim='" & T1 & "' ", konek, adOpenKeyset, adLockOptimistic
    If Rb.EOF = False Then
        MsgBox "Data dengan NIM : " & T1 & " , sudah ada.... Ganti dengan yang baru"
        T1 = clear
        T1.SetFocus
        Else
        T2.SetFocus
    End If
    Rb.Close
End If
End Sub

Private Sub T2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T3.Enabled = True
T3.SetFocus
End If

'Validasi Agar Hanya Bisa Menuliskan Huruf Saja Dengan ( SPACI, BACK DAN DELETE )
If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
KeyAscii = 0
End If

End Sub
Private Sub T3_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T4.Enabled = True
T4.SetFocus
End If
End Sub
Private Sub T4_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T5.Enabled = True
T5.SetFocus
End If
End Sub
Private Sub T5_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T6.Enabled = True
T6.SetFocus
End If
End Sub

Private Sub T6_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T7.Enabled = True
T7.SetFocus
End If
End Sub

Private Sub T7_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
'T8.Enabled = True
T8.SetFocus
End If
End Sub
Private Sub T8_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
T9.SetFocus
End If
End Sub
Private Sub T9_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
T10.SetFocus
End If
End Sub
Private Sub T10_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
T11.SetFocus
End If
End Sub
Private Sub T11_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
T12.SetFocus
End If
End Sub

#4 Run.

Sekian Project Input Data Mahasiswa Menggunakan Visual Basic 6.0, jika ada yang membingungkan silahkan tanyakan di kolom komentar.

Seorang Blogger Yang Selalu Ingin Tahu Tentang Teknologi Dan Membagikan Kepada Teman Yang Membutuhkan.

2 komentar

Nice info gan, minta masukan blog ane gan www.otowheel.tk

۝ Peraturan dalam berkomentar :

☛ UpsS,. Budayakan berkomentar sesudah membaca artikel sob.
☛ Dilarang Menghina, Promosi (Iklan), Menyelipkan Link Aktiv, dsb.
☛ Dilarang berkomentar berbau Porno, Spam, Sara, Politic, Profokasi.
☛ Berkomentarlah yang Sopan,Bijak, dan Sesuai Artikel (Dilarang OOT)
☛ Saya sangat berterima kasih atas semua yang mau berkomentar diblog saya.
☛ Saya PASTI akan berkunjung balik ke blog Sobat yang sudah mau berkomentar di sini.
EmoticonEmoticon