Aplikasi Form Inventory Barang

Home
About
Categories
- UTS
- UAS
- coming soon
- coming soon
Contact
Anime
Sitemap

Newest Post

Aplikasi Form Inventory Barang

// Posted by :kelvin // On :Senin, 29 Oktober 2018

Aplikasi Form Inventory Barang

Aplikasi Form Inventory barang, Aplikasi ini saya buat menggunakan Visaul Studio. saya akan memberika penjelasan tentang Aplikasi Form Inventori Barang dalam rangka memenuhi Tugas Ujian Tengah Semester (UTS) Pemograman.

Judul Project Dan Penjelasan

Aplikasi Form Inventory Barang.

Aplikasi ini untuk menginput data barang yang masuk kedalam gudang. adanya aplikasi Form Inventori Barang kita dapat mengecek dengan mudah. aplikasi ini mempunyai input, kode barang, nama barang, banyak barang, harga barang, nama pengecek dan tanggal pengiriman.

Design Form Inventory Barang

Tampilan Awal

Gambar Diatas adalah Design Awal. saya akan menjelaskan tombol button yang ada di dalam Design Tersebut.

Design Save To Word

Save To Word

tombol ini berfungsi untuk save hasil data yang sudah diinput lalu save to word . berikut saya sertekan Source Code dari tombol save to word.

Dim aplikasi As New word.Application
Dim dokumen As New word.Document
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
dokumen = aplikasi.Documents.Open("E:\Tugas_uts\FORM PENJUALAN TOKO.docx")

dokumen.Bookmarks("BTP").Select()
aplikasi.Selection.TypeText(cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text)

dokumen.Bookmarks("BKB").Select()
aplikasi.Selection.TypeText(Txtkode.Text)

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

dokumen.Bookmarks("BSB").Select()
aplikasi.Selection.TypeText(TxtStock.Text)

dokumen.Bookmarks("BHB").Select()
aplikasi.Selection.TypeText(TxtHarga.Text)

dokumen.Bookmarks("BNP").Select()
aplikasi.Selection.TypeText(TxtPembeli.Text)

dokumen.SaveAs2("E:\Tugas_uts\" + gabungan + ".docx")
MsgBox("Sukses")
aplikasi.Visible = True

Design Save To Excel

Save To Excel

Gambar diatas adalah hasil dari tombol save to excel, tombol ini sama dengan tombol save to word hanya saja ini menggunakan Ms. Excel. Berikut saya sertakan Sourcode dari tombol save to excel.

Dim aplikasiExcel As New Excel.Application
Dim fileExcelnya As Excel.Workbook
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Tugas_uts\Form Penjualan Toko excel.xlsx")
aplikasiExcel.Range("A3").Value = Txtkode.Text
aplikasiExcel.Range("B3").Value = TxtNama.Text
aplikasiExcel.Range("C3").Value = TxtStock.Text
aplikasiExcel.Range("D3").Value = TxtHarga.Text
aplikasiExcel.Range("E3").Value = TxtPembeli.Text
aplikasiExcel.Range("G3").Value = cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text

fileExcelnya.SaveAs("E:\Tugas_uts\" + gabungan + "Form Penjualan Toko excel.xlsx")
MsgBox("Sukses")
aplikasiExcel.Visible = True
End Sub

Tombol Exit

Fungsi Tombol ini adalah untuk keluar dan menutup aplikasi

Tombol Exit

Sourcode dari tombol exit

Dim x = MsgBox("Yakin Sudah Selesai?", vbYesNo + MsgBoxStyle.Question, "Komfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub

Tombol Clear

Fungsi dari tombol Clear ini yaitu untuk menghapus data yang ada pada kolom aplikasi, pada saat aplikasi sedang berjalan.

Sourcode dari Tombol Clear

Dim ctl As Control
For Each ctl In Me.Controls 'Untuk setiap Control di Aplikasi ini
If TypeOf ctl Is TextBox Then 'Jika control adalah textbox maka
ctl.Text = "" 'Kosongkan Isinya
End If

Next
End Sub

Sourcode Combo Box Tanggal

Fungsi Combo box ini adalah untuk memilih tanggal, bulan dan tahun secara otomatis.

Combo Box Tanggal

Dim i As Integer
For i = 1 To 31
cmbtanggal.Items.Add(i)
Next
Dim b As Integer
For b = 1 To 12
Dim a As String
a = MonthName(b)
cmbbulan.Items.Add(a)
Next
Dim c As Integer
For c = 1997 To Year(Now)
cmbtahun.Items.Add(c)
Next
End Sub