Membuat program penjumlahan, pengurangan, perkalian, dan pembagian

Gambarnya blum di upload euy. sementara kodenya dulu :
Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.
Buat form seperti di bawah
Sourcecodenya sbb:

view sourceprint?

01	unit Unit1;

02

interface

03

04

uses

05	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

06	Dialogs, StdCtrls;

07

08

type

09	TForm1 = class(TForm)

10	Label1: TLabel;

11	Label2: TLabel;

12	Label3: TLabel;

13	Label4: TLabel;

14	Button1: TButton;

15	Button2: TButton;

16	Button3: TButton;

17	Button4: TButton;

18	Editbilangan1: TEdit;

19	Editbilangan2: TEdit;

20	Edithasil: TEdit;

21	procedure Button1Click(Sender: TObject);

22	procedure Button2Click(Sender: TObject);

23	procedure Button3Click(Sender: TObject);

24	procedure Button4Click(Sender: TObject);

25

private

26	{ Private declarations }

27

public

28	{ Public declarations }

29

end;

30

31

var

32	Form1: TForm1;

33	x,y,z : real;

34	implementation

35	{$R *.dfm}

36

37	procedure TForm1.Button1Click(Sender: TObject);

38

begin

39	x:= strtofloat (Editbilangan1.Text);

40	y:= strtofloat (Editbilangan2.Text);

41	z:= x + y;

42	Edithasil.Text := floattostr (z);

43

end;

44

45	procedure TForm1.Button2Click(Sender: TObject);

46

begin

47	x:= strtofloat (Editbilangan1.Text);

48	y:= strtofloat (Editbilangan2.Text);

49	z:= x - y;

50	Edithasil.Text := floattostr (z);

51

end;

52

53	procedure TForm1.Button3Click(Sender: TObject);

54

begin

55	x:= strtofloat (Editbilangan1.Text);

56	y:= strtofloat (Editbilangan2.Text);

57	z:= x * y;

58	Edithasil.Text := floattostr (z);

59

end;

60

61	procedure TForm1.Button4Click(Sender: TObject);

62

begin

63	x:= strtofloat (Editbilangan1.Text);

64	y:= strtofloat (Editbilangan2.Text);

65	z:= x / y;

66	Edithasil.Text := floattostr (z);

67

end;

68

end.

Hasilnya sebagai berikut :

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Membuat program penjumlahan, pengurangan, perkalian, dan pembagian ini dipublish oleh Unknown pada hari Sabtu, 08 Januari 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Membuat program penjumlahan, pengurangan, perkalian, dan pembagian