Cara membuat animasi tulisan berjalan dan waktu menggunakan delphi 2010

Cara membuat animasi tulisan berjalan dan membuat waktu 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 dqadapun cara penbuatan program tulisan berjalan dan wantu menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
Tlabel	Desigprogram717	Designprogram717
Tpanel	-	Waktu
Timage	-	Image1
Tbutton	Exit	Exit
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, jpeg;

type

  TForm1 = class(TForm)

    Image1: TImage;

    waktu2: TPanel;

    Exit: TButton;

    designprogram717: TLabel;

    Timer1: TTimer;

    Timer2: TTimer;

    procedure ExitClick(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ExitClick(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if designprogram717.Left<-designprogram717.Width then

designprogram717.Left:=Width

else

designprogram717.Left:=designprogram717.Left-1;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

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

end;

end.

Selesai deh program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717