delphi repeated 1-10

Created with Delphi 7 by Avid/Kira

Form ‘perulangan angka’

Sintak:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Memo1: TMemo;

    Memo2: TMemo;

    Memo3: TMemo;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x:integer;

begin

  if ((sender as tbutton).tag=1) then

  for x:=1 to 10 do

  memo1.lines.add(inttostr(x))

  else

  if ((sender as tbutton).tag=2) then

begin

  x:=1;

  repeat

  memo2.lines.add(inttostr(x));

  inc(x);

  until x>10;

  end

  else if ((sender as tbutton).tag=3) then

  begin

  x:=1;

  while (x<=10) do

  begin

  memo3.lines.add(inttostr(x));

  inc(x);

  end;

end;

{

begin

case (sender as tbutton).tag of

1:for x:=1 to 10 do

  memo1.lines.add(inttostr(x));

2:begin

  x:=1;

  repeat

  memo2.lines.add(inttostr(x));

  inc(x);

  until x>=10;

  end;

3:begin

  x:=1;

  while (x:=10) do

  begin

  memo3.lines.add(inttostr(x));

  inc(x);

  end;

  end;

  end;

}

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

application.Terminate;

end;

end.

delphi repeated words

Created with Delphi 7 by Avid/Kira
Form ‘perulangan kata’


