Baru satu bulan terakhir ini saya diperkenalkan dengan yang namanya pemrograman berorientasi objek. Dan akhirnya saya bisa juga bikin sebuah aplikasi murni olahan tangan saya sendiri, tapi jangan dicela karena aplikasi ini SSS (Sangat Sederhana Sekali. Aplikasi ini berupa kalkulator sederhana dan berikut listing programnya:...
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;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
bil1, bil2, hasil : Real;
implementation
{$R *.dfm}
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text := '0';
Edit2.text := '0';
Edit3.text := '0';
end;
end.
Bikin Aplikasi SSS (Sangat Sederhana Sekali) dengan Delphi
Label: Belajar Delphi
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar