UTS Pemrograman Arif Hidayat

1. Deskripsi : Disini saya membuat projek peminjaman buku perpustakaan untuk menjaga keamanan  buku perpustakaan agar tidak mudah hilang dan mudah di ingat dan mudah cari

2. Input

- 5 table
- 2 textbox
- 3 combobox
- 3 button

3. Input Hasil






 







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

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

        bokdoc = aplikasi.Documents.Open("C:\Users\ACER\Desktop\PERPUSTAKAN.docx")
        judul = tbnama.Text

        bokdoc.Bookmarks("nama").Select()
        aplikasi.Selection.TypeText(tbnama.Text)

        bokdoc.Bookmarks("judul").Select()
        aplikasi.Selection.TypeText(tbjudul.Text)

        bokdoc.Bookmarks("pin").Select()
        aplikasi.Selection.TypeText(cbpinjam.Text)

        bokdoc.Bookmarks("kem").Select()
        aplikasi.Selection.TypeText(cbkembali.Text)

        bokdoc.Bookmarks("jumlah").Select()
        aplikasi.Selection.TypeText(cbjumlah.Text)

        bokdoc.SaveAs2("C:\Users\ACER\Desktop\" + judul + ".docx")
        aplikasi.Visible = True

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim pinjaman As Integer
        Dim kembali As Integer
        Dim jumlah As Integer

        For pinjaman = 1 To 30
            cbpinjam.Items.Add(pinjaman)
        Next

        For kembali = 1 To 30
            cbkembali.Items.Add(kembali)
        Next

        For jumlah = 1 To 5
            cbjumlah.Items.Add(jumlah)
        Next
    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        Dim applikasi As New excel.Application
        Dim bokexcel As excel.Workbook
        Dim label As String

        bokexcel = applikasi.Workbooks.Open("C:\Users\ACER\Desktop\PERPUSTAKAAN.xlsx")
        label = "PERPUSTAKAN"

        applikasi.Range("A3").Value = tbnama.Text
        applikasi.Range("B3").Value = tbjudul.Text
        applikasi.Range("C3").Value = cbpinjam.Text
        applikasi.Range("D3").Value = cbkembali.Text
        applikasi.Range("E3").Value = cbjumlah.Text

        bokexcel.SaveAs("C:\Users\ACER\Desktop\" + label + ".xlsx")
        applikasi.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dispose()
    End Sub
End Class



3. sos