User`s manual
http://www.adtechcn.com 73
1.3.2 The initialization codes are in the uploaded events, which are described as follows:
Private Sub Form_Load()
DeviceAddr_init ' initialize the device’s interface address
m_MacAddr.Text = "00-AB-CD-00-01-23" 'designate network adapter’s address
m_IPAddr.Text = "192.168.0.123" ' designate IP address of control card
m_INFO.Text = "please initialize first"
End Sub
Private Sub InitiallDevice_Click()
Init_Board 'card initialization
End Sub
'********************card initialization*********************
Private Sub Init_Board()
Dim ip_addr, mac_addr As String
Dim sock1 As Integer, err As Integer, count As Integer
devnum = -1
ip_addr = "192.168.0.123" '' designate network adapter’s address
mac_addr = "00-AB-CD-00-01-23" ' designate IP address of control card
devnum = TCP_Conn(ip_addr, mac_addr, err)
sock1 = Get_sock(devnum)
If sock1 = -1 Then
m_Device.Text = "none"
m_IPStatus.Text = "connection failure"
m_INFO.Text = "please check the device’s connection"
Else
m_Device.Text = "0"
m_IPStatus.Text = "connection OK"
count = Init_Card(devnum)
If count = 1 Then
MsgBox "8840 control card initialization completed!"
m_INFO.Text = "device initialization completed"
InitiallDevice.Enabled = False
Else
m_INFO.Text = " device initialization failure"
End If
End If
End Sub
1.3.3 Interaction codes are provided at the button “AxisPmove_Click” where they can be