
VS2005.NET Modbus TCP driver class
Здравейте.От скоро се занимавам с VS.NET.Изтеглих си от
http://www.codeproject.com/KB/IP/Modbus_TCP_class.aspx. Искам да си напиша приложение с което да чета устройства на Modbus. Пренаписвам си примерната програма от C# на VB.NET понеже него ползвам макар че с NET платформата няма значение на какво ще пишеш. Проблема ми е че не знам как да заменя cледното от C# на VB или поне не сработва.
private void btnConnect_Click(object sender, System.EventArgs e)
{
try
{
// Create new modbus master and add event functions
MBmaster = new Master(txtIP.Text, 502);
//=====================================================================
MBmaster.OnResponseData += new ModbusTCP.Master.ResponseData(MBmaster_OnResponseData);
MBmaster.OnException += new ModbusTCP.Master.ExceptionData(MBmaster_OnException);
//======================================================================
// Show additional fields, enable watchdog
grpExchange.Visible = true;
grpData.Visible = true;
Watchdog.Enabled = true;
}
catch(SystemException error)
{
MessageBox.Show(error.Message);
}
}
Private Sub btnConnect_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
' Create new modbus master and add event functions
MBmaster = New Master(txtIP.Text, 502)
'------Тук не ми се обработва събието незнам какво бъркам-------------------------
AddHandler MBmaster.OnResponseData, AddressOf MBmaster_OnResponseData
AddHandler MBmaster.OnException, AddressOf MBmaster_OnException
'--------------------------------------------------------------------------------------------------
' Show additional fields, enable watchdog
grpExchange.Visible = True
grpData.Visible = True
Watchdog.Enabled = True
Catch [error] As SystemException
MessageBox.Show([error].Message)
End Try
End Sub