Beranda  ›  Delphi  ›  LA

Laporan Akhir Lab TI Algoritma dan Pemrograman (AP 2A) Pertemuan 5 Pengenalan pada DELPHI

Ditulis Rabu, 26 Oktober 2016 Tulis Komentar Edit


LISTING PROGRAM:

Form untuk login
unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses nilai;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='sutri')and(edit2.Text='12345') then
begin
  Form2.Show;
  Form1.Hide
end
else
begin
application.messagebox('ID Atau Password Salah',0);
end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate
end;
end.

Form untuk nilai

unit nilai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses login;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=strtoint(edit1.Text);
if (a>=0)and(a<=30)then
begin
   edit1.font.color:=clred;
   edit2.font.color:=clred;
   edit3.font.color:=clred;
   edit2.Text:='E';
   edit3.Text:='Tidak Lulus';
end
else if (a>30)and(a<=40)then
begin
   edit1.font.color:=clred;
   edit2.font.color:=clred;
   edit3.font.color:=clred;
   edit2.Text:='D';
   edit3.Text:='Tidak Lulus';
end
else if (a>40)and(a<=50)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='C';
   edit3.Text:='Lulus';
end
else if (a>50)and(a<=75)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='B';
   edit3.Text:='Lulus';
end
else if (a>75)and(a<=100)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='A';
   edit3.Text:='Lulus';
   end
else
begin
application.messagebox('Data tidak valid',0);
end

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
end.



LOGIKA PROGRAM:

Form Login
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='sutri')and(edit2.Text='12345') then
begin
  form2.show;
  form1.Hide
end
else
begin
application.messagebox('ID Atau Password Salah',0);
end
end;

Script diatas digunakan jika text pada edit1 ‘sutri’ dan pada password ‘12345’ maka form2 akan muncul dan form1 akan disembunyikan dan jika salah memasukan password maka akan tampil pesan “ID Atau Password Salah”
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate
end;
end.

Script diatas berfungsi jika button Exit di klik maka Form1 akan keluar atau exit

Form Nilai
procedure TForm2.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=strtoint(edit1.Text);
if (a>=0)and(a<=30)then
begin
   edit1.font.color:=clred;
   edit2.font.color:=clred;
   edit3.font.color:=clred;
   edit2.Text:='E';
   edit3.Text:='Tidak Lulus';
end
else if (a>30)and(a<=40)then
begin
   edit1.font.color:=clred;
   edit2.font.color:=clred;
   edit3.font.color:=clred;
   edit2.Text:='D';
   edit3.Text:='Tidak Lulus';
end
else if (a>40)and(a<=50)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='C';
   edit3.Text:='Lulus';
end
else if (a>50)and(a<=75)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='B';
   edit3.Text:='Lulus';
end
else if (a>75)and(a<=100)then
begin
   edit1.font.color:=clblue;
   edit2.font.color:=clblue;
   edit3.font.color:=clblue;
   edit2.Text:='A';
   edit3.Text:='Lulus';
   end
else
begin
application.messagebox('Data tidak valid',0);
end
end;

Script diatas berfungsi Jika text pada edit1 diberikn nilai 0>30 maka edit2 akan memberikan E dan edit3 Tidak lulus,30>40 maka edit2 akan memberikan D dan edit3 Tidak lulus,40>50 maka edit2 akan memberikan C dan edit3 lulus,50>75 maka edit2 akan memberikan B dan edit3 lulus,75>100 maka edit2 akan memberikan A dan edit3 lulus dan jika salah input akan tampil pesan “Data tidak valid”
procedure TForm2.Button3Click(Sender: TObject);
begin
form1.Show;
form2.Hide;
end;

Script diatas berfungsi jika button Exit di klik maka form1 akan muncul dan form2 akan disembunyikan                     

procedure TForm2.Button3Click(Sender: TObject);
begin
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
end;

end.

Script diatas berfungsi jika button Clear di klik maka edit1.text,edit2.text dan edit3.text akan dihapus


OUTPUT PROGRAM:







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