Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

QBasic, Russian Basic

85K
31 октября 2012 года
FireMind
2 / / 31.10.2012
У меня две проблемы : Как подключить к программе мышку в QBasic и как создать EXE-файл в Russian Basic ?

Код:
DECLARE FUNCTION Mouse (Visualization$)
SLEEP
Mouse ("Yes")
SLEEP
CLS
Mouse ("No")

FUNCTION Mouse (Vizualization$)
DATA &H60, &H1E, &H0E, &H1F, &HA1, &H18, &H00, &HCD, &H33, &H89
DATA &H1E, &H1A, &H00, &H89, &H0E, &H1C, &H00, &H89, &H16, &H1E
DATA &H00, &H1F, &H61, &HCB
DIM IntProg(1 TO 16) AS INTEGER
DEF SEG = VARSEG(IntProg(1)): 'гбв ­®ўЄ  ᥣ¬Ґ­в  ¤«п а Ў®вл Ї®¤Їа®Ја ¬¬л
Int33& = VARPTR(IntProg(1)): 'гбв ­®ўЄ  ᬥ饭Ёп ¤«п а Ў®вл Ї®¤Їа®Ја ¬¬л
'ЏҐаҐЇЁбм Ї®¤Їа®Ја ¬¬л Ё§ Ў«®Є  ¤ ­­ле ў ¬ ббЁў Ї®Ў ©в­®
FOR j% = 0 TO 23
  READ K%: POKE IntDos& + j%, K%
NEXT j%
IntProg(13) = 0: 'Џ®¤дг­ЄжЁп бЎа®б  ¤а ©ўҐа  ¬лиЁ
CALL ABSOLUTE(Int33&)
LOCATE 2, 1
driver$ = "Windows"
IF IntProg(13) = -1 THEN driver$ = "MS-DOS"
buttons = IntProg(14)
IF Visualization$="Yes" thenIntProg(13) = 1
CALL ABSOLUTE(Int33&)
IntProg(13) = 3: 'Џ®¤дг­ЄжЁп ®Їа®б  б®бв®п­Ёп ¬лиЁ
'15:CX=x 16:DX=y 14:BX=б®бв®п­ЁҐ Є­®Ї®Є:
'1 - ­ ¦ в  «Ґў п, 2 - Їа ў п, 4 - б।­пп

  CALL ABSOLUTE(Int33&)
  MouseX% = IntProg(15): MouseY% = IntProg(16): MouseButtons% = IntProg(14)

DEF SEG
END FUNCTION
40K
31 октября 2012 года
D129
228 / / 18.04.2012
Извините за любопытство, а где это до сих пор используется этот археологический экспонат (ну там Паскаль еще ладно, слышал - профессора на нем учат сортировку пузырьковую делать) ?
Правда интересно. :-)
327
01 ноября 2012 года
UserNet2008
748 / / 03.04.2010
Я не знаю, что такое Russian Basic, а в QBasic 4.5 или 7.1 так:




Чтобы работал драйвер мыши он должен загружен до вызова QBasic т.е в самом DOS


P.S
Если у Вас есть еще интерес "драйвер для QBasic, будет позже"
85K
12 ноября 2012 года
FireMind
2 / / 31.10.2012
У меня. Он был бесплатный, а скачать его - просто, как дважды два

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог