Не работает рисование мышью

@Илья01 · Регистрация: 30.12.2010

Студворк — интернет-сервис помощи студентам

Я использую библиотеку "Future Library 3.50" для работы мыши.
Вот программа на тему мыши:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
REM $INCLUDE: 'future.bi'
Set640x480 8'set 640x400 svga screen
FOR I% = 0 TO 255 'copy mouse shape DATA into a string
READ C%
C$ = C$ + CHR$(C%)
NEXT
 
 
Future.MouseShape SADD(C$), VARSEG(C$)'parse DATA string to the mouse
SetMouseMaskColor 0 'set transparent color to 0
Future.MouseOn 'turn on svga mouse
 
1 :
 
IF STR$((Future.MouseB AND 1) = 1) = "-1" THEN
BEEP
END IF
 
IF STR$((Future.MouseB AND 2) = 2) = "-1" THEN
BEEP
END IF
 
Future.PRINT 0, 0, "Pos X:" + STR$(Future.MouseX) + " ", 1, 0
Future.PRINT 0, 16, "Pos Y:" + STR$(Future.MouseY) + " ", 2, 0
Future.PRINT 0, 32, "ButtonL:" + STR$((Future.MouseB AND 1) = 1) + " ", 4, 0
Future.PRINT 0, 48, "ButtonR:" + STR$((Future.MouseB AND 2) = 2) + " ", 5, 0
Future.UpdateMouse      'update mouse
IF INKEY$ <> CHR$(27) THEN GOTO 1
Future.MouseOff
ReSetScreen
 
DATA 1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0
DATA 1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0
DATA 1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0
DATA 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
DATA 1,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0
DATA 1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0
DATA 1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0
DATA 1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1

Проблема в том что фон по которому бегает мышка при таком раскладе пуст. Там только 4 надписи. А мне нужно чтоб был рисунок. Я взял и после строк

QBasic/QuickBASIC
1
2
C$ = C$ + CHR$(C%)
NEXT

написал screen 12 и свой рисунок. Так после того как я написал screen 12 мышка и надписи стали огромны. Подскажите, как это исправить.

@Quiet Snow · 09.04.2011, 11:53

Вы прикалываетесь что-ли?

Подскажите, как это исправить.

Прочитать много литературы и понять что вы вообще творите... А творите вы полнейшый бред, зачем вы пишете SCREEN 12, когда вы подключаете стороннюю библиотеку, заточенную под VESA???
Вы решили потыкать пальцем в небо, ну тыкайте наздоровье развлекайтесь, зачем форум захламлять? Откройте хотя бы файл декларации процедур, посмотрите сколько там всего, нет желания прочитать документацию, посмотреть примеры? Ну тыкайте в небо...

@Илья01 · 09.04.2011, 14:23 **[ТС]**

Сообщение от >Quiet Snow<

Вы прикалываетесь что-ли?

Нет, я не над кем не прикалываюсь. Этот форум я так понимаю только для программистов с двадцатилетним стажем!? Если кто то не спец в этом и не понимает чего то простого его надо сразу облаивать. Или вы хотите показать какой вы типа крутой. Нет, ваше сообщение не признак крутости, а признак хамства. Ну чтож, не хотите отвечать нормально, так зачем отвечать вообще? Да и начхать мне, поищу себе другой форум, где модераторы поприличней.

@Quiet Snow · 09.04.2011, 15:45

Нет, ваше сообщение не признак крутости, а признак хамства.

Начну пожалуй с того, что моё сообщение не несло цель показать "крутость".
Я возмущён такими людьми как вы, объясню почему:

Вы по невозможности написать своё, взяли чужое, хотите это использовать, но в силу того, что вам лень, вы обращаетесь на форум, вместо того, чтобы прочитать мануал.
Когда вам говорят прочитать документацию, это означает, что нужно её прочитать, а не пытаться модифицировать чужие исходники, при ПОЛНОМ непонимании того, как они работают и как работают сходные программы.
Удручает то, что вы не желаете понять вышесказанное, обвиняете меня в хамстве и полагаете что на другом форуме вас за это будут лелеять и объяснять вам весь функционал какой-то там библиотеки, которую кто-то вам посоветовал, чтобы что-то(непонятно что) сделать.

