Beranda » Pemrograman » Membuat Program Perkalian & Penjumlahan for Delphi7

Membuat Program Perkalian & Penjumlahan for Delphi7

Start here

assalamu alaikum wr.wb
coret2 dikit dulu batu kita buat listing program perkalian & penjumlahan ..
mungkin kita sudah tau bahwa apa itu delhpi ?? tapi sy akan ulang kembali bahwa DELPHI adalah merupakan salah satu bahasa pemrograman tingkat tinggi berbasis windows.Delphi di golongkan kedalam bahasa pemrograman visual.

ok kita buat listing pogram penjumlahan & perkalian..

ini lansung listingnya aja ya Form2 kita design sendiri okey….

unit vim-n4n0;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, XPMan;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,kolom,baris :integer;
begin
for kolom:=1 to 10 do
StringGrid1.Cells[kolom,0] := IntToStr(kolom);

for baris:=1 to 10 do
StringGrid1.Cells[0,baris] := IntToStr(baris);

end;

procedure TForm1.Button1Click(Sender: TObject);
var kolom,baris:integer;
begin
StringGrid1.Cells [0,0]:=’ + ‘;

for kolom :=1 to 10 do
for baris := 1 to 10 do
StringGrid1.Cells [kolom,baris]:= IntToStr(kolom+baris);

end;

procedure TForm1.Button2Click(Sender: TObject);
var kolom,baris:integer;
begin
StringGrid1.Cells [0,0]:=’ * ‘;

for kolom :=1 to 10 do
for baris := 1 to 10 do
StringGrid1.Cells [kolom,baris]:= IntToStr(kolom*baris);

end;

end.

program ini sy buat karena tugas yg di berikan guru TK sy adalah membuat program perkalian & penjumlahan
hehehehehe

smoga berhasil ya GOODLUCK…!!!


Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s