Disusun oleh : Miftahul Miftahul Khoer Nim Ju Jurus rusan
: 10260108 : Man Managem ageme en info inform rmat atik ika a
Smester : III - D
AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER AMIK HASS BANDUNG 2012 KATAPENGANTAR
Dengan mengucapkan puji syukur kehadirat Allah SWT atas Anugerah dan Karunia Nya sehingga penulis dapat menyelesai kan Teknik Teknik Pemograman yang berjudul“ Bahasa Pemograman Visual Studio 2005 Pada Data Penjualan Mobil”. Terwujudnya penullisan tugas akhir ini tidak lepas dari bantuan berbagai pihak, oleh karena itu pada kesempatan ini penulis ingin menyampaikan rasa terimakasih yang sebesar-besarnya kepada semua pihak yang telah membantu dalam penulisan tugas akhir ini, antara lain:
1. Dosen pembimbing pembimbing yang telah telah banyak banyak memberi memberi saran dan masukan masukan tentang tentang tugas. tugas. 2. Kedua orang tua yang yang menduku mendukung ng baik baik secara secara moril moril maupun maupun materil. materil. 3. Tema Teman-t n-tem eman an yang yang sela selalu lu memb member erik ikan an moti motiva vasi si seca secara ra langs langsun ung g maup maupun un tida tidak k langsung. Penulis menyadari bahwa Makalah ini jauh dari kesempurnaan , maka semua kritik dan saran yang bersifat membangunaka membangunakan n selalu diterima. Semoga yang sedikit ini memberikan manfaat terutama bagi kelanjutan studi penulis.
Bandung, 25Januari 2012
Penulis
DAFTAR ISI KATA PENGANTAR………………..………………………………………………………I DAFTAR ISI......................................................... ISI........................... ............................................................. ......................................................... .......................... ...........1
BAB 1........................................ 1............................................................... .............................................. .............................................. .............................................. ............................4 .....4
PENDAHULUAN.............................. PENDAHULUAN....... .............................................. .............................................. .............................................. .........................................4 ..................4
1.1 LATAR BELAKANG ................................................................................................................4 1.2 TUJUAN PENULISAN ............................................. .................................................................... .............................................. ..........................................5 ...................5 1.3 MANFAAT PENULISAN ..........................................................................................................6 B. Saran
BAB 1 PENDAHULUAN 1.1 Latar Belakang
Perk Perkem emba bang ngan an ilmu ilmu tekn teknol olog ogii saat saat ini ini sang sangatl atlah ah cepat cepat dan dan begi begitu tu tak tak terbendung bagi siapa yang tidak mengetahui perkembangan teknologi dunia, dia akan tertinggal ilmu teknologi terkini. Kemudahan dan efektifitas adalah dua kata kunci sukses untuk menunjang perkembangan dan kemajuan teknologi diberbagai bidang. Nilai efisien yang baik dan tepat informasinya adalah target pembangunan dalam susatu perusahaan. Kebanyakan proses perusahaan tidak lepas dari pemindahan data-data yang sangat dibutuhkan, seperti data penjualan yang diakses secara luas maka program yang dibuat berbasis web dengan menggunakan Visual Basic. Visual basic merupakan salah satu bahasa pemrograman yang dapat digunakan untuk membangun aplikasi,melakukan uji coba dari bebrbagai macam aplikasi, yang dalam dalam hal ini aplika aplikasi-a si-apli plikas kasii window windows, s, aplika aplikasi-a si-apli plikas kasii web, web, class class dan custom custom contro control. l. Visual Visual basic basic mudah mudah dipela dipelajari jari dan sangat sangat produk produktif, tif, dan juga juga memili memiliki ki beber beberapa apa kemamp kemampuan uan,, sepert sepertii proses proses kompil kompilasi asi yang yang cepat, cepat, sangat sangat dekat dekat dengan dengan pemrograman windows yang banyak digunakan saat ini beserta teknologi komponenkomponen komponennya. nya. Basic (Beginner’s (Beginner’s All-purpose All-purpose Symbolic Symbolic Instructio Instruction n Code) adalah sebuah sebuah bahasa bahasa pemrog pemrogram raman an “kuno” “kuno” yang yang merupa merupakan kan awal awal dari dari bahasabahasa-bah bahasa asa pemro pemrogra graman man tingka tingkatt tinggi tinggi lainny lainnya. a. Basic Basic diranc dirancang ang pada pada tahun tahun 1950-a 1950-an n dan dituju ditujukan kan untuk untuk dapat dapat diguna digunakan kan oleh oleh para para progra programme mmerr pemula pemula.. Biasan Biasanya ya Basic Basic diajarkan diajarkan untuk untuk para pelajar sekolah sekolah menengah menengah yang baru mengenal komputer, komputer, serta digu igunak nakan
untu untuk k
peng engemba emban ngan gan
prog rogram ram
“cepa cepatt
saji saji””
yang yang
rin ringan gan
dan dan
menyenangkan. Walaup Walaupun un begitu begitu,, peran peran Basic Basic lebih lebih dari dari sekeda sekedarr itu saja. saja. Banyak Banyak progra programer mer hand handal al saat saat ini ini memu memula laii kari karirn rnya ya deng dengan an memp mempela elaja jari ri Basi Basic. c. Seba Sebaga gaii baha bahasa sa pemrograman yang mutakhir, Visual Basic didesain untuk dapat memanfaatkan
fasilitas Windows, khususnya Windows 95/97/98 dan Windows NT. Visual Basic juga merupakan bahasa pemrograman Object Oriented Programming (OOP), yaitu pemrograman yang berorientasi objek. Visual Basic menyediakan objek-objek yang sangat kuat, berguna, dan mudah dipakai. Dengan fasilitas tersebut, membuat Visual Basic menjadi begitu diinginkan oleh programmer.
1.2 Tujuan Penulisan
Tujuan penulis, dalam pembuatan makalah ini adalah : •
Untuk Untuk memenu memenuhi hi tugas tugas Tehnik Tehnik Pemrog Pemrogram raman an tugas tugas yang yang telah telah diberik diberikan an oleh oleh dosen pembimbing.
•
Untuk Untuk member memberii penget pengetahu ahuan an kepada kepada pembac pembacaa tentan tentang g bahasa bahasa pemrog pemrogram raman an Visual Basic.
•
Untuk menerapkan ilmu yang diperoleh dibangku kuliah.
1.3 Manfaat Penulisan •
Member Memberii inform informasi asi kepada kepada pembac pembacaa mengen mengenai ai bahasa bahasa pemrog pemrogram raman an Visual Visual Basic.
•
Menambah wawasan dan pengalaman dalam pembuatan program aplikasi dengan menggunakan Visual Basic
•
Makalah ini diharapkan menjadi sumbangan pemikiran bagi para pembaca untuk mengembangkan bahasa pemrograman dimasa sekarang. Dalam penulisan makalah ini saya mempunyai tujuan antara lain :
✔
Bagi penulis Menamb Menambah ah wawasa wawasan n dan pengal pengalama aman n dalam dalam pembua pembuatan tan progra program m aplika aplikasi si
dengan menggunakan Visual Basic. ✔
Bagi Rumah sakit Merupakan bahan masukan yang dapat dipertimbangkan untuk meningkatkan
efektifitas kerja, khususnya program aplikasi yang telah digunakan.
BAB II PERANCANGAN APLIKASI 1. 1.1 Rancangan Database
1. Klik Klik start, start, pilih All Program Program lalu pilih pilih Microsof Microsoftt Office dan klik klik Microsoft Microsoft Office Office Acces , lalu muncul tampilan sebagai sebagai berikut .
2. Pilih Blank Database, Database, isikan isikan ”dbPenjuala ”dbPenjualanMob nMobil il ” pada pada file name yang ada di kanan bawah. Lalu pilih create dan muncul tampilan sebagai berikut.
3. mana mana tertera tertera pada pada gambar. gambar. Save data data tersebut tersebut dan akan muncu muncull pesan agar agar member member nama buat tabel tabel tersebut. tersebut. Isikan “tbmobil; “tbmobil;”” yang berarti table table mobil dan ok, lalu isikan field sebagai
tbpembeli (Tabel Pembeli)
tbtransaksi (Tabel Transaksi)
1. Selanj Selanjutn utnya ya yaitu membuat membuat Relation Relationshi ship p Diagra Diagram m atau query dari table table di atas. Dari menu bar di atas pilih Create dan Klik query Design seperti gambar di bawah ini.
1. Selanj Selanjutn utnya ya akan muncul muncul pesan pesan agar table table yg akan akan di hubung hubungkan kan.. Pilih semua semua table lalu Add
2. Jika muncul muncul tampilan tampilan dari dari atas berarti berarti anda anda sudah berhasil berhasil membuat membuat Relations Relationship hip Diagram.
2.2 Interface Antar Muka Visual Studio 2005
Interface antar muka Visual Studio 2005 ,berisi menu, toolbar, toolbox, form, project explorer dan property. Rancangan Rancangan dilakukan dilakukan atau dibuat dibuat untuk mengetahui mengetahui bagaimana bagaimana program program tersebut tersebut nantinya bekerja. Adapun rancangan yang di usulkan adalah sebagai berikut . Input merupakan perantara antara usr dengan aplikasi yang diguanakan . Desain input terdiri dari rancangan form-form yang merupakan media input data darikomponen pengait
data untuk dapat mengakses datab atabas asee pada pengolahan data datarek datarekam med medis is RS. Adapun desain input data tersebut sebagai berikut: Pilih start -> lalu pilih Microsoft visual studio 2005 -> pilih -> Microsoft visual studio 2005 lalu ok
Pilih File-> lalu pilih pilih New Project untuk memulai membuat program
Sebelum kita memulai untuk membuat sebbuah program , terlebih dahulu kita harus mengkoneksikan database database nya terlebih dahulu caranya klik klik tools -> pilih connect to Database akan muncul gambar seperti ini
Setelah Setelah connect connect database database nya lalu pilih Data ->Add data source akan muncul muncul gambar gambar seperti ini
Pilih next
Lalu pilih finish A.Menu Utama
B. Form Log In
D. Input Data Mobil
E. Input Data Pembeli
F. Input Data Transaksi
Coding Transaksi Public Class Frtransaksi Dim datransaksi As OleDb.OleDbDataAdapter Dim dapembeli As OleDb.OleDbDataAdapter Dim daMOBIL As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Data OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\vb.net\accses_DATABASE_mobil_vb\accses_mobil_vb\dbmobil.mdb")) Kuliah\vb.net\accses_DATABASE_mobil_vb\accses_mobil_vb\dbmobil.mdb" )) Dim dttransaksi As New DataTable() Dim dtpembeli As New DataTable() Dim dtMOBIL As New DataTable() Dim drtransaksi As DataRow Dim drppembeli As DataRow Dim drMOBIL As DataRow Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\vb.net\accses_DATABASE_mobil_vb\database\dbmobil.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub kosong() txtkodetransaksi.Text = "" txtkodemobil.Text = "" txtharga.Text = "" txtkodepembeli.Text = "" txtbanyakunit.Text = "" txttotalbayar.Text = "" txtkodetransaksi.Focus() End Sub Private Sub btncari_Click(ByVal btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click Try drtransaksi = dttransaksi.Rows.Find(txtkodetransaksi.Text) txtkodetransaksi.Text txtkodetransaksi.Text = drtransaksi("kode_transaksi" "kode_transaksi").ToString ).ToString txtkodemobil.Text txtkodemobil.Text = drtransaksi("kode_mobil" "kode_mobil").ToString ).ToString txtkodepembeli.Text txtkodepembeli.Text = drtransaksi("Kode_pembeli" "Kode_pembeli").ToString ).ToString txtbanyakunit.Text = drtransaksi("Banyak_Unit" drtransaksi("Banyak_Unit").ToString ).ToString txttotalbayar.Text = drtransaksi("Total__Bayar" drtransaksi("Total__Bayar").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btnhapus_Click(ByVal btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click Try Dim cbtransaksi As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(datransaksi) drtransaksi.Delete() datransaksi.DeleteCommand = cbtransaksi.GetDeleteCommand datransaksi.Update(dttransaksi)
dttransaksi.AcceptChanges() datransaksi.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try End Sub Private Sub btntambah_Click( btntambah_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click Try Dim cbtransaksi As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(datransaksi) drtransaksi = dttransaksi.NewRow drtransaksi("kode_transaksi" drtransaksi("kode_transaksi") ) = txtkodetransaksi.Text txtkodetransaksi.Text drtransaksi("kode_mobil" drtransaksi("kode_mobil") ) = txtkodemobil.Text txtkodemobil.Text drtransaksi("Kode_pembeli" drtransaksi("Kode_pembeli") ) = txtkodepembeli.Text txtkodepembeli.Text drtransaksi("Banyak_Unit" drtransaksi("Banyak_Unit") ) = txtbanyakunit.Text drtransaksi("Total_Bayar" drtransaksi("Total_Bayar") ) = Val(txttotalbayar.Text) dttransaksi.Rows.Add(drtransaksi) con.Open() datransaksi.Update(dttransaksi) dttransaksi.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong() End Sub Private Sub Form6_Load(ByVal Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(0) As DataColumn Try daMOBIL = New OleDb.OleDbDataAdapter("select * from tbmobil", tbmobil", con) daMOBIL.Fill(dtMOBIL) dc(0) = dtMOBIL.Columns("kode_mobil" dtMOBIL.Columns("kode_mobil") ) dtMOBIL.PrimaryKey = dc With lstmobil .DataSource .DataSource = dtMOBIL .DisplayMember = "kode_mobil" .ValueMember = "kode_mobil" End With dapembeli = New OleDb.OleDbDataAdapter("select * from tbpembeli", tbpembeli" , con) dapembeli.Fill(dtpembeli) dc(0) = dtpembeli.Columns("Kode_pembeli" dtpembeli.Columns("Kode_pembeli") ) dtpembeli.PrimaryKey = dc With lstpembeli
.DataSource .DataSource = dtpembeli .DisplayMember = "Kode_pembeli" .ValueMember = "Kode_pembeli" End With 'datransaksi = New OleDb.OleDbDataAdapter("select * from tbtransaksi", con) datransaksi = New OleDb.OleDbDataAdapter("select * from tbtransaksi", tbtransaksi" , con) datransaksi.Fill(dttransaksi) dc(0) = dttransaksi.Columns("kode_transaksi" dttransaksi.Columns("kode_transaksi") ) dttransaksi.PrimaryKey = dc dgtransaksi.DataSource = dttransaksi Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub btnselesai_Click( btnselesai_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnselesai.Click Me.Close() Me .Close() End Sub Private Sub btnkosong_Click( btnkosong_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkosong.Click kosong() End Sub Private Sub lstmobil_SelectedIndexChanged( lstmobil_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstmobil.SelectedIndexChanged Try Dim drMOBIL As DataRow drMOBIL = dtMOBIL.Rows.Find(lstmobil.Text) txtkodemobil.Text txtkodemobil.Text = drMOBIL("kode_mobil" "kode_mobil").ToString ).ToString txtharga.Text txtharga.Text = drMOBIL("harga" drMOBIL("harga").ToString ).ToString
Catch errTampil As Exception
End Try End Sub Private Sub lstpembeli_SelectedIndexChanged( lstpembeli_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstpembeli.SelectedIndexChanged Try Dim drpembeli As DataRow drpembeli = dtpembeli.Rows.Find(lstpembeli.Text) txtkodepembeli.Text txtkodepembeli.Text = drpembeli("Kode_pembeli" "Kode_pembeli").ToString ).ToString Catch errTampil As Exception
End Try End Sub Private Sub txtbanyakunit_TextChanged( txtbanyakunit_TextChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbanyakunit.TextChanged Dim harga, jumlahbayar, diskon, banyak, total As Decimal harga = Val(txtharga.Text) banyak = Val(txtbanyakunit.Text) Val(txtbanyakunit.Text) If banyak >= 3 Then jumlahbayar = harga * banyak diskon = 0.2 * jumlahbayar total = jumlahbayar - diskon txttotalbayar.Text = jumlahbayar txtdisc.Text = diskon txttot.Text = total Else jumlahbayar = harga * banyak diskon = 0 * jumlahbayar total = jumlahbayar - diskon txttotalbayar.Text = jumlahbayar txtdisc.Text = diskon txttot.Text = total End If End Sub End Class.
Rancangan Laporan Rancangan Laporan Data Mobil
Rancangan Laporan Data Pembeli
Rancangan Laporan Data Transaksi
BAB III IMPLEMENTASI PROGRAM 3.1. Spesifikasi Hardware & Software
Membuat aplikasi database adalah hal yang amat menarik. Database yang digunakan SQL Server 2005 atau bisa menggunakan Microsoft Access . Contoh aplikasi adalah proses pembu pembuatan atan program program POS (Point (Point of Sales) Sales).. Form Form Visual Visual Basic Basic dapat dapat kita kita rancan rancang g agar agar pengguna (user) bisa mengakses data master. Di bawah ini adalah Spesifikasi Akses Database VB.NET.
Brand: Part Number:
Bamboomedia IT-305 Penalan Visual Studio 2005. Project dan Solution. Menggunakan Server Explorer untuk Membuat Database dan Tabel. Membuat
Menu Belajar:
Form Form dan Cara Cara Menghu Menghubun bungk gkan an Ke databa database. se. Menggu Menggunak nakan an Kompon Komponen en Toolbo Toolbox. x. Membua Membuatt Form Form Dokter Dokter dan Transa Transaksi ksi.. Membuat Form MDI, Menu. Prosesor Pentium, Ram 256 Mb, Resolusi minimal 1024 x 768,
Spesifikasi Komputer:
CD-R CD-ROM OM mini minima mall 24x, 24x, VGA VGA mini minimal mal 16 bit, bit, Soun Sound d Card Card,,
Target Pengguna: Tingkat Ketrampilan:
Speaker. OS: Windows XP, Vista, Windows 7 Umum Pemula, Menengah
Perangkat Keras Berdas Berdasark arkan an kebutu kebutuhan han sistem sistem diatas diatas,, maka maka dibutu dibutuhka hkan n perang perangkat kat keras keras
dengan spesifikasi optimal sebagai berikut : •
Proccessor intel(R) Atom (TM) Cpu 330 @ 1.60GHz(4 CPUs)
•
Memory 896MB RAM
•
Harddisk 20 GB sesuai dengan kapasitas data pada database
•
Monitor color/non color
•
Mouse Standar
•
Keybord Standar
•
Printer
Perangkat lunak
Berdas Berdasark arkan an kebutu kebutuhan han sistem sistem diatas diatas,, maka maka dibutu dibutuhka hkan n perang perangkat kat lunak lunak dengan spesifikasi optimal sebagai berikut: Byon
•
XP 2
•
Database Ms. Acces
•
Visual Studio.net 2005
•
3.2 Panduan Pengoperasian Program
Sebelu Sebelum m progra program m aplika aplikasi si ini dijala dijalanka nkan n , untuk untuk menduk mendukung ung keaman keamanan an sistem sistem aplikasi aplikasi ini , maka pada tampilan awal aplikasi akan ditampilkan ditampilkan form untuk untuk melakukan log in terlebih dahulu yaitu memasukan id user dan password sehingga tidak semua orang dapat mengakses aplikasi ini. Berikut ini Desain antar muka login.
Pada Pada form form ini Penggun Penggunaa dapat dapat memasu memasukka kkan n id user dan passwo password rd sehingga sehingga aplikasi aplikasi sistem informasi informasi Penjualan Penjualan Mobil dapat diakses, berikut berikut langkah-lang langkah-langkah kah proses proses kemanan yang dibuat :
Akses aplikasi Penjualan Mobil maka akan tampil form login
Masukkan nama user dan password
Lalu tekan ok
Jika nama user atau password password tidak sesuai sesuai dengan yang ada di database nya maka akan muncul pesan error yaitu nama user dan password failed.
Apabila selama tiga kali memasukkan nama user atau password salah atau tidak sesuai dengan database nya maka secara otomatis windows akan log off.
Jika nama user dan password sesuai dengan apa yang ada di database , maka aplikasi Penjualan Mobil akan dapat diakses dan anda berhak memanipulasi data yang ada.
BAB IV PENUTUP A. Kesimpulan
Dari pembahasan di atas dapat di simpulkan, bahwa bahasa pemograman visual basic merupakan pemrograman berbasis Windows. Visual Basic juga merupakan bahasa pemro pemrogra graman man Object Object Orient Oriented ed Progra Programmi mming ng (OOP), (OOP), yaitu yaitu pemrog pemrogram raman an yang yang berorientasi objek. Visual Basic menyediakan objek-objek yang sangat kuat, berguna, dan mudah dipakai. Dengan fasilitas tersebut, membuat Visual Basic menjadi begitu diinginkan oleh programmer.
B. Saran
Diharapkan Diharapkan mahasiswa mau mempelajari mempelajari dan mengemban mengembangkan gkan bahasa bahasa pemograman pemograman visual visual basic sebab visual basic merupakan bahasa yang mudah untuk untuk di pelajari dan sangat menarik , maka Penulis berharap kepada pembaca (khususnya pemula), untuk sejak dini mempelajari dan mengembangkan bahasa pemrograman tersebut selain itu adapan saran lain yang dapat penulis berikan yaitu: ✔
Agar program dapat berfungsi dengan baik maka data harus diinout dengan benar Pada saat menjalankan programnya, agar tidak menghasilkan laporan yang salah, untuk di sarankan agar melakukan training atau pelatihan terhadapuser sebelum menjalankan programnya.
✔
Databa Database se harus harus di backup backup,, agar agar jika jika terjad terjadii kehila kehilanga ngan n data data maka maka kita kita masih masih mempunyai salinan datanya atau backup datanya.
✔
Password Password user harus dijaga secara privasi, privasi, mencegah agar tidak terjadi kebocoran kebocoran data bagi pihak luar.