�ݺ�ߣ

Lesson 1 – Tipe Data, Variable dan Operasi Aritmatika – http://kubaat.wordpress.com /les-komputer
Tipe Data, Variable dan Operasi Aritmatika
Aplikasi Luas Segitiga
procedure TForm1.bHitungClick(Sender: TObject);
var
alas, tinggi : Integer;
luas : real;
begin
alas := strtoint(txtalas.Text);
tinggi := strtoint(txttinggi.Text);
luas := 0.5 * alas * tinggi;
txtluas.Text := floattostr(luas);
end;
procedure TForm1.bKeluarClick(Sender: TObject);
var
jawab : integer;
begin
// Keluar Message Box (Pesan saat tombol keluar diklik) Jika Yes maka Close;
jawab := MessageDlg('Anda Yakin Ingin Keluar .. ?', mtConfirmation,
[mbYes, mbNo], 0);
if jawab = mrYes then
Close;
end;
Deklarasi Variable
Var
Nilai : Integer;
Nama : String[100];
Huruf : char;
Tipe Data
Integer
String
Char
Boolean
Long
Real
Konversi Tipe Data
Inttostr();
Strtoint();
Floattoint();
Inttofloat();
Floattostr();
Strtofloar();

Lesson 1 – Tipe Data, Variable dan Operasi Aritmatika – http://kubaat.wordpress.com /les-komputer
Aplikasi Kelulusan
procedure TForm1.bProsesClick(Sender: TObject);
var
nilai : integer;
begin
nilai := strtoint(txtnilai.Text);
if nilai > 65 then
txtket.Text := 'Lulus'
else
txtket.Text := 'Tidak Lulus';
end;
procedure TForm1.bKeluarClick(Sender: TObject);
var
jawab : integer;
begin
jawab := MessageDlg('Anda Yakin Ingin Keluar.. ?', mtConfirmation,
[mbYes, mbNo], 0);
if jawab = mrYes then
Close;
end;

�ݺ�ߣ

Delphi1

More Related Content

Delphi1