Построить модель виртуальной клавиатуры с помощью графики

@Greym · Регистрация: 26.03.2012

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

Суть такова: Взял задание для курсовой - Построить модель виртуальной клавиатуры с помощью графики(показалось довольно интересно). Но так как в инсте мы используем версию 5.0, а там графики нет, то нам не рассказывали про графику ничего. Вкратце не могли бы вы, для примеры расписать код одной клавиши клавиатуры(если можно будет с описанием каждой строки).

SoftIce · 28.03.2012, 23:02

Эмуляция нажатия клавиш

@gaw · 28.03.2012, 23:07

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

Построить модель виртуальной клавиатуры с помощью графики

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

@zink0000 · 29.03.2012, 10:59

Двух клавиш, чтобы разобраться в принципе будет достаточно?
TEST0003.zip

Да, когда будете писать программу для 101 клавиши
координаты X1, X2, Y1, Y2 лучше сделать массивами
и символы тоже лучше выводить из массива,
а не вставлять персонально на каждую кнопку.

Хм... вроде бы всё...

@gaw · 29.03.2012, 11:26

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

Двух клавиш, чтобы разобраться в принципе будет достаточно?

нет наверное
слева по ходу Esc, F1, ...., Enter

@Greym · 29.03.2012, 11:51 **[ТС]**

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

нет наверное
слева по ходу Esc, F1, ...., Enter

Да думаю хватит, нужно построить простую клаву без Esc и F1 и т.д

Спасибо, буду разбираться

@zink0000 · 29.03.2012, 13:24

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

нет наверное
слева по ходу Esc, F1, ...., Enter

Enter-то нарисовать не проблема,
а вот Esc, F1-F12, PrtScr, Scroll Lock... это проблема...
на вскидку не получиться - особенно Power, Sleep и Wake.
Тут думать надо.

@zink0000 · 29.03.2012, 13:33

Вот Вам заодно и Enter
TEST0003.zip

@Greym · 29.03.2012, 22:45 **[ТС]**

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

Вот Вам заодно и Enter
Вложение 138503

спасибо.

@Alex77755 · 30.03.2012, 14:36

Может просто сфоткать клаву и привязать координаты?

@Greym · 31.03.2012, 16:09 **[ТС]**

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

Enter-то нарисовать не проблема,
а вот Esc, F1-F12, PrtScr, Scroll Lock... это проблема...
на вскидку не получиться - особенно Power, Sleep и Wake.
Тут думать надо.

А как кнопку shift сделать?

Добавлено через 1 час 13 минут
Ещё пытаюсь сделать клавишу BackSpace с помощью chr(8), но вместо удаление он печатает белый круг в квадрате.

@Alex77755 · 31.03.2012, 16:27

BackSpace с помощью chr(8)

chr с SendKeys не перепутал? может так проще?

Visual Basic
1
Then Текст1.Text = Left(Текст1.Text, Len(Текст1.Text) - 1)

@Alex77755 · 31.03.2012, 16:34

можно ещё примерно так...

@Greym · 01.04.2012, 01:34 **[ТС]**

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

можно ещё примерно так...

Неплохо))) но нет, это уж слишком.

Добавлено через 2 минуты

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

chr с SendKeys не перепутал? может так проще?

Visual Basic
1
Then Текст1.Text = Left(Текст1.Text, Len(Текст1.Text) - 1)

да работает, спасибо большое

Добавлено через 6 часов 46 минут
Всё вроде клаву сделал. не хватает только shift. везде обыскал, не знаю как сделать чтобы при её нажатие следующий введённый символ был большим.

@Alex77755 · 01.04.2012, 01:55

Устанавливай глобальный флаг.
При нажатии буквы - проверяй

@Greym · 01.04.2012, 11:51 **[ТС]**

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

Устанавливай глобальный флаг.
При нажатии буквы - проверяй

Этого ещё не пробовал, спасибо

@zink0000 · 05.04.2012, 12:27

Вам всё точно подсказали на счёт глобального флага.

TEST0003.zip

Собственно iShiftKey и есть в данном случае тот самый глобальный флаг.

Если ещё немножко подумать, то можно сделать чтобы все символы на кнопках
при нажатии на Shift перерисовывались в верхнем регистре.

@Alex77755 · 05.04.2012, 12:40

Visual Basic
1
2
3
4
5
6
7
8
        If iX1A < X And iX2A > X And iY1A < Y And iY2A > Y Then
      ' Если нажата клавиша мышки - в позицию курсора выводим символ "A"
      If True = iShiftKey Then
        sChrA = "A"
      End If
      frmMain.txtText.SelText = sChrA
      sChrA = "a"
      iShiftKey = False

Можно покороче. Да и переменных меньше лишних:

Visual Basic
1
2
3
     If iX1A < X And iX2A > X And iY1A < Y And iY2A > Y Then
      ' Если нажата клавиша мышки - в позицию курсора выводим символ "A"
      frmMain.txtText.SelText = IIf(iShiftKey, "А", "а"): iShiftKey = False

Добавлено через 2 минуты
i

Visual Basic
1
ShiftKey = False

Лучше вообще вынести в конец процедуры что бы в каждой букве не снимать флаг

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Greym 0 / 0 / 0 Регистрация: 26.03.2012 Сообщений: 16

	Построить модель виртуальной клавиатуры с помощью графики 28.03.2012, 22:24. Показов 2348. Ответов 17 Метки нет (Все метки) Суть такова: Взял задание для курсовой - Построить модель виртуальной клавиатуры с помощью графики(показалось довольно интересно). Но так как в инсте мы используем версию 5.0, а там графики нет, то нам не рассказывали про графику ничего. Вкратце не могли бы вы, для примеры расписать код одной клавиши клавиатуры(если можно будет с описанием каждой строки). 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.03.2012, 23:02
	Эмуляция нажатия клавиш 0

@zink0000 258 / 107 / 26 Регистрация: 15.03.2012 Сообщений: 353 Записей в блоге: 35
	29.03.2012, 10:59
	Двух клавиш, чтобы разобраться в принципе будет достаточно? TEST0003.zip Да, когда будете писать программу для 101 клавиши координаты X1, X2, Y1, Y2 лучше сделать массивами и символы тоже лучше выводить из массива, а не вставлять персонально на каждую кнопку. Хм... вроде бы всё... 0

@zink0000 258 / 107 / 26 Регистрация: 15.03.2012 Сообщений: 353 Записей в блоге: 35
	29.03.2012, 13:33
	Вот Вам заодно и Enter TEST0003.zip 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	30.03.2012, 14:36
	Может просто сфоткать клаву и привязать координаты? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	01.04.2012, 01:55
	Устанавливай глобальный флаг. При нажатии буквы - проверяй 1

@zink0000 258 / 107 / 26 Регистрация: 15.03.2012 Сообщений: 353 Записей в блоге: 35
	05.04.2012, 12:27
	Вам всё точно подсказали на счёт глобального флага. TEST0003.zip Собственно iShiftKey и есть в данном случае тот самый глобальный флаг. Если ещё немножко подумать, то можно сделать чтобы все символы на кнопках при нажатии на Shift перерисовывались в верхнем регистре. 0