38.5.2.4 VB6 Program Example - Samples of Read/Write data (device access API)

Sample program location: (GP-Pro EX CD-ROM)\WinGP\SDK\Pro-SDK\VB\EasySmpl

VB6 sample program will not run on Windows Vista.

Option Explicit

Private Sub Form_Load()

Dim iResult As Long

iResult = EasyInit()
If iResult Then
  Dim sErrMsg As String
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
End If

End Sub

' ----------------------------------------------
' WriteDeviceXXX()
' ----------------------------------------------

Private Sub WriteBit_Click()

' Write data.
Dim nDataAry(1) As Integer
nDataAry(0) = CInt(Val(Me.WBuf_Bit.Text))

' Write.
Dim iResult As Long
iResult = WriteDeviceBit("#WinGP", "Buf_Bit", nDataAry(0), 1)
' Here the symbol "Buf_16" (USR201) configured in GP-Pro EX is used.
' You can also specify the device address directly.
' 38.5.2.2 How to specify device addresses directly
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

Private Sub Write16_Click()

' Write data.
Dim nDataAry(1) As Integer
nDataAry(0) = CInt(Val(Me.WBuf_16.Text))

' Write.
Dim iResult As Long
iResult = WriteDevice16("#WinGP", "Buf_16", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

Private Sub Write32_Click()

' Write data.
Dim nDataAry(1) As Long
nDataAry(0) = CLng(Val(Me.WBuf_32.Text))

' Write.
Dim iResult As Long
iResult = WriteDevice32("#WinGP", "Buf_32", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

Private Sub WriteFloat_Click()

' Write data.
Dim nDataAry(1) As Single
nDataAry(0) = CSng(Val(Me.WBuf_Float.Text))

' Write.
Dim iResult As Long
iResult = WriteDeviceFloat("#WinGP", "Buf_Float", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

Private Sub WriteDouble_Click()

' Write data.
Dim nDataAry(1) As Double
nDataAry(0) = CDbl(Val(Me.WBuf_Double.Text))

' Write.
Dim iResult As Long
iResult = WriteDeviceDouble("#WinGP", "Buf_Double", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

Private Sub WriteString_Click()

' Write data.
Dim nDataAry As String
nDataAry = Me.WBuf_Str.Text

' Write.
Dim iResult As Long
iResult = WriteDeviceStr("#WinGP", "Buf_Str", nDataAry, 10)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessageEx(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

End Sub

' ----------------------------------------------
' ReadDeviceXXX()
' ----------------------------------------------

Private Sub ReadBit_Click()

' Read data.
Dim nDataAry(1) As Integer

' Read.
Dim iResult As Long
iResult = ReadDeviceBit("#WinGP", "Buf_Bit", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_Bit.Text = CStr(nDataAry(0))

End Sub

Private Sub Read16_Click()

' Read data.
Dim nDataAry(1) As Integer

' Read.
Dim iResult As Long
iResult = ReadDevice16("#WinGP", "Buf_16", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_16.Text = CStr(nDataAry(0))

End Sub

Private Sub Read32_Click()

' Read data.
Dim nDataAry(1) As Long

' Read.
Dim iResult As Long
iResult = ReadDevice32("#WinGP", "Buf_32", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_32.Text = CStr(nDataAry(0))

End Sub

Private Sub ReadFloat_Click()

' Read data.
Dim nDataAry(1) As Single

' Read.
Dim iResult As Long
iResult = ReadDeviceFloat("#WinGP", "Buf_Float", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_Float.Text = CStr(nDataAry(0))

End Sub

Private Sub ReadDouble_Click()

' Read data.
Dim nDataAry(1) As Double

' Read.
Dim iResult As Long
iResult = ReadDeviceDouble("#WinGP", "Buf_Double", nDataAry(0), 1)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_Double.Text = CStr(nDataAry(0))

End Sub

Private Sub ReadString_Click()

' Read data.
Dim nDataAry As String * 255

' Read.
Dim iResult As Long
iResult = ReadDeviceStr("#WinGP", "Buf_Str", nDataAry, 10)
If iResult Then
  Dim sErrMsg As String * 512
  Dim iMsgResult As Long
  iMsgResult = EasyLoadErrorMessage(iResult, sErrMsg)
  MsgBox (sErrMsg)
End If

Me.Buf_Str.Text = nDataAry

End Sub