aplikasi peminjaman buku perpus menggunakan VB.net

pada postingan kali ini saya akan menjelaskan cara membuat aplikasi peminjaman buku di perpus dengan menggunakan VB.net dan data langsung tersimpan kedalam bentuk word dan excel

Padatampilan awal desain akan terlihat seperti ini

 

codingan yang di pakai seperti ini

 tampilan data tersimpan di word seperti ini

tampilan data ke excel akan seperti ini

berikut cara mengcoding agar lebih mudah dipahami:
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\UTS.docx")

        dokumen.Bookmarks("DBNIM").Select()
        aplikasi.Selection.TypeText(TxtNim.Text)

        dokumen.Bookmarks("DBNAMA").Select()
        aplikasi.Selection.TypeText(TxtNama.Text)

        dokumen.Bookmarks("DBJENISKELAMIN").Select()
        aplikasi.Selection.TypeText(TxtJnsKlmn.Text)

        dokumen.Bookmarks("DBALAMAT").Select()
        aplikasi.Selection.TypeText(TxtAlamat.Text)

        dokumen.Bookmarks("DBNOTELP").Select()
        aplikasi.Selection.TypeText(TxtNotlp.Text)

        dokumen.Bookmarks("DBJUDULBUKU").Select()
        aplikasi.Selection.TypeText(TxtJdlBku.Text)

        dokumen.SaveAs2("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\ " + TxtNim.Text + TxtNama.Text + ".docx")
        aplikasi.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim AplikasiExcel As New excel.Application
        Dim FileExcel As excel.Workbook
        FileExcel = AplikasiExcel.Workbooks.Open("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\UTS EXCEL.xlsx")
        AplikasiExcel.Range("A4").Value = TxtNim.Text
        AplikasiExcel.Range("B4").Value = TxtNama.Text
        AplikasiExcel.Range("C4").Value = TxtJnsKlmn.Text
        AplikasiExcel.Range("D4").Value = TxtAlamat.Text
        AplikasiExcel.Range("E4").Value = TxtNotlp.Text
        AplikasiExcel.Range("F4").Value = TxtJdlBku.Text

        FileExcel.SaveAs("C:\Users\WIN 8.1 Core\Documents\so ngampus\smesteer 5\pa agus\ " + TxtNim.Text + TxtNama.Text + " .xlsx")
        MsgBox("sukses")
        AplikasiExcel.Visible = True
    End Sub
End Class

Saya wilda ayu trihandayani
Dari STMIK ERESHA
Ingin berbagi pengalaman dan alasan saya masuk jurusan teknik komputer atau lebih dikenal dengan TI


Motiv saya memilih masuk ke jurusan teknik komputer itu karena saya suka dengan ilmu teknologi yang di tiap jaman nya selalu berubah-ubah, pada zaman ini teknologi sangat lah diandalkan untuk melakukan segala hal baik itu sepele atau mungkin sulit. Dengan saya masuk jurusan teknik komputer ini dapat membuat saya setidaknya tidak buta teknologi (gaptek) bahkan bonusnya mungkin saya dapat membuat teknologi lebih maju lagi. Masuk jurusan ini pun menurut saya sangat menjanjikan ketika sudah lulus nanti, kita bisa memilih pekerjaan yang layak atau bahkan membuat peluang kerja sendiri.

Motivasi mahasiswa

• “Sesuatu yang membuat saya bertahan kerjain tugas semalaman adalah bahwa apa yang saya kerjakan ini adalah suatu hal yang membedakan saya dengan orang malas“

• “Pendidikan bukanlah proses mengisi wadah yang kosong. Pendidikan adalah proses menyalakan api pikiran.” – W.B. Yeats
• “Jika kamu tidak mengejar apa yang kamu inginkan, maka kamu tidak akan mendapatkannya. Jika kamu tidak bertanya maka jawabannya adalah tidak. Jika kamu tidak melangkah maju, kamu akan tetap berada di tempat yang sama.” – Nora Roberts
• “Seseorang yang berhenti belajar adalah orang lanjut usia, meskipun umurnya masih remaja. Seseorang yang tidak pernah berhenti belajar akan selamanya menjadi pemuda.” –Henry Ford
• “Jika kamu tidak mengejar apa yang kamu inginkan, maka kamu tidak akan mendapatkannya. Jika kamu tidak bertanya maka jawabannya adalah tidak. Jika kamu tidak melangkah maju, kamu akan tetap berada di tempat yang sama.” – Nora Roberts
• “Seseorang dengan wawasan yang cukup untuk mengakui kekurangannya adalah orang yang paling dekat dengan kesempurnaan.
• “Seseorang dengan wawasan yang cukup untuk mengakui kekurangannya adalah orang yang paling dekat dengan kesempurnaan.
• “Pembelajaran tidak didapat dengan kebetulan. Ia harus dicari dengan semangat dan disimak dengan tekun.” – Abigail Adams
•  “Adalah baik untuk merayakan kesuksesan, tapi hal yang lebih penting adalah untuk mengambil pelajaran dari kegagalan.” – Bill Gates