Pembuatan Naimasi Menggunakan Delphi 6

LAPORAN GRAFIKA KOMPUTER

Oleh : M. Husni Mubarok

( 08622067 )

TEKNIK INFORMATIKA UNIVERSITAS MUHAMMADIYAH GRESIK

2009

Laporan Resmi Tugas Grafika Komputer TEMA : Menggerakkan Bola

Gambar bola

Program animasi ini dinuat bertujuan agar kita bisa belajar lebih dalam tetang bahasa pemrogaman Delphi, khususnya untuk para pemula. Program ini dibuat menggunakan program Delphi 6. Dalam project ini akan dijabarkan cara-cara membuat animasi bola yang dapat bergerak sesuai dengan instruksi tombol yang ditekan, untuk mempermudah kami akan membagi menjadi dua session pembahasan, yaitu : Session 1 a) Mengenal dan dapat menempatkan komponen panel, shape, speedBtn, dan timer. b) Mendefinisikan type dan tArah. c) Mendefinisikan konstanta langakah. d) Mendefinisikan variabel arah.

Session 2 a)

Procedure ganti arah ( sender: Tobject )

b)

Event onClick untuk pada speedBtn

c)

Event onTimer pada timer

d)

Penggunaan klausa Intislization

Komponen Panel, Shape, Speedbtn, dan Timer.

Pan el

speed Btn

Shape (additiona l)

(System) Timer

. •

Mendefinisikan type dan tArah.

Disini harus dibuat type data baru yang berfungsi untuk menyimpan pergerakan arah dari project animasi. tArah = ( diam,kiri,kanan,atas,bawah); kemudian perlu juga mendefinisikan sebuah knstanta yang gunanya untuk menentukan seberapa besar pergerakan bola. const langkah = 10; •

Mebuat variabel yang berguna untuk menyimpan pada arah mana

bola bergerak sesuai dengan tombol yang dipencet.

var Form1: TForm1; Arah : tArah; •

Selanjutnya perlu dibuat sebuah procedure yang berguna untuk

menyimpan suatu arah yang diinstruksikan oleh user procedure GantiArah(Sender: TObject); selanjutnya procedure ganti arah diimplementation implementation {$R *.dfm} procedure TForm1.GantiArah(sender: TObject); begin if sender = speedbutton1 then arah:= kiri else if sender = speedbutton2 then arah:= diam else if sender = speedbutton3 then arah:= atas else if sender = speedbutton4 then arah:= kanan else if sender = speedbutton5 then arah:= bawah ; •

Event onTimer pada timer

procedure TForm1.Timer1Timer(Sender: TObject); begin if Arah = atas then begin shape1.Top := shape1.Top - langkah; if Shape1.Top <= 0 then arah := bawah

artinya apabila shape1 menyentuh batas atas panel1 maka shape1 akan berubah arah menjadi ke bawah end else if arah = bawah then begin shape1.Top := shape1.Top + langkah; if shape1.Top >= (panel1.Height - shape1.Height) then arah := atas artinya apabila shape1 menyentuh batas bawah panel1 maka shape1 akan berubah arah menjadi ke atas. end else if arah = kiri then begin shape1.Left := shape1.Left - langkah; if shape1.left <= 0 then arah := kanan artinya apabila shape1 menyentuh batas kiri panel1 maka shape1 akan berubah arah menjadi ke kanan end else if arah = kanan then begin shape1.Left := shape1.Left + langkah; if shape1.left >= (panel1.width - shape1.width) then arah := kiri end; artinya apabila shape1 menyentuh batas kanan panel1 maka shape1 akan berubah arah menjadi ke kiri. •

Penggunaan klausa Intislization

Artinya pada saat dibuka bola dalam posisi diam. initialization arah := diam;

Penjelasan Objek Form1 object Form1: TForm1 Left = 345 Top = 207 Width = 779 Height = 563 Caption = 'animasi bola oleh : M HUSNI MUBAROK' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 561 Height = 512 Align = alLeft TabOrder = 0 object Shape1: TShape Left = 240 Top = 216 Width = 65 Height = 65 Brush.Color = clYellow Shape = stEllipse end end object Panel2: TPanel Left = 561 Top = 0 Width = 211 Height = 512 Align = alRight TabOrder = 1 object SpeedButton1: TSpeedButton Left = 64 Top = 240 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100 00000010004000000000000010000120B0000120B000010000000000000

