 | |
Предыдущие результаты
 Забыл еще функцию
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
А саму функцию можно сделать отдельную, те без окна и кнопки
а значения соответсвующие label1 и 2 передавать двум строковым тэгам
проекта = gTagDb.GetTag("string1").Value
= gTagDb.GetTag("string2").Value
|
Уважаемый BigBug. Язык, если я правильно понимаю раскладка клавиатуры на АРМ переключается независимо ни от чего, тоесть не важно какая запущена скада. другое дело как это увидеть. Предлагаю в VBA написать процедуру.
В модуле скрипта надо обьявить API функцию
Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
А сама процедура для нажатия клавиши на какой нибудь форме(сделайте какуюнибудь форму в VBA)
Private Sub Button1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim layoutname As String * KL_NAMELENGTH
Dim capslock
Dim dl&
dl& = GetKeyboardLayoutName(layoutname)
capslock = GetKeyState(VK_CAPITAL)
If layoutname = EN_LANG Then
If capslock And 1 Then
Label1.Caption = "EN"
Label2.Caption = "Caps Lock"
Else
Label1.Caption = "en"
Label2.Caption = ""
End If
ElseIf layoutname = RU_LANG Then
If capslock And 1 Then
Label1.Caption = "RU"
Labe2.Caption = "Caps Lock"
Else
Label1.Caption = "ru"
Label2.Caption = ""
End If
Else: Label1.Caption = "??"
End If
End Sub
|
[quote:77704e2e1d="oldDad"]Почему он так сильно хочет именно это устаревшее программное обеспечение и почему диктует Вам? Он что, знает лучше Вас, какой продукт применять?[/quote:77704e2e1d]
Почему так категорично? Разве RSView32 уже официально снят с поддержки?
Да и заказчики бывают разные, есть которым все равно, а есть и продвинутые. Если требуют - значит знают, что хотят.
а если по делу - то:
Я сталкивался с задачей такого рода несколько лет назад...
В RSView32 единственное, что может потребовать отдельного экрана для языка - это всплывающие подсказки.
Если их наличие непринципиально - то всё достаточно легко разруливается без дублирования экранов путем параметризации.
Стандартные кнопки легко заменяются на Touch-анимацию (кстати, я уже давно считаю плохим тоном использование стандартных кнопок :roll: )
Ну а все статические надписи на экранах выводить из строковых Memory-тэгов через параметр
С трендами лучше все-таки использовать отдельные экраны с TrendX, благо он позволяет писать независимые описания для перьев.
С сигнализацией всё не так красиво... для каждого языка нужно свой тэг, чтобы не перезапускать постоянно всю систему сигнализации. Ну и соответственно располагать теги сигнализации так, чтобы легко накладывался фильтр с маской.
Плохо, что дублирование тэгов сигнализации влечет за собой увеличение Device-тэгов (лицензируемых).
Так что, в принципе, всё это реализуемо средствами RSView32 без особых трудностей...
ЗЫ
ну и практически все написанное в SE может делаться точно также, но боюсь, все на языковый Action не навесишь
|
Кроме связки VBA и базы Access начиная с RSView32 7.30 в системе команд есть ещё пара штучек:
[quote:336edcd786]Language Tags Substitution utility is now available in RSView®32. Two commands LInsertStringTag and LTagSubstitute are added to allow users to create a spreadsheet of string tag values in different languages and to select the values in a particular language for the tags during runtime.[/quote:336edcd786]
И это всё. Увы, RSView32 - это очень старый продукт. Он не рекомендуется для вновь создаваемых систем. Переключение языков есть только в более новом RSViewSE aka FTViewSE.
Самое мудрое - это отговорить Вашего клиента от ошибки, которую он совершает, настаивая на устаревшем продукте и уговорить его на FTViewSE, преимущества которого очевидны.
|
http://www.filehoster.ru/files/ct3811 > http://www.filehoster.ru/files/ct3858
http://www.filehoster.ru/files/ct3819 > http://www.filehoster.ru/files/ct3861
http://www.filehoster.ru/files/ct3811 > http://www.filehoster.ru/files/ct3861
http://www.filehoster.ru/files/ct3819 > http://www.filehoster.ru/files/ct3861
http://www.filehoster.ru/files/ct3819 > http://www.filehoster.ru/files/ct3863
|
Устновите для этого модуля EDS-файл:
http://vdt-automation.de/files/1794-IE8H_eds.rar
Даже если какой-то модуль не определяется, то проект стираться из памяти контроллера не должен. Разве что, контроллер неисправен.
Какой процессор Вы используете?
Если это удалённый ввод-вывод, какой сетевой адаптер для соединения FlexIO с контроллером Вы используете? Какая ревизия и версия прошивки?
|
некие предыдущие мометы для Delphi на VB. За отсутвие кометариев извиняйте. И так выложил все что мог. Пользуйся народ. Мне не жалко.
http://www.filehoster.ru/files/ct2777/. Обещал-выложил.
|
не шифруйся, хочешь script напиши свой email
|
Спасибо за проявленный интерес к теме.
Интерфейс модели RSView32 находится в библиотеке C:\Program Files\Rockwell
Software\RSView\ROI32.dll. Сама она связана с множеством dll и exe.
Но это не важно. К самой этой модели можно обращаться через
модуль интерфейса RSView32_TLB, объявленный в проекте Delphi. Прикрепляю
исходник, над которым сейчас работаю. Это некое консольное приложение
в виде верхней панели, работающей параллельно проекту RSView32. Смысл
создать универсальную оболочку, включающую много универсальных
функций, для стандартного проекта. Делаю я это чтобы не потерять
спортивную форму и не засохли мозги в кризисное время. С работой
сейчас напряженка... Оставляю за собой авторское право, извините.
Прошу учесть что все это еще сыро и не отработано до коца. Но
для нетерпеливых сам проект Delphi по ссылке http://www.filehoster.ru/files/ct2425
соответсвующий ему проект rsview32 http://www.filehoster.ru/files/ct2424
|
[quote:62207747ee="and123"] причем быстрее чем Basic\Script в сотни раз ... Думаю не открыл Америку.
[/quote:62207747ee]
Хм...очень интересно... Америку не открыли..., очень серьезное заявление. В сотни раз... чем измеряли? Нет, я серьезно. Просто интересно. Использую VBA, для некоторых вещей. Для задач типа свободноконфигурируемый тренд, цифровой ввод типа калькулятора, Упаковка данных в *.mdb, вывод в Crystal Reports, +всякие отчеты в Excel скорости хватает.
[quote:62207747ee="and123"]
Но для тех кому интерестно могу предоставить интересные исходники[/quote:62207747ee]
Я бы посмотрел!. Все что есть.... :)
|
Предыдущие результаты
Ещё результаты |
|
| |
|
