За последние 24 часа нас посетили 18447 программистов и 1643 робота. Сейчас ищут 1028 программистов ...

Помогите с Паскалем (33h)

Тема в разделе "Прочее", создана пользователем Koc, 22 окт 2009.

  1. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    http://pastebin.mozilla-russia.org/102243
    пытаюсь поставить customHandler на перемещение мыши. Работает, но почти сразу вылетает с runtime error = 255; Что я делаю неправильно?
     
  2. Simpliest

    Simpliest Активный пользователь

    С нами с:
    24 сен 2009
    Сообщения:
    4.511
    Симпатии:
    2
    Адрес:
    Донецк
    машину постарше возьми.
     
  3. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    может замедлитель процессора попробовать?

    upd: фух, замедлитель вроде помог. Я не шарю совсем во всех этих паскалях да асмах. А поцчему оно так происходит?
     
  4. Simpliest

    Simpliest Активный пользователь

    С нами с:
    24 сен 2009
    Сообщения:
    4.511
    Симпатии:
    2
    Адрес:
    Донецк
    Я уже точно не помню. Последний раз я с этим воевал лет 6ть назад с CLIPPER :)
    Там ошибка в библиотечных функциях таймера.

    Для вычислений используется "чего-то там/прошедшее время таймера"
    На быстрых машинах это самое время обычно = 0
    И библиотека крашится.
     
  5. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    Код (Text):
    1.   regs.ax:=$0B;
    2.   intr($33, regs);
    3.   x:=regs.cx;
    4.   y:=regs.dx;
    5.  
    6.   gotoXY(1, 2);
    7.   write(x:3, ' ', y:3);
    вызываю это в своем хендлере.
    выводит 0 0
    гавно какое-то
     
  6. Simpliest

    Simpliest Активный пользователь

    С нами с:
    24 сен 2009
    Сообщения:
    4.511
    Симпатии:
    2
    Адрес:
    Донецк
    забей ты на паскаль с асмом.
     
  7. Simpliest

    Simpliest Активный пользователь

    С нами с:
    24 сен 2009
    Сообщения:
    4.511
    Симпатии:
    2
    Адрес:
    Донецк
    И это, чтобы уж быть совсем уверенным, что на него надо забить....

    выведи отдельно x и y. Может у тебя там 0 и должны получаться :)
     
  8. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    что значит забей? меня ж отчислят из бурсы.

    Короче препод сказал, что customEvent вешать надобно единожды а не в цикле. А цикл тоже нужен.
    И в этом customEvent низя выполнть 33 прерывание.
     
  9. kostyl

    kostyl Guest

    Koc
    Антон должен знать, он же шарит в делфи. Я тоже шарю но не на таком низком уровне. Да и времени разбираться нету...
     
  10. antonn

    antonn Активный пользователь

    С нами с:
    10 июн 2007
    Сообщения:
    2.996
    Симпатии:
    0
    Паскаль не дельфи, первый - убогий обрубок применяемый для академических заданий седыми пенсионерами-преподами, кафедра которых не может себе позволить купить нормальный ЯП или сменить пенсионера.
    Прицепить мышку к консольному окну - это просто феерический костыль, я с такими не дружу :)
     
  11. antonn

    antonn Активный пользователь

    С нами с:
    10 июн 2007
    Сообщения:
    2.996
    Симпатии:
    0
  12. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    что-то я не нашел там ни одного вызова прерываня 33.

    Вынес вне цикла навешивание обработчика - runtime error ушла. Внутри этого handler опрашиваю регистры - фигня.
     
  13. Simpliest

    Simpliest Активный пользователь

    С нами с:
    24 сен 2009
    Сообщения:
    4.511
    Симпатии:
    2
    Адрес:
    Донецк
    Что за паскаль?
    Старые программы на новых машинах - это еще та какашка.

    Попробуй FreePascal может он на быстрых машинах нормально будет?
     
  14. antonn

    antonn Активный пользователь

    С нами с:
    10 июн 2007
    Сообщения:
    2.996
    Симпатии:
    0
    да, попробуй FreePascal, а потом прийдя на защиту обломись тем, что прога откомпиленная там не работает, потому что препод не использует FreePascal.
     
  15. Koc

    Koc Активный пользователь

    С нами с:
    3 мар 2008
    Сообщения:
    2.253
    Симпатии:
    0
    Адрес:
    \Ukraine\Dnepropetrovsk
    все делают на сях в BC, а я, как мудак, решивший быть индивидуальным решил делать на Паскале. Ну и дело в том, что я перевелся из другого универа с другой специальности, а мы там как раз подобные штуки на Паскале и делали.
     
  16. iliavlad

    iliavlad Активный пользователь

    С нами с:
    24 янв 2009
    Сообщения:
    1.689
    Симпатии:
    4
    обычно универовские задания можно в инете найти на десятках форумах.

    а по поводу мыши по идее должен быть пример в справке.