BLOG Akagami D.Eza

Hai bertemu lagi di blog saya .dengan nama ,yahh sebut sajah akagami hehehhe
kali ini saya akan membahas membuat aplikasi sederhana perpustakaan dengan menghubungkan Vb.net dengan Microsoft excel ..

berikut tutorialnya:

1.Pertama - tama buat desaign nya dulu di Msexcel:

2.Kemudian buka vb.net  lalu pilih new project.

3.Pilih windows project application, pilih OK.

4.Setelah itu akan muncul tampilan seperti gambar di bawah ini, Kemudian buat desaign sesuai dengan kebutuhan anda.

5.Setelah selesai buat desaign nya lanjut ke coding.

6.Sebelum masuk ke coding jangan lupa untuk mengubah variable name nya terlebih dahulu (bebas tergantung anda). Lalu klik dua kali pada button save.

7.kemudian pilih project , add Refference lalu cari Microsoft excel dan klik OK seperti gambar di bawah ini:

8.Kemudian masukan coding nya seperti gambar dibawah ini:

Imports excel = Microsoft.Office.Interop.Excel
Public Class DataBuku

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        Dim aplikasiExcel As New excel.Application
        Dim FileExcel As excel.Workbook
        FileExcel = aplikasiExcel.Workbooks.Open("G:\DataBuku.xlsx")

        Dim baris = 4
        While aplikasiExcel.Range("A" & baris).Value <> ""
            baris += 1
        End While
        aplikasiExcel.Range("A" & baris).Value = KodeBuku.Text
        aplikasiExcel.Range("B" & baris).Value = JudulBuku.Text
        aplikasiExcel.Range("C" & baris).Value = Pengarang.Text
        aplikasiExcel.Range("D" & baris).Value = Penerbit.Text
        aplikasiExcel.Range("E" & baris).Value = TahunTerbit.Text
        aplikasiExcel.Range("F" & baris).Value = Jumlah.Text

        FileExcel.SaveAs("G:\DataBuku.xlsx")
        FileExcel.Close()
        MsgBox("Berhasil Menyimpan Ke Excel")

    End Sub
End Class



9.Setelah coding nya selesai klik panah hijau atau F5 untuk Run Aplikasi, setelah aplikasi nya berjalan masukan data lalu klik save dan akan ada notife jika berhasil tersimpan.

1.1

1.3

10.setelah itu buka MsExcel nya dan akan langsung otomatis tersimpan di dalam.

Itu saja pembahasan dari saya . Mudah - mudahan bermanfaat untuk yang membaca

jika ada salah - salah atau kurang mohon maaf sebesar besar nya .

Terima kasih 

Aplikasi Peminjaman Buku Perpustakaan

  

                                        

                                                    Nama  : Eky Nureza Irawan

                                                    Nim    : 161021706423

                                                    Jurusan : Sistem Informasi

1.APLIKASI PERPUSTAKAAN 

• 1. Analisa Kebutuhan : 
•  Aplikasi ini berfungsi untuk menyimpan data transaksi peminjaman buku perpustakaan.
•  Mempermudah dalam memasukan data:

           – Data Transaksi Peminjaman Buku

           – Data Buku 

           – Data anggota perpustakaan 

2. Perancangan (Desain) 

2.1 Perancangan Database :

     

  1. Data Anggota (Tabel: MsAnggota):

           - ID (Field : Auto Number)

           - Nama (Field : Short text)

           - Alamat (Field : Short text)

           - TanggalLahir (Field : Date/Time)

           - Angkatan (Field : Short text)

           - Status (Field : Short text)

     

 

 

2.Data Buku (Tabel : MsBuku)

           -ID (Field : Auto Number)

           - Judul Buku (Field : Short text)

           - Pengarang (Field : Short text)

           - Penerbit (Field : Short text)

           - Tahun Penerbit (Field : Number)

           - Jumlah Buku ( Field : NUmber)

            

3. Data Transaksi (Tabel : TrPenjualan)

           - ID (Field :Auto Number)

           - IdAnggota (Field : Number)

           - IdBuku (Field : Number)

           - TanggalPinjam (Field : Date/Time)

           - TanggalKembali (Field : Date/Time)

2.2 Perancangan Tampilan Form

1. Tampilan Form Table MsAnggota

2.Tampilan Form Table MsBuku

3. Tampilan form Table TrPeminjaman