belajar delphi 7

belajar delphi 7

03/11/2011

menampilkan tanggal dan jam otomatis
procedure TForm1.FormActivate(Sender: TObject);
begin
edit3.Text:=timetostr(time);
edit4.Text:=datetostr(date);
end;

penjumlahan (menggunakan variabel)
procedure TForm1.tambahClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a+b;
edit3.text:=floattostr(c);
end;

penjumlahan (tanpa variabel/langsung)
procedure TForm1.tambahClick(Sender: TObject);
begin
edit3.Text:=floattostr((strtofloat(edit1.Text))+(strtofloat(edit2.Text)));
end;

percabangan (if) tunggal
if kondisi then
….
procedure TForm1.bhitungClick(Sender: TObject);
begin
if strtoint(edit1.Text)>=70 then
edit2.Text:=’LULUS’;
end;

percabangan (if) majemuk
if kondisi1 then
pernyataan1
else
if kondisi2 then
pernyataan2
else
pernyataan3;

procedure TForm2.hitungClick(Sender: TObject);
begin
if strtoint(edit1.Text)>=70 then
edit2.Text:=’GRADE “A”‘
else
if strtoint(edit1.Text)>=50 then
edit2.Text:=’GRADE “B”‘
else
edit2.Text:=’GRADE “C”‘;
end;

menambahkan item pada combobox & listbox
1. properties
2. Items TString

MI
KA
TK
manajemen
akuntansi
teknik

atau
procedure TForm2.FormActivate(Sender: TObject);
begin
ComboBox1.Items.Add(‘MI’);
ComboBox1.Items.Add(‘KA’);
ComboBox1.Items.Add(‘TK’);
ListBox1.Items.Add(‘manajemen’);
ListBox1.Items.Add(‘akuntansi’);
ListBox1.Items.Add(‘teknik’);
end;

operasi string
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if copy(ComboBox1.Text,1,1)=’C’ then
edit1.Text:=’celana’
else
if copy(ComboBox1.Text,1,1)=’B’ then
edit1.Text:=’baju’;
begin
if copy(ComboBox1.Text,2,1)=’D’ then
edit2.Text:=’dewasa’
else
if copy(ComboBox1.Text,2,1)=’A’ then
edit2.Text:=’anak’;
begin
if copy(ComboBox1.Text,4,1)=’1′ then
edit3.Text:=’40000′
else
if copy(ComboBox1.Text,4,1)=’2′ then
edit3.Text:=’65000′;
end;
end;
end;

perulangan / looping
procedure TForm1.fortodoClick(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
edit1.SelText:=inttostr(i);
end;

procedure TForm1.fordowntoClick(Sender: TObject);
var i:integer;
begin
for i:=5 downto 1 do
edit2.SelText:=inttostr(i);
end;

procedure TForm1.whiledoClick(Sender: TObject);
var i:integer;
begin
i:=0;
while i < 5 do
begin
edit3.SelText:=inttostr(i);
i:=i+1;
end;
end;

procedure TForm1.repeatuntilClick(Sender: TObject);
var i:integer;
begin
i:=1;
repeat
i:=i+2;
edit4.SelText:=inttostr(i);
until i=15;
end;

procedure TForm1.prosesClick(Sender: TObject);
var
inputnama,inputharga:string;
i,j:integer;
harga:real;
begin
harga:=0;
j:=0;
j:=strtoint(edit1.Text);
if j<=0 then

begin
showmessage('data tidak boleh lebih kecil dari 0');
exit;
end
else
begin
for i:=1 to j do
• begin
  inputnama:=inputbox('input','ketikkan nama barang','');
  inputharga:=inputbox('input','ketikkan harga barang','');
  listbox1.Items.Add(inputnama);
  listbox2.Items.Add(inputharga);
  harga:=harga+strtofloat(inputharga);
  end;
end;

edit2.Text:=floattostr(harga);
end;

array
var
Form1: TForm1;
menumakanan:array[1..10]of string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
menumakanan[1]:=’pecel’;
menumakanan[2]:=’gandul’;
menumakanan[3]:=’rawon’;
menumakanan[4]:=’gudeg’;
end;

procedure TForm1.FormActivate(Sender: TObject);
var i:integer;
begin
for i:=1 to 10 do
listbox1.Items.Append(menumakanan[i]);
end;

fungsi case
procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
case listbox1.ItemIndex of
0:edit3.Text:=’5000′;
1:edit3.Text:=’6000′;
2:edit3.Text:=’7000′;
3:edit3.Text:=’8000′;
end;
end;

tombol keluar dengan messagebox
procedure TForm1.keluarClick(Sender: TObject);
begin
if (application.messagebox(‘yakin mau keluar’,’info’,mb_yesno)=idyes)then
close;
end;