Tugas Pemograman visual Aplikasi Penjualan Mobil
Disusun oleh : Miftahul Khoer Nim
: 10260108
Jurusan
: Managemen informatika
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 penulis dapat menyelesai kan Teknik Pemograman y yang ang 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 yang telah banyak memberi saran dan masukan tentang tugas. 2. Kedua orang tua yang mendukung baik secara moril maupun materil. 3. Teman-teman yang selalu memberikan motivasi secara langsung maupun tidak langsung. Penulis menyadari bahwa Makalah ini jauh dari kesempurnaan , maka semua kritik dan saran yang bersifat membangunakan selalu diterima. Semoga yang sedikit ini memberikan manfaat terutama bagi kelanjutan studi penulis.
Bandung, 25Januari 2012
Penulis
DAFTAR ISI KATA PENGANTAR ««««««..«««««««««««««««««««««I ««««««..«««««««««««««««««««««I DAFTAR ISI............................. ISI......................................................... ................................................. ................................................. ...............................................1 ...................1 BAB 1 ............................. .............................................. ................................ ............................. ............................... ................................ ............................. ....................... ......... 4 PEND PENDAHULUAN AHULUAN ............................. .............................................. ................................ ............................. ............................... ................................ ................... .... 4
1.1 LATAR BELAKANG ............................. ........................................... ............................... ................................ ............................. ............................ .............. 4 1.2 TUJUAN PENULISAN ............................. .............................................. ................................ ............................. ............................... .......................... ......... 5 1.3 MANFAAT PENULISAN ............................. ........................................... ............................... ................................ ............................. ...................... ........ 5
BAB II ............................. .............................................. ................................ ............................. ............................... ................................ ............................. ...................... ........ 6 PERANCANGAN APLIKASI............................................................................................ 6
1.1 R ANCANGAN .............................................. ............................. ................................ ............................... ................ .. 6 ANCANGAN DATABASE................................ 2.2 I NTERFACE A NTAR MUKA VISUAL STUDIO 2005 ................................ .............................................. ........................... ............. 9 A .Menu .Menu Utama......................................... ........................................................ ................................ ............................... ............................. ...................... ....... 12 B. Form Log In ............................................................................................................ 12 D. Input Data Mobil..................................................................................................... 13 E. Input Data Pembeli.................................................................................................. 13 F. Input Data Transaksi ............................................................................................... 13 R ANCANGAN ........................................... ............................... ................................ ............................. ......................... ........... 17 ANCANGAN LAPORAN ............................. Rancangan Laporan Data Mobil ............................. ................................................... .................................... ............................... ................. 17 Rancangan Laporan Data Pembeli .............................................................................. 18 Rancangan Laporan Data Transaksi Transaksi.................... ......... ..................... .......... ................... ......... ..................... ...................... ........... ..... 18
BAB III ................................ .............................................. ............................. ................................ ............................... ............................. ............................. ................... ..... 19 IMPLEMENTASI PROGRAM ....................................................................................... 19
3.1. SPESIFIKASI HARDWARE & SOFTWARE............................. .............................................. ............................... ......................... ........... 19 Perangkat Keras .......................................................................................................... 19 Perangkat lunak ........................................................................................................... 20 3.2 P ANDUAN PENGOPERASIAN PROGRAM ............................. ........................................... ............................... ............................. ............ 20
BAB IV ................................ .............................................. ............................. ................................ ............................... ............................. ............................. ................... ..... 22 PENUTUP PENUTUP ............................. .............................................. ................................ ............................. ............................... ................................ ............................. .............. 22
A. K ESIMPULAN .............................................. ................................ ............................. ............................... ................................ ................... .... 22 ESIMPULAN ............................. B. S ARAN............................. .............................................. ................................ ............................. ............................... ................................ ............................. .............. 22
BAB 1 PEND PENDAHULUAN 1.1 Latar Belakang
Perkembangan ilmu teknologi saat ini sangatlah cepat dan begitu 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 hal ini aplikasi-aplikasi windows, aplikasi-aplikasi web, class dan custom control. Visual basic mudah dipelajari dan sangat produktif, dan juga memiliki beberapa kemampuan, seperti proses kompilasi yang cepat, sangat dekat dengan pemrograman windows yang banyak digunakan saat ini beserta teknologi komponenkomponennya. Basic (Beginner¶s All-purpose Symbolic Instruction Code) adalah sebuah bahasa pemrograman ³kuno´ yang merupakan awal dari bahasa-bahasa pemrograman tingkat tinggi lainnya. Basic dirancang pada tahun 1950-an dan ditujukan untuk dapat digunakan oleh para programmer pemula. Biasanya Basic diajarkan untuk para pelajar sekolah menengah yang baru mengenal komputer, serta digunakan
untuk
pengembangan
program
³cepat
saji´
yang
ringan
dan
menyenangkan. Walaupun begitu, peran Basic lebih dari sekedar itu saja. Banyak programer handal saat ini memulai karirnya dengan mempelajari Basic. Sebagai bahasa 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 Penulis an
Tujuan penulis, dalam pembuatan makalah ini adalah :
y
Untuk memenuhi tugas Tehnik Pemrograman tugas yang telah diberikan oleh dosen pembimbing.
y
Untuk memberi pengetahuan kepada pembaca tentang bahasa pemrograman Visual Basic.
y
Untuk menerapkan ilmu yang diperoleh dibangku kuliah.
1.3 Manfaat Penulisan Penulisa n y
Memberi informasi kepada pembaca mengenai bahasa pemrograman Visual Basic.
y
Menambah wawasan dan pengalaman dalam pembuatan program aplikasi dengan menggunakan Visual Basic
y
Makalah ini diharapkan menjadi sumbangan pemikiran bagi para pembaca untuk mengembangkan mengembangkan bahasa pemrograman dimasa sekarang. Dalam penulisan makalah ini saya mempunyai tujuan antara lain :
Bagi penulis
Menambah wawasan dan pengalaman dalam pembuatan program aplikasi 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 Rancangan Rancang an Database
1. Klik start, pilih All Program lalu pilih Microsoft Office dan klik Microsoft Office Acces , lalu muncul tampilan ta mpilan sebagai berikut .
2. Pilih Blank Database, Database, isikan ´dbPenjualanMobil ´ pada file name yang ada di kanan kanan bawah. Lalu pilih pilih create dan muncul tampilan ta mpilan sebagai berikut.
3. mana tertera pada gambar. Save data tersebut dan akan muncul pesan agar member nama buat tabel tabel tersebut. Isikan ³tbmobil;´ yang berarti berarti table mobil dan ok, lalu isikan field sebagai
tbpembeli (Tabel Pembeli)
tbtransaksi (Tabel Transaksi)
1. Selanjutnya yaitu membuat Relationship Diagram atau query dari table di atas. Dari menu bar di atas pilih Create dan Klik query Design seperti gambar di bawah ini.
1. Selanjutnya akan muncul pesan agar table yg akan di hubungkan. Pilih semua table lalu Add
2. Jika muncul tampilan dari atas berarti anda sudah berhasil membuat Relationship 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 dilakukan atau dibuat untuk mengetahui bagaimana program tersebut nantinya bekerja. Adapun rancangan yang di usulkan adalah sebagai berikut . Input merupakan perantara antara usr dengan aplikasi yang diguanakan . Desain input terdiri terdiri dari rancanga rancangan n form-form form-form yang merupakan merupakan media media input input data data darikom po ne n pe nga it
data untuk dapat mengakses database pada pengolahan data datarekam medis 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 New Project untuk memulai membuat program
Sebelum kita memulai untuk membuat sebbuah program , terlebih dahulu kita harus mengkoneksikan mengkoneks ikan database nya terlebih terl ebih dahulu dahulu caranya klik tools -> pilih connect to Database akan muncul gambar seperti ini
Setelah connect database nya lalu pilih Data ->Add data source akan muncul gambar seperti ini
Pilih next
Lalu pilih finish A.Menu Utama
B. Form Log In
D. Input Dat Data Mobil
E. Input Dat Data Pembeli
F. Input Dat Data Tra Transak nsak si si
Coding Tra Tr ansak nsak si si 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=M OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.O icrosoft.Jet.OLEDB.4.0;Data LEDB.4.0;Data Source=D:\Data Kuliah\vb.net\accses_DATA Kuliah\vb.net\ accses_DATABASE_mobil_vb\acc BASE_mobil_vb\accses_mobil_vb\d ses_mobil_vb\dbmobil.mdb" bmobil.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=Mic "Provider=Microsoft.Jet.O rosoft.Jet.OLEDB.4.0;Data LEDB.4.0;Data Source=D:\Data Kuliah\vb.net\accses_DATA Kuliah\vb.net\ accses_DATABASE_mobil_vb\dat BASE_mobil_vb\database\dbmob abase\dbmobil.mdb" il.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub kosong() txtkodetransaksi.Text txtkodetransaksi.Text = "" txtkodemobil.Text = "" txtharga.Text = "" txtkodepembeli.Text = "" txtbanyakunit.Text txtbanyakunit.Text = "" txttotalbayar.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 = drtransaksi( "kode_mobil" ).ToString txtkodepembeli.Text = drtransaksi( "Kode_pembeli" "Kode_pembeli").ToString ).ToString txtbanyakunit.Text txtbanyakunit.Text = drtransaksi( "Banyak_Unit" "Banyak_Unit").ToString ).ToString txttotalbayar.Text txttotalbayar.Text = drtransaksi( "Total__Bayar" ).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 OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder OleDb.OleDbCommandBuilder(datransaksi) (datransaksi) drtransaksi.Delete() datransaksi.DeleteCommand datransaksi.DeleteCommand = cbtransaksi.GetDeleteComm cbtransaksi.GetDeleteCommand and datransaksi.Update(dttransaksi)
dttransaksi.AcceptChanges() datransaksi.DeleteCommand datransaksi.DeleteCommand.Connection.Cl .Connection.Close() ose() 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 OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder OleDb.OleDbCommandBuilder(datransaksi) (datransaksi) drtransaksi = dttransaksi.NewRow drtransaksi( "kode_transaksi" ) = txtkodetransaksi.Text txtkodetransaksi.Text drtransaksi( "kode_mobil" ) = txtkodemobil.Text drtransaksi( "Kode_pembeli" ) = txtkodepembeli.Text drtransaksi( "Banyak_Unit" "Banyak_Unit") ) = txtbanyakunit.Text drtransaksi( "Total_Bayar" "Total_Bayar") ) = Val(txttotalbayar.Text) 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( OleDb.OleDbDataAdapter("select "select * from tbmobil" , con) daMOBIL.Fill(dtMOBIL) dc(0) = dtMOBIL.Columns( "kode_mobil" ) dtMOBIL.PrimaryKey dtMOBIL.PrimaryKey = dc With lstmobil .DataSource = dtMOBIL .DisplayMember .DisplayMember = "kode_mobil" .ValueMember .ValueMember = "kode_mobil" End With dapembeli = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from tbpembeli" , con) dapembeli.Fill(dtpembeli) dc(0) = dtpembeli.Columns( "Kode_pembeli" ) dtpembeli.PrimaryKey dtpembeli.PrimaryKey = dc With lstpembeli
.DataSource = dtpembeli .DisplayMember .DisplayMember = "Kode_pembeli" .ValueMember .ValueMember = "Kode_pembeli" End With 'datransaksi 'datransaks i = New OleDb.OleDbDataAdapter("select OleDb.OleDbDataAdapter("select * from tbtransaksi", con) datransaksi = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from tbtransaksi", con) tbtransaksi", datransaksi.Fill(dttransaksi) dc(0) = dttransaksi.Columns( "kode_transaksi" ) dttransaksi.PrimaryKey dttransaksi.PrimaryKey = dc dgtransaksi.DataSource 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 = drMOBIL( "kode_mobil" ).ToString txtharga.Text = drMOBIL( "harga" "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 = drpembeli( "Kode_pembeli" ).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 txttotalbayar.Text = jumlahbayar txtdisc.Text txtdisc.Text = diskon txttot.Text = total Else jumlahbayar = harga * banyak diskon = 0 * j umlahbayar total = jumlahbayar - diskon txttotalbayar.Text txttotalbayar.Text = jumlahbayar txtdisc.Text 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 pembuatan program POS (Point of Sales). Form Visual Basic dapat kita rancang agar pengguna (user) bisa mengakses data master. Di bawah ini adalah S pesifikasi Akses Database VB.NET.
Bra Brand:
Bamboomedia
Part Number:
IT-305 Penalan Visual Studio 2005. Project dan Solution. Menggunakan Server Explorer untuk Membuat Database dan Tabel. Membuat
Menu Belaja Belajar: r:
Form dan Cara Menghubungkan Ke database. Menggunakan Komponen Toolbox. Membuat Form Dokter dan Transaksi. Membuat Form MDI, Menu. Prosesor Pentium, Ram 256 Mb, Resolusi minimal 1024 x 768,
Spesifika Spesifikasi si Komputer:
CD-ROM minimal 24x, VGA minimal 16 bit, Sound Card, Speaker. OS: Windows XP, Vista, Windows 7
Target Pengguna Pengguna:
Umum
Tingka Tingkatt Ketra Ketrampila mpilan:
Pemula, Menengah
Perangkat Keras
Berdasarkan kebutuhan sistem diatas, maka dibutuhkan perangkat keras dengan spesifikasi optimal sebagai berikut : y
Proccessor intel(R) Atom (TM) Cpu 330 @ 1.60GHz(4 CPUs)
y
Memory 896MB RAM
y
Harddisk 20 GB sesuai dengan kapasitas data pada database
y
Monitor color/non color
y
Mouse Standar
y
Keybord Standar
y
Printer
Perangkat lunak
Berdasarkan kebutuhan sistem diatas, maka dibutuhkan perangkat lunak dengan spesifikasi optimal sebagai berikut: y
Byon
y
XP 2
y
Database Ms. Acces
y
Visual Studio.net 2005
3.2 Panduan Pengoperasian Program
Sebelum program aplikasi ini dijalankan , untuk mendukung keamanan sistem aplikasi ini , maka pada tampilan awal aplikasi akan ditampilkan form 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 form form ini Pengguna Penggu na
dapat memasukkan id user dan dan password sehingga sehingga aplikasi
sistem informasi informasi Penjualan Mobil dapat dapat diakses, berikut berikut langkah-langkah langkah-langkah proses kemanan kemanan yang dibuat : Akses aplikasi Penjualan Mobil maka akan ta mpil form login Masukkan nama user dan password Lalu tekan ok Jika nama user atau password tidak 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 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. B. Saran
Diharapkan mahasiswa mau mempelajari dan mengembangkan bahasa pemograman visual basic sebab visual basic merupakan bahasa yang mudah 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. Database harus di backup, agar jika terjadi kehilangan data maka kita masih
mempunyai salinan datanya atau backup datanya. Password user harus dijaga secara privasi, mencegah agar tidak terjadi kebocoran
data bagi pihak luar.
