Makalah Sistem Penerbangan Ini diajukan untuk memenuhi Tugas Mata Kuliah Visual Basic.Net
Disusun Oleh :
Alexander firmansyah 09250011 SMT 3 B
AKADEMIK MAJANEMEN INFORMATIKA DAN KOMPUTER AMIK HASS BANDUNG
KATA PENGANTAR
Puji
dan syukur kita panjatkan kehadirat Tuhan Yang Maha Esa, karena berkat
rahmat dan hidayah Nya saya dapat menyelesaikan tugas Teknik Pemrograman ini dengan
membuat
makalah
yang
berjudul
´MAKALAH
PENJUALAN
MENGGUNAKAN BAHASA PEMOGRAMAN VISUAL BASIC.NET´. Penyelesaian
makalah ini tidak terlepas dari bantuan berbagai pihak. Oleh karna
itu dengan kerendahan hati kami mengucapkan terima kasih kepada : 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. Kami menyadari masih banyak kekurangan dalam makalah yang kami buat ini, untuk
itu
kami
mengharapkan
kritik
dan
saran
dari
teman-teman
untuk
menyempurnakan makalah ini. Bandung, 12 Januari 2012
Penulis
Daftar Isi
Kata Pengantar
i
Daftar Isi
ii
Bab 1. Pendahuluan
1
1.1. Latar Belakang
1
1.2. Tujuan Penulisan
1
1.3. Manfaat Penulisan
2
Bab 2. Perancangan Aplikasi
3
2.1.Rancangan Database (Struktur Tabel,Relationshi T abel,Relationship p Diagram)
3
2.2. Rancangan interface(form) interface(form)
10
Bab 3. Implementasi
32
3.1.Spesifikasi Hardware
32
3.2.Cara Mengoprasikan Program
33
Bab 4. Penutup
38
4.1.Kesimpulan
38
4.2.Saran
38
Bab I PENDAHULUAN
1.1. Latar Belakang Visual Basic adalah bahasa pemrograman berbasis Windows. Saat ini, Visual Basic adalah salah satu bahasa pemrograman yang terbaik. Visual Basic merupakan pengembangan dari Basic. 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 o leh programmer.
1.2. Tujuan Penulisan. Tujuan penulis, dalam pembuatan makalah ini adalah :
y
Untuk memenuhi tugas Tehnik Pemrograman.
y
Untuk memberi pengetahuan kepada pembaca tentang bahasa pemrograman Visual Basic.
1.3. Manfaat Penulisan y
Memberi informasi kepada pembaca mengenai bahasa pemrograman Visual Basic.
y
Makalah ini diharapkan menjadi sumbangan pemikiran bagi para pembaca untuk mengembangkan bahasa pemrograman dimasa sekarang.
BAB II
PERANCANGAN APLIKASI 2.1 Perancangan Database 1. Masuk Ke Microsost Access P ilih Start All Programs Microsoft Office Microsoft Office Access
y
Pilih
New Blank Database
y
Klik Create
2. Membuat Database di Microsoft Acceess
y
y
Membuat Tabel Customer Field-fieldnya - Kd_Cust Text(5)primarykey, - Nama_Cust Text(25), - Alamat (50), - Telepon(16)
Membuat Tabel Pesawat Field-fieldnya - KdPesawat Text(10)primarykey, - NamaPesawat Text (25), - Jenis Text(20), - Tarif Text(20),
y
Membuat Tabel Service Field-fieldnya (5)primarykey, - NoService Text (5)primarykey, - TglService Date/Time (25), - KdPesawat Text (5), - Biaya Text (30),
y
Membuat Tabel Tarif Field-fieldnya - KdPesawat (5) - KdArea (5), - Tarif Penerbangan (30),
y
y
Membuat Tabel Tujuan Field-fieldnya - KdArea Text(5) - Tujuan Text(20),
Membuat Tabel Transaksi Penerbangan Field-fieldnya - NoPenerbangan Text(5) - TglPenerbangan Date/Time - NoCust Text (5) - KdPesawat Text (5) - KdArea Text (5) - JumlahTiket Text (20) - JenisBayar Text (30)
y
Relationship Tabel-Tabel
2.2 Rancangan Interface
1. Masuk ke Microsoft Visual Studio 2010 Start All Programs Microsoft Visual Studio Stud io 2010 Microsoft Visual Studio 2010
2. Membuat MDI Parents FileNew ProjectMDI Parents Atau Klik kanan di Solution ExploreAddWindows FormMDI Parents
3. Membuat Desain di MDI Parentsnya Menu Stip dan Sub Menu Stripnya yang saya buat Sistem Login Logout Keluar Rekam Data Customer Pesawat Tarif Tujuan Service Transaksi Penerbangan Laporan Data Customer Data Pesawat Data Tarif Data Tujuan Data Service Data Penerbangan Bantuan Tentang Ganti Warna Form
4. Connect to Database Microsoft Access 2007 Pilih ToolsConnect to Database Klik Browse //untuk memilih data base yang su dah di simpan databasenya Lalu Klik ok
Membuat Koneksi String
Selanjutnya kita akan membuat data source untuk menghubungkan database dengan interface yang akan menggunakannya. 1. Klik menu data Add New Datasource , akan tampil:
ilih Pilih
database, klik Next selanjutnya selanjutnya akan tampil:
Karena Perpustakaan1.mdf sudah terpilih maka selanjutnya k lik Next, muncul tampilan dan pilih/ceklist keduanya lalu k lik Finish:
Selanjutnya Membuat Form-Form yang di butuhkan .. Klik File New Project, buat desain form Sflash Screen sepert i tampilan berikut ini:
No 1.
Nama Komponen Form8
2.
Label1
3. 4.
ProgressBar1 Timer1
Properties Name Text Back Color BackgroundImage StartPosition FormBorderStyle Name Text Name Name
Values fmSflash Sflash Screen GradientInActiveCaption GradientInActiveCaption Browse CenterScreen None Label1 Label1 ProgressBar1 Timer1
Klik File New Project, buat desain form Customer seperti tampilan berikut ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
6.
Label4
7.
Label5
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name Text Name Text Name Text
Values fmCustomer PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA CUSTOMER TabControl1 TabControl1 TabPage1 TabPage2 TabPage1 Input Data TabPage2 Browse Data NoCustLabel NoCustLabel No Cust NamaCostumerLabel NamaCostumerLabel Nama Cust AlamatLabel Alamat TeleponLabel TeleponLabel Telepon
8.
TextBox1
9.
TextBox2
10.
TextBox3
11.
TextBox4
12.
Button1
13.
Button2
14.
Button3
15.
Button4
16.
Button5
17.
DataGridView1
Program
Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Neme Text Name
NoCustTextBox NamaCostumerTextBox NamaCostumerTextBox AlamatTextBox AlamatText Box TeleponTextBox TeleponTex tBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel btnClose &Close CostumerDataGridView CostumerDataGridView
form di atas yang akan dibuat ada dalam CD.
Klik File New Project, buat desain form Pesawat seperti tampilan berikut ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
6.
Label4
7.
Label5
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name Text Name Text Name
Values fmPesawat PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA PESAWAT TabControl1 TabPage1 TabPage2 TabPage1 Input Data TabPage2 Browse Data KdPesawatLabel Kd Pesawat NamaPesawatLabel NamaPesawatLabel Nama Pesawat JenisLabel Jenis TarifLabel
8.
TextBox1
9.
TextBox2
10.
Combo Box1
11.
TextBox4
12.
Button1
13.
Button2
14.
Button3
15.
Button4
16.
Button5
17.
DataGridView1 DataGridView1
Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Neme Text Name
Tarif KdPesawatTextBox KdPesaw atTextBox NamaPesawatTextBox NamaPesa watTextBox JenisComboBox JenisCom boBox TarifTextBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel btnClose &Close PesawatDataGridView PesawatDataGridView
Klik File New Project, buat desain form Login seperti sepert i tampilan berikut ini:
No 1.
Nama Komponen Form3
Properties Name Text Back Color StartPosition FormBorderStyle
Values fmLogin Login System GradientInActiveCaption GradientInActiveCaption CenterScreen None
2.
Label1
3.
Label2
4.
TextBox1
5.
TextBox2
6.
Button1
7.
Button2
Name Text Name Text Name Text Name Text Name Text Image Name Text Image
Label1 Id User Label2 Password tbUser tbPass btnOk &OK Ok icon btnCancel &Cancel Close Icon
Klik File New Project, buat desain form Tarif seperti tampilan berikut ini: ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
6.
Label4
7.
Combo Box1
8.
Combo Box2
9.
TextBox1
10.
Button1
11.
Button2
12.
Button3
13.
Button4
14.
Button5
15.
DataGridView1
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Neme Text Name
Values fmTarif PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA TARIF TabControl1 TabControl1 TabPage1 TabPage2 TabPage1
Input Data TabPage2 Browse Data KdPesawatLabel Kd Pesawat KdAreaLabel Kd Area TarifPenerbanganLabel TarifPenerbanganLabel Tarif Penerbangan KdPesawatComboBox KdPesaw atComboBox KdAreaComboBox KdAreaComboB ox TarifPenerbanganTextBox TarifPenerbanganTextBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel btnClose &Close TarifDataGridView TarifDataGridView
Klik File New Project, buat desain form Tujuan Tu juan seperti tampilan berikut ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name
Values fmTujuan PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA TUJUAN TabControl1 TabPage1 TabPage2 TabPage1 Input Data TabPage2 Browse Data KdAreaLabel Kd Area TujuanLabel TujuanLabel
6.
TextBox1
7.
TextBox2
8.
Button1
9.
Button2
10.
Button3
11.
Button4
12.
Button5
13.
DataGridView1 DataGridView1
Text Name Text Name Text Name Text Name Text Name Text Name Text Neme Text Name
Tujuan KdAreaTextBox KdAreaText Box TujuanTextBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel btnClose &Close TujuanDataGridView TujuanDataGridView
Klik File New Project, buat desain form Service seperti tampilan berikut ini: ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
6.
Label4
7.
Labe5
8.
TextBox1
9.
DateTimePicker
10.
ComboBox1
11.
TextBox2
12.
Button1
13.
Button2
14.
Button3
15.
Button4
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text
Values fmService PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA SERVICE TabControl1 TabPage1 TabPage2 TabPage1 Input Data TabPage2 Browse Data NoServiceLabel NoServiceLabel No Service
TglServiceLabel TglServiceLabel Tgl Service KdPesawatLabel Kd Pesawat BiayaLabel Biaya NoServiceTextBox NoServiceTe xtBox TglServiceDateTimePicker TglServiceDateTimePicker KdPesawatComboBox KdPesawa tComboBox BiayaTextBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel
16.
Button5
17.
DataGridView1
Neme Text Name
btnClose &Close ServiceDataGridView ServiceDataGridView
Klik File New Project, buat desain form Transaksi Penerbangan seperti tampilan berikut ini:
No 1.
Nama Komponen Form1
2.
Label1
3.
Tab Control
TabPage1 TabPage2 4.
Label2
5.
Label3
Properties Name Text
Back Color StartPosition FormBorderStyle Name Text Name Tab Page Name Text Name Text Name Text Name
Values fmPenerbangan PT.MERPATI NUSANTARA AIR LINES Gray CenterScreen None Label1 DATA PENERBANGAN TabControl1 TabPage1 TabPage2 TabPage1 Input Data TabPage2 Browse Data NoPenerbanganLabel NoPenerbanganLabel No Penerbangan TglPenerbanganLabel TglPenerbanganLabel
6.
Label4
7.
Label5
8.
Label6
9.
Label7
10.
Label8
11.
TextBox1
12.
Date Time Picker
13.
ComboBox1
11.
ComboBox2
12.
ComboBox3
13.
TextBox2
14.
ComboBox4
15.
Button1
16.
Button2
17.
Button3
18.
Button4
19.
Button5
20.
DataGridView1 DataGridView1
Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Neme Text Name
Tgl Penerbangan NoCustLabel NoCustLabel No Cust KdPesawatLabel Kd Pesawat KdAreaLabel KdAreaLabel Kd Area JumlahTiketLabel JumlahTiketLabel Jumlah Tiket JenisBayarLabel JenisBayarLabel JenisBayar NoPenerbanganTextBox NoPenerbanganTe xtBox TglPenerbanganDateTimePick TglPenerbanganDateTimePicker er NoCustComboBox KdPesawatComboBox KdPesawa tComboBox KdAreaComboBox KdAreaComboB ox JumlahTiketTextBox JumlahTike tTextBox JenisBayarComboBox JenisBay arComboBox btnAdd &Add btnEdit &Edit btnSave &Save btnCancel &Cancel btnClose &Close PenerbanganDataGridView PenerbanganDataGridView
Selanjutnya kita harus mendeklarasikan pengenal database, pengenal command dan pengenal datareader. Ketikkan baris program berikut dibawah public class Form1atau Form Penerbangan Private Sub Frmpenerbangan_Load( ByVal sender As System.Object System.Object, , ByVal e As System.EventArgs System.EventArgs) ) Handles MyBase MyBase.Load .Load 'TODO: This line of code loads data into the 'PenerbanganDataSet.QPenerbangan' table. You can move, or remove it, as needed. Me.QPenerbanganTableAdapter.Fill( Me .QPenerbanganTableAdapter.Fill(Me Me.PenerbanganDataSet.QPenerbangan) .PenerbanganDataSet.QPenerbangan) Me.PenerbanganTableAdapter.Fill( Me .PenerbanganTableAdapter.Fill(Me Me.PenerbanganDataSet.Penerbangan) .PenerbanganDataSet.Penerbangan) End Sub Private Sub Tampil() Me.PenerbanganTableAdapter.Fill( Me .PenerbanganTableAdapter.Fill(Me Me.PenerbanganDataSet.Penerbangan) .PenerbanganDataSet.Penerbangan) End Sub Private Sub TidakSiap() NoPenerbanganTextBox.En NoPenerbanganTextBox.Enabled abled = False NoCustComboBox.Enabled NoCustComboBox.Enabled = False TglPenerbanganDateTimeP TglPenerbanganDateTimePicker.Enable icker.Enabled d = False KdPesawatComboBox.Enabl KdPesawatComboBox.Enabled ed = False KdAreaComboBox.Enabled KdAreaComboBox.Enabled = False JumlahTiketTextBox.Enab JumlahTiketTextBox.Enabled led = False JenisBayarComboBox.Enab JenisBayarComboBox.Enabled led = False btnadd.Enabled = True btncancel.Enabled btncancel.Enabled = False btnclose.Enabled btnclose.Enabled = True btnedit.Enabled = True btnsave.Enabled = False End Sub Private Sub Siap() NoPenerbanganTextBox.En NoPenerbanganTextBox.Enabled abled = True NoCustComboBox.Enabled NoCustComboBox.Enabled = True TglPenerbanganDateTimeP TglPenerbanganDateTimePicker.Enable icker.Enabled d = True KdPesawatComboBox.Enabl KdPesawatComboBox.Enabled ed = True KdAreaComboBox.Enabled KdAreaComboBox.Enabled = True JumlahTiketTextBox.Enab JumlahTiketTextBox.Enabled led = True JenisBayarComboBox.Enab JenisBayarComboBox.Enabled led = True btnadd.Enabled = False btncancel.Enabled btncancel.Enabled = True btnclose.Enabled btnclose.Enabled = False btnedit.Enabled = False btnsave.Enabled = True End Sub Private Sub bersih() NoPenerbanganTextBox.Clear() NoCustComboBox.Text = "" KdPesawatComboBox.Text KdPesawatComboBox.Text = "" KdAreaComboBox.Text = "" JumlahTiketTextBox.Clear() JenisBayarComboBox.Text = "" End Sub Private Sub Koneksi() con = New OleDbConnection OleDbConnection(StrCon) (StrCon) If con.State <> ConnectionState ConnectionState.Closed .Closed Then con.Close() con.Open() Dim strTemp As String = ""
Dim strValue As String = "" Dim sql As String sql = "SELECT * FROM Penerbanga Penerbangan n ORDER BY NoCust DESC" cmd = New OleDbCommand OleDbCommand(sql, (sql, con) dReader = cmd.ExecuteReader cmd.ExecuteReader If dReader.Read Then strTemp = Mid(dReader.Item( Mid(dReader.Item("NoPenerbangan" "NoPenerbangan"), ), 3, 5) Else NoPenerbanganTextBox.Te NoPenerbanganTextBox.Text xt = "" Exit Sub End If End Sub Private Sub Semula() btnSave.Text btnSave.Text = "Save" End Sub Private Sub btnedit_Click(ByVal btnedit_Click(ByVal sender As System.Object System.Object, , ByVal e As System.EventArgs System.EventArgs) ) Handles btnedit.Click Siap() btnsave.Text btnsave.Text = "Ubah" End Sub Private Sub btnsave_Click(ByVal btnsave_Click(ByVal sender As System.Object System.Object, , ByVal e As System.EventArgs System.EventArgs) ) Handles btnsave.Click Select Case btnsave.Text Case "Save" If MsgBox("Yakin MsgBox("Yakin Akan Disimpan??", Disimpan??" , MsgBoxStyle MsgBoxStyle.YesNo .YesNo + MsgBoxStyle.Question, MsgBoxStyle .Question, "SAVE DATA") DATA") = MsgBoxResult .Yes Then Dim sql As String sql = "INSERT INTO Costumer(NoCust,NamaCostume Costumer(NoCus t,NamaCostumer,Alamat,Tel r,Alamat,Telepon)" epon)" & _ "VALUES('" & NoPenerbanganTextBox.Tex NoPenerbanganTextBox.Text t & "','" & TglPenerbanganDateTimePicke TglPenerbanganDateTimePicker.Text r.Text & "','" & NoCustComboBox.Text & "','" & KdPesawatComboBox.Text KdPesawatComboBox.Text & "','" & KdAreaComboBox.Text & "','" & JumlahTiketTextBox.Text JumlahTiketTextBox.Text & "','" & JenisBayarComboBox.Text JenisBayarComboBox.Text & "')" cmd = New OleDbCommand (sql, con) Dim x As Integer = cmd.ExecuteNonQuery cmd.ExecuteNonQuery If x = 1 Then MessageBox.Show( MessageBox .Show("Data "Data Berhasil Di Simpan") Simpan" ) sql = "SELECT * FROM Costumer" cmd = New OleDbCommand (sql, con) dReader = cmd.ExecuteReader Else MessageBox.Show( MessageBox .Show("Data "Data Gagal Di Simpan") Simpan" ) End If Else MsgBox("Data MsgBox("Data Tidak Disimpan") Disimpan" ) End If TidakSiap() bersih() Tampil() Case "Ubah" If MsgBox("Yakin MsgBox("Yakin Akan Diubah??", Diubah??" , MsgBoxStyle MsgBoxStyle.YesNo .YesNo + MsgBoxStyle.Question, MsgBoxStyle .Question, "EDIT DATA") DATA") = MsgBoxResult .Yes Then Dim sql As String sql = "UPDATE Costumer SET NoPenerbangant NoPenerbangant='" ='" & NoPenerbanganTextBox.Text NoPenerbanganTextBox.Text & "', TglPenerbangan='" & TglPenerbanganDateTimePicke TglPenerbanganDateTimePicker.Text r.Text & "' NoCust='" & NoCustComboBox.Text & "',
KdPesawat='" & KdPesawatComboBox.Text & "', KdArea='" & KdAreaComboBox.Text & "', JUmlahTiket='" & JumlahTiketTextBox.Tex JumlahTiketTextBox.Text t & "', JenisBayar='" & JenisBayarComboBox.Text JenisBayarComboBox.Text & "' " & _ "WHERE NoPenerbanga NoPenerbangan='" n='" & NoPenerbanganTextBox.Te NoPenerbanganTextBox.Text xt & "'" cmd = New OleDbCommand (sql, con) Dim x As Integer = cmd.ExecuteNonQuery cmd.ExecuteNonQuery If x = 1 Then MessageBox.Show( MessageBox .Show("Data "Data Berhasil Di Update") Update" ) Else MessageBox.Show( MessageBox .Show("Data "Data Gagal Di Update") Update" ) End If End If TidakSiap() bersih() Tampil() End Select Semula() End Sub Private Sub btnclose_Click(ByVal btnclose_Click(ByVal sender As System.Object System.Object, , ByVal e As System.EventArgs System.EventArgs) ) Handles btnclose.Click If MsgBox("Yakin MsgBox("Yakin Keluar???", Keluar???", MsgBoxStyle MsgBoxStyle.YesNo .YesNo + MsgBoxStyle MsgBoxStyle.Question, .Question, "Keluar") "Keluar" ) = MsgBoxResult .Yes Then Close() Else Exit Sub End If End Sub Private Sub btnadd_Click(ByVal btnadd_Click(ByVal sender As System.Object System.Object, , ByVal e As System.EventArgs System.EventArgs) ) Handles btnadd.Click Siap() bersih() End Sub
Bab III IMPLEMENTASI
3.1. Spesifikasi Hardware
Membuat aplikasi database adalah hal yang amat menarik.
Database
yang
digunakan SQL Server 2010. 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 Spesifikasi Akses Database VB.NET.
Brand:
Bamboomedia
Part Number:
IT-305 Penalan
Visual
Studio
2010.
Project
dan
Solution.
Menggunakan Server Explorer untuk Membuat Database dan Menu Belajar:
Tabel. Membuat Form dan Cara Menghubungkan Ke database. Menggunakan Komponen Toolbox. Membuat Form Barang dan Transaksi. Membuat Form MDI, Menu. Membu Prosesor Pentium,
Spesifikasi Komputer:
Ram 256 Mb, Resolusi minimal 1024 x
768, CD-ROM minimal 24x, VGA minimal 16 bit, Sound Card, Speaker. OS: Windows XP, Vista, Windows 7
Target Pengguna:
Umum
Tingkat Ketrampilan:
Pemula,
Menengah
3.2. Cara Pengoperasian Program y
Klik StartMicrosoft Visual Studio 2010
y
Tapi Kalau Program Aplikasinya sudah Menjadi EXE langsung Klik Saja EXEnya Cara Pengopersian Program Aplikasi Perpustakaan ini harus memasukan USER
dan Password Terlebih dahulu.Yang di dalamnya terdapat Menu-menu yang diantaranya SISTEM,MASTER,TRANSAKSI,LAPORAN,dan HELP. 3.2.1 Masukan Ke Form Login
1. Klik Menu SistemLogin, isi User Id
: 09250011
Password
: bowex
Catatan : Dapat
2. Untuk
menembahkan user-user baru sesuai dengan kebutuhan
Selanjutnya,Operasikan
mulai
dari
menu
Rekam
Data,Transaksi,Laporan dan Bantuan
3. Kode program yang tidak ada di makalah ini dapat di pelajari dengan cara menyalin ke fold ke fold er er tertentu yang diinginkan.
3.2.2 Masuk Ke Form Data Customer
Rekam DataData Customer
3.2.3 Masuk Ke Form Pesawat
Rekam DataData Pesawat
3.2.4 Masuk Ke Form Tujuan
Rekam DataData Tujuan
3.2.5 Masuk Ke Form Transaksi Tarif
Rekam DataData Tarif
4.2.3. Masuk Ke Form Service
Rekam DataData Service
4.2.4. Masuk Ke Form Penerbangan (Transaksi)
Transaksi ± Penerbangan
4.2.5. Keluar Dari Program SistemKeluar
Bab IV PENUTUP
4.1. 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. pro grammer. 4.2. 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.