Nama : Muhammad edo firmansyah
NIM : 161021450388
Kelas : 520/06TPLE004
APLIKASI
PENGINPUTAN DATA STOK BARANG
Deskripsi aplikasi
Pada project aplikasi
kali ini membuat sebuah aplikasi sederhana menggunakan Visual Studio untuk
melakukan penginputan pada stok barang. Aplikasi ini di latar belakangi tidak
lain yaitu untuk mempermudah atau meningkantnhya pengembangan sebuah perangkat
aplikasi untuk dapat mempermudah data melakukan penginputan.
Komponen Aplikasi
- Table
- Label
- TextBox
- DropDownList
- Button
Berikut tampilan di
visual studio
1. Buat lah desain seperti dibawah ini
2. Double klik di button save ke excel,
untuk memsukan atau mengkoding pada excel. Masukan codingan dibawah ini:
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim
aplikasiexcel As New excel.Application
Dim
fileExcelnya As excel.Workbook
fileExcelnya =
aplikasiexcel.Workbooks.Open("D:\tugas_web_program\penjualan.xlsx")
aplikasiexcel.Range("A2").Value = TextBox1.Text
aplikasiexcel.Range("B2").Value = DropDownList2.Text
aplikasiexcel.Range("C2").Value = TextBox2.Text
aplikasiexcel.Range("D2").Value = TextBox3.Text
aplikasiexcel.Range("E2").Value = TextBox6.Text
aplikasiexcel.Range("F2").Value = TextBox7.Text
fileExcelnya.SaveAs("D:\tugas_web_program\penjualan.xlsx")
MsgBox("Sukses")
aplikasiexcel.Visible = True
End Sub
2 3. Double klik di button save ke word,
untuk memsukan atau mengkoding pada word. Masukan codingan dibawah ini:
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim
Aplikasi As New word.Application
Dim
Dokumen As word.Document
Dokumen = Aplikasi.Documents.Open("D:\tugas_web_program\penjualan.docx")
Dokumen.Bookmarks("ID").Select()
Aplikasi.Selection.TypeText(TextBox1.Text.ToString)
Dokumen.Bookmarks("Jenis").Select()
Aplikasi.Selection.TypeText(DropDownList2.Text.ToString)
Dokumen.Bookmarks("Nama").Select()
Aplikasi.Selection.TypeText(TextBox2.Text.ToString)
Dokumen.Bookmarks("Jumlah").Select()
Aplikasi.Selection.TypeText(TextBox3.Text.ToString)
Dokumen.Bookmarks("Beli").Select()
Aplikasi.Selection.TypeText(TextBox6.Text.ToString)
Dokumen.Bookmarks("Jual").Select()
Aplikasi.Selection.TypeText(TextBox7.Text.ToString)
Dokumen.SaveAs2("D:\tugas_web_program\penjualan.docx")
MsgBox("Sukses")
Aplikasi.Visible = True
End Sub
3 4. Double klik di DropDownList Jenis
barang, untuk memsukan atau mengkoding pada DropdownList. Masukan codingan
dibawah ini:
Protected Sub
DropDownList2_SelectedIndexChanged1(sender As
Object, e As EventArgs) Handles
DropDownList2.SelectedIndexChanged
Dim
golongan As String
golongan =
DropDownList2.SelectedItem.ToString
If
golongan = "Minuman" Then
TextBox8.Text = "Minuman"
ElseIf golongan = "Biskuit"
Then
TextBox8.Text = "Biskuit"
ElseIf golongan = "Mie Instan" Then
TextBox8.Text = "Mie Instan"
ElseIf golongan = "Sembako"
Then
TextBox8.Text = "Sembako"
Else
TextBox8.Text = "ATK"
End
If
End Sub
5. Selanjutnya klik dropdownlist lalu
klik panah kecil di bagian dropdownlistnya -> klik edit item ->
menambahkan beberapa item -> lalu klik ok seperti dibawah ini
6. Jika desainnya sudah dibuat semua
silahkan membuat file excel dan wordnya.
7. Jika
sudah semuanya silahkan menjalankan projectnya di browser, caranhya klik kanan
di project -> plih view in browser / ctrl+shift+W, akan muncul seperti
dibawah ini:
8. Jiika sudah muncul silahkan diisi
datanya lalu simpan ke excel dan word.
9. Jika sudah tersimpan di excel akan
muncul tampilan di bawah ini lalu klik yes dan Ok.
10. Berikut tampilan data yang tersimpan
di excel:
11. Proses tersimpan diword sama seperti
excel. Jika sudah di sampan secara otomatis word akan terbuka seperti berikut:
Untuk codingan full
nya bisa ikutin seperti dibawah ini:
Imports excel = Microsoft.Office.Interop.Excel
Imports word = Microsoft.Office.Interop.Word
Public Class MasterPegawai
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aplikasiexcel As New excel.Application
Dim fileExcelnya As excel.Workbook
fileExcelnya = aplikasiexcel.Workbooks.Open("D:\tugas_web_program\penjualan.xlsx")
aplikasiexcel.Range("A2").Value = TextBox1.Text
aplikasiexcel.Range("B2").Value = DropDownList2.Text
aplikasiexcel.Range("C2").Value = TextBox2.Text
aplikasiexcel.Range("D2").Value = TextBox3.Text
aplikasiexcel.Range("E2").Value = TextBox6.Text
aplikasiexcel.Range("F2").Value = TextBox7.Text
fileExcelnya.SaveAs("D:\tugas_web_program\penjualan.xlsx")
MsgBox("Sukses")
aplikasiexcel.Visible = True
End Sub
Protected Sub
DropDownList2_SelectedIndexChanged1(sender As
Object, e As EventArgs) Handles
DropDownList2.SelectedIndexChanged
Dim golongan As String
golongan = DropDownList2.SelectedItem.ToString
If golongan = "Minuman" Then
TextBox8.Text = "Minuman"
ElseIf golongan = "Biskuit" Then
TextBox8.Text = "Biskuit"
ElseIf golongan = "Mie Instan" Then
TextBox8.Text = "Mie Instan"
ElseIf golongan = "Sembako" Then
TextBox8.Text = "Sembako"
Else
TextBox8.Text = "ATK"
End If
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Aplikasi As New word.Application
Dim Dokumen As word.Document
Dokumen = Aplikasi.Documents.Open("D:\tugas_web_program\penjualan.docx")
Dokumen.Bookmarks("ID").Select()
Aplikasi.Selection.TypeText(TextBox1.Text.ToString)
Dokumen.Bookmarks("Jenis").Select()
Aplikasi.Selection.TypeText(DropDownList2.Text.ToString)
Dokumen.Bookmarks("Nama").Select()
Aplikasi.Selection.TypeText(TextBox2.Text.ToString)
Dokumen.Bookmarks("Jumlah").Select()
Aplikasi.Selection.TypeText(TextBox3.Text.ToString)
Dokumen.Bookmarks("Beli").Select()
Aplikasi.Selection.TypeText(TextBox6.Text.ToString)
Dokumen.Bookmarks("Jual").Select()
Aplikasi.Selection.TypeText(TextBox7.Text.ToString)
Dokumen.SaveAs2("D:\tugas_web_program\penjualan.docx")
MsgBox("Sukses")
Aplikasi.Visible = True
End Sub
End Class
Berikut screenshotan codingannya:
Berikut deskripsia di lemar jawaban:
mungkin cukup sekian penjelasan dari saya mohon maaf bila ada kesalahan dan kurannya penjelasan.
sekian terimakasih
hormat saya
Tidak ada komentar:
Posting Komentar