Private Declare Sub Gpib_Init Lib "Gpdllpci.dll" () Private Declare Sub Gpib_Ifc Lib "Gpdllpci.dll" () Private Declare Function Gpib_Dcl Lib "Gpdllpci.dll" (ByVal tim As Integer) As Integer Private Declare Function Gpib_Sdc Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal adr As Integer) As Integer Private Declare Function Gpib_Trg Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal adr As Integer) As Integer Private Declare Function Gpib_Llo Lib "Gpdllpci.dll" (ByVal tim As Integer) As Integer Private Declare Function Gpib_Gtl Lib "Gpdllpci.dll" (ByVal tim As Integer) As Integer Private Declare Sub Gpib_Ren Lib "Gpdllpci.dll" () Private Declare Sub Gpib_Lcl Lib "Gpdllpci.dll" () Private Declare Function Gpib_Wrt Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal wbuf As String, ByVal dlm As Integer, ByVal adr As Integer) As Integer Private Declare Function Gpib_Red Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal buf As String, ByVal dlm As Integer, ByVal adr As Integer) As Integer Private Declare Function Gpib_Bwrt Lib "Gpdllpci.dll" (ByVal tim As Integer, bbuf As Byte, ByVal wnum As Long, ByVal adr As Integer) As Integer Private Declare Function Gpib_Bred Lib "Gpdllpci.dll" (ByVal tim As Integer, bbuf As Byte, num As Long, ByVal adr As Integer) As Integer Private Declare Function Gpib_Spol Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal adr As Integer) As Integer Private Declare Function Gpib_Sts Lib "Gpdllpci.dll" () As Integer Private Declare Function Gpib_Cmd Lib "Gpdllpci.dll" (ByVal tim As Integer, ByVal buf As String) As Integer Dim buf As String * 1000 '1000文字の読み込みエリアを確保 Dim wbuf as String '書き込みバッファ Dim bbuf(1000) As Byte '1000バイトのエリアを確保 Dim num As Long