Kaskus

Entertainment

DhumbahabaaAvatar border
TS
Dhumbahabaa
[HELP] bantuin ane masalah pseudocode dong gan
Sebelumnya ma'af kalo emoticon-Salah Kamar
soalnya di forum computer stuff ga ada yang nanggepi sama sekali

ane bingung pseudocode yang bener dari script delphi ane ini gmana yah
mohon bantuan seikhlasnya dong gan
ane masih prencil di dunia IT

ini script nya gan

procedure TForm1.Button1Click(Sender: TObject);
var hrgbuku, hrgballpoin, jmlbuku, jmlballpoin, stbuku, stballpoin, grandtotal: real;
begin
hrgbuku :=StrToFloat(Label10.Caption);
hrgballpoin :=StrToFloat(Label11.Caption);
jmlbuku :=StrToFloat(Edit1.Text);
jmlballpoin :=StrToFloat(Edit2.Text);
stbuku :=hrgbuku * jmlbuku;
Edit3.Text :=FloatToStr(stbuku);
stballpoin :=hrgballpoin * jmlballpoin;
Edit4.Text :=FloatToStr(stballpoin);
grandtotal :=stbuku + stballpoin;
Edit5.Text :=FloatToStr(grandtotal);
end;

procedure TForm1.Button3Click(Sender: TObject);
var grandtotal, bayar, sisa: real;
begin
grandtotal :=StrToFloat(Edit5.Text);
bayar :=StrToFloat(Edit6.Text);
sisa :=bayar - grandtotal;
Edit7.Text :=FloatToStr(sisa);
end;

end.

trus gmana pseudocode nya yah gan..? emoticon-Bingung (S)
mohon bantuannya yah emoticon-Malu (S)
0
783
9
GuestAvatar border
Komentar yang asik ya
Urutan
Terbaru
Terlama
GuestAvatar border
Komentar yang asik ya
Komunitas Pilihan