UTS VB2

Kali ini saya akan membuat aplikasi sederhana untuk mencatat daftar peminjaman dari sebuah tempat penyewaan yang terhubung dengan MS Excel, kita asumsikan saja tempat penyewaan mobil.

Tempat penyewaan mobil ini menggunakan 2 cara peminjaman yaitu bagi "Member" dan "Non member", lalu cara pembayaran dengen "Tunai" dan "Kartu Kredit:

Tampilan aplikasi:

Hasil di excel:

 


Source code:

Public Class Form1
    Dim myexcellapp As New Microsoft.Office.Interop.Excel.Application
    Dim myexcellbook As Microsoft.Office.Interop.Excel.Workbook
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myexcellapp.Visible = True
        myexcellbook = myexcellapp.Workbooks.Open("F:\Gafar\Kuliah\Daftar Peminjaman")
        myexcellapp.Range("A2").Value = Me.TextBox1.Text
        myexcellapp.Range("B2").Value = Me.RadioButton1.Text
        myexcellapp.Range("B2").Value = Me.RadioButton2.Text
        myexcellapp.Range("C2").Value = Me.TextBox2.Text
        myexcellapp.Range("D2").Value = Me.RadioButton3.Text
        myexcellapp.Range("D2").Value = Me.RadioButton4.Text
        myexcellbook.SaveAs("F:\Gafar\Kuliah\DaftarPeminjaman")
        myexcellapp.Quit()
    End Sub
End Class