Running LED Menggunakan Delphi 7

Pada artikel sebelumnya kita sudah mengetahui cara agar dapat melakukan pengendalian sistem menggunakan delphi 7.

Sekarang kita langsung saja ke project1 : Pengendali Running LED.

Langkah 1.

Buat komponen berikut:

Komponen	Properties	Input Value
Button1	Caption	Low Ke High
Button2	Caption	High Ke Low
Form1	Caption	Running LED
Button3	Caption	Exit

Langkah 2.

Selanjutnya Listing Program, jangan lupa syntax yang ada pada artikel sebelumnya di tambahkan pada baris program di Code Editor.

Deklarasi Variabel

var

Cb : byte; 

Untuk Button1 

begin

Cb := (out32($378,1));

Delay(500);        

Cb := (out32($378,2));

Delay(500);

Cb := (out32($378,4));

Delay(500);

Cb := (out32($378,8));

Delay(500);

Cb := (out32($378,16));

Delay(500);

Cb := (out32($378,32));

Delay(500);

Cb := (out32($378,64));

Delay(500);

Cb := (out32($378,128));

Delay(500);

Cb := (out32($378,255));

Delay(500);

End;

Untuk Button 2.

Begin

Cb := (out32($378,255));

Delay(500);

Cb := (out32($378,128));

Delay(500);

Cb := (out32($378,64));

Delay(500);

Cb := (out32($378,32));

Delay(500);

Cb := (out32($378,16));

Delay(500);

Cb := (out32($378,8));

Delay(500);

Cb := (out32($378,4));

Delay(500);

Cb := (out32($378,2));

Delay(500);

Cb := (out32($378,1));

Delay(500);

End;

Untuk Button3 :

Begin

Application.terminate;

End;