program tahun kabisat

procedure TForm1.BTInputClick(Sender: TObject);
var
i,a,t: integer;
tahun: array[1..10] of string;
s: string;
begin
  s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','0');
  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.BTClearClick(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;


procedure TForm1.BTKeluarClick(Sender: TObject);
begin
close;
end;

igin kembali kepada dirimu

Pernah ku coba untuk mengerti
Tapi tak pernah ada tanda di hati
Sampai kau pamit hari itu

Dan bila kini kau telah pergi
Ada yang hilang dari diriku
Dan bila harus kau tetap di sana
Tolong ingat aku
Pernah ku minta untuk bertemu
Dan ingin tanya masihkah ada waktu
Biar ku coba sekali lagi
Dan bila mungkin kau kembali
Ada harapan menanti kita
Tapi bila harus kau tetap di sana
Mungkin kau perlu tahu
Beratnya beban kehilangan dirimu
Terluka dan kecewa
Pernah ku coba untuk mengerti

penyesalan diri ku

qw mexesal setelah kou bilang gtu...
kemaren" qw cemburu buta k qm....

qw bodoh telah menyia"kan diri qm....
qw emang gak pernah berterimakasih k qm....

qw menyesal....
qw pengen nunnjukin k qm klau qw bsa berubah....
qw bisa berubah.....

:( :( :(

qw pengen berubah.......

Latihan 3 membuat function berpangkat

1. install program bornland delphi
2. buka program delphi kita
3. kemudian pilih form, lalu buat form seperti dibawah ini

4. ketikkan scrip dibawah ini

Keterangan :

·         Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·         Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         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 scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·         Begin untuk memulai suatu penulisan scrip pada program

·         String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value

·         While I do untuk struktur pengulangan dimana selama kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan.

·         INTTOSTR untuk merubah tipe data integer ke tipe data string.

·         Pangkat1 untuk memasukkan ke integer ke pangkat1

·         Pangkat2 untuk memasukkan ke integer ke pangkat2

·         Pangkat3 untuk memasukkan ke integer ke pangkat3

·         Pangkat4 untuk memasukkan ke integer ke pangkat4

5. tekan f9 untuk mencoba program

Latihan 1 Membuat form gaji tunjangan

1. install program bornland delphi
2. buka program delphi kita
3. kemudian pilih form, lalu buat form seperti dibawah ini

4. kemudian ketikkan scrip dibawah

Keterangan :

·     Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·     Integer untuk merubah gaji,tot,tunjang menjadi tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         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 scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·        If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

·         Begin untuk memulai suatu penulisan scrip programa

5.  tekan f9 untuk mencobanya

Latihan 2 membuat procedure berpangkat

1. buka program delphi kita
2. kemudian pilih form, lalu buat form seperti dibawah ini

3. lalu ketikkan scrip dibawah ini

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    ForToDo: TButton;

    ForDowntoDo: TButton;

    WhileDo: TButton;

    RepeatUntil: TButton;

    btkeluar: TButton;

    btpangkat: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    procedure btkeluarClick(Sender: TObject);

    procedure ForToDoClick(Sender: TObject);

    procedure ForDowntoDoClick(Sender: TObject);

    procedure WhileDoClick(Sender: TObject);

    procedure RepeatUntilClick(Sender: TObject);

    procedure btpangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btkeluarClick(Sender: TObject);

begin

 close;

end;

procedure TForm1.ForToDoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=1 to 10 do

 begin

  b:=b+inttostr(j)+'';

  j:=j+2;

 end;

 label1.Caption:=b;

end;

procedure TForm1.ForDowntoDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=10 downto 1 do

 begin

  b:=b+inttostr(i)+'';

  j:=j+2;

 end;

 label2.Caption:=b;

end;

procedure TForm1.WhileDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 while i<=10 do

 begin

  b:=b+inttostr(i)+'';

  i:=i+1;

 end;

 label3.Caption:=b;

end;

procedure TForm1.RepeatUntilClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 repeat

  b:=b+inttostr(i)+'';

  i:=i+1;

 until i>10;

 label4.Caption:=b;

end;

procedure TForm1.btpangkatClick(Sender: TObject);

var

 bil,hasil,pangkat,a:integer;

begin

 bil:=strtoint(edit1.Text);

 hasil:=bil;

 pangkat:=strtoint(edit2.Text);

 if edit2.Text='0' then edit3.Text:='1' else

 if edit2.Text='1' then edit3.Text:=edit1.Text

 else

  begin

   for a:=2 to pangkat do

    hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);

  end;

end;

end.

Keterangan :

·         Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·         Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         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 scrip namun masih ada lanjutannya

·         End. Untuk mengakhiri sebuah scrip

·         Begin untuk memulai suatu penulisan scrip pada program

·    String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value

·         If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

·   For todo untuk membuat perulangan angka berurutan atau merupakan struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacah pengulangan atau for variable := nilai_awal to nilai_akhir do pernyataan

·         For downto do for variable := nilai_awal downto nilai_akhir do pernyataan

·         While do memasukan fungsi pada awal program

·         Repeat until untuk membuat program menjadi perulangan  atau struktur pengulangan dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti terpenuhi.

·         While I do struktur pengulangan dimana selama kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan.

4. tekan f9 untuk mencoba program