Я не буду с вами припираться, хотите другой форум пожалуйста. Тут не учат, а помогают, нет никаких гарантий, что ваш вопрос будет решён, читайте форумные правила. Помощь может заключаться в том, что вас направят в нужное русло, а не напишут за вас.
Ваш вопрос решается элементарно:

Прочитать документацию по библиотеке
Посмотреть какие графические форматы она поддерживает
Изучить выбранный формат
Написать код

@PB · 09.04.2011, 16:15

Сообщение от >Quiet Snow<

Тут не учат, а помогают, нет никаких гарантий, что ваш вопрос будет решён

Добавлю от себя.
Если нужны гарантии, то нужно создавать тему здесь https://www.cyberforum.ru/freelance/
И может быть кто-то через личку, аську или др. способом, разжует все тонкости использования этой библиотеки.

@Илья01 · 09.04.2011, 21:19 **[ТС]**

>Quiet Snow<, за помощь большое спасибо, но ещё одно НО не относящиеся к QB, вы написали:

Сообщение от >Quiet Snow<

Вы по невозможности написать своё, взяли чужое, хотите это использовать, но в силу того, что вам лень, вы обращаетесь на форум, вместо того, чтобы прочитать мануал.

Что значит лень, мне совершенно не лень, я не прошу некого за меня писать. Я всё напишу сам. Моя просьба заключалась в том, чтоб вы не написали за меня, а в 2 словах объяснили, в чём моя ошибка и повода для возмущения мной я совершенно не вижу. Но это уже неважно.

@Quiet Snow · 09.04.2011, 23:13

а в 2 словах объяснили, в чём моя ошибка

Тяжело объяснить в двух словах материал нескольких толстых книг и нескольких эпох компьютерной графики, эти знания добываются усиленным изучением "на износ", а не способностью шерстить по форумам.

мне совершенно не лень

Отлично, порядок действий у вас есть.

Что значит лень

К вашему сведению лень заключается даже в том, чтобы взять "готовенькое" и нифига самому не делать, вы наверное даже и приблизительно не представляете сколько люди(настоящие профи) писали эти библиотеки. За вас уже всё сделано, вам не нужно думать как вывести тот или иной примитив, как копировать VESA буфер в реальном режиме процессора и какие проблемы с этим возникают(а они возникают и неслабые), вам не нужно думать о взаимодействии с системными устройствами(та же мышь и клавиатура закодены через перехваты прерываний для вашего удобства) вам не нужно думать об оптимизации(это крайне деликатная область в программировании), вы можете забыть про программирование DMA каналов, для разных версий подсистемы Sound Blaster(а версий дофигище), DSP чипов и аппаратных прерываний(для этого нужно знать работу контроллера прерываний), не говоря уже о самом микшере, вы с лёгкостью можете использовать любой графический режим не написав ни строки кода на ассемблере и всё это будет работать быстро, красиво и безглючно(правда не всегда). Но вот незадача - писали это НЕ ВЫ, поэтому потрудитесь хотябы узнать как это работает, прежде чем говорить следующее:

Я всё напишу сам.

потому что уже не пишете сами, за вас уже 99.5% программы написано.))) Может быть сей факт не столь очевиден или вы считаете это как должное, просто знайте - за вас выполнена колоссальная работа, люди может не спали, не ели))) писали эти функции, а вы хоп и подключили одной строкой. Поиск лёгких путей - это определённо лень, я принципиально не использую чужие библиотеки, хотя когда раньше писал на паскале использовал и целую тучу(и ukeyb и smix и xlib и другие...), да где-то действительно была лень, по причине того, что либо не мог написать сам, либо очковал, смотря в книгу по ассемблеру, просто потому что это долго, тяжело и требует особых навыков+много IQ.

в чём моя ошибка и повода для возмущения мной я совершенно не вижу.

Уже расписал по пунктам, понятно и доходчиво. А ошибка ваша в том, что вы пытаетесь использовать функции VGA адаптера, установив режим SVGA адаптера, с совершенно другой структурой памяти(4 битовые плоскости заместо одной, не битовой, а равной значению глубины цвета в байтах), при всём при этом, что вы считаете "рисунком" из вашего поста так и не понятно, а понятие это сильно растяжимое, бывают векторные, бывают растровые(которые бывают ещё и анимированные). Я возмущён, нет, я негодую, полный "ласосинг"...

