UAS Lab VB2 - Aplikasi "Toko Buku"

Hai, pada kesempatan kali ini saya akan membuat tutorial aplikasi "Toko Buku" menggunakanVB.NET yang terkoneksi dengan MS.Access sebagai database
Disimak dengan baik :)

• Buat databasenya terlebih dahulu. Buka MS. Access, kemudian buat sebuah tabel. (Go to Table Design) lalu disain tampilannya seperti berikut

• Simpan ditempat yang mudah di ingat. Kali ini saya taruh file database accessnya di "Drive D : toko_buku"

• Buat Project baru di Visual Studio, Kemudian langsung saja klik menu Data -> Lalu pilih -> Add New Data Source

• Selanjutnya akan muncul dialog Data Source Configuration Wizard, pilih Database lalu klik Next

• Lanjut, klik Dataset lalu Next lagi

• Sekarang kita klik tombol New Connection... 

• Kita akan dibawa ke dialog Add Connection, tekan tombol Change.

• Untuk Data Source, kita pilih Microsoft Access Database File, kemudian klik OK

• Kembali lagi ke kotak dialog Add Connection, sekarang klik BROWSE untuk memilih file database MS.Access yang kita buat tadi.

• Lalu kembali ke kotak dialog Add Connection sekarang klik OK

• Dan secara tiba-tiba muncul kotak dialog pertanyaan. "Apakah anda ingin meng-copy file database anda ke folder Project VB anda? Jika Yes maka nggak papa, Jika No maka nggak papa juga" Klik NO aja biar mudah tau lokasi Filenya.

• Next, kita akan diarahkan ke Data Source Configuration Wizard. Disini kita bisa mengubah nama Connection Stringnya. tapi untuk studi kasus kali ini lebih baik tidak perlu, dan sekarang klik NEXT lagi.

rjaan for,m

• Checklist semua yang ada di dialog Choose your database object. Dan kita sudah selesai melakukan setting pada data source yang akan kita gunakan :D

• Sekarang kita mulai dengan pekerjaan Form! Form pertama yang dibuat adalah form Login beserta Source Code nya seperti berikut

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "muhammad.rega" Then

            If TextBox2.Text = "1306469891" Then

                Inventory.Show()

            Else

                MsgBox("Password anda salah, silahkan coba lagi")

            End If

        Else

            MsgBox("Username atau Password anda salah, silahkan coba lagi")

        End If

    End Sub

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

        Me.Close

    End Sub

End Class

• Sekarang kita buat Form kedua dengan cara buka lagi Project yang tadi ke close, kemudian KLIK DATASOURCE disamping TOOLBOX, kemudian GESER tbl_buku ke dalam form kedua. Maka akan menghasilkan form seperti gambar berikut!

• Next, tarik satu-satu field yang ada di Data Source toolbox, seperti gambar dibawah ini, maka hasilnya akan seperti berikut

• Nah terakhir tinggal kita isi aja datanya sesuai yang kita inginkan. 

• Jika kita ingin mencari data yang sudah pernah tersimpan, kita bisa mengunakan fitur "FIND" yang dapat memudahkan kita. Berikut Source Code nya

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.IDBukuBindingSource.Filter = "ID'%" & TextBox1.Text & "'"

    End Sub

• Terakhir, jika kita ingin melihat database yang sudah kita isi dan simpan di aplikasi toko buku tersebut, kita bisa buka file Ms.Access yang kita buat tadi seperti pada gambar berikut

Demikian tutorial yang dapat saya buat tentang aplikasi "Toko Buku"

Semoga Bermanfaat :)

Tugas VB2 "Aplikasi Peminjaman Uang di Bank"

Kali ini saya akan membuat tutorial tentang aplikasi Pinjaman Uang kepada Bank. Harap disimak :)

Sebelum membuat aplikasi pada visual studio saya membuat database yang berfungsi untuk menyimpan informasi transaksi yang dilakukan customer Peminjaman Uang agar pihak Bank mempunyai database yang valid tentang informasi yang dilakukan

Berikut ini adalah gambar Table yang diperlukan untuk database dari Pinjaman Uang tersebut.

Dan berikut adalah database tentang para customer yang melakukan Pinjaman Uang ke pihak Bank :

Lalu berikut ada database gabungan dari data Pinjaman dan Data Customer :

Saya juga membuat Query Design yang berfungsi untuk menghubungkan keterkaitan antara tableKelasPeminjaman dan TableDataPinjaman, seperti gambar berikut :

Lalu ada Query Design untuk menghitung berapa total Bunga yang didapat per bulan, beserta angsuran yang sudah ditambahkan dengan bunganya per bulan hingga total semua pembayaran yang sudah dilakakun selama beberapa periode:

Untuk mengkoneksian antara aplikasi yang kita buat dengan database caranya sebagai berikut:

-          Klik datasource yang terletak disebah kiri dan dibawahToolbox

Muncul dialog dan pilih database kemudian klik database hingga Finish maka  database sudah terkoneksi denagn program.

            Sekarang kita meluncur  ke Visual Studio…

Pada windows form1 saya membuat form untuk login bagi para calon Peminjam  Bank untuk melakukan LogIn. Username dan Password berfungsi untuk memastikan bahwa yang ingin melakukan Pinjaman Uang adalah customer dari Bank :

Lalu, step selanjutnya masuk ke form Peminjaman yang sudah terkoneksi pada form yang ditambahkan :

1.      Table Customer Peminjam Uang

Setelah informasi customer sudah diisi, form selanjutnya berlanjut ke Tabel Data Peminjaman seperti berikut :

2.      Table Data Peminjaman 

KetikaData Pinjaman dan Data Customer sudah diisi, klik “SIMPAN” dan seluruh data akan tersimpan di database Microsoft Access.

Sekian tutorial tentang aplikasi Pinjaman Uang di Bank, Terimakasih :)

UTS VB2 Vokasi Akuntasi TSI 2013 Universitas Indonesia

Tutorial membuat aplikasi "DAFTAR MAHASISWA AKTIF VOKASI AKUNTANSI UNIVERSITAS INDONESIA"

Berikut ScreenShot Aplikasi nya

Dan, berikut source code yang digunakan

Public Class Form1

    Dim excelapp As New Microsoft.Office.Interop.Excel.Application

    Dim excelbook As New Microsoft.Office.Interop.Excel.Workbook

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim i As Double

        excelbook = excelapp.Workbooks.Open("D:\UTS VB2\Daftar Mahasiswa Aktif VAUI.xlsx")

        excelapp.Range("A" + CStr(i + 1)).Value = TextBox1.Text

        excelapp.Range("B" + CStr(i + 1)).Value = TextBox2.Text

        excelapp.Range("C" + CStr(i + 1)).Value = TextBox3.Text

        excelapp.Range("D" + CStr(i + 1)).Value = TextBox4.Text

        

        excelapp.Visible = True

    End Sub

End Class

Sekian tutorial yang dapat saya buat.

Terima Kasih...

TWISTER MILK

TWISTER MILK

              Twister Milk merupakan susu berkhasiat tinggi yang dapat menambah berat badan dan menambah tinggi badan anda. Dengan dilengkapi komposisi vitamin-vitamin yang tinggi, susu ini dapat menjaga kekebalan tubuh anda serta menambah daya ingat anda

              Susu yang diproduksi di PT.DUABELAS IPS TIGA COMPANY yang beroprasi di Bandar Lampung ini cukup mengguncang dunia dengan khasiat dan rasan yang menarik para konsumen di seluruh penjuru dunia.Contohnya Inggris, Inggris adalah salah satu negara yang cukup banyak mengonsumsi Twister Milk ini. Dengan rasa rasa vanilla yang cukup enak, susu ini bisa dinikmati kapan saja dan dimana saja.

> Proposal Usaha klik disini
> PowerPoint Produk klik disini

Materi OSK

Pertemuan 8 : Fungsi dan kegunaan Port USB , HDMI , Mouse , dan Printer

Pertemuan 9 : Membuat paper tentang koneksi internet dengan modem dan wifi

Pertemuan 10 : Membuat tutorial ms office secara berkelompok

Pertemuan 11 : Mengetahui tips dan trik memperbaiki komputer

Pertemuan 12 : Troubleshooting masalah komputer

Pertemuan 13 : Merancang sistem informasi

Pertemuan 14 : Membuat film singkat mengenai memperbaiki Laptop / PC

Informasi selengkapnya dapat dilihat di scele.ui.ac.id