Beranda  ›  LA  ›  Visual Basic

Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 3 Database pada VB

Ditulis Rabu, 26 Oktober 2016 Tulis Komentar Edit


Database
Database atau basis data adalah kumpulan data yang disimpan secara sistematis di dalam komputer dan dapat diolah atau dimanipulasi menggunakan perangkat lunak (program aplikasi) untuk menghasilkan informasi. Pendefinisian basis data meliputi spesifikasi berupa tipe data, struktur, dan juga batasan-batasan data yang akan disimpan. Basis data merupakan aspek yang sangat penting dalam sistem informasi dimana basis data merupakan gudang penyimpanan data yang akan diolah lebih lanjut. Basis data menjadi penting karena dapat menghidari duplikasi data, hubungan antar data yang tidak jelas, organisasi data, dan juga update yang rumit.

LISTING PROGRAM:
Sub recordsetedit()
Tbnama.Text = Adodc1.Recordset!Nama
tbnpm.Text = Adodc1.Recordset!NPM
tbkls.Text = Adodc1.Recordset!Kelas
tbjrs.Text = Adodc1.Recordset!Jurusan
DataGrid1.Refresh
End Sub
Sub recordsetinput()
Adodc1.Recordset!Nama = Tbnama.Text
Adodc1.Recordset!NPM = tbnpm.Text
Adodc1.Recordset!Kelas = tbkls.Text
Adodc1.Recordset!Jurusan = tbjrs.Text
DataGrid1.Refresh
End Sub
Sub recordsetclear()
Tbnama.Text = ""
tbnpm.Text = ""
tbkls.Text = ""
tbjrs.Text = ""
End Sub
Sub enabledfalse()
btdelete.Enabled = False
btnedit.Enabled = False
DataGrid1.Enabled = False
End Sub
Private Sub btdelete_Click()
If Adodc1.Recordset.RecordCount = 1 Then
enabledfalse
End If
Adodc1.Recordset.Delete
DataGrid1.Refresh
recordsetclear
End Sub
Private Sub btnedit_Click()
Adodc1.Recordset.Update
recordsetinput
recordsetclear
End Sub
Private Sub DataGrid1_GotFocus()
recordsetedit
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
recordsetedit
End Sub
Private Sub Form_Load()
If Adodc1.Recordset.BOF Then
enabledfalse
End If
End Sub
Private Sub tbnsave_Click()
btdelete.Enabled = True
btnedit.Enabled = True
DataGrid1.Enabled = True
Adodc1.Recordset.AddNew
recordsetinput
If Tbnama.Text = "" Or tbnpm = "" Or tbkls = "" Or tbjrs = "" Then
Adodc1.Recordset.Delete
MsgBox "DATA TIDAK LENGKAP" , vbAbortRetryIgnore, "BAD INPUT"
Else
recordsetclear
End If
If Adodc1.Recordset.BOF Then
enabledfalse
End If
End Sub
Private Sub btnexit_Click()
End
End Sub


LOGIKA PROGRAM:
Sub recordsetedit()
Tbnama.Text = Adodc1.Recordset!Nama
tbnpm.Text = Adodc1.Recordset!NPM
tbkls.Text = Adodc1.Recordset!Kelas
tbjrs.Text = Adodc1.Recordset!Jurusan
DataGrid1.Refresh
End Sub

Script diatas berfungsi untuk membuat sub program recordsetedit yang berfungsi untuk mengisi textbox jika saya memilih data yang ingin diubah.
Sub recordsetinput()
Adodc1.Recordset!Nama = Tbnama.Text
Adodc1.Recordset!NPM = tbnpm.Text
Adodc1.Recordset!Kelas = tbkls.Text
Adodc1.Recordset!Jurusan = tbjrs.Text
DataGrid1.Refresh
End Sub

Script diatas berfungsi untuk membuat sub program recordsetinput yang berfungsi untuk mengisi datagrid yang telah disediakan    
Sub recordsetclear()
Tbnama.Text = ""
tbnpm.Text = ""
tbkls.Text = ""
tbjrs.Text =

Script diatas berfungsi untuk mengosongkan data dalam textbox
Sub enabledfalse()
btdelete.Enabled = False
btnedit.Enabled = False
DataGrid1.Enabled = False
End Sub

Script diatas berfungsi untuk mendisable button delete,button edit dan datgrid.   



Private Sub btdelete_Click()
If Adodc1.Recordset.RecordCount = 1 Then
enabledfalse
End If
Adodc1.Recordset.Delete
DataGrid1.Refresh
recordsetclear
End Sub

Script diatas berfungsi jika record dalam datagrid kosong maka button delete akan tidak bisa di klik lagi dan data dalam textbox akan kosong          
Private Sub btnedit_Click()
Adodc1.Recordset.Update
recordsetinput
recordsetclear
End Sub

Script diatas berfungsi untuk mengedit data yang akan dipilih, kemudian textbox akan dikosongkan                         
Private Sub DataGrid1_GotFocus()
recordsetedit
End Sub

Script diatas berfungsi jika data pada datgrid dipilih maka program akan memanggil sub recordsetedit                         
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
recordsetedit
End Sub

Script diatas berfungsi jika pilihan data diubah maka program akan memanggil recordsetedit
Private Sub Form_Load()
If Adodc1.Recordset.BOF Then
enabledfalse
End If
End Sub

Script diatas berfungsi saat pertama form berjalan dan data masih kosong maka program akan memanggil sub enabledfalse
Private Sub tbnsave_Click()
btdelete.Enabled = True
btnedit.Enabled = True
DataGrid1.Enabled = True
Adodc1.Recordset.AddNew
recordsetinput
If Tbnama.Text = "" Or tbnpm = "" Or tbkls = "" Or tbjrs = "" Then
    Adodc1.Recordset.Delete
    MsgBox "DATA TIDAK LENGKAP" , vbAbortRetryIgnore, "BAD INPUT"
Else
recordsetclear
End If
End Sub

Script diatas berfungsi jika button save di klik maka button delete, button edit dan datagrid manjadi enabled. kemudian data yang datagrid akan terisi sesuai dengan textbox yang diisi tadi. Dan jika salah satu textbox kosong maka program akan menampilkan pesan. Lalu textbox dikosongkan.


OUTPUT PROGRAM:















Belum ada Komentar untuk "Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 3 Database pada VB"

Posting Komentar

