Aplikasi Sederhana Entry Data Peminjaman Buku (Visual Studio)

DESKRIPSI

Aplkasi sederhana ini dibuat menggunakan Visual studio, Aplikasi sederhana ini dapat terkoneksi dengan Ms.Word dan Excel. Pada designnya menggunakan komponen-komponen berikut:

  • Label
  • TextBox
  • Button
Aplikasi sederhana ini dibuat untuk mempermudah pada saat entry data peminjaman buku dengan mengetahui NIK/nomor identitas peminjam, Nama Peminjam, Judul Buku dan Kode Buku. Aplikasi sederhana ini juga dapat menyimpan koneksi dengan Ms.Word dan Ms.Excel.
Berikut Screenshootnya:

1. Ini tampilan awal designnya












2. Ini tampilan sebelum dientry data (masih kosong)




3. Ini tampilan sesudah dientry data dan terkoneksi dengan MS.Word dan Ms.Excel












Berikut Source codenya:


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("E:\Semeter 5\ENTRY DATA PEMINJAMAN.docx")

        dokumen.Bookmarks("BNIK").Select()
        aplikasi.Selection.TypeText(TxtNIK.Text)

        dokumen.Bookmarks("BNamaPeminjam").Select()
        aplikasi.Selection.TypeText(TxtNamaPeminjam.Text)

        dokumen.Bookmarks("BKodeBuku").Select()
        aplikasi.Selection.TypeText(TxtKodeBuku.Text)

        dokumen.Bookmarks("BJudulBuku").Select()
        aplikasi.Selection.TypeText(TxtJudulBuku.Text)
        dokumen.SaveAs("E:\Semeter 5\" + TxtNIK.Text + " " + TxtNamaPeminjam.Text + " " + "ENTRY DATA PEMINJAMAN.docx")
        aplikasi.Visible = True
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TxtNIK.Text = ("")
        TxtNamaPeminjam.Text = ("")
        TxtKodeBuku.Text = ("")
        TxtJudulBuku.Text = ("")
    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("E:\Semeter 5\Data Peminjaman Buku.xlsx")
        AplikasiExcel.Range("A5").Value = TxtNIK.Text
        AplikasiExcel.Range("B5").Value = TxtNamaPeminjam.Text
        AplikasiExcel.Range("C5").Value = TxtKodeBuku.Text
        AplikasiExcel.Range("D5").Value = TxtJudulBuku.Text

        FileExcel.SaveAs("E:\Semeter 5\Data Peminjaman Buku.xlsx")
        MsgBox("Sukses")
        AplikasiExcel.Visible = True
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

PROJECT SEDERHANA PENGIRIMAN BARANG JAVA (Netbean)

Gambar
Pada kesempatan kali ini saya membuat program sederhana pengiriman barang dengan menggunakan Netbean. program ini di tujukan untuk mempermudah jasa pengiriman barang dalam hal menginput nama pengirim, kota asal, kota tujuan, dan juga menghitung biaya pengiriman. Berikut komponen - komponen yang digunakan : Label TextField Button Berikut gambar dari JFrame/form : Gambar Tabel Data Base : Berikut Source Codenya : Refresh private void refreshButtonActionPerformed(java.awt.event.ActionEvent evt) {                                                     entityManager.getTransaction().rollback();         entityManager.getTransaction().begin();         java.util.Collection data = query.getResultList();         for (Object entity : data) {           ...
Baca selengkapnya

Contoh Passing Grade (Java NetBeans)

Gambar
PENGERTIAN PASSING GRADE Passing Grade merupakan acuan tidak resmi batas nilai ambang minimum yang harus dicapai peserta ujian untuk bisa masuk, menyeleksicalon di suatu Instansi/jurusan. Contoh aplikasi: Penerimaan Calon PNS, Calon Mahasiswa PTN, Kepangkatan dsb Rumus Passing Grade: (benar x 4) + alah x -1) -----------------------------...x100% (jumlah soal x 4)  Kesempatan kali ini saya akan membuat contoh kasus passing grade penerimaan calon pegawai. Langsung saja: Open Xamp Control Panel (klik start pada apache dan mysql) lalu klik tombol start pada apache dan mysql Selanjutnya buat tabel database pada PhpMyadmin Buka NetBeans (lalu buat new project) Selanjutnya Connect kan ke database   Jika sudah selesai lalu Run File Sebagai Contoh Rumus Kasus Passing Grade: Nama Calon Pegawai : Noel Gallagher mengerjakan materi test ke 1 dengan soal : 100 Nilai Benar : 75 Nilai Salah : 15 Nilai Kosong : 10 rumus,...
Baca selengkapnya

Aplikasi Sederhana Input Data (Visual Studio)

Gambar
How Are You Mates? Pada kesempatan kali ini saya akan memposting aplikasi sederhana input data menggunakan Visual Studio. DESKRIPSI: Aplikasi sederhana Input Data. Aplikasi sederhana ini dibuat menggunakan visual studio code behind VB Net. Aplikasi ini sudah dapat menyimpan/terkoneksi database dengan MS.Acces. Aplikasi ini dibuat agar memudahkan suatu instansi menginput data. Pada kali ini saya membuat contoh menginput data Dosen disebuah perguruan tinggi. SCREENSHOOT Tampilan design awal Tampilan WebFormView Tampilan MS Acces Tampilan setelah di RUN Mengisi database Tampilan database sudah terkoneksi ke MS Acces SOURCE CODE: Imports System.Data Imports System.Data.OleDb Public Class WebFormApplication1     Inherits System.Web.UI.Page     Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ASUS X550Z\Documents\TabelDosen.accdb"     Dim objekKoneksi As New OleDb.OleDbConnection(Ko...
Baca selengkapnya