Beranda  ›  LA  ›  Visual Basic

Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 4 Animasi pada VB

Ditulis Rabu, 26 Oktober 2016 Tulis Komentar Edit


LISTING PROGRAM:
Sub buttonf()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Command2_Click()
buttonf
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
buttonf
Timer2.Enabled = True
End Sub
Private Sub Command4_Click()
buttonf
Timer4.Enabled = True
End Sub
Private Sub Command5_Click()
buttonf
Timer3.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Command1.Top <> Me.ScaleTop Then
Command1.Top = Command1.Top - 40
Shape1.FillColor = vbBlue
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
If Command1.Top <> 5320 Then
Command1.Top = Command1.Top + 40
Shape1.FillColor = vbRed
Else
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
Private Sub Timer3_Timer()
If Command1.Left <> 0 Then
Command1.Left = Command1.Left - 40
Shape1.FillColor = vbGreen
Else
Timer3.Enabled = False
Timer4.Enabled = True
End If
End Sub
Private Sub Timer4_Timer()
If Command1.Left <> 6360 Then
Command1.Left = Command1.Left + 40
Shape1.FillColor = &H0000FFFF&
Else
Timer3.Enabled = True
Timer4.Enabled = False
End If
End Sub


LOGIKA PROGRAM:
Sub buttonf()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Script diatas berfungsi untuk membuat sub program yang berfungsi untuk menonaktifkan timer.

Private Sub Command2_Click()
buttonf
Timer1.Enabled = True
End Sub

Script diatas berfungsi untuk menonaktikan timer2,timer3,timer4 dan berguna untuk mengaktifkan timer1                                     

Private Sub Command3_Click()
buttonf
Timer2.Enabled = True
End Sub

Script diatas berfungsi untuk menonaktikan timer1,timer3,timer4 dan berguna untuk mengaktifkan timer2

Private Sub Command4_Click()
buttonf
Timer4.Enabled = True
End Sub

Script diatas berfungsi untuk menonaktikan timer1,timer3,timer2 dan berguna untuk mengaktifkan timer4                                     

Private Sub Command5_Click()
buttonf
Timer3.Enabled = True
End Sub

Script diatas berfungsi untuk menonaktikan timer1,timer2,timer4 dan berguna untuk mengaktifkan timer3                                     

Private Sub Timer1_Timer()
If Command1.Top <> Me.ScaleTop Then
Command1.Top = Command1.Top - 40
Shape1.FillColor = vbBlue
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Script diatas berfungsi jika command1 berada di posisi 0 maka command1 akan naik dan shape1 akan mengganti warna menjadi biru, dan jika posisi command1 suda berada di 0 maka timer1 menjadi nonaktif dan timer2 menjadi aktif         

Private Sub Timer2_Timer()
If Command1.Top <> 5320 Then
Command1.Top = Command1.Top + 40
Shape1.FillColor = vbRed
Else
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub

Script diatas berfungsi jika command1 berada di posisi 5320 maka command1 akan turun dan shape1 akan mengganti warna menjadi merah, dan jika posisi command1 suda berada di 5320 maka timer1 menjadi aktif dan timer2 menjadi nonaktif

Private Sub Timer3_Timer()
If Command1.Left <> 0 Then
Command1.Left = Command1.Left - 40
Shape1.FillColor = vbGreen
Else
Timer3.Enabled = False
Timer4.Enabled = True
End If
End Sub

Script diatas berfungsi jika command1 berada di posisi 0 maka command1 akan ke kiri dan shape1 akan mengganti warna menjadi hijau, dan jika posisi command1 suda berada di 0 maka timer3 menjadi nonaktif dan timer4 menjadi aktif

Private Sub Timer4_Timer()
If Command1.Left <> 6360 Then
Command1.Left = Command1.Left + 40
Shape1.FillColor = &H0000FFFF&
Else
Timer3.Enabled = True
Timer4.Enabled = False
End If
End Sub

Script diatas berfungsi jika command1 berada di posisi 6360 maka command1 akan ke kanan dan shape1 akan mengganti warna menjadi kuning karena &H0000FFFF& adalah kode warna untuk warna kuning, dan jika posisi command1 suda berada di 6360 maka timer3 menjadi aktif dan timer4 menjadi nonaktif


OUTPUT PROGRAM:
Jika menekan tombol Atas

Jika menekan tombol Bawah

Jika menekan tombol Kiri

Jika menekan tombol Kanan
 

Belum ada Komentar untuk "Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 4 Animasi 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