 | |
Предыдущие результаты
 Добрый день!
На старом немецком оборудовании проводим модернизацию.
Установлен энкодер Hohner, на наклейке только эти данные:
hohner D-7200 TUTTLINGEN FohrenstraBe 31-33
Serie | 60 | 6500
Dat | 0290 | 1000
На сайте www.hohner-elektrotechnik.de нет ничего подобного, скачал все каталоги.
Как видно, снят с производства. В инете тоже ничего не нашел. Разобрал: внутри такая-же наклейка. Корпус пластмассовый металлического цвета. На валу внутри диск с черной областью и 1(одна) метка прозрачная (абсолютный энкодер???). Диск вращается между двумя датчиками (фотодатчики???, датчики Холла???). 5 клемм, 3 клеммы промаркированы многозначительной полустертой надписью:
1 -
2 +
3 А (Или символ треугольного импульса, "пилы" - непонятно)
В исходном варианте энкодер был подключен 3 проводами экранированным кабелем, через шкаф автоматики, по-видимому, на счетчик Kubler (снятый с производства). Датчик установлен на выходном валу линии, скорость вращения вала достаточно низкая.
Вопрос: у кого есть информация на данный энкодер? И, самое главное, напряжение питания датчика?
|
Закончил выставлять панорамы Израиля. Последняя страница - Голаны.
http://www.ar-video.xost.ru/Israel_2008_8.htm
[img:65171f32c7]http://www.arvideo.ho-sting.ru/TMB/ISRAEL2008/38_BIRKAT_RAM.jpg[/img:65171f32c7]
|
Вот такой код проверенно работает в VBA Factorytalk View SE:
[code:1:b6d8ebc5a5]Dim TestString As String
TestString= "Shopping List"
aString = Replace(TestString, "o", "i")[/code:1:b6d8ebc5a5]
А в RSview32 попробуйте так:
[code:1:b6d8ebc5a5]Dim MyString
MyString = "The dog jumps" ' Initialize string.
Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps".
Mid(MyString, 5) = "cow" ' MyString = "The cow jumps".
Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe".
Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe".[/code:1:b6d8ebc5a5]
|
[quote:df71311c98="oldDad"]Попробуйте, будет так работать?
[code:1:df71311c98]
Dim TestString As String = "Shopping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")
[/code:1:df71311c98]
Вообще, код, который я привёл, совершенно корректен с точки зрения VisualBasic. Должно работать.
Какая у Вас версия RSView32? Попробуйте обновить её. Replace не входит в очень старые версии VB.[/quote:df71311c98]
Уважаемый OldDad, вы с какого дуба рухнули??? 8O :o
Приведенный код совершенно корректен исключительно для VisualBasic.Net
Ни в VB6, ни в VBA тем более, никогда не было инициализаторов переменных :wink:
Ну и функция Replace присутствует исключительно в чистом VB, в VBA её отродясь не было и нету до сих пор. :roll:
Заменить replace можно свякой из двух функций InStr и Mid
Первая ищет позицию, вторая прописывает нужные символы в указанную позицию.
Делается в цикле все это. Если автор не осилит сам, то могу написать реализацию, да их должно быть в интернете как грязи... :)
|
Пока делаю фотоповесть, решил просто выставлять страницы с поделками - анимашки, панорамы.
Раздел здесь:
http://www.ar-video.xost.ru/Israel_2008.htm
Выставлены: страничка анимашек с птичками, и сейчас пойдёт серия страниц с панорамами. Территориально, почти
по всей стране, от Эйлата до Голан.
[img:10a915adbc]http://www.arvideo.ho-sting.ru/TMB/ISRAEL2008/46_BEREG_YAFFO1.jpg[/img:10a915adbc]
|
Вот описание функции на русском:
http://www.vbnet.ru/vbguide/showfunction.asp?id=26
Вообще, код, который я привёл, совершенно корректен с точки зрения VisualBasic. Должно работать.
Какая у Вас версия RSView32? Попробуйте обновить её. Replace не входит в очень старые версии VB.
|
Попробуйте, будет так работать?
[code:1:e705214e44]
Dim TestString As String = "Shopping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")
[/code:1:e705214e44]
|
Писал скрипт в WinCC на VB и пользовался командой:
[code:1:c486f42719]k_ysv = Replace(k_ysv, ",", ".")[/code:1:c486f42719]
и у меня в стринговой переменной запятые менялись на точки
Теперь в RSView пишу на VBA, а команда не проходит. Пишет:
Sub, Function, or Property not defined (Error 35)
Может кто подскажет ошибку или аналог этой команды? Буду очень благодарен.
П.С. RSView32 старая версия
|
Насчёт PanelBuilder - не рекомендую, это ПО давно устарело. Это для старых чёрных PanelView, ещё не PanelView Plus, они не рекомендуются для новых разработок.
А по поводу FactoryTalk View ME - обратитесь, пожалуйста, в ближйший наш офис, Вам постараются помочь.
[url=http://www.rockwellautomation.com/solutions/integratedarchitecture/resources4.html#ftme]Вот здесь фирльмы во Flash по FactoryTalk View ME и по другим продуктам[/url]
|
С панелями вроде все понятно. Но хотелось бы еще посмотреть на инструменты разработки ПО. Скажите, доступны ли Demo-версии PanelBuilder и FactoryTalkME? Может быть дадите ссылочку откуда можно их скачать?
Поиск по ссылкам на сайте, к сожалению ничего не дал.
Заранее спасибо.
|
Предыдущие результаты
Ещё результаты |
|
| |
|
