オブジェクト参照エラーでインスタンスを設定するには?


taktak  2005-10-27 02:45:29  No: 126940

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


taktak  2005-10-27 02:47:20  No: 126941

書き忘れました。
ud = ConvertLongToInt(ibdev32(bdid, pad, sad, tmo, eot, eos))←ここでエラーです。


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加