Cara membuat urutan angka menggunakan for dengan delphi 2010

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