Pada blog ini untuk UTS pengantar bisnis 2 saya aka membuat
apikasi yang menggunakan automation ke dalam microsoft excel. Aplikasi yang
saya buat adalah tentang perpustakaan. Saya akan membuat sistem dalam
pengoperasiaanya.
Berikut adalah langkah2nya
Projec baru:
-
New project
-
Pilih windows foam(beri nama sesuai yg kita
inginkan tanpa spasi)
Fom1. Saya membuat tampilan awal sebagai
berikut
Tampilan berisi
ucapan selamat datang dan pilihan untuk mendaftar atau langsung masuk dalam
aplikasi web ini.
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
End Class
Saya mebuat aplikasi ini untuk staff yang bekerja di
perpustakaan Universitas Indonesia Misalnya contoh dalam aplikasi dekstop ini.
Bagi staff yang ingin menginput data maka dia harus mendaftar atau sudah
memiliki username dan pasword.
ini adalaah Form
masuk(LOGIN/SIGN UP)
Public Class Form2
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If
(TextBox1.Text = "ambarwati" And TextBox2.Text = "001")
Then
Form7.Show()
Me.Close()
Else
MsgBox("Username
atau Password yang Anda Masukkan Salah!", , "Peringatan")
End If
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Me.Close()
End Sub
End Class
Jika seorang staff telah memasukan usernamenya maka staff
tersebut harus melakkan input data peminjaman pada saat terjadi tansaksi
peminjaman buku. Berikut adalah form data peminajaman yang saya sediakan dalam
aplikasi ini
Untuk menyimpan data saya telah menyediakan juga ms.excel
tempat penyimpanan data peminjaman bagi siapa saja yang meminjam pada saat itu
Caranya pada project yang kita kerjakan Add Refference,
Pilih Menu COM dan pilih Microsoft Excel. Berikut adalah tampilannya:
Imports
Microsoft.Office.Interop.Excel
Public Class Form7
Dim myapp As New
Microsoft.Office.Interop.Excel.Application
Dim mydoc As New
Microsoft.Office.Interop.Excel.Workbook
Dim a As Double
Private Sub TextBox7_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox7.TextChanged
If
(TextBox7.Text > 0 And TextBox7.Text <=
7) Then
TextBox8.Text = "2000"
Else
TextBox8.Text = (TextBox7.Text *
50000)
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
myapp.Range("A"
+ CStr(a + 1)).Value = TextBox1.Text
myapp.Range("B"
+ CStr(a + 1)).Value = TextBox2.Text
myapp.Range("C"
+ CStr(a + 1)).Value = TextBox3.Text
myapp.Range("D"
+ CStr(a + 1)).Value = TextBox7.Text
myapp.Range("E"
+ CStr(a + 1)).Value = TextBox8.Text
myapp.Range("F"
+ CStr(a + 1)).Value = TextBox4.Text
a = a + 1
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
'save
workbook
mydoc.Save()
'tutup
aplikasi excel
myapp.Quit()
End Sub
End ClassNah ini adalah tampilan microsoft excel untuk
penyimanan data penyimpanannya
Demikianlah Aplikasi Data Peminjaman buku di perpustakan yang
saya buat untuk Ujian Tengah Semester mata kuliah Pemograman Bisnis 2
Terimakasih
