Minggu, 07 April 2013
Sabtu, 16 Maret 2013
Belajar Delphi Yuuuuuup
Belajar Delphi Yuuuup...............?
A.
1.Pengertian Delphi
Delphi adalah suatu bahasa pemograman
(Develepment Laguage) yang di gunakan untuk merancang suatu aplikasi program.
2. Mari kita membuat program kalkulator
melalui bahasa pemograman delphi.
Gambar 2.1 Desain Form
3. Desain Properties
|
4.
Listing program
>>
Untuk Penjumlahan
procedure
TForm1.Button3Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;
>>
Untuk Pengurangan
procedure
TForm1.Button4Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));
end;
>>Untuk
Perkalian
procedure
TForm1.Button5Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
end;
>>
Untuk Pembagian
procedure
TForm1.Button6Click(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
end;
>>
Untuk Div
procedure
TForm1.Button7Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)div
StrToInt(Edit2.Text));
end;
>>
Untuk Mod
procedure
TForm1.Button8Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)mod
StrToInt(Edit2.Text));
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit1.SetFocus;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Keterangan:
Untuk
Pembagian kita pakai Floattostr karena hasil nya nol koma.
Selamat
Mencoba nya.................!
Belajar Delphi Yuuuuuup
Belajar Delphi Yuuuup...............?
A.
1.Pengertian Delphi
Delphi adalah suatu bahasa pemograman
(Develepment Laguage) yang di gunakan untuk merancang suatu aplikasi program.
2. Mari kita membuat program kalkulator
melalui bahasa pemograman delphi.
Gambar 2.1 Desain Form
3. Desain Properties
|
4.
Listing program
>>
Untuk Penjumlahan
procedure
TForm1.Button3Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;
>>
Untuk Pengurangan
procedure
TForm1.Button4Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));
end;
>>Untuk
Perkalian
procedure
TForm1.Button5Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
end;
>>
Untuk Pembagian
procedure
TForm1.Button6Click(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
end;
>>
Untuk Div
procedure
TForm1.Button7Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)div
StrToInt(Edit2.Text));
end;
>>
Untuk Mod
procedure
TForm1.Button8Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)mod
StrToInt(Edit2.Text));
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit1.SetFocus;
end;
Untuk keluar dari program.
procedure
TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Keterangan:
Untuk
Pembagian kita pakai Floattostr karena hasil nya nol koma.
Selamat
Mencoba nya.................!
Langganan:
Postingan (Atom)