Postingan

UTS Pemrograman Arif Hidayat

Gambar
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()         aplikas
Posting Komentar
Baca selengkapnya

uts pemrograman

Gambar
Nama : M Irwan NIM   : 171021450040 Kelas  : 04 TPLP 001 1. Diskripsi : Disini saya akan membuat project tentang "Penjualan Makanan Berbasis Online" alasan saya ingin membut project ini agar memudahkan masyarakat membeli makanan tampa harus keluar ruamah. Komponen yang dipakai : - Label - Combo Box - Text Box - Button 2. Berikut 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\RESTORAN.docx")         judul = tbnama.Text         bokdoc.Bookmarks("nama").Select()         aplikasi.Selection.TypeText(tbnama.Text)         bokdoc.Bookmarks("jenis").Select()         aplikasi.Selection.TypeText(t
Posting Komentar
Baca selengkapnya