Latihan Visual Basic UAS

LATIHAN PRA UAS VISUAL BASIC

Ketentuan Soal
1. Buatlah Project dengan nama Pra_Uas.vbp
2. Buatlah database dengan nama DBPerpustakaan.mdb
3. Buatlah tabel Anggota

Struktur tabelnya sebagai berikut :
Nama Field Tipe Data Panjang Record Keterangan
Noanggota Text 7 Primay Key
Nmanggota Text 15
Jkel Text 10
Alamat Text 30
Tgl_daftar Date/Time 8


Ketika dijalankan semua textbox,optionbutton dan command button simpan, batal, hapus, keluar dalam keadaan tidak aktif ( enabled = false )

Ketika klik Tambah, Nomor Anggota muncul otomatis dan semua textbox, optionbutton , command button simpan, batal, hapus, keluar dalam keadaan aktif kembali ( enabled=true)

Design Form :















Tampilan Formnya setelah dijalankan :























Listing Programnya :


Dim str As String
Dim i As Integer
Dim d As String

Sub bersih()
txtno.Text = ""
txtnama.Text = ""
End Sub
Sub urutan()
d = Adodc1.Recordset.RecordCount
txtno.Text = "ANG-" & 0 & d + 1
End Sub

Private Sub CMDBARU_Click()
txtno.Enabled = True
txtnama.Enabled = True
List1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdhapus.Enabled = False
cmdkeluar.Enabled = False
bersih
urutan
txtnama.SetFocus
End Sub

Private Sub cmdbatal_Click()
bersih
cmdkeluar.Enabled = True
cmdsimpan.Enabled = False
cmdhapus.Enabled = True
End Sub

Private Sub cmdhapus_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
a = MsgBox("YAKIN ME KELUAR?", vbQuestion + vbYesNo, "WARNING")
If a = vbYes Then
'ketika di klik tombol OK maka form akan bergerak bawah

Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
Unload Me
Else
MsgBox "NGAK JD DEH!!!!!"
End If
End Sub

Private Sub cmdsimpan_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!noanggota = txtno
Adodc1.Recordset!NMANGGOTA = txtnama
Adodc1.Recordset!ALAMAT = List1
If Option1.Value = True Then
Adodc1.Recordset!JKEL = Option1.Caption
Else
Adodc1.Recordset!JKEL = Option2.Caption
End If

Adodc1.Recordset!TGL_DAFTAR = txttgl
Adodc1.Recordset.Update
cmdhapus.Enabled = True
cmdkeluar.Enabled = True
End Sub


Private Sub Form_Activate()
txtno.Enabled = False
txtnama.Enabled = False
List1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
txttgl.Enabled = False
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdhapus.Enabled = False
cmdkeluar.Enabled = False
End Sub

Private Sub Form_Load()
txttgl = Date
List1.AddItem ("Tangerang")
List1.AddItem ("Jakarta")
List1.AddItem ("Surabaya")
List1.AddItem ("Bandung")
End Sub


Private Sub Timer1_Timer()
'ini untuk animasi text berjalan

str = "Aplikasi Perpustakaan Amanah"
Timer1.Interval = 100
i = i + 1
Form1.Caption = Left(str, i)
If i = Len(str) Then
i = 1
Timer1.Interval = 3000
End If

'animasi untuk Label kedap-kedip
If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If
End Sub

Private Sub txtno_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Salam hangan didz v blackloversfanatic