Helga

Ура! Заработало! http://www.manualslib.com/manual/72993/Hp-Hp-34970a.html?page=320 http://www.ni.com/visa/

Option Explicit ' Declarations for VISA.DLL ' Basic I/O Operations Private Declare Function viOpenDefaultRM Lib "VISA32.DLL" Alias "#141" (sesn As Long) As Long Private Declare Function viOpen Lib "VISA32.DLL" Alias "#131" (ByVal sesn As Long, _ ByVal desc As String, ByVal mode As Long, ByVal TimeOut As Long, vi As Long) As Long Private Declare Function viClose Lib "VISA32.DLL" Alias "#132" (ByVal vi As Long) As Long Private Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, _ ByVal Buffer As String, ByVal Count As Long, retCount As Long) As Long Private Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, _ ByVal Buffer As String, ByVal Count As Long, retCount As Long) As Long Sub VISALV_COM23() On Error GoTo ErrAllgemein Debug.Print "Start" Dim s As String Dim status, defaultRM, in_str, writeCount, retCount s = "?TE" & Chr$(13) status = viOpenDefaultRM(defaultRM) Debug.Print "VISA open: " & status & " Handle: " & defaultRM status = viOpen(defaultRM, "ASRL23::INSTR", 0, 5000, in_str) Debug.Print "VISA_Gerät open: " & status & " Handle: " & in_str status = viWrite(in_str, s, Len(s), writeCount) status = viRead(in_str, s, 100, retCount) Debug.Print "String: " & s & "Count: " & retCount status = viClose(in_str) status = viClose(defaultRM) Debug.Print "Finished" Exit Sub ErrAllgemein: Debug.Print Err.Description End Sub

Извените за задержку, была в отпуске. Хочу сегодня попробовать visa32.dll от LabVIEW. Нужный порт - 23. Файл прикреплен. Спасибо за внимание! COM23.txt

Смотрю PCOMM.H, даты пугают! /* PComm_c.h * PComm define file for Win32 on C/C++ * History: * Date Author Comment * 10/22/1996 Victor wrote it. * 03/28/1997 Victor modified. add sio_term_irq function. * add sio_linput function. * 04/29/1997 Victor modified. add sio_putb_x function. * 05/21/1997 Victor modified. add sio_view function. * 06/13/1997 Victor modified. add file transfer function. * 06/30/1997 Victor modified. add sio_TxLowWater function. * 11/17/1997 Victor add sio_AbortWrite, sio_SetWriteTimeouts * 11/21/1997 Victor add sio_SetReadTimeouts, sio_AbortRead * sio_GetReadTimeouts, sio_GetWriteTimeouts * 03/08/1998 Casper support VB 5.0 * * 04/27/1999 Casper add sio_ActXon, sio_ActXoff, sio_break_ex */ Можно ли это применять?

К сожалению, я ни в чем не уверена. Но я все попробовала и 4001 и 4023. Установила PComm Terminal, с трудом, но получила ответ с прибора. Прибор тоже немного не стандартный. Пока пытаюсь разобраться в настройках. И как проще: виртуальный порт или TCP-Server?

На нашей фирме мы используем много ваших NPorts для подключения приборов в сеть. Я обычно программировала на LabVIEW и не было никаких проблем. Но меня попросили считать данные из VBA Excel, у нас формы на Excel используются в производстве. И у меня сходу не получилось. Я пыталась соединиться через IPSerial.dll, функции Nport'a, выдается ошибка (-200). Почитав форум, я думаю, что надо к IP адресу добавить порт. У меня COM23, значит nsio_open("10.20.20.245:4023",1,3000), модель NPort 5110A. NPort Administrator на компьютере установлен. Программа на LabVIEW работает через виртуальный COM23. Пробовала на С#, тоже не могу подключиться. Ни через IPSerial.dll, ни через виртуальный порт. Надо ли дополнительно настраивать Firewall? Вышлите мне тоже чего-нибудь. Спасибо!