kali ini adalah sebuah project menghitung tahun kabisat berjumlah berapa dalam beberapa data tahun yang sudah di masukkan.
PROJECT TAHUN KABISAT
setelah itu masukkanlah scriptnya (listing program) supaya berjalan dengan baik, yaitu:
unit kabisat;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
data: TListBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label3: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit1: TEdit;
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.Button1Click(Sender: TObject);
var
i,a:integer;
s:string;
nilai:array[1..10] of string;
kabisat:integer;
begin
s:=inputbox('input data','MASUKKAN JUMLAH DATA:','0');
kabisat:=0;
for i:=1 to strtoint(s) do
begin
nilai[i]:=inputbox('DATA:'+inttostr(i),'TAHUN','');
data.Items.Add(nilai[i]);
edit1.Text:=inttostr(data.Items.count);
a:=strtoint(nilai[i]);
if((strtoint(nilai[i])mod 4)=0) then
begin
kabisat:=kabisat+1;
end;
end;
edit2.Text:=inttostr(kabisat);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
data.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
data: TListBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label3: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit1: TEdit;
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.Button1Click(Sender: TObject);
var
i,a:integer;
s:string;
nilai:array[1..10] of string;
kabisat:integer;
begin
s:=inputbox('input data','MASUKKAN JUMLAH DATA:','0');
kabisat:=0;
for i:=1 to strtoint(s) do
begin
nilai[i]:=inputbox('DATA:'+inttostr(i),'TAHUN','');
data.Items.Add(nilai[i]);
edit1.Text:=inttostr(data.Items.count);
a:=strtoint(nilai[i]);
if((strtoint(nilai[i])mod 4)=0) then
begin
kabisat:=kabisat+1;
end;
end;
edit2.Text:=inttostr(kabisat);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
data.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
dengan begitu selesailah project di atas dan siap di jalankan sebagai contoh di bawah ini:
b. ikuti perintah-perintah di atas/ isikan data-data sesuai perintah kemudian akan terlihat hasilnya:
a. jika kita memulainya dengan tekan button "input" maka akan keluar sebuah perintah:
dan suatu perintah:b. ikuti perintah-perintah di atas/ isikan data-data sesuai perintah kemudian akan terlihat hasilnya:
0 komentar:
Posting Komentar