BAHAS DELPHI DISINI..

BWT TUGAS ATOW APAPUN TTG DELPHI BAHASNYE DISINI AJE YEE BANGG..

JGN DI COPY PASTE TP DI EDIT SEBISA MUNGKIN.. INTINYA JGN AMPE KETWAN, BISA KASUS NTAR KLO AMPE KETWAN, SOALNYA NI LAPORAN AKHIR GW HEHEHEHE

FORM 1 PINDAH KE FORM 2 DENGAN TULISAN YG SAMA DI FORM 1 :


Code :


FORM 2 NYA :


Code :


Calculator :


Code :
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,h : integer;
begin
n1 := Strtoint (edit1.text);
n2 := strtoint (edit2.Text);
h := n1+n2;
edit3.Text := IntToStr (h);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
n1,n2,h : integer;
begin
n1 := Strtoint (edit1.text);
n2 := strtoint (edit2.Text);
h := n1-n2;
edit3.Text := IntToStr (h);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
n1,n2,h : integer;
begin
n1 := Strtoint (edit1.text);
n2 := strtoint (edit2.Text);
h := n1*n2;
edit3.Text := IntToStr (h);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
n1,n2,h : real;
begin
n1 := Strtofloat (edit1.text);
n2 := strtofloat (edit2.Text);
h := n1/n2;
edit3.Text := floatToStr (h);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
edit3.Clear;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
application.terminate;
end;
end.

INGAT..!!! NO COPY PASTE.. CUKUP DI NGERTIIN TRZ BKIN SENDIRI.. KLO JAGO EDITING GPP DI EDIT ASAL GAK KE TAUAN..!!

LUAS KELILING LINGKARAN
BENTUK FORM 1 & FORM 2 NYA :



CODE :
procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);
const
phi = 3.14;
var
r : integer;
l,k : real;
begin
if key = #13 then begin
r := StrToInt (edit1.Text);
l := phi*r*r;
k := 2*phi*r;
edit2.Text := FloatToStr (l);
edit3.Text := FloatToStr (k);
edit3.setfocus;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Hide;
form2.Show;
form2.label1.caption := form1.label1.caption;
form2.label1.font := form1.label1.font;
form2.label2.caption := 'Phi :';
form2.label3.caption := form1.label2.caption;
form2.label3.font := form1.label2.font;
form2.label4.caption := form1.label3.caption;
form2.label4.font := form1.label3.font;
form2.label5.caption := form1.Edit1.Text;
form2.label6.caption := form1.Edit2.Text;
form2.label7.caption := '3.14';
form2.label8.caption := form1.Edit3.Text;
end;

end.

CATATAN :
SUPAYA BISA PKE KODE ASCII ENTER MUSTI DI KASIH EVENT DLU DI OBJECT INSPECTOR NYA (KLO DI VB PROPERTIES NYA) KLIK DI EDIT1.TEXTNYA TRZ LIAT OBJECT INSPECTORNYA KYK GINI..



YG EVENT ONCHANGE NYA AWALNYA KAN EDIT1CHANGE, ITU DI APUS AJA..
TRZ KETIK EDIT1KEYPRESS DI TAB KEYPRESS NYA.. KLO MW EDIT2 YG BISA DI ENTER BRARTI GANTI JADI EDIT2KEYPRESS..


SEKIAN DAN TERIMA KASIH.. INGAT !! NO COPY-PASTE..!!
SEPERTI BIASA, KLO MSH ADA YG BLM JELAS SILAHKAN TANYA..