Latihan 4. Pemrograman Delphi

 

 

 

 

 

 

 

 

Kodingnya adalah :

var
 Form1: TForm1;
awal : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,Jumtran : integer;
begin
if  combobox1.Text = 'Kredit' then
begin
 Jumtran:=strtoint(edit3.text) + awal;
 StringGrid1.Cells [4,StringGrid1.Rowcount]:=inttostr(jumTran) ;
end
else if combobox1.Text = 'Debet' then
begin
 if awal < strtoint(edit3.text) then
 begin
 Application.MessageBox('Maaf Jumlah simpanan tidak mencukupi','Cek Input');
 edit3.Text :='';
 edit3.SetFocus ;
 exit;
 end
 else
 begin
 Jumtran:=awal - strtoint(edit3.text)  ;
 StringGrid1.Cells [4,StringGrid1.Rowcount]:=inttostr(jumTran) ;
 end;
end;
StringGrid1.Cells [1,StringGrid1.RowCount]:=combobox1.Text;
StringGrid1.Cells [2,StringGrid1.rowcount]:=maskedit1.Text;
StringGrid1.Cells [3,StringGrid1.rowcount]:=edit3.Text;

for i := 0 to StringGrid1.RowCount do
begin
StringGrid1.Cells [0,i+1] := inttostr(i+1);
end;
awal := strtoint(StringGrid1.Cells[4,StringGrid1.Rowcount]);
StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
awal:= 0;
edit3.Text :='0';
maskedit1.Text :=datetostr(date());
StringGrid1.Cells[0,0] := 'No';
StringGrid1.Cells[1,0] := 'Jenis';
StringGrid1.Cells[2,0] := 'Tanggal';
StringGrid1.Cells[3,0] := 'Jumlah Transaksi';
StringGrid1.Cells[4,0] := 'Saldo';
end;

end.

Materi yang berhubungan :

Latihan 1.Pemrograman Delphi

Latihan 2. Pemrograman Delphi

Latihan 3. Pemrograman Delphi

Latihan 4. Pemrograman Delphi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: