Senin, 22 Maret 2010

ANIMASI PADA DELPHI

Diposting oleh Miss Shopping Holic di 21.22

1. Animasi Timer


    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    if Label1.Visible then Label1.Visible:=False
    else label1.Visible:=True;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    application.Terminate;
    end;
    end.

2. Animasi Warna
    procedure TForm2.Merah1Click(Sender: TObject);
    begin
    Label1.Color:=clRed;
    end;
    procedure TForm2.Biru1Click(Sender: TObject);
    begin
    Label1.Color:=clBlue;
    end;

    procedure TForm2.Hijau1Click(Sender: TObject);
    begin
    Label1.Color:=clGreen;
    end;

    procedure TForm2.Hitam1Click(Sender: TObject);
    begin
    Label1.Font.Color:=clBlack;
    end;

    procedure TForm2.Kuning1Click(Sender: TObject);
    begin
    Label1.font.Color:=clYellow;
    end;

    procedure TForm2.Ungu1Click(Sender: TObject);
    begin
    Label1.font.Color:=clPurple;
    end;

    procedure TForm2.Exit1Click(Sender: TObject);
    begin
    application.Terminate;
    end;
    end. 
3. Animasi Message Box
     procedure TForm3.Button1Click(Sender: TObject);
     var Nilai:Integer;
     begin
     Nilai:=StrToInt(Edit1.Text);
     if (Nilai < 40 )then
     Application.MessageBox('Grade E','Grade',0);
     if (Nilai >= 40 ) And (Nilai<60) then
     Application.MessageBox('Grade D','Grade',0);
     if (Nilai >= 60 ) And (Nilai<70)then
     Application.MessageBox('Grade C','Grade',0);
     if (Nilai >= 70 ) And (Nilai<80)then
     Application.MessageBox('Grade B','Grade',0);
     if (Nilai >= 80 ) And (Nilai<=100)then
     Application.MessageBox('Grade A','Grade',0);
     end;

     procedure TForm3.Button2Click(Sender: TObject);
     begin
     Application.Terminate;
     end;
     end.

NOTES : 

1. jangan lupa kalau buat form baru,,projectnya diperiksa.
    PROJECT > OPTIONS > pilih form yang aktif 

2. Jangan lupa samakan name form, label, edit, button yang kalian buat dengan 
    programnya.
3. Logika jangan sama.
    Logika bukan penjelasan langkah-langkah pembuatan form, tetapi 
    penjelasan dari mulai membuat form sampai programnya jalan.







 

0 Comments:

Post a Comment



Subscribe to: Posting Komentar (Atom)