Cara membuat sambutan awal menggunaka delphi 2010

Cara membuat sambutan awal menggunaka 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 yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini dqadapun cara penbuatan program sambutan awal menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuar form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
TLabel	Designprogram717	Label1
TLabel	Choose country	Label2
Tlabel	-	Label3
TLabel	-	Label4
TButton	close	button1
TListBox	-	listBox1
TTimer	-	timer1
TTimer	-	timer2
tpanel	-	waktu

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

unit Membuat_program_Sambutan_awal;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    ListBox1: TListBox;

    Timer1: TTimer;

    waktu: TPanel;

    Timer2: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Klick botton 2x dan masukan kode seperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

dan klic 2x pada form utama kemudian masukan kode seperti di bawah ini

procedure TForm1.FormCreate(Sender: TObject);

begin

listbox1.Items [0]:='England';

listbox1.Items [1]:='Germany';

listbox1.Items [2]:='Spain';

listbox1.Items [3]:='Italy';

end;

masih tetap di even on clik pada listbox dan masukan kode seperti  di bawah ini

procedure TForm1.ListBox1Click(Sender: TObject);

begin

label3.Caption :=listbox1.items[listbox1.itemindex];

case listbox1.ItemIndex of

0:label4.Caption :='hallo, programmer';

1:label4.Caption :='hello, programierer';

2:label4.Caption :='hola, programador';

3:label4.Caption :='Ciao, programator';

end;

end;

kemudian pemberian kode pada timer untuk membuat tulisan berjalan oy pada properti timer terus interval kita gantti nilainya 10 agar jalanya sedikit halus. Kodenya adalah sebagai berikut:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-Label1.Width then

Label1.Left:=Width

else

label1.Left:=label1.Left-1;

end;

yang terakhir adalah pengkodean untuk menampilkan waktu

procedure TForm1.Timer2Timer(Sender: TObject);

begin

 waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

 Selesai deh program kita kali ini mudahkan

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717