Blinkende skærm

Sådan. Her www.decko.1go.dk/flash.zip
Sætter hastighed op på + og hastighed ned på -
Du afslutter på escape og så kan du pause den på enter.

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Jeg kan godt lige hurtigt lave et program til dig der kan det. Tager ikke mere end 5 min . Men så bliver det altså i Delphi.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Hej, delphi er fint, så vidt jeg ved.. (det skal bare være hurtigt)
Bare du selv compiler, for jeg har ikke delphi atm.

Kunne du lave variabel fart, og venligst også lukke det på ESC knappen. Det villle være fedt!
Tak

[Redigeret d. 28/08-05 03:19:23 af mathias nielsen]

Kunne du ikke lige hurtigt skrive kildekoden?

jeg syntes det gik lidt mere flimrende end blinkende, så rodede lidt med Blitz3D, og endte op med dette (lidt hurtigere) program

www.mr-nielsen.dk/redir.php?id=10

Mathias: ok...bare helt i orden

Ansjos: ok...her er sourcen

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  VK_ESCAPE: Close;
  VK_ADD: FlashTimer.Interval:= FlashTimer.Interval - 10;
  VK_SUBTRACT: FlashTimer.Interval:= FlashTimer.Interval + 10;
  VK_RETURN: FlashTimer.Enabled:= not FlashTimer.Enabled;
  end;
end;

procedure TMainForm.FlashTimerTimer(Sender: TObject);
begin
  if MainForm.Color = clWhite then MainForm.Color:= clBlack
  else MainForm.Color:= clWhite;
end;

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------