Program Delphi Tambah Kurang dan Nilai

Listing Program:

1.      Program Tambah Kurang

2.      Program Nilai

Logika Program:

1.      Program Tambah Kurang

procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

Prosedur pada Button1.Click itu untuk proses tambah dan sender mengirim perintah dari codingan yang diketik. Pada Button2.Click untuk proses pengurangan, dan Button3.Click untuk keluar dari program.

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:real;

begin

  a:=StrToFloat(Edit1.Text);

  b:=StrToFloat(Edit2.Text);

  c:=a+b;

  Edit3.Text:=FloatToStr(c);

end;

Prosedur form 1 untuk Button1 atau Tambah. Variable nya ada a, b, dan, c, dimana variable tersebut tipe datanya adalah real. Kemudian, variable a dan b mengubanh tipe data string ke dalam bentuk tipe data float. Dimana var a inputan dari Edit1, var b inputan dari Edit2, dan var c merupakan hasil dari a + b. Pada Edit3 mengubah dari tipe data float ke tipe data string dari inputan c.

procedure TForm1.Button2Click(Sender: TObject);

var a,b,c:real;

begin

  a:=StrToFloat(Edit1.Text);

  b:=StrToFloat(Edit2.Text);

  c:=a-b;

  Edit3.Text:=FloatToStr(c);

end;

Prosedur form 1 untuk Button2 atau Kurang. Variable nya ada a, b, dan, c, dimana variable tersebut tipe datanya adalah real. Kemudian, variable a dan b mengubanh tipe data string ke dalam bentuk tipe data float. Dimana var a inputan dari Edit1, var b inputan dari Edit2, dan var c merupakan hasil dari a - b. Pada Edit3 mengubah dari tipe data float ke tipe data string dari inputan c.

procedure TForm1.Button3Click(Sender: TObject);

begin

close

end;

end.

Prosedur form 1 untuk Button3 atau Exit. Untuk keluar dari programnya

2.      Program Nilai

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:real;

begin

  a:=StrToFloat(Edit3.Text);

  b:=StrToFloat(Edit4.Text);

  c:=(a+b)/2;

  Label6.Caption:='Hallo '+(Edit1.Text)+' Anda Kelas '+(Edit2.Text)+'Total Nilai Anda Adalah '+FloatToStr(c);

end;

Prosedur form 1 untuk Button1 atau Proses. Variabelnya adalah a, b, dan c. Dimana variable a dan b merubah dari tipe data string ke float. Dan c adalah hasil (a+b)/2. Kemudian label 6 menandakan hasilnya yaitu Halo + inputan dari edit1+ Anda Kelas+ inputan dari Edit2+ Total Nilai Anda Adalah+ hasil dari inputan c yang dari tipe data float diubah ke String.

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

end.

Prosedur form 1 untuk Button2 atau Exit. Untuk keluar dari program.

Output:

1.      Program Tambah Kurang       

  

2.      Program Nilai