- Beranda
- Komunitas
- Tech
- Programmer Forum
Pembuatan Form Nama dan NPM (Delphi Newbie)
TS
2easy4bosq
Pembuatan Form Nama dan NPM (Delphi Newbie)
Pembuatan Form Nama dan NPM
Sebelumnya thanks buat forum
yang udah ngasih tempat buat share" dan belajar buat para Newbie kaya ane, dan ini thread ke 1 dari ane semoga bermanfaat 
bahan" yang di perluin :
1. Colokan listrik
2. Laptop
3. Kopi
4. Music
5. Doa
Yang bener" di butuhin :
1. Delphi 7 (yang ane pake, terserah mau versi brp juga yg penting ngerti)
Nama | caption | Keterangan
Label 1 | label1 | Nama : | Diatur ukuran font 14 jenis font Tempus Sains ITC
Label 2 | label2 | NPM : | Diatur ukuran font 14 jenis font Tempus Sains ITC
Button 1 | button1 | OK | Dikasih Skrip
Edit 1 | edit1 | Dikosongkan | Tidak dirubah
Edit 2 | edit2 | Dikosongkan | Tidak dirubah
Panel 1 | panel1 | LIST | Tidak dirubah
Jadi scriptnya di masukin du button 1 / caption OK, di klik 2x nanti masukin scriptnya di situ :
Setelah beres coba di Runing tekan F9, semoga ga ada yang error, dan kalo berhasil begini hasilnya :
100% buatan sendiri walaupun simple dan kacangan
Sebelumnya thanks buat forum
yang udah ngasih tempat buat share" dan belajar buat para Newbie kaya ane, dan ini thread ke 1 dari ane semoga bermanfaat bahan" yang di perluin :
1. Colokan listrik
2. Laptop
3. Kopi
4. Music
5. Doa
Yang bener" di butuhin :
1. Delphi 7 (yang ane pake, terserah mau versi brp juga yg penting ngerti)
Nama | caption | Keterangan
Label 1 | label1 | Nama : | Diatur ukuran font 14 jenis font Tempus Sains ITC
Label 2 | label2 | NPM : | Diatur ukuran font 14 jenis font Tempus Sains ITC
Button 1 | button1 | OK | Dikasih Skrip
Edit 1 | edit1 | Dikosongkan | Tidak dirubah
Edit 2 | edit2 | Dikosongkan | Tidak dirubah
Panel 1 | panel1 | LIST | Tidak dirubah
Jadi scriptnya di masukin du button 1 / caption OK, di klik 2x nanti masukin scriptnya di situ :
Spoiler for Listing Progam:
unit TugasLA;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
panel1.Caption:=(Edit1.Text+ ' ' +Edit2.Text);
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
panel1.Caption:=(Edit1.Text+ ' ' +Edit2.Text);
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
end;
end.
Spoiler for (contoh coding) ::
Setelah beres coba di Runing tekan F9, semoga ga ada yang error, dan kalo berhasil begini hasilnya :
Spoiler for Output Program ::
100% buatan sendiri walaupun simple dan kacangan
Diubah oleh 2easy4bosq 09-04-2013 13:40
0
1.5K
13
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan