Scribd
Upload
37 views

Tugas B

The document describes a Pascal program for a fish market application. It contains the code for a form with labels, edit boxes, radio buttons and buttons to select a fish type, quantity, price and calculate totals. The form code handles events for input, calculations and clearing the form.

Uploaded by

Didi Cahyadi
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
37 views

Tugas B

The document describes a Pascal program for a fish market application. It contains the code for a form with labels, edit boxes, radio buttons and buttons to select a fish type, quantity, price and calculate totals. The form code handles events for input, calculations and clearing the form.

Uploaded by

Didi Cahyadi
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 7

NAMA : Wahyu Utami KELAS : 12.4H.

12

NIM : 12098473 TIPE SOAL : Tugas B

1. Sebelum di running

2. Sesudah di running

3. Listing

unit iwak;

interface

uses

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


Dialogs, StdCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

Label5: TLabel;

Edit4: TEdit;

Edit5: TEdit;

GroupBox2: TGroupBox;

Label6: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label10: TLabel;
Button1: TButton;

Button2: TButton;

Button3: TButton;

Label11: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Label12: TLabel;

Label13: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Edit7Change(Sender: TObject);

procedure Edit10Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

dateseparator:='-';

shortdateformat:='mm/dd/yyyy';

edit4.Text:=datetostr(date);

edit5.Text:=timetostr(time);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if (application.MessageBox('Anda Yakin Akan Keluar','Informasi',MB_YesNo)=IDYes)then

close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

activate;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

radiobutton1.Checked:=false;

radiobutton2.Checked:=false;

radiobutton3.Checked:=false;
edit6.Text:='0';

edit7.Text:='0';

edit8.Text:='';

edit9.Text:='0';

edit10.Text:='0';

edit11.Text:='0';

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if edit2.Text= 'KA233' then

edit3.Text:='Kakap Merah'

else if edit2.Text= 'BR111' then

edit3.Text:='Barakuda'

else if edit3.Text= 'KP662' then

edit3.Text:='Kerapu'

else

edit3.Text:='';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if edit2.Text='KA233'then

edit6.Text:='50000'

else if edit2.Text='BR111' then

edit6.Text:='75000'
else if edit2.Text='60000' then

edit6.Text:='60000'

else

edit6.Text:='0';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if edit2.Text='KA233'then

edit6.Text:='70000'

else if edit2.Text='BR111' then

edit6.Text:='80000'

else if edit2.Text='60000' then

edit6.Text:='75000'

else

edit6.Text:='0';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if edit2.Text='KA233'then

edit6.Text:='100000'

else if edit2.Text='BR111' then

edit6.Text:='120000'

else if edit2.Text='60000' then

edit6.Text:='90000'

else
edit6.Text:='0';

end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

if edit7.Text > '10' then

edit8.Text:='Ikan Teri'

else

edit8.Text:='Tidak Ada';

edit9.Text:=floattostr(strtofloat(edit6.Text)*strtofloat(edit7.Text));

end;

procedure TForm1.Edit10Change(Sender: TObject);

begin

edit11.Text:=floattostr(strtofloat(edit10.Text)-strtofloat(edit9.Text));

end;

end.

You might also like