3.5.2
BisOpenPacket
3-11
For Visual Basic 2008
Public Class BisOpenPacket
Public Declare Function BisOpenPacket Lib "bis.dll" _
(ByVal strIP As String, ByVal strBD As String, _
ByRef lngID As Integer) As Integer
Public Declare Function BisSystPres Lib "bis.dll" _
(ByVal lngPID As Integer) As Integer
Public Declare Function BisClosePacket Lib "bis.dll" _
(ByVal lngID As Integer) As Integer
Dim lngPID As Integer
Private Sub cmdOpen_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdOpen.Click
Dim lngErr As Integer
lngErr = BisOpenPacket("127.0.0.1", "0", lngPID)
' Confirmation of successful connection
If (lngErr <> 0) Then
MsgBox("Invalid open the Communication Port.(" & Str(lngErr) _
& ")", vbOKOnly)
Else
lngErr = BisSystPres(lngPID)
End If
End Sub
Private Sub BisOpenPacket_FormClosed(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosedEventArgs) _
Handles Me.FormClosed
Dim lngErr As Integer
If lngPID Then lngErr = BisClosePacket(lngPID)
End Sub
End Class