Program Sederhana Menghitung Jumlah Tahun Kabisat di Delphi / GUI
Tugas Ujian Semester Akhir pada semester II di STMIK Yadika Bangil
Ini adalah Program menghitung jumlah tahun kabisat, petunjuk jika angka tersebut (data
yang diimputkan) habis dibagi 4 maka tambahkan 1 pada variabel penambung data kabisat.
Berikut adalah langkah-langkahnya.
yang diimputkan) habis dibagi 4 maka tambahkan 1 pada variabel penambung data kabisat.
Berikut adalah langkah-langkahnya.
 |
| Desains Utama Program |
 |
| Object View |
Koding Program
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
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
i,a,t:integer;
tahun:array[1..10] of string;
s:string;
begin
s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','');
t:=0;
for i:=1 to strtoint(s) do
begin
tahun[i]:=inputbox('Tahun Ke : '+inttostr(i),'Masukkan Tahun','');
ListBox1.Items.Add(tahun[i]);
edit1.Text:=inttostr(ListBox1.Items.Count);
a:=strtoint(tahun[i]);
if a mod 4=0
then t:=t+1
else t:=t+0;
edit2.Text:=inttostr(t);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;
end.
Running Program
 |
| Masukkan Jumlah Tahun yang di Input |
 |
| Masukkan Tahun yang akan di proses |
 |
| Hasil Proses |
Oke itu tadi adalah program Menghitung Jumlah Tahun Kabisat di Delphi, semoga apa yang sudah saya posting ini bermanfaat.. Amin Amin
Nama : Mizan Sya' Roni (2B) NIM | 112222062 [STMIK YADIKA BANGIL]