PROJECT MENGHITUNG TAHUN KABISAT

kali ini adalah sebuah project menghitung tahun kabisat berjumlah berapa dalam beberapa data tahun yang sudah di masukkan.

PROJECT TAHUN KABISAT

langkah pertama buatlah form untuk project tersebut. lihat form di bawah ini:

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.

dengan begitu selesailah project di atas dan siap di jalankan sebagai contoh di bawah ini:

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:

SEKIAN kawan-kawan untuk tugas kali ini! mau undur diri dulu y......