contoh program delphi 7

kali ini saya akan memberikan contoh program dari kuliah saya yang saya ikuti hari ini dengan program ini saya mendapatkan nilai A dari dosen saya ae mungkin dengan program ini agan bisa menjadi programer yang handal dan berbakat ok...contoh gambar program saya

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BTNSIMPANClick(Sender: TObject);

begin

//butom simpan

edsnama.Text:=Ednama.Text;

edstempat.Text:=Edtempat.Text;

edstanggal.Text:=DateToStr(edtanggal.DateTime);

edsalamat.Text:=EDalamat.Text;

edshobby.Text:=Edhobby.Text;

edsagama.Text:=edagama.Text;

edspekerjaan.Text:=edpekerjaan.Text;

edsjurusan.Text:=CMBJURUSAN.Text;

edswaktukuliah.Text:=CMBWAKTU.Text;

edskegiatan.Text:=CMBKEGIATAN.Text;

end;

procedure TForm1.BTNBARUClick(Sender: TObject);

begin

// butom hapus

edsnama.Text:=' ';

edstempat.Text:=' ';

edstanggal.Text:=DateToStr(edtanggal.DateTime);

edsalamat.Text:=' ';

edshobby.Text:=' ';

edsagama.Text:=' ';

edspekerjaan.Text:=' ';

edsjurusan.Text:=' ';

edswaktukuliah.Text:=' ';

edskegiatan.Text:=' ';

Ednama.Text:=' ';

Edtempat.Text:=' ';

edstanggal.Text:=DateToStr(edtanggal.DateTime);

EDalamat.Text:=' ';

Edhobby.Text:=' ';

edagama.Text:=' ';

edpekerjaan.Text:=' ';

CMBJURUSAN.Text:=' ';

CMBWAKTU.Text:=' ';

CMBKEGIATAN.Text:=' ';

Ednama.SetFocus;

end;

procedure TForm1.BTNWARNA1Click(Sender: TObject);

begin

Form1.Color:=clYellow;

GroupBox1.Color:=clRed;

GroupBox3.Color:=clBlue;

end;

procedure TForm1.BTMKELUARClick(Sender: TObject);

begin

close;

end;

procedure TForm1.BTMWARNA2Click(Sender: TObject);

begin

Form1.Color:=clYellow;

GroupBox1.Color:=clGreen;

GroupBox3.Color:=clPurple;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label13.Left=-300 then Label13.Left:=800;

Label13.Left:=Label13.Left-1;

end;

Posted by Anonymous on - Rating: 4.5

Title : contoh program delphi 7
Description : kali ini saya akan memberikan contoh program dari kuliah saya yang saya ikuti hari ini dengan program ini saya mendapatkan nilai A dari dos...

Tweet Pin It