Scribd
Upload
19 views5 pages

Tugas I Inter Face: Program Studi Teknik Listrik Jurusan Teknik Elektro Politeknik Negeri Ujung Pandang Makassar 2017

This document describes a program interface created by Edwar Dendy Vatrizah for a class assignment. The interface allows users to input product price and quantity, calculate the total price, and close the form. The program uses Delphi components like labels, edit boxes, and buttons to build the interface. It defines event handlers for the calculate and close buttons that perform the necessary calculations and close the form.

Uploaded by

nunung vatryzah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
19 views5 pages

Tugas I Inter Face: Program Studi Teknik Listrik Jurusan Teknik Elektro Politeknik Negeri Ujung Pandang Makassar 2017

This document describes a program interface created by Edwar Dendy Vatrizah for a class assignment. The interface allows users to input product price and quantity, calculate the total price, and close the form. The program uses Delphi components like labels, edit boxes, and buttons to build the interface. It defines event handlers for the calculate and close buttons that perform the necessary calculations and close the form.

Uploaded by

nunung vatryzah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

TUGAS I

Inter Face
SEMESTER GENAP 2016/2017

DIBUAT OLEH :

Edwar Dendy Vatrizah

321 15 062

2C. D3 TEKNIK LISTRIK

PROGRAM STUDI TEKNIK LISTRIK


JURUSAN TEKNIK ELEKTRO
POLITEKNIK NEGERI UJUNG PANDANG
MAKASSAR
2017
A. Formula Program

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button1: TButton;

Button2: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;
procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

harga,jumlah:real;

bayar:real;

begin

harga:=StrToFloat(edit2.Text);

jumlah:=StrToFloat(edit3.Text);

bayar:=harga*jumlah;

edit4.Text:=FloatToStr(bayar);
end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.
B. Output Program

1. Program Sebelum Nilai Dimasukkan

2. Program Setelah Nilai Dimasukkan dan Tombol Hitung Ditekan

You might also like