my best friends

teman adalah segalanya

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

Objec Nama Caption Label1 Label 1 Program Kalkulator Label2 Label2 Nilai1 Label3 Label3 Nilai2 Label4 Label4 Hasil Edit1 Edit1 - Edit2 Edit2 - Edit3 Edit3 - Botton1 Botton1 Clear Botton2 Botton2 Close Botton3 Botton3 Tambah (+) Botton4 Botton4 Kurangi (-) Botton5 Botton5 Perkalaian (*) Botton6 Botton6 Pembagian (/) Botton7 Botton7 Div Botton8 Botton8 Mod

                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

Objec Nama Caption Label1 Label 1 Program Kalkulator Label2 Label2 Nilai1 Label3 Label3 Nilai2 Label4 Label4 Hasil Edit1 Edit1 - Edit2 Edit2 - Edit3 Edit3 - Botton1 Botton1 Clear Botton2 Botton2 Close Botton3 Botton3 Tambah (+) Botton4 Botton4 Kurangi (-) Botton5 Botton5 Perkalaian (*) Botton6 Botton6 Pembagian (/) Botton7 Botton7 Div Botton8 Botton8 Mod

                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.................!