Electric Smart Cars - Rational Reasons and Results When Buying One There are many reasons for buying any electric smart car, hybrid electric or plugin hybrid electric vehicle. The soaring costs of gas is likely the biggest and most pressing issue when considering buying an electric car. The environment and the planet is another concern. Whatever the reason, buying any BEV, PHEV or green planet-friendly automobile instead of that fossil-fuel burning internal combustion engine car, we'll certainly have a positive effect on helping save the planet and save you money as well. In order to make a smart electric car buying decisions, it is important to understand what the different types of electric-powered vehicles, and how smart electric cars work. There are three types of electric assisted vehicle that utilize an electric motor of some kind. The battery electric vehicle (BEV) is as the name suggests-a battery powered vehicle. There is no other power source for the vehicle, no internal combustion engine (ICE) running on gasoline, and therefore the battery must be charged between uses, and will discharge during use until it runs out. At this point the vehicle can no longer run, so you'll need to be near a charging point before you run out of gas, I mean electric juice. Two types of hybrid electric vehicles offer the best of both the electric and the ICE vehicle worlds. The hybrid electric vehicle (HEV) uses an electric motor to either propel the car or to increase the power. Generally the result of this is to extend the distance that it can travel on a tank of fuel, giving the hybrid electric car better fuel economy. Lastly there is the plug-in hybrid electric vehicle (PHEV). This runs in a largely similar way to the HEV but with one major difference-the battery can be plugged into a charging point, in order to completely charge the battery to its maximum capacity. The HEV by comparison can only charge its battery with the current generated by its ICE, or through regenerative breaking (a process in which energy is reclaimed during breaking rather than lost). By fully charging the battery the use of electrical power can be prolonged, and the use of gasoline reduced, making the PHEV the more economical of the hybrid electric vehicles. The drive-train of a BEV is very simple-a battery powers the motor, which propels the electric vehicle. The hybrid electric vehicles will run an ICE and electric motor either in parallel or in series, with both the ICE and electric motor being able to move the electric or hybrid electric vehicle. A capacitor allows energy to be channeled back into the battery too, and in the case of the PHEV a separate charging circuit like that of the BEV is included to separately charge the hybrid electric vehicle. There are two types of battery that are used in BEV, PHEV and HEV cars. Nickel metal hydride batteries are an older technology, and one that suffers from battery degradation more quickly than others. Newer, lithium-ion batteries are far more efficient, as well as longer lasting in both electric and hybrid electric vehicles. They don't suffer from memory formation like nickel metal hydride batteries, and tend to be able to provide more power for the engine than the alternative. Older hybrid electric vehicles may still use lead-acid batteries, but these are generally now considered bad for the environment, and are no longer used. There are pros and cons to making the move to an electric or hybrid vehicle. They are cheaper to run than ICE cars and have good speed, and hybrid electric vehicles have good range too. But the BEV class can run generally for only up to 40-200 miles, leading to what is known as range anxiety. Hybrid electric vehicles overcome by using the ICE as well, giving vastly superior range. Another downside is that the batteries wear out and need replacing. This is an expensive part on the car, and on a BEV the battery failure means that the car will completely fail to run. A hybrid at least has its ICE on which to fall back. However, the overall running costs to the owner are far less than for a vehicle with an ICE. The electric or hybrid electric vehicle has less moving parts and so less chances of failure that needs repair. Fuel efficiency of a hybrid is hugely increased, saving money for every mile driven, and for a BEV is even less as electrical energy is cheaper than gas. One of the biggest benefits to these vehicles is to the planet. Our oil reserves are finite and dwindling, and their continued use in this way further pollutes the environment. Moving to electric or hybrid electric vehicles will drastically reduce the pollutants emitted, and will slow the rate at which our planet's natural resources are exhausted. As far as the economy is concerned, electric and hybrid vehicles could be very positive development. The production of large numbers of these vehicles would require the building or converting manufacturing factories, and the hiring of workers to staff the factories. Claims are often made that our economy is heavily reliant on oil, and that moving away from it would destroy us, but the truth is quite different. By embracing these technologies, our economy can shift its dependence from oil onto alternatives, just as our motoring needs do. An all-electric or hybrid vehicle may cost a little more to insure than a gas vehicle. Though a small saving is possible thanks to the improved risk profile of people who own electric vehicles, other costs are higher. However, repairing electric or hybrid vehicles currently costs more because there are fewer of these vehicles on the road, and because spare parts are less abundant. This increases repair costs, which insurance companies pass on to owners. Savings in running costs can help offset this. Options are varied when considering purchasing one of these cars, giving potential owners a good range of choice when it comes to the power, size and range of their vehicle. The following are currently available or soon to be released, highway ready environmentally-friendly cars. Full details are not available for some of those cars that are not yet on sale. The Nissan Leaf is an all electric car doing 100 miles per charge and up to 90 mph, and starting at $33,720. This is a modern looking car with a reasonable range, and a competitive pricing. The Tesla Roaster is also all-electric, with an incredible 245 miles per charge, 125 mph top speed, and costs starting at $101,500. This is a stunning looking car with an equally stunning performance-and a range like no other electric car. The Smart-ED all-electric model has a 98 mile maximum range, and a top speed of 60 mph. This small car will be perfect for city driving. Starting at $599 a month for a four year lease. Ford's own all electric car-the Ford Focus has yet to be released but is expected to have a range in excess of 100 miles per charge. This car will be available from late 2011, and looks to provide all of the high-tech options that people may want, in a very stylish exterior. Final price and other details have yet to be released. Chevrolet's Volt is a PHEV that is capable of speeds of 100 mph. Fuel economy depends on how often you charge the battery, with official figures released at 60 mpg using gas and electric combined. Prices start at $32,780, giving this a reasonable price tag along with good performance. Toyota's Prius is a PHEV that has an incredible range of 475 miles on a single tank of gas, when using combined gas and the electric motor. Unfortunately, since it won't be available till early 2012 there are no more details regarding performance and pricing. A full hybrid version of the Toyota Prius is also available, with a base price of $23,520. With a combined mileage of 50mpg and a top speed of 112 mph, it has enough power and efficiency for anyone. This is a tried and trusted hybrid car with a good reputation. Ford's Fusion has a hybrid version as well, with a starting price of $19,820. With a 700 mile range per full tank of fuel, and 41 mpg, it is powerful and sleek, and has the range to take you wherever you want to go. The Escalade hybrid from Cadillac is a luxury SUV, and so it's price tag is a little larger, at $74,135. Fuel efficiency is good for an SUV at up to 23 mpg and a range of up to 575 miles per tank. This SUV balances the needs of a larger family with the desire to be a little more environmentally friendly, and does so with incredible style.

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel