Cara membuat urutan angka menggunakan for dengan
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 urutan angka
menggunakan fordengan delphi 2010
caranya antara lain yang pertama buka delphi 2010 kemudianbuar form baru dan masukan komponen kedalam form komponenya
adalah antara lain:
Nama
komponen
|
caption
|
nama
|
Tlistbox
|
-
|
Listbox1
|
Tlabel
|
Dessignprogram717
|
Label1
|
Tpanel
|
-
|
waktu
|
Ttimer
|
-
|
Timer1
|
Ttimer
|
-
|
Timer2
|
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 Unit1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ExtCtrls;
type
TForm1 =
class(TForm)
ListBox1:
TListBox;
Label1: TLabel;
Timer1: TTimer;
waktu: TPanel;
Timer2: TTimer;
procedure
FormCreate(Sender: TObject);
procedure
Timer1Timer(Sender: TObject);
procedure
Timer2Timer(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Kemudian klik from 2x dan masukan kode seperti di bawah ini
procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
listbox1.items.clear;
for i:=1 to 5 do
begin
listbox1.Items.add(inttostr(i));
end;
end;
nah timer ni seperti biasa untuk membuat animasi tulisan
berjalan
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left<-Label1.Width then
Label1.Left:=Width
else
label1.Left:=label1.Left-1;
end;
dan yang satu ini 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 oy untuk warna tulisan dan
besarnya tulisan silakan di pilih sendiri misal label1 pilih properti dan pilih
fon di situlah kita atur besarnya tulisan dan warna
Selamat mencoba...
g_mail :dprwscout717@gmail.com
blok :designprogram717.blokspot.com
no hp : 082302577717
