Arsip Blog

Jenis Message

1. mtWarning

clip_image002

Digunakan untuk menyampaikan peringatan. Apakah proses akan dilanjutkan atau tidak, dll.

2. mtError

clip_image004

Digunakan untuk menyampaikan pesan error, apakah proses akan dihentikan, dicoba lagi atau di abaikan. Dll.

3. mtInformation

clip_image006

Digunakan untuk menyampaikan suatu informasi

4. mtConfirmation

clip_image008

Digunakan untuk menyampaikan konfirmasi, apakah Ya, Tidak, Tidak untuk semuanya, atau Ya untuk semuanya. Dll.

5. mtCustom

clip_image010

Custom. Tergantung yang membuat

TmsgDlgType = mtWarning, mtError, mtInformation, mtConfirmation, mtCustom

TMsgDlgBtn = mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbYesToAll,mbNoToAll mbAll, mbHelp

Return values = mrNone, mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrYesToAll,mrNoToAll

Contoh penggunaan return values

procedure TForm1.Button1Click(Sender: TObject);

begin

if messagedlg(‘Tekan Yes or No’, mtinformation,[mbyes,mbno],0)= mryes then

form1.caption:=’Anda menekan tombol Yes’ else

form1.caption:=’Anda menekan tombol No’;

end;

clip_image012

Jika pilih Yes Jika pilih No

clip_image015
clip_image016

Program menghitung volume dan luas lingkaran

Buat Form seperti dibawah

vol

Listing Program :

unit Unit1;

interface

uses
Windows, Message0s, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
r,l,v : real;
begin
r:= strtofloat(edit1.Text);
v :=4/3 *3.14 * r * r * r;
l :=4 * 3.14 * r * r;
edit2.Text := floattostr (v);
edit3.Text := floattostr (l);
end;
end.

Tampilan ketika dijalankan :

volume2.jpg

Membuat program penjumlahan, pengurangan, perkalian, dan pembagian

Gambarnya blum di upload euy. sementara kodenya dulu :

#update 04des09# Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.

Buat form seperti di bawah

Sourcecodenya sbb:


unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Editbilangan1: TEdit;
Editbilangan2: TEdit;
Edithasil: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,y,z : real;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x + y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x - y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x * y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x / y;
Edithasil.Text := floattostr (z);
end;
end.

Hasilnya sebagai berikut :

%d blogger menyukai ini: