SINTAK DELPHI +, -, *, /

Arep belajar sintak penambahan, pengurangan, perkalian, dan pembagian....
baca n pelajari sintak dibawah ini....
" GOOD LUCK "

1. Klik dulu form lembaran kerja kemudian double click (klik dua kali) pada tombol tambah, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a+b;
output.text:=floattostr(c);
dan rumus untuk tombol tanda tambah sudah selesai

2. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol kurang, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a-b;
output.text:=floattostr(c);

3. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol kali, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a*b;
output.text:=floattostr(c);

4. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol bagi, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a/b;
output.text:=floattostr(c);

5. Kemudian saatnya pendeklarasian variabel yang digunakan yaitu variabel a,b dan c. Geser kursor ke atas sampai bertemu kode berikut:
var
Form1: TForm1;
Implementation

6. Kemudian ketikkan kode berikut antara Tform1; dengan Implementation.
Ini kodenya:
a,b,c:real;

7. Sehingga kodenya menjadi seperti berikut:
var
Form1: TForm1;
a,b,c:real;
implementation
Sekarang coba klik Run untuk menjalankan program dan silakan dicoba, seperti gambar berikut:


Berhasil sudah kita membuat suatu program sederhana dengan menggunakan Delphi, bagi teman-teman yang kurang mengerti dengan program yang satu ini, silakan langsung tanya ke sahabat, insya Allah jika sahabat bisa akan dibantu.

Jadi secara keseluruhan sintaks dari program ini adalah :

unit addition_and_multiplication;

interface

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

type
TForm1 = class(TForm)
input1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
input2: TEdit;
Label4: TLabel;
output: TEdit;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
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;
a,b,c:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a+b;
output.text:=floattostr(c);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtofloat(input1.Text);
b:=strtofloat(input2.text);
c:=a-b;
output.Text:=floattostr(c);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:=strtofloat(input1.Text);
b:=strtofloat(input2.Text);
c:=a*b;
output.Text:=floattostr(c);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a/b;
output.text:=floattostr(c);
end;

end.