6.0(別の人製作)から.netに書き換えているのですが、追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。というエラーの解決法がわかりません。 過去ログをみたのですが、formとformのやりとりは結構あったのですが、moduleとformということもあり初心者なのでよく分かりませんでした。環境は.netです。ご教示願います。
'Module1
Public Module Module1
Public Declare Function ibdev32 Lib "Gpib-32.dll" Alias "ibdev" (ByVal bdid As Long, ByVal pad As Long, ByVal sad As Long, ByVal tmo As Long, ByVal eot As Long, ByVal eos As Long) As Long
Public Sub copy_ibvars()
ibsta = ConvertLongToInt(Longibsta)
iberr = CInt(Longiberr)
ibcnt = ConvertLongToInt(ibcntl)
End Sub
Public Sub ibdev(ByVal bdid As Integer, ByVal pad As Integer, ByVal sad As Integer, ByVal tmo As Integer, ByVal eot As Integer, ByVal eos As Integer, ByVal ud As Integer)
' Check to see if GPIB Global variables are registered
If (GPIBglobalsRegistered = 0) Then
Call RegisterGPIBGlobals()
End If
' Call the 32-bit DLL.
ud = ConvertLongToInt(ibdev32(bdid, pad, sad, tmo, eot, eos))
Call copy_ibvars()
End Sub
end module
'form1
Public Class Form1
Inherits System.Windows.Forms.Form
Public AVS As Integer
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call ibdev(0, 20, 0, 11, 1, 0, AVS)
Call ibclr(AVS)
Call ibwrt(AVS, "*CLS;")
Call ibwrt(AVS, "REM 1")
End Sub
end class
書き忘れました。
ud = ConvertLongToInt(ibdev32(bdid, pad, sad, tmo, eot, eos))←ここでエラーです。
ツイート | ![]() |