program delphi 7 menggerakan gambar ke atas dan kebawah dengan keyboard

Kuliahbrooo.blogspot.com - sebuah program yang tidak asing untuk orang yang menyukai program delphi 7, ini adalah program sederhana yang banyak orang tau na dari sini kita akan mengajarkan bagaimana cara membuat gambar bergerak ke atas dan kebawah dengan tombol arah  pada keyboard. banyak yang tau mugkin tapi saya disini akan menyering ilmu saya yang saya dapatkan saat saya masih semester satu nah langsung saja kita bahas bagaimana sih cara membuah programnya . .

Baca jugu : PROGRAM MEMINDAHKAN DATA DARI COMBOBOX KE KOTAK EDIT PADA DELPHI 7

untuk alat yang dibutuhkan dalam program ini adalh

• 2 timer
• 1 gambar image bebas

keterangan :

• 1 adalah tempat untuk meletakan kode keyboard ke bawah
• 2 adalah tempat untuk meletakan kode keyboard ke atas
• untuk mencari letak nya klik even pada pilihan tersebut 

// ini adalah kode programnya maaf kami tidak akan memberikan program kami karena agar anda bisa berkembang dengan usaha keras anda sendiri. . .

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// kode timer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top -5;
end;

//kode timer 2

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top +5;
end;

// code program untuk menggerakan gambar ke atas  dengan tombol keyboaed

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_up then timer1.Enabled:=false;
if key = vk_down then timer2.Enabled:=false;
end;


// code program untuk menggerakan gambar ke bawah  dengan tombol keyboaed

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_up then timer1.Enabled:=true;
if key = vk_down then timer2.Enabled:=true;
end;
end.

Posted by Unknown on - Rating: 4.5

Title : program delphi 7 menggerakan gambar ke atas dan kebawah dengan keyboard
Description : Kuliahbrooo.blogspot.com  - sebuah program yang tidak asing untuk orang yang menyukai program delphi 7, ini adalah program sederhana yang ba...

Tweet Pin It