Вот настальгирую потехоньку..

[Q2W]

Есть у меня типа хобби - программить на QB.
Я с него начинал когда-то.
Периодически вспоминаю про него и пишу неоконченные пректы в нём.

Но вот случился косяк, потеря инфы.

Почти всё восстановил, но к сожалению пропали некоторые эксемплы, которые я так долго собирал.

Щас нужно использование мыши и считывание текущей нажатой клавиши (если нажата) без ожидания нажатия и все клавиши (т.е. со стрелками, шифтами и прочим).

Не подскажете? Или мож форум какой по QB ещё есть на русском?

[Q2W]

С клавишами разобрался (inkey$ рулит!).
С мышой байда, нашёл такой исходник (и кстати вспомнил, что он у меня был и с ним была таже проблема, но как я её решил - непомню).

Код: Выделить всё


DEFINT A-Z

DECLARE SUB MOUSE (m1%, m2%, m3%, m4%)
TYPE RegType
     ax    AS INTEGER
     bx    AS INTEGER
     cx    AS INTEGER
     dx    AS INTEGER
     bp    AS INTEGER
     si    AS INTEGER
     di    AS INTEGER
     flags AS INTEGER
END TYPE

DIM SHARED Inreg AS RegType
DIM SHARED Outreg AS RegType

SCREEN 12

'включить курсор мыши
G1% = 1: CALL MOUSE(G1%, G2%, G3%, G4%)

' Пpочитать кооpдинаты кypсоpа и статyс кнопок
DO
   G1% = 3: CALL MOUSE(G1%, G2%, G3%, G4%)
   LOCATE 1, 1: PRINT "Кооpдинаты мыши : X ="; G3%; " Y ="; G4%; " "
   LOCATE 3, 1
   SELECT CASE G2%
      CASE IS = 1: PRINT "Hажата левая кнопка  "
      CASE IS = 2: PRINT "Hажата пpавая кнопка "
      CASE IS = 4: PRINT "Hажата сpедняя кнопка"
      CASE ELSE:   PRINT "Кнопки не нажаты     "
   END SELECT
   IF INKEY$ <> "" THEN EXIT DO
LOOP

'Погасить курсор мыши
G1% = 2: CALL MOUSE(G1%, G2%, G3%, G4%)

SCREEN 0

SUB MOUSE (m1, m2, m3, m4)
' *****************************************************
' Эта пpоцедypа обеспечивает интеpфейс с дpайвеpом мыши
' m1, m2, m3, m4 - паpаметpы, пеpедаваемые в дpайвеp мыши
' и возвpащаемые оттyда. Они соответствyют pегистpам
' пpоцессоpа AX, BX, CX, DX
' *****************************************************
n = &H33:       ' пpеpывание 33h
Inreg.ax = m1   ' входные pегистpы
Inreg.bx = m2
Inreg.cx = m3
Inreg.dx = m4
CALL Interrupt(n, Inreg, Outreg)
m1 = Outreg.ax  ' выходные pегистpы
m2 = Outreg.bx
m3 = Outreg.cx
m4 = Outreg.dx

END SUB

Но на стоке CALL Interrupt(n, Inreg, Outreg) грит "Sub program not defined".

[alibek]

Я опрашивал мышку через порты (тогда были только COMовские), но уже не помню, как.

[tyomitch]

Q2W, мыший пример идёт в поставке QB. У тебя этого примера нет, что ли? Могу скинуть.

[Q2W]

Давай, если это не тот пример, который я написал выше.
Мыло: Dmitry[at]Novozhilov.ru
А если это как раз тот пример, то как он должен работать, мне непонятно.

[tyomitch]

Не тот же, например потому что он для VBDOS
Но я его "адаптировал", проверил - под QB 4.50 работает.

Чтоб на строке "CALL Interrupt" не было ошибки, QB надо загружать с ключом /L QB.QLB
Это я только что в его справке, кстати, прочитал. Думаю, ты и сам мог

[Q2W]

Пасибо!