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
