Вход на форум 
В начало e-Mail

Форум

Ресурсы Rockwell

Product Directory

Essential Components

Literature Library

Knowledge Base

Electronic News&Magazines

Блог

Encompass Program

Product Certification

  
Smart Solutions VDT :: Просмотр темы - Небольшая проблема с VBмакросами в RS View32
 FAQFAQ   ПоискПоиск   ГруппыГруппы   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Небольшая проблема с VBмакросами в RS View32
На страницу 1, 2  След.
 
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации
Предыдущая тема :: Следующая тема  
Автор Сообщение
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Ср 03 Май, 2006 14:17:24    Заголовок сообщения: Небольшая проблема с VBмакросами в RS View32 Ответить с цитатой

Для связи со смежной системой(передачи им некоторых значений тэгов) используется простейший скриптик:

Public Sub To_Mak()
Dim F_prg As Tag, p1 As String
p1 = "e:\temp\gaz.txt"
On Error GoTo lable1
Set F_prg = gTagDb("prg\rmain")

Open p1 For Append As #1
Print #1, F_prg
Close #1
Exit Sub
lable1:
MsgBox Err.Description
Resume Next
End Sub

Так вот на некоторых станциях он выполняестя нормально, а на некоторых( при видимой одинаковости условий)выдает ошибки:
"File not found" "Bad file name or number".
Сталкивался ли кто нибудь с чем то подобным!?помогите,плиз.

зы. "нормальные станции"
- RS View32 7.10, office XP
-RS View32 6.30, office 2000
"ненормальныеSmile станции"
-RS View32 7.10, office XP
-RS View32 7.10, office 2003
все "офисы" со своим VBA, на всех станциях стои MS Visual Basic 6 pro
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Ср 03 Май, 2006 14:22:14    Заголовок сообщения: Ответить с цитатой

или вот такая элементарщина проверки ради

Sub prb()
Dim p As String, n As String

n = InputBox("", "")
p = "e:\temp\" & n
MsgBox p

MkDir (p)
End Sub

в MS VB 6 все отлично, а под RS View ни в какую. Shocked Confused
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Ср 03 Май, 2006 14:34:56    Заголовок сообщения: Ответить с цитатой

Код:
Sub prb()
Dim p As String, n As String

n = InputBox("", "")
p = "C:\Temp\" & n
MsgBox p

MkDir (p)
End Sub


Только что ради интереса проверил - всё замечательно работает.
MS Windows XP + SP2
RSView v7.10.00 (CPR6)

Цитата:
в MS VB 6 все отлично, а под RS View ни в какую. Shocked Confused


А что пишет?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Ср 03 Май, 2006 17:40:00    Заголовок сообщения: Ответить с цитатой

ничего не пишет, но и папки никакой не создает.

Да, действительно зыбыл.
на "работающих" станциях стоят win2000 SP4 и не самый лицензионнный WinXP SP2.

На "неработающих" лицензионный WinXP SP2, и не менее лицензионный Win2000 SP4.

так что и не в системе дело.
а что это может быть!? Confused
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Ср 03 Май, 2006 18:36:22    Заголовок сообщения: Ответить с цитатой

Есть у меня одно смутное сомнение....

А с какой целью Вы, Kondratiev, указываете, какой именно Office у Вас там где стоит?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Ср 03 Май, 2006 20:14:40    Заголовок сообщения: Ответить с цитатой

Что бы я попробовал, так это поставил RSView32 без MS Visual Basic.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Чт 04 Май, 2006 11:54:26    Заголовок сообщения: Ответить с цитатой

oldDad писал(а):
Есть у меня одно смутное сомнение....

А с какой целью Вы, Kondratiev, указываете, какой именно Office у Вас там где стоит?


бывали в практике случаи, когда разные версии офиса кидали свои чуууть-чуть отличающийся VBA и в специфических макросах возникали нюансы
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Чт 04 Май, 2006 12:18:20    Заголовок сообщения: Ответить с цитатой

oldDad писал(а):
Что бы я попробовал, так это поставил RSView32 без MS Visual Basic.


