Input Peminjaman Buku Universitas Pamulang

 Deskripsi Program :program ini akan mempermudah petugas untuk menginput nama2 mahasiswa yang akan meminjam buku di perpustakaan. dengan program ini petugas tidak akan takut lagi apabila buku catatannya sobek atau hilang.
meminimalisir tenaga karyawan/petugas.. dengan cara ini petugas tidak akan capek menulis nama mahasiswa yang akan meminjam buku.

-  TexBox
- ComboBox
- Label
- Button

Codingan Program:

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1

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

        dokumen = aplikasi.Documents.Open("C:\Users\nazwa\Documents\Latihan VB\Input Peminjaman Buku2.docx")
        dokumen.Bookmarks("KodeBuku").Select()
        aplikasi.Selection.TypeText(TxtKodeBuku.Text)

        dokumen.Bookmarks("Judulbuku").Select()
        aplikasi.Selection.TypeText(TxtJudulBuku.Text)

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

        dokumen.Bookmarks("Semester").Select()
        aplikasi.Selection.TypeText(CmbSemester.Text)

        dokumen.Bookmarks("Jurusan").Select()
        aplikasi.Selection.TypeText(CmbJurusan.Text)

        dokumen.Bookmarks("Penggarang").Select()
        aplikasi.Selection.TypeText(TxtPengarang.Text)

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

        dokumen.Bookmarks("Kampus").Select()
        aplikasi.Selection.TypeText(CmbKampus.Text)

        dokumen.Bookmarks("Tanggalpinjaman").Select()
        aplikasi.Selection.TypeText(CmbTgl.Text)

        dokumen.Bookmarks("Tanggalpinjaman").Select()
        aplikasi.Selection.TypeText(CmbBln.Text)

        dokumen.Bookmarks("Tanggalpinjaman").Select()
        aplikasi.Selection.TypeText(CmbThn.Text)



        dokumen.Bookmarks("Tanggalapengembalian").Select()
        aplikasi.Selection.TypeText(CmbTanggal.Text)

        dokumen.Bookmarks("Tanggalapengembalian").Select()
        aplikasi.Selection.TypeText(CmbBulan.Text)

        dokumen.Bookmarks("Tanggalapengembalian").Select()
        aplikasi.Selection.TypeText(CmbTahun.Text)

        dokumen.SaveAs2("C:\Users\nazwa\Documents\Latihan VB\Input Peminjaman Buku2.docx")
        aplikasi.Visible = True


    End Sub

    Private Sub BtnSaveexcel_Click(sender As Object, e As EventArgs) Handles BtnSaveexcel.Click
        Dim aplikasiexcel As New excel.Application
        Dim filExcel As excel.Workbook

        filExcel = aplikasiexcel.Workbooks.Open("C:\Users\nazwa\Documents\Latihan VB\Input Peminjaman bukuexcel2.xlsx")

        aplikasiexcel.Range("A3").Value = TxtKodeBuku.Text
        aplikasiexcel.Range("B3").Value = TxtJudulBuku.Text
        aplikasiexcel.Range("C3").Value = TxtPengarang.Text
        aplikasiexcel.Range("D3").Value = TxtNama.Text
        aplikasiexcel.Range("E3").Value = CmbSemester.Text
        aplikasiexcel.Range("F3").Value = CmbJurusan.Text
        aplikasiexcel.Range("G3").Value = TxtNim.Text
        aplikasiexcel.Range("H3").Value = CmbKampus.Text
        aplikasiexcel.Range("I3").Value = CmbTgl.Text
        aplikasiexcel.Range("I3").Value = CmbBln.Text
        aplikasiexcel.Range("I3").Value = CmbThn.Text
        aplikasiexcel.Range("J3").Value = CmbTanggal.Text
        aplikasiexcel.Range("J3").Value = CmbBulan.Text
        aplikasiexcel.Range("J3").Value = CmbTahun.Text





        MsgBox("Sukses")
        aplikasiexcel.Visible = True


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tgl, bln, thn As Integer
        For tgl = 1 To 31
            CmbTgl.Items.Add(tgl)
        Next tgl
        For bln = 1 To 12
            CmbBln.Items.Add(bln)
        Next bln
        For thn = 2010 To 2030
            CmbThn.Items.Add(thn)
        Next thn



    Dim tanggal, bulan, tahun As Integer
        For tanggal = 1 To 31
            CmbTanggal.Items.Add(tanggal)
        Next tanggal
        For bulan = 1 To 12
            CmbBulan.Items.Add(bulan)
        Next bulan
        For tahun = 2010 To 2030
            CmbTahun.Items.Add(tahun)
        Next tahun



        CmbJurusan.Items.Add("Teknik Informatika")
        CmbJurusan.Items.Add("Sistem Informasi")
        CmbJurusan.Items.Add("Teknik Industri")
        CmbJurusan.Items.Add("Teknik Kimia")
        CmbJurusan.Items.Add("Manajemen")
        CmbJurusan.Items.Add("Ekonomi")
        CmbJurusan.Items.Add("Sastra Inggris")
        CmbJurusan.Items.Add("Sastra Indonesia")
        CmbJurusan.Items.Add("Hukum")
        CmbJurusan.Items.Add("Sekretaris")

        Dim Semester As Integer
        For Semester = 1 To 8
            CmbSemester.Items.Add(Semester)
        Next Semester

        CmbKampus.Items.Add("Universitas Pamulang")
        CmbKampus.Items.Add("STMIK ERESHA")
        CmbKampus.Items.Add("STIKES")


    End Sub
    Private Sub BtnCansel_Click(sender As Object, e As EventArgs) Handles BtnCansel.Click
        End
    End Sub


End Class