Kartu Bimbingan Tugas Akhir Mahhasiswa

KEMENTERIAN PENDIDIKAN NASIONAL UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM Jln. Bioteknologi No.1 Kampus USU Padang Bulan Medan-20155 Telp. (061) 8211050, 82144290, Fax. (061) 82144290

Kartu Bimbingan Tugas Akhir Mahhasiswa Nama Nomor Induk Mahasiswa Judul Tugas Akhir

: Hj. Amani Raudathul J : 112406106 : Membangunan Aplikasi Kamus Fiqih Digital Menggunakan Visual Basic 6.0 Dosen Pembimbing : Dr. Syahril Efendi, S.Si. M.I.T Tanggal Mulai Bimbingan : Tanggal Selesai Bimbingan : No

Tanggal Asisten Bimbingan

Pembahasan Pada Asistensi Mengenai, Pada Bab :

Paraf Dosen Pembimbing

Keterangan

1 2 3 4 5 6 7 8 * Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan Mahasiswa telah selesai.

Dieketahui, Prodi D3 Teknik Informatika Ketua

Disetujui, Pembimbing Utama/ Penanggung Jawab

Dra. Elly Rosmaini, M.Si NIP. 196005201985032002

Dr. Syahril Efendi, S.Si. M.I.T NIP.196711101996021001

Universitas Sumatera Utara

SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan di bawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma 3 Teknik Informatika :

Nama

: Hj. Amani Raudathul J

NIM

: 1124060106

Program Studi

: D3 Teknik Informatika

Judul Tugas Akhir

: Membangunan Aplikasi Kamus Fiqih Digital Menggunakan Visual Basic 6.0

Telah melaksanakan tes program Tugas Akhir Mahasiswa tersebut di atas pada tanggal :

Juni 2014

Dengan Hasil : SUKSES / GAGAL

Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.

Medan,

Juni 2014

Dosen Pembimbing/Kepala Lab. Komputer

Dr. Syahril Efendi, S.Si. M.I.T NIP. 196711101996021001


LISTING PROGRAM

Form Menu : Private Sub cmdAbout_Click() frmaboutme.Show If frmmenu.Visible = True Then frmmenu.Visible = False End Sub

Private Sub cmdtambah_Click() frmtambah.Show If frmmenu.Visible = True Then frmmenu.Visible = False End Sub

Private Sub cmdDaftar_Click() frmDaftarKamus.Show If frmmenu.Visible = True Then frmmenu.Visible = False End Sub

Private Sub cmdCari_Click() frmCariIstilah.Show If frmmenu.Visible = True Then frmmenu.Visible = False End Sub


Private Sub cmdExit_Click() End End Sub

Private Sub Form_Load() Timer1.Enabled = True Timer2.Enabled = False End Sub

Private Sub Timer1_Timer() If Label1.Left >= frmmenu.Width Then Label1.Left = frmmenu.Width Timer1.Enabled = False Timer2.Enabled = True Else Label1.Left = Label1.Left + 100 End If End Sub

Private Sub Timer2_Timer() If Label1.Left <= -Label1.Width Then Label1.Left = -Label1.Width Timer2.Enabled = False Timer1.Enabled = True


Else Label1.Left = Label1.Left - 100 End If End Sub

Private Sub Timer3_Timer() Label4.Caption = Time End Sub

Private Sub Timer4_Timer() Label3.Caption = Format(Now, "dddd, dd-mm-yyyy") Label10.Visible = Not Label10.Visible Label11.Visible = Not Label11.Visible End Sub

Form Tambah: Private Sub cmdBack_Click() frmmenu.Show Unload Me End Sub

Private Sub cmdBaru_Click() dtfiqih.Recordset.AddNew


Call tampil txtistilah.SetFocus End Sub Private Sub cmdCari_Click() frmCariIstilah.Show Unload Me End Sub

Private Sub cmdDaftar_Click() frmDaftarKamus.Show Unload Me End Sub

Private Sub cmdKamus_Click() frmDaftar.Show Unload Me End Sub

Private Sub cmdSimpan_Click() dtfiqih.Recordset.MoveFirst Call tidaktampil End Sub

Private Sub tampil()


txtistilah.Enabled = True txtarti.Enabled = True End Sub

Private Sub tidaktampil() txtistilah.Enabled = False txtarti.Enabled = False End Sub

Private Sub Form_Load() Call tidaktampil End Sub

Private Sub Timer1_Timer() Label3.Visible = Not Label3.Visible Label4.Caption = Right(Label4.Caption, Len(Label4.Caption) - 1) & Left(Label4.Caption, 1) End Sub

Form Cari Istilah: Private Sub cmdBack_Click() frmmenu.Show Unload Me


End Sub

Private Sub cmdCari_Click() dtfiqih.Recordset.FindFirst "Fiqih='" + txtSearch + "'" If dtfiqih.Recordset.NoMatch Then MsgBox "Maaf. Istilah yang Anda Cari Tidak Tersedia.", vbOKOnly, "Pemberitahuan!!!" dtfiqih.Recordset.MoveFirst txtSearch.SetFocus End If End Sub

Private Sub cmdDaftar_Click() frmDaftarKamus.Show Unload Me End Sub

Private Sub cmdtambah_Click() frmtambah.Show Unload Me End Sub

Private Sub Timer1_Timer() Label3.Visible = Not Label3.Visible If Label4.ForeColor = vbPurple Then


Label4.ForeColor = vbMagenta ElseIf Label4.ForeColor = vbMagenta Then Label4.ForeColor = vbGreen Else Label4.ForeColor = vbPurple End If End Sub

Form Daftar Kamus: Option Explicit

Private koneksi As ADODB.Connection Dim fiqih

As New ADODB.Recordset

Private Function konek() As Boolean On Error GoTo out Set koneksi = New ADODB.Connection koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bahasa.mdb;Persist Security Info=False" koneksi.CursorLocation = adUseClient konek = True out: End Function


Private Sub cmdBack_Click() frmmenu.Show Unload Me End Sub Private Sub cmdCari_Click() frmCariIstilah.Show Unload Me End Sub

Private Sub cmdHapus_Click() On Error GoTo Salah Dim pil As VbMsgBoxResult pil = MsgBox("Apakah Anda Yakin ingin Menghapusnya???", vbYesNo + vbQuestion, "Delete") If pil = vbYes Then 'hapus record Adodc1.Recordset.Delete 'menampilkan kembali record-record tabel End If Exit Sub Salah: MsgBox Err.Description End Sub


Private Sub cmdKamus_Click() frmDaftarKamus.Show Unload Me End Sub

Private Sub cmdtambah_Click() frmtambah.Show Unload Me End Sub

Private Sub Form_Load() DataGrid1.Columns(1).Width = 5000 End Sub

Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen ElseIf Label1.ForeColor = vbGreen Then Label1.ForeColor = vbBlue Else Label1.ForeColor = vbRed End If End Sub


Form About Me: Private Sub cmdBack_Click() frmmenu.Show Unload Me End Sub Private Sub Timer1_Timer() Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1) End Sub


Kartu Bimbingan Tugas Akhir Mahhasiswa

Recommend Documents