Sintak:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Memo2: TMemo;
Memo3: TMemo;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
for x:=1 to 10 do
memo1.lines.add(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var x:integer;
begin
x:=1;
repeat
memo2.lines.add(edit1.text);
inc(x);
until x>10;
end;

procedure TForm1.Button3Click(Sender: TObject);
var x:integer;
begin
x:=1;
while (x<=10) do
begin
memo3.lines.add(edit1.text);
inc(x);
end;
end;
end.

delphi pembelian rumah tunai & kredit

Created with Delphi 7 by Avid/Kira

Form ‘tunai dan kredit’ 

Data module

Database tunai

Database pembeli

Database rumah

Database kredit

Sintak:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBCtrls, ComCtrls, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    kodep: TEdit;

    nama: TEdit;

    alamat: TEdit;

    telp: TEdit;

    RadioGroup1: TRadioGroup;

    tunai: TGroupBox;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    sisa: TLabel;

    Button1: TButton;

    kodet: TEdit;

    tglt: TDateTimePicker;

    umt: TEdit;

    kredit: TGroupBox;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    cicil: TLabel;

    Button2: TButton;

    kodek: TEdit;

    tglk: TDateTimePicker;

    umk: TEdit;

    lama: TEdit;

    GroupBox2: TGroupBox;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    DBText1: TDBText;

    DBText2: TDBText;

    harga: TDBText;

    DBLookupComboBox1: TDBLookupComboBox;

    proses: TButton;

    exit: TButton;

    procedure prosesClick(Sender: TObject);

    procedure exitClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.prosesClick(Sender: TObject);

begin

   datamodule2.tpembeli.Append;

   DataModule2.tpembeli.FieldByName('kodep').AsString:=kodep.Text;

   DataModule2.tpembeli.FieldByName('nama').AsString:=nama.Text;

   DataModule2.tpembeli.FieldByName('alamat').AsString:=alamat.Text;

   DataModule2.tpembeli.FieldByName('telp').AsString:=telp.Text;

   if RadioGroup1.ItemIndex=0 then

   begin

      DataModule2.ttunai.FieldByName('tgl').AsDateTime:=tglt.Date;

      DataModule2.ttunai.FieldByName('kodep').AsString:=kodep.Text;

      DataModule2.ttunai.FieldByName('um').AsFloat:=strtofloat(umt.text);

   end;

   if RadioGroup1.ItemIndex=1 then

   begin

   end;

   DataModule2.tpembeli.Post;

end;

procedure TForm1.exitClick(Sender: TObject);

begin

   Application.Terminate;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

      sisa.Caption:=floattostr(strtofloat(harga.Caption)-StrToFloat(umt.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

   cicil.Caption:=floattostr((strtofloat(harga.Caption)-StrToFloat(umk.Text))

   /StrToFloat(lama.text));

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 then

   begin

      tunai.Visible:=true;

      kredit.Visible:=false;

   end;

   if RadioGroup1.ItemIndex=1 then

   begin

      kredit.Visible:=true;

      tunai.Visible:=false;

   end

end;

end.

delphi klinik

Created with Delphi 7 by Avid/Kira
Form ‘klinik’

Database pemeriksaan

Sintak:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBTables;

type
Tfpemeriksaan = class(TForm)
edno_pasien: TEdit;
ednama: TEdit;
Eddokter: TEdit;
Edtgl_periksa: TEdit;
Edobat: TEdit;
Edbiaya_periksa: TEdit;
tbperiksa: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
btsimpan: TButton;
btbatal: TButton;
btcari: TButton;
btedit: TButton;
bthapus: TButton;
btexit: TButton;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure btsimpanClick(Sender: TObject);
procedure btbatalClick(Sender: TObject);
procedure btcariClick(Sender: TObject);
procedure bteditClick(Sender: TObject);
procedure bthapusClick(Sender: TObject);
procedure btexitClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fpemeriksaan: Tfpemeriksaan;

implementation

{$R *.dfm}

procedure Tfpemeriksaan.FormCreate(Sender: TObject);
begin
edno_pasien.Text:='';
ednama.Text:='';
edobat.Text:='';
eddokter.Text:='';
edbiaya_periksa.Text:='';
end;

procedure Tfpemeriksaan.btsimpanClick(Sender: TObject);
begin
Tbperiksa.Append;
Tbperiksa['No_pasien']:=edno_pasien.Text;
Tbperiksa['Nama_pasien']:=ednama.Text;
Tbperiksa['Nama_dokter']:=eddokter.Text;
Tbperiksa['Tgl_periksa']:=edtgl_periksa.Text;
Tbperiksa['Obat']:=edobat.Text;
Tbperiksa['Biaya_periksa']:=edbiaya_periksa.Text;
Tbperiksa.Post;
Tbperiksa.ApplyUpdates;
Tbperiksa.Active:=false;
Tbperiksa.Active:=true;
ShowMessage('Data Telah Tersimpan');
FormCreate(sender);
edno_pasien.SetFocus;
end;

procedure Tfpemeriksaan.btbatalClick(Sender: TObject);
begin
FormCreate(sender);
edno_pasien.SetFocus;
end;

procedure Tfpemeriksaan.btcariClick(Sender: TObject);
begin
if Tbperiksa.Locate('No_pasien',edno_pasien.Text,[LocaseInsensitive]) then
begin
edno_pasien.Text:=Tbperiksa['No_pasien'];
ednama.Text:=Tbperiksa['Nama_pasien'];
eddokter.Text:=Tbperiksa['Nama_dokter'];
//edtgl_periksa.Text:=Tbperiksa['Tgl_periksa'];
edobat.Text:=Tbperiksa['Obat'];
edbiaya_periksa.Text:=Tbperiksa['Biaya_periksa'];
end
else
ShowMessage('Data Tidak Ditemukan');
end;

procedure Tfpemeriksaan.bteditClick(Sender: TObject);
begin
Tbperiksa.Edit;
Tbperiksa['No_pasien']:=edno_pasien.Text;
Tbperiksa['Nama_pasien']:=ednama.Text;
Tbperiksa['Nama_dokter']:=eddokter.Text;
//Tbperiksa['Tgl_periksa']:=edtgl_periksa.Text;
Tbperiksa['Obat']:=edobat.Text;
Tbperiksa['Biaya_periksa']:=edbiaya_periksa.Text;
Tbperiksa.Post;
Tbperiksa.ApplyUpdates;
Tbperiksa.Active:=false;
Tbperiksa.Active:=true;
ShowMessage('Data Telah Diubah');
FormCreate(sender);
edno_pasien.SetFocus;
end;

delphi nim calculating

Created with Delphi 7 by Avid/Kira
Nim calculating

Sintak:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
na: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
nh: TLabel;
IP: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
angka:integer;
bobot:integer;
begin
angka:=strtoint(na.text);
if((angka<=100)and(angka>=85))then
begin
bobot:=4;
nh.caption:='A';
end else
if((angka<=84)and(angka>=70))then
begin
bobot:=3;
nh.caption:='B';
end else
if((angka<=69)and(angka>=55))then
begin
bobot:=2;
nh.caption:='C';
end else
if((angka<=54)and(angka>=40))then
begin
bobot:=1;
nh.caption:='D';
end else
begin
bobot:=0;
nh.caption:='E';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var bobot:integer;
begin
IP.Caption:=floattostr(strtoint(edit4.text)*bobot);
end;

end.

delphi Simple minimarket accounting

Created with Delphi 7 by Avid/Kira
Simple minimarket accounting

Sintak:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Anggota: TCheckBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button1: TButton;
Edit2: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
jnsbrg: TComboBox;
hrgbrg: TEdit;
jmlbeli: TEdit;
Diskon: TLabel;
Bayar: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var tambah, potongan : real;
begin
if anggota.Checked then
tambah:=0.05
else
tambah:=0;

case jnsbrg.ItemIndex of
0 : potongan:=0.05;
1 : potongan:=0.1;
2 : potongan:=0.15;
end;

diskon.Caption:=floattostr((strtofloat(hrgbrg.Text)*
strtofloat(jmlbeli.Text)*potongan)+
(tambah*strtofloat(hrgbrg.Text)*strtofloat(jmlbeli.Text)));
bayar.Caption:=floattostr((strtofloat(hrgbrg.Text)*
StrTofloat(jmlbeli.Text))-
strtofloat(diskon.Caption));
end;

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

end.

delphi memo

Created with Delphi 7 by Avid/Kira

memo

Sintak:

unit Unit11;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    RadioGroup1: TRadioGroup;

    Memo1: TMemo;

    Label2: TLabel;

    ComboBox1: TComboBox;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 memo1.lines.add(edit1.text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 application.Terminate;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

 if (radiogroup1.ItemIndex=0) then

      form1.Color:=clnavy;

   if (radiogroup1.ItemIndex=1) then

      form1.Color:=clmoneygreen;

   if (radiogroup1.ItemIndex=2) then

      form1.Color:=clred;

   if (radiogroup1.ItemIndex=3) then

      form1.Color:=clgreen;

   if (radiogroup1.itemindex=4) then

      form1.Color:=clyellow;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

 case combobox1.ItemIndex of

      0 : form1.Font.Color:=clwhite;

      1 : form1.Font.Color:=clblue;

      2 : form1.Font.Color:=clblack;

      3 : form1.Font.Color:=clyellow;

      4 : form1.Font.Color:=clred;

   end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

 if CheckBox1.Checked then

      if CheckBox2.Checked then

         form1.Font.Style:=[fsitalic,fsbold]

      else

         form1.Font.Style:=[fsitalic]

   else

      if CheckBox2.Checked then

         form1.Font.Style:=[fsbold]

      else

         form1.Font.Style:=[];

end;

end.