попробую найти свободную машинку. но все таки на рабочих станциях VB6 нужен для сопутствующих пограммок
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Чт 04 Май, 2006 14:09:53    Заголовок сообщения: Ответить с цитатой

А зачем Вам на рабочих станциях весь VB6, если не секрет? Может быть, достаточно только скомпилировать аппликацию?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Dvoeglazov
Эксперт
Эксперт


Зарегистрирован: Mar 06, 2006
Сообщения: 278
Рейтинг: +1/-0
Откуда: г.Киров-Чепецк

СообщениеДобавлено: Сб 06 Май, 2006 7:55:11    Заголовок сообщения: Ответить с цитатой

Я всегда ставлю проверку на наличие и доступность файла. Правда теперь я на Delphi пишу. Был у меня неприятный опыт с VB. Написал я на VB учет и часть бухгалтерии, но работало как-то все тормозно. А потом выяснилось, что пока открыто какое-нибудь окно этого приложения, RSView почти останавливается. Вобщем маялся я и еще один человек с этим 1,5 года, пока не переписали все на Delphi. Работает уже 3 года =)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Ср 10 Май, 2006 5:50:14    Заголовок сообщения: Ответить с цитатой

А вот интересно, почему на Delphi, а не на C++ или С-решётка?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Dvoeglazov
Эксперт
Эксперт


Зарегистрирован: Mar 06, 2006
Сообщения: 278
Рейтинг: +1/-0
Откуда: г.Киров-Чепецк

СообщениеДобавлено: Ср 10 Май, 2006 6:34:46    Заголовок сообщения: Ответить с цитатой

Это не принципиально. У RA примеры на C++ и VB приведены. так-что на Delphi писать, действительно сложнее. Просто пока я в университете учился я 3 года на Delphi писал =).
А теперь он "умирает", придется MS C++ учить =(
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
oldDad
Site Admin
Site Admin


Зарегистрирован: May 05, 2005
Сообщения: 2773
Рейтинг: +89/-5

СообщениеДобавлено: Ср 10 Май, 2006 20:36:46    Заголовок сообщения: Ответить с цитатой

Ну, ничего страшного Smile

Все пишут, и ничего Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Чт 11 Май, 2006 6:40:17    Заголовок сообщения: Ответить с цитатой

Dvoeglazov писал(а):
Это не принципиально. У RA примеры на C++ и VB приведены. так-что на Delphi писать, действительно сложнее. Просто пока я в университете учился я 3 года на Delphi писал =).
А теперь он "умирает", придется MS C++ учить =(



С и делфя не подходят. макрос будет запускаться часто. раз в 5-7 секунд, и внешние приложения вызывать не желательно. на с++ или том же MS VB6 никаких пролем не возникло и не могло возникнуть. вопрос именно о встроенном RS View-шном VBA
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Kondratiev
Постоянный участник
Постоянный участник


Зарегистрирован: Dec 04, 2005
Сообщения: 79
Рейтинг: +1/-0
Откуда: Мариуполь, Киев

СообщениеДобавлено: Чт 11 Май, 2006 6:45:40    Заголовок сообщения: Ответить с цитатой

путем некоторых "плясок с бубном" на тестовой машине удалось определить следующее.

последовательная установка office XP, RSView, MS VB6(именно в этом порядке) приводит к желаемому эффекту "все работает".

зы. что характерно, при установке на станции office 2003 нормальная работа нужных приложений оказалась недостижима. не зря я его недолюбливал.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации Часовой пояс: GMT + 1
На страницу 1, 2  След.
Страница 1 из 2

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

Powered by phpBB © 2001, 2005 phpBB Group
Яндекс цитирования

Smart Solutions VDT GmbH | Friedrich-List-Allee 38, D-41844 Wegberg-Wildenrath, Germany
Tel.: +49 2432 933 57 83 | e-Mail: office@vdt-solutions.de
Все товарные знаки и торговые марки являются собственностью их владельцев.
При использовании материалов сайта ссылка на данный сайт обязательна.
Открытие страницы: 0.135 секунды
/n