Cara membuat showmessage
banyak item menggunakan delphi 2010
Oleh:
JOKO TURWANTO
NIM : 2011.15.458.0016
JURUSAN
TEKNIK INFORMATIKA
FAKULTAS
TEKNIK
UNIVERSITAS
WAHIDIYAH
Dalam pembuatan program kita kali ini
sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik
tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini
adapun cara penbuatan program showmessage banyak itemmenggunakan delphi 2010
antara lain yang pertama buka delphi 2010 kemudianbuat form baru dan masukan komponen kedalam form komponenya
adalah antara lain:
Nama
komponen
|
caption
|
nama
|
Tlabel1
|
Nama
|
Label1
|
Tlabel2
|
Alamat
|
Label2
|
Tlabel3
|
Tanggal
Lahir
|
Label3
|
Tlabel4
|
Jenis
Kelamin
|
Label4
|
Tlabel5
|
Status
|
Label5
|
Tlabel6
|
Pendidikan
|
Label6
|
Tedit1
|
-
|
edit1
|
Tedit2
|
-
|
edit2
|
Tpanel1
|
-
|
Panel1
|
Tpanel2
|
-
|
Panel2
|
Tradiobutton1
|
Pria
|
radiobutton1
|
Tradiobutton2
|
Wanita
|
Radiobutton2
|
Tradiobutton3
|
Kawin
|
Radiobutton3
|
Tradiobutton4
|
Belum
Kawin
|
Radiobutton4
|
Tceckbox1
|
Sd
|
ceckbox1
|
Tceckbox2
|
Smp
|
Ceckbox2
|
Tceckbox3
|
Sma
|
Ceckbox3
|
TdateTimePicker1
|
dateTimePicker1
|
|
Tbutton1
|
Proses
|
Button1
|
Tpanel3
|
Panel3
|
|
Ttimer1
|
Timer1
|
|
Ttimer2
|
Timer2
|
|
Tlabel
|
Designprogram717
|
Designprogram717
|
Dan pengkodeanya adalah sebagai
berikut masukan kode seperti di bawah ini pilih kode yang terletak
di bawah form kan ada tiga pilihan yaitu
kode,
design dan histori klik satu kali di kode pastikan kode sama persis di bawah ini ingat
radio button 1,2 letaknya di dalam panel1 dan radiobutton3,4 didalam panel2.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
DateTimePicker1: TDateTimePicker;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Panel2: TPanel;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Button1: TButton;
waktu: TPanel;
Timer1: TTimer;
designprogram717: TLabel;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
var
sNama : string;
sAlamat : string;
sSD : string;
sSMP : string;
sSMA : string;
sStatus : string;
sKelamin : String;
sDate :string;
begin
sNama := edit1.Text;
sAlamat := edit2.Text;
sDate :=
FormatDateTime('dd-mmmm-yyyy',DateTimePicker1.Date);
if checkBox1.Checked then
begin
sSD := 'SD';
end else
begin
sSD := 'bukan SD';
end;
if CheckBox2.Checked then
begin
sSMP := 'SMP';
end else
begin
sSMP := 'bukan SMP';
end;
if checkbox3.Checked then
begin
sSMA := 'SMA';
end else
begin
sSMA := 'bukan SMA';
end;
if RadioButton3.Checked then
Begin
sStatus := 'Kawin';
End;
if RadioButton4.Checked then
begin
sStatus := 'Belum Kawin';
end;
if RadioButton1.Checked then
Begin
sKelamin := 'Pria';
End;
if RadioButton2.Checked then
begin
sKelamin := 'Wanita';
end;
showmessage (snama + ',' + sAlamat +','+sDate+','+sKelamin+',' + sStatus
+ ',' + sSD + ',' + sSMP + ',' + sSMA);
end;
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
waktu.Caption:=FormatDateTime('dddd,
dd mmmm yyyy (hh:mm:ss)',Now);
end;
procedure
TForm1.Timer2Timer(Sender: TObject);
begin
if
designprogram717.Left<-designprogram717.Width then
designprogram717.Left:=Width
else
designprogram717.Left:=designprogram717.Left-1;
end;
end.
Selesai deh program kita kali ini
Selamat mencoba,,,,,,,,
g_mail :dprwscout717@gmail.com
blok :designprogram717.blokspot.com
no hp : 082302577717
