Регистрация | Последние сообщения | Персональный список | Поиск | Настройка конференции | Личные данные | Правила конференции | Список участников | Top 64 | Статистика раздела | faq | Что нового v.2.3 | Чат
Skunk Forum - Техника, Наука, Общество » АСУТП »
Подключение промышленной клавиатуры к SCADA

Версия для печати (настроить)

Новая тема | Написать ответ

Подписаться

Автор Тема:   Подключение промышленной клавиатуры к SCADA
Avsha
Member

Сообщений: 65
Регистрация: Июль 2005

написано 21 Октября 2005 06:07ИнфоПравкаОтветитьIP

Требуется изменять значения 60 дискретным тегам (6 групп по 10 параметров) с помощью промышленной клавиатуры, клавиши которой программируются а любое сочетание клавиш.

Соответственно удобно было бы назначить макросы на нажатие следующих сочетаний клавиш:

Ctrl-Shift-A-F1 ... Ctrl-Shift-A-F10 - первая группа,
Ctrl-Shift-B-F1 ... Ctrl-Shift-B-F10 - вторая группа,
Ctrl-Shift-С-F1 ... Ctrl-Shift-С-F10 - третья и т.д...

В iFix для того чтобы ловить нажатие клавиш и производить по ним действия используется "редактор макросов на нажатие клавиш"
Но я столкунулся с ограничением на сочтания клавиш, это максимум только 3 клавиши в сочетании (например Ctrl-Shift-1)
И вдобавок планирую назначить такие сочетания, чтобы случайное нажатие на них было трудновыполнимым,
из-за того, что мы хотим использовать как промышленную клавиатуру, так и стандартную офисную совместно.

Просмотрел всю документацию про редактор макросов, нашел только это обнадеживающее сообщение:
"Замечание: Коды клавиш, которые нельзя использовать в Редакторе макросов, можно добавить при помощи методов интерфейса."

NOTE: Key codes that cannot be applied in the Key Macro Editor can be added using the interface methods.

Что это за методы интерфейса ?
И возможно ли дополнить имеющиеся сочетания клавиш редактора макросов iFix дополнительными (например на 4 клавиши) ?

Есть ли у кого опыт подключение промышленной клавиатуры к SCADA?

Avsha
Member

Сообщений: 66
Регистрация: Июль 2005

написано 21 Октября 2005 13:50ИнфоПравкаОтветитьIP

На всех форумах задавал этот вопрос, а помогли на форуме по VBA.

Так что кому надо, вот ответ:

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_F1 = vbKeyF1
Public Const VK_F2 = vbKeyF2
Public Const VK_F3 = vbKeyF3
Public Const VK_F4 = vbKeyF4
Public Const VK_F5 = vbKeyF5

Public Sub FixGlobals_CtrlShiftQ()

If GetKeyState(VK_F1) < 0 Then MsgBox "Ctrl+Shift+Q+F1"
If GetKeyState(VK_F2) < 0 Then MsgBox "Ctrl+Shift+Q+F2"
If GetKeyState(VK_F3) < 0 Then MsgBox "Ctrl+Shift+Q+F3"
If GetKeyState(VK_F4) < 0 Then MsgBox "Ctrl+Shift+Q+F4"
If GetKeyState(VK_F5) < 0 Then MsgBox "Ctrl+Shift+Q+F5"
End Sub

Ваш ответ:

Коды форума
Смайлики


Ник:    Пароль       
Отключить смайлики

Все время MSK

Склеить | Разбить | Закрыть | Переместить | Удалить

Новая тема | Написать ответ
Последние сообщения         
Перейти к:

Свяжитесь с нами | skunksworks.net

Copyright © skunksworks.net, 2000-2019

Разработка и техническая поддержка: skunksworks.net


Рейтинг@Mail.ru Яндекс.Метрика