kali ini saya ingin membuat "Program Pangkat"hehhehehe maklum masih Newbie,langsung aja gak perlu panjang banget mukadimahnya..cikidot..Ni hasil gambar dari programnya
Sebelum membuat Programnya so pasti buka dulu DELPHI 7,.
kemudian letakkan
Objek | Properti | Nilai |
Form 1 | Caption | Program pangkat |
Label 1 | Caption | Nilai |
Label 2 | Caption | Hasil Pangkat |
Edit 1 | Name | edNilai |
Text | ||
Edit 2 | Name | edHasil |
Text | ||
RadioGrup1 | ||
Name | RD | |
Items | Pangkat 2 Pangkat 3 Pangkat 4 Pangkat 5 | |
Button 1 | Caption | Proses |
Lalu masukkan code di bawah ini :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
RD: TRadioGroup;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : integer;
begin
a := Strtoint( edit1.Text);
if RD.ItemIndex = 0 then
edit2.Text := inttostr( a*a)
else if RD.ItemIndex = 1 then
EDIT2.Text := INTTOSTR (a*a*a)
else
if RD.ItemIndex = 2 then
Edit2.Text := inttostr( a*a*a*a )
else
edit2.Text := Inttostr (a*a*a*a*a);
end;
lalu RUN Programmmmmmmm
ini hasil nya
sekian dan terimakasih
semoga bergunaaaa !!!
