CARA MEMBUAT APLIKASI PERHITUNGAN INTERNET DENGAN DELPHI7 Masukan kode program ini dengan menekan F12 Created by Aziz Teknik Informatika

CARA MEMBUAT APLIKASI PERHITUNGAN INTERNET DENGAN DELPHI7
Masukan kode program ini dengan menekan F12
Created by Aziz Teknik Informatika
TAMPILAN PROGRAM

GB.1 A.Z.I.Z.
T.E.K.N.I.K.I.N.F.O.R.M.T.I.K.A.

GB.2 A.Z.I.Z.
T.E.K.N.I.K.I.N.F.O.R.M.T.I.K.A.

GB.3 A.Z.I.Z.
T.E.K.N.I.K.I.N.F.O.R.M.T.I.K.A.

MASUKA KODE DENGAN MENEKAN F12

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Label5: TLabel;
GroupBox2: TGroupBox;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label9: TLabel;
Edit11: TEdit;
GroupBox3: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Button2: TButton;
GroupBox4: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Label18: TLabel;
Edit23: TEdit;
Timer1: TTimer;
Button3: TButton;
Button4: TButton;
Label19: TLabel;
Edit24: TEdit;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
Button5: TButton;
Label20: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit20Change(Sender: TObject);
procedure Edit21Change(Sender: TObject);
procedure Edit22Change(Sender: TObject);
procedure Button5Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Awal:TDateTime;
Akhir:TDateTime;
Lama:TDateTime;
Jam,Menit,Detik,MDetik:Word;
SLama:String;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Akhir:=Time;
Lama:=Akhir-Awal;
SLama:=TimeToStr(Lama);
Edit3.Text:=SLama;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
if Button1.Caption=’START’ then
begin
Timer1.Enabled:=True;
Awal:=Time;
Edit1.Text:=TimeToStr(Awal);
Edit2.Text:=”;
Edit4.Text:=”;
Edit12.Text:=”;
Edit13.Text:=”;
Button1.Caption:=’STOP’;

end else
if Button1.Caption=’STOP’ then
begin
Timer1.Enabled:=False;
Edit2.Text:=TimeToStr(Time);

//MENHITUNG TARIF
DecodeTime(StrToTime(Edit2.Text)-StrToTime(Edit1.text),Jam,Menit,Detik,MDetik);
Edit4.Text:=FloatToStr((Jam*3000)+(Menit*50)+(Detik*5));
Edit12.Text:=FloatToStr((Jam*3000)+(Menit*50)+(Detik*5));

Button1.Caption:=’START’;

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var ad,bd,cd:real;

begin

ad:=StrToFloat(Edit12.Text);
bd:=StrToFloat(Edit13.Text);
cd:=StrToFloat(Edit24.Text);

Edit14.Text:=FloatToStr(ad+bd+cd)

end;

procedure TForm1.Button3Click(Sender: TObject);

var aa,bb,cc,dd:real;
begin

aa:=StrToFloat(Edit8.Text);
bb:=StrToFloat(Edit9.Text);
cc:=StrToFloat(Edit10.Text);
Edit11.Text:=FloatToStr(aa+bb+cc) ;
dd:=StrToFloat(Edit11.Text);
Edit13.Text:=FloatToStr(dd)
end;

procedure TForm1.Edit8Change(Sender: TObject);
var aa,b:real;
begin
aa:=StrToFloat(Edit5.Text);
Edit8.Text:=FloatToStr(aa*6000)
end;

procedure TForm1.Edit9Change(Sender: TObject);
var bb:real;
begin
bb:=StrToFloat(Edit6.Text);
Edit9.Text:=FloatToStr(bb*3000)

end;

procedure TForm1.Edit10Change(Sender: TObject);
var cc:real;
begin
cc:=StrToFloat(Edit7.Text);
Edit10.Text:=FloatToStr(cc*2500)
end;

procedure TForm1.Button4Click(Sender: TObject);
var gg,ff,gh,dd,fg:real;
begin
gg:=StrToFloat(Edit20.Text);
ff:=StrToFloat(Edit21.Text);
dd:=StrToFloat(Edit22.Text);
Edit23.Text:=FloatToStr(gg+ff+dd) ;
fg:=StrToFloat(Edit23.Text);
Edit24.Text:=FloatToStr(fg)

end;

procedure TForm1.Edit20Change(Sender: TObject);
var gg:real;
begin
gg:=StrToFloat(Edit17.Text);
Edit20.Text:=FloatToStr(gg*2500)

end;

procedure TForm1.Edit21Change(Sender: TObject);
var ff:real;
begin
ff:=StrToFloat(Edit18.Text);
Edit21.Text:=FloatToStr(ff*1500)

end;

procedure TForm1.Edit22Change(Sender: TObject);
var gh:real;
begin
gh:=StrToFloat(Edit19.Text);
Edit22.Text:=FloatToStr(gh*2000)

end;

procedure TForm1.Button5Click(Sender: TObject);
var ss,dd,cc:real;
begin
ss:=StrToFloat(Edit15.Text);
dd:=StrToFloat(Edit14.Text);

Edit16.Text:=FloatToStr(ss-dd)
end;

end.

TAMPILAN AKHIR PEOGRAM

GB.4 A.Z.I.Z.
T.E.K.N.I.K.I.N.F.O.R.M.T.I.K.A.