Использую ПО Ретом-Мастер для написания прикладных программ на VB.net.
1-й вопрос:
Столкнулся со следующей проблемой. Функция Out61 у меня работает частично.
Фрагмент кода:
Код: Выделить всё
Try
Dim chn1 As RTDI.CoAnalogOutputs
chn1 = Retom.NewAnalogChannels
chn1.dFrequency = CDbl(50)
chn1.SetSinSignal(0, CDbl(57.8), CDbl(0))
chn1.SetSinSignal(1, CDbl(57.8), CDbl(240))
chn1.SetSinSignal(2, CDbl(57.8), CDbl(120))
chn1.SetSinSignal(3, CDbl(1), CDbl(0))
chn1.SetSinSignal(4, CDbl(1), CDbl(240))
chn1.SetSinSignal(5, CDbl(1), CDbl(120))
Dim chn2 As RTDI.CoAnalogOutputs
chn2 = Retom.NewAnalogChannels
chn2.dFrequency = CDbl(50)
chn2.SetSinSignal(0, CDbl(57.8), CDbl(0))
chn2.SetSinSignal(1, CDbl(57.8), CDbl(240))
chn2.SetSinSignal(2, CDbl(57.8), CDbl(120))
chn2.SetSinSignal(3, CDbl(2), CDbl(0))
chn2.SetSinSignal(4, CDbl(2), CDbl(240))
chn2.SetSinSignal(5, CDbl(2), CDbl(120))
Retom.SetTimeOut(CDbl(20))
Retom.Out61(CObj(chn1), RTLink.Constants.RT_UI_ALL, CObj(chn2), RTLink.Constants.RT_I_ALL)
Catch ex As Exception
MsgBox(ex.Message.ToString)
Exit Sub
End Try
По вторым токовым каналам - ничего. Ошибок RTDI.DualServer не выдает.
(Interop.RTDI ver:1.11.0.0; Interop.RTLink ver:1.11.0.0; RTDI.DualServer.ServerInfo.Version=2.6101)
2-й вопрос:
Не смотря на то, что для подключения к устройству используется Ethernet, функция Open работает только в виде Retom.Open("USB", 0).
Заранее спасибо.