@Илья01 · 10.04.2011, 02:50 **[ТС]**

Сообщение от >Quiet Snow<

за вас выполнена колоссальная работа, люди может не спали, не ели))) писали эти функции, а вы хоп и подключили одной строкой.

Да, я благодарен тем, кто написал эту функцию. Но они писали это не только для себя раз выложили в интернет совершенно бесплатно. Когда написанную программу выставляют в интернет, то обычно это делают, чтобы люди пользовались. Вы говорите, что пользоваться другим совершенно бесплатно это лень. Тогда скажите, все ли программы, доставшиеся вам бесплатно написаны вами? Вы можно подумать, написали и браузер, через, который читаете это сообщение.

Сообщение от >Quiet Snow<

Я возмущён, нет, я негодую, полный "ласосинг"...

А я возмущён вами, что вы отпускаете такие реплики в адрес человека, который лично вам не сделал нечего плохого!

@Quiet Snow · 10.04.2011, 12:17

Но они писали это не только для себя раз выложили в интернет совершенно бесплатно.

Выложить могли не создатели, я не уверен в бесплатности оного.

Вы говорите, что пользоваться другим совершенно бесплатно это лень.

Вообще то я имел в виду программирование конкретных вещей, а не просто пользоваться. Программы пишут для того чтобы ими пользоваться, это очевидно.

А я возмущён вами, что вы отпускаете такие реплики в адрес человека, который лично вам не сделал нечего плохого!

А нечего возмущаться, я про вас ничего плохого и не говорил, я просто вами возмущаюсь, ибо есть чем.

@PB · 10.04.2011, 13:49

Сообщение от Илья01

выложили в интернет совершенно бесплатно

Знаете, когда выкладывают (или помогают) бесплатно, то не дают ни каких гарантий - не нравится - ищите другую библиотеку.
Обычно бесплатно выкладывают как есть, а если очень нужно, то разобраться с тем что есть, как правило проще, чем писать с нуля.

@Илья01 · 10.04.2011, 14:04 **[ТС]**

Сообщение от >Quiet Snow<

выложить могли не создатели, я не уверен в бесплатности оного.

Я нашёл это не на каком нибудь торренте, а на чуть ли не первой ссылки в Яндексе.

Сообщение от >Quiet Snow<

А нечего возмущаться, я про вас ничего плохого и не говорил, я просто вами возмущаюсь, ибо есть чем.

Я понимаю, что вы считаете меня лентяем и то что я использую чужие библиотеки это плагиат. Но лично я когда вижу лентяя, который ко мне не лезет со своей ленью я не подхожу к нему, а пытаюсь с ним поменьше общаться. Я вопрос задал на форуме, а не вам личным сообщением, я не навязывал вам свой вопрос. Зачем же вам отвечать на него когда у вас такое отвращение ко мне? Многие люди, которых я знаю хотят людям, которые им не нравятся это сообщить. И я этих людей некогда не понимал.

@Quiet Snow · 10.04.2011, 14:17

то не дают ни каких гарантий - не нравится - ищите другую библиотеку.

PB, это верно, но я как бы ему уже намекнул, что дело далеко не в библиотеке, т.к. позапускал уже примеры, работает она более чем отлично. Заодно понял, что мой широкоформатник через стандартный аналоговый выход не пашет на режимах с разрешением выше 640x480, скорее всего из-за частоты развёртки(надо ещё цифровой проверить, по идее должен работать). Обрубается потихоньку совместимость моников со старыми VESA BIOS, неаппетитно всё это.

@Илья01 · 10.04.2011, 14:25 **[ТС]**

Сообщение от PB

когда выкладывают (или помогают) бесплатно, то не дают ни каких гарантий - не нравится - ищите другую библиотек

Сообщение от >Quiet Snow<

дело далеко не в библиотеке, т.к. позапускал уже примеры, работает она более чем отлично

Я когда создавал эту тему я не просил сказать как переделать под меня библиотеку, я спрашивал как переделать мой код под библиотеку. Вы мне это уже и ответили.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .