Beranda  ›  Delphi  ›  LA

Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 8 Animasi pada DELPHI

Ditulis Rabu, 26 Oktober 2016 Tulis Komentar Edit


LISTING PROGRAM:
FORM 1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible=true then
begin
label1.visible:=false
end else
label1.visible:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label2.Caption:=TimeToStr(Time);
Label3.Caption:=DateToStr(Date);
end;

procedure TForm1.Form21Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate
end;

end.

FORM 2
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
Edit2.Font.Style:=Edit2.Font.Style+[fsBold];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsBold];
end;

procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then begin
edit2.Font.Style:=Edit2.Font.Style+[fsItalic];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsItalic];
end;

procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then begin
edit2.Font.Style:=Edit2.Font.Style+[fsUnderline];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsUnderline];
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
edit2.Font.Name:='Times New Roman'
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
Edit2.Font.Name:='Calibri'
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
edit2.Font.Name:='Arial'
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Edit2.Font.Color:=ColorBox1.Selected;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
edit2.Text:=edit1.Text;
end;

end.


LOGIKA PROGRAM:
                                             Form 1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible=true then
begin
label1.visible:=false
end else
label1.visible:=true;
end;

procedure TForm1.Timer1Timier(Sender: TObject);
Membuat procedure untuk timer1 ketika timer dimulai
if Label1.Visible=true then
begin
label1.visible:=false
end else
label1.visible:=true;
Jika label1 ditampilkan maka akan dihilangkan dan jika dihilangkan maka akan ditampilkan
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label2.Caption:=TimeToStr(Time);
Label3.Caption:=DateToStr(Date);
end;

procedure TForm1.Timer2Timier(Sender: TObject);
Membuat procedure untuk timer2 ketika timer dimulai
Label2.Caption:=TimeToStr(Time);
Mengubah jam ke string
Label3.Caption:=DateToStr(Date);
Mengubah tanggal ke string

procedure TForm1.Form21Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Form21Click(Sender: TObject);
Membuat procedure untuk menu2 ketika di klik
Form2.show;
Untuk menampilkan form 2
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1.Exit1Click(Sender: TObject);
Membuat procedure untuk exit ketika di klik
Application.Terminate
Untuk keluar dari program

                                                            Form 2
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
Edit2.Font.Style:=Edit2.Font.Style+[fsBold];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsBold];
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
Membuat procedure ketika checkbox1di klik
if CheckBox1.Checked then begin
Edit2.Font.Style:=Edit2.Font.Style+[fsBold];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsBold];
end;
Jika checkbox1 di cheklis maka font pada edit2 menjadi Bold tetapi jika di unchek maka font pada edit2 menjadi seperti awal
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then begin
edit2.Font.Style:=Edit2.Font.Style+[fsItalic];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsItalic];
end;

procedure TForm2.CheckBox2Click(Sender: TObject);
Membuat procedure ketika checkbox2di klik
if CheckBox2.Checked then begin
Edit2.Font.Style:=Edit2.Font.Style+[fsItalic];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsItalic];
end;
Jika checkbox2 di cheklis maka font pada edit2 menjadi Italic tetapi jika di unchek maka font pada edit2 menjadi seperti awal
procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then begin
edit2.Font.Style:=Edit2.Font.Style+[fsUnderline];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsUnderline];
end;

procedure TForm2.CheckBox3Click(Sender: TObject);
Membuat procedure ketika checkbox3di klik
if CheckBox3.Checked then begin
Edit2.Font.Style:=Edit2.Font.Style+[fsUnderline];
end
else
edit2.Font.Style:=Edit2.Font.Style-[fsUnderline];
end;
Jika checkbox3 di cheklis maka font pada edit2 menjadi Underline tetapi jika di unchek maka font pada edit2 menjadi seperti awal   
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
edit2.Font.Name:='Times New Roman'
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
Membuat procedure untuk radiobutton pada saat di klik
Edit2.Font.Name:=’Times New Roman’;
Mengubah font pada edit2 menjadi Times New Roman
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
edit2.Font.Name:=’Calibri'
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
Membuat procedure untuk radiobutton pada saat di klik
Edit2.Font.Name:=’Calibri’;
Mengubah font pada edit2 menjadi Calibri
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
edit2.Font.Name:='Arial'
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
Membuat procedure untuk radiobutton pada saat di klik
Edit2.Font.Name:=’Arial’;
Mengubah font pada edit2 menjadi Arial
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit2.Font.Color:=ColorBox1.Selected;
end;

procedure TForm1. Button1Click(Sender: TObject);
Membuat procedure untuk button pada saat di klik
Edit2.Font.Color:=ColorBox1.Selected;
Mengubah font color menjadi pilihan pada saat memilih warna di colorbox
procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1. Button2Click(Sender: TObject);
Membuat procedure untuk button pada saat di klik
Application.Terminate
Untuk keluar dari program
procedure TForm2.Edit1Change(Sender: TObject);
begin
edit2.Text:=edit1.Text;
end;

procedure TForm1. Edit1Chage(Sender: TObject);
Membuat procedure untuk edit1 pada saat kita mengetik
Edit2.Text:=Edit1.Text;
Menampilkan text yang ada di edit2 sama dengan edit1


OUTPUT PROGRAM:


Belum ada Komentar untuk "Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 8 Animasi pada DELPHI"

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