Показать сообщение отдельно
Старый 22.05.2006, 19:10   #10
Guest
 
Сообщений: n/a
Сорри что пишу не там... я не смог зарегиться на вашем форуме... блин, не приходит мне подтверждение на мыло.. (
Админ, помоги плз... и ещё.. вот занялся я тут этим пискалем, что-то не получается прога, ошибок нету, но наротает не так, как бы я хотел :

program Vibr;
uses vl; // Vibr and Light class
var
label_id:integer;
begin
Showform;
label_id := formAddString('MegaProga');
repeat
if GetKeyPressed = KE_KEY1 then vl.start_vibrator;
if GetKeyPressed = KE_KEY2 then vl.stop_vibrator;
until GetKeyClicked = KE_KEY0;
end.


ПРОШУ ПОМОГИТЕ
 
Ответить с цитированием