Hallo.. :D
Lalu kembali ke Form lagi lalu Double Klick pada Button3 Yakni EXIT dan sisipkan script 'close;' seperti dibawah ini
Untuk mencobanya tekan F9 / Run (tampilan awal)
Sekian.. Wassalam :D
Kali ini saya mendapatkan tugas UAS Struktur Data dari Mr.Hedi Ruswanto nih, berikut laporannya ..
Jika anda pemakai Lazarus(opensource) silahkan dibuka, tapi kali iinni saya akan menggunakan
Jika anda pemakai Lazarus(opensource) silahkan dibuka, tapi kali iinni saya akan menggunakan
Borland Delphi 7. Baiklah, Buka programnya ---> lalu buat form seperti ini
Setelah itu double klick pada Button1 yakni Input, kemudian masukkan script berikut :
Atur Propertiesnya pada window Object Inspector seperti ini :
Name
|
Properties
|
Keterangan
|
Form1
|
Caption
|
ACHMAD MAULANA BAEHAQI (112222005)
|
Button1
|
Caption
|
INPUT
|
Button2
|
Caption
|
CLEAR
|
Button3
|
Caption
|
EXIT
|
Label1
|
Caption
|
DATA TAHUN
|
Label2
|
Caption
|
JUMLAH DATA
|
Label3
|
Caption
|
JUMLAH TAHUN KABISAT
|
Label4
|
Caption
| |
Edit1
|
Text
|
kosongi
|
Edit2
|
Text
|
Kosongi
|
ListBox1
|
-
|
-
|
Setelah itu double klick pada Button1 yakni Input, kemudian masukkan script berikut :
var
x,a,t: integer;
tahun: array[1..10] of string;
s: string;
begin
s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','0');
t:=0;
for x:=1 to strtoint(s) do
begin
tahun[x]:=inputbox('Tahun Ke : '+inttostr(x),'Masukkan Tahun','');
ListBox1.Items.Add(tahun[x]);
edit1.Text:=inttostr(ListBox1.Items.Count);
a:=strtoint(tahun[x]);
if a mod 4=0
then t:=t+1
else t:=t+0;
edit2.Text:=inttostr(t);
end;
end;
Kembali ke Form lalu Double Klick pada Button2 yakni CLEAR sisipkan Script ini untuk
perintah menghapus pada Edit1 dan 2. pastikan seperti ini
procedure TForm1.BTClearClick(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;
Lalu kembali ke Form lagi lalu Double Klick pada Button3 Yakni EXIT dan sisipkan script 'close;' seperti dibawah ini
procedure TForm1.BTKeluarClick(Sender: TObject);
begin
close;
end;
Untuk mencobanya tekan F9 / Run (tampilan awal)
Tekan tombol INPUT untuk memasukkan data.. Masukkan jumlah data yang akan diinputkan (n-->banyaknya data)
Kemudian Masukkan data mulai dari tahun ke :1 hingga jumlah tahun banyaknya data yang anda masukkan.
keterangan :
· Var digunakan untuk Mendefinisikan sebuah variable
· Begin untuk memulai suatu penulisan script program
· Integer untuk mendefinisikan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan (range -1024 sampai 32767)
· StrToInt digunakan untuk merubah tipe data string ke tipe data integer.
· IntToStr untuk merubah tipe data integer ke tipe data string.
· Caption untuk Membuat caption pada table
· End; untuk mengakhiri sebuah script namun masih ada lanjutannya
· End. Untuk mengakhiri sebuah script
· If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi
· Array adalah untuk tipe data bentukan yang merupakan wadah untuk menampung nilai2 data yang sejenis
· String disini digunakan untuk data bentukan yang membentuk suatu kata atau satu kalimat yang diapit oleh dua tanda kutip
· Mod perintah untuk menghitung hasil sisa bagi
· Listbox digunakan untuk menampilkan hasil inputan
Bagikan
Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data
4/
5
Oleh
Hanya Catatan Pribadi