00000000000000800000800000008080008000000080008000808000007 F7F7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF0 0FFFF0000FFFFFF00333333333333333333333333333333FF33333333 33333744333333333333F77333333333333744473333333333F777F3333 333333744444333333333F77337333333333744444433333333F7733373 3333333744444447333333F7733337F333333744444444433333F773333 33733333744444444443333377FFFFFFF7FFFFF999999999999999973 3777777777777333CCCCCCCCCC33333773FF333373F3333333CCCC CCCC C333333773FF3337F333333333CCCCCCC33333333773FF373F333333 3333CCCCCC333333333773FF73F33333333333CCCCC333333333377 3F7F3333333333333CCC333333333333777FF33333333333333CC3333 333333333773} NumGlyphs = 2 OnClick = GantiArah end object SpeedButton2: TSpeedButton Left = 96 Top = 240 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100 00000010004000000000000010000120B0000120B000010000000000000 00000000000000800000800000008080008000000080008000808000007 F7F7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF0 0FFFF0000FFFFFF00555555550555555555555555F55555555505555B 0555570555F55557F55555F55B50555B05557B55575F5557F555575555 B5055B5557B5555575F55755557555555B5550005B55555557555FFF57 5555555555BBB0055555555555777FF5555555555BBBBB00555555555 77777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB 0BBB577757777777F77755555BBBBBBB5555555557777777555555555 5BBBBB5555555555577777555555555705BBB55505555555F5777555F 555557B5555055B505555575555F5575F5557B5555B0555B5055575555 7F55575F55B55555B05555B5557555557F55557555555555B555555555 555555755555555} NumGlyphs = 2 OnClick = GantiArah end object SpeedButton3: TSpeedButton Left = 96 Top = 208 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100 000000100

04000000000000010000120B0000120B00001000000000000000000 000000000800000800000008080008000000080008000808000007F7F7F 00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF 0000FFFFFF003C3333339333337437FFF3337F3333F73CCC33339333 344437773F337F33377733CCC33393374447337F73FF7F3F337F33CC CCC3934444433373F7737F773373333CCCCC944444733337F3377733 37F3333CCCCC9444443333373F337F3337333333CCCC944447333333 7F337F337F333333CCCC94444333333373F37F33733333333CCC9444 7333333337F37F37F33333333CCC944433333333373F7F37333333333 3CC944733333333337F7F7F3333333333CC94433333333333737F7333 333333333C947333333333333737F333333333333C94333333333333373 73333333333333397333333333333337F33333333333333933333333333 333373333333} NumGlyphs = 2 OnClick = GantiArah end object SpeedButton4: TSpeedButton Left = 128 Top = 240 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100 00000010004000000000000010000120B0000120B000010000000000000 00000000000000800000800000008080008000000080008000808000007 F7F7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF0 0FFFF0000FFFFFF0033333333333333333FF333333333333344733333 3333333377FFF33333333333744473333333333337773FF33333333334 44447333333333373F773FF333333333444444733333333373F3773FF3 333333744444447333333337F333773FF333333444444444733333373F3 333773FF333334444444444733FFF7FFFFFFF77FF999999999999999 977777777777733773333CCCCCCCCCC3333337333333F7733333CCC CCCCCC33333337F3333F773333333CCCCCCC3333333337333F77333 33333CCCCCC3333333333733F77333333333CCCCC333333333337FF 7733333333333CCC3333333333333777333333333333CC333333333333 337733333333333333} NumGlyphs = 2 OnClick = GantiArah end object SpeedButton5: TSpeedButton Left = 96 Top = 272 Width = 23 Height = 22 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100 00000010004000000000000010000120B0000120B000010000000000000 00000000000000800000800000008080008000000080008000808000007

F7F7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF0 0FFFF0000FFFFFF00333333393333333333333337F333333333333339 7333333333333337FF333333333333C943333333333333737F333333333 333C9473333333333337373F3333333333CC944333333333337F7F7F33 33333333CC94473333333333737F73F33333333CCC94443333333337F 37F37F33333333CCC94447333333337337F373F333333CCCC9444433 333337F337F337F333333CCCC94444733333373337F3373F3333CCCC C944444333337F3337FF337F3333CCCCC94444473333733F7773FF73 F33CCCCC393444443337F37737F773F7F33CCC33393374447337F733 37F33737FFCCC333393333444377733337F333777FC33333393333374 37333333733333373} NumGlyphs = 2 OnClick = GantiArah end end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 104 Top = 376 end end