Cara membuat showmessage banyak item menggunakan delphi 2010

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