前提・実現したいこと
電源装置をLANで動かしたい。
Visual Basic 2008をVisual Studioで動かそうとしているのですがエラーが出て動きません。
プログラムの設定が間違えているのか必要なファイルが必要なのか、解決の糸口が戴きたいです。
よろしくお願いします。
発生している問題・エラーメッセージ
エラー 1 HANDLES 句には、それを含む型または基本型の 1 つで定義された WithEvents 変数が必要です。 C:\Users\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb 35 98 WindowsApplication1 エラー 2 'TextBox1' は宣言されていません。アクセスできない保護レベルになっています。 C:\Users\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb 39 9 WindowsApplication1 エラー 3 HANDLES 句には、それを含む型または基本型の 1 つで定義された WithEvents 変数が必要です。 C:\Users\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb 47 99 WindowsApplication1 エラー 4 HANDLES 句には、それを含む型または基本型の 1 つで定義された WithEvents 変数が必要です。 C:\Users\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb 63 99 WindowsApplication1 エラー 5 'TextBox1' は宣言されていません。アクセスできない保護レベルになっています。 C:\Users\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb 67 9 WindowsApplication1
該当のソースコード
Visual
1Imports Ivi.Visa.Interop 2 3 4 5Public Class Form1 6 7 8 9 Dim rm As ResourceManager 10 11 Dim msg As IMessage 12 13 14 15 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 16 17 rm = CreateObject("VISA.GlobalRM") 18 19 'msg = rm.Open("MYDEV1", AccessMode.NO_LOCK, 0, "") 'VISAエイリアスを使用した例 20 21 msg = rm.Open("USB0::0x0B3E::0x1029::00000001::INSTR", AccessMode.NO_LOCK, 0, "") 'USBを使用した例 22 23 'msg = rm.Open("TCPIP::169.254.178.141::INSTR", AccessMode.NO_LOCK, 0, "") 'LANを使用した例 24 25 msg.TerminationCharacterEnabled = True 26 27 End Sub 28 29 30 31 'IDの問い合わせ 32 33 Private Sub cmdIdn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIdn.Click 34 35 msg.WriteString("*IDN?" & vbLF) 36 37 TextBox1.Text = msg.ReadString(256) 38 39 End Sub 40 41 42 43 '電圧設定、電流設定 44 45 Private Sub cmdCurr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCurr.Click 46 47 msg.WriteString("OUTP 0" & vbLF) 48 49 msg.WriteString("VOLT 18" & vbLF) 50 51 msg.WriteString("CURR 5" & vbLF) 52 53 msg.WriteString("OUTP 1" & vbLF) 54 55 End Sub 56 57 58 59 '電圧測定値の問い合わせ 60 61 Private Sub cmdMeas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMeas.Click 62 63 msg.WriteString("MEAS:VOLT?" & vbLF) 64 65 TextBox1.Text = msg.ReadString(256) 66 67 End Sub 68 69 70 71 Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed 72 73 msg.Close() 74 75 End Sub 76 77 78 79END CLASS
。
補足情報(FW/ツールのバージョンなど)
Visual Studio2013
VISA COM 5.5 Type Library
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/07/18 03:06
2018/07/18 03:15
2018/07/18 03:23
2018/07/18 03:26
2018/07/18 14:06
2018/07/18 17:07
2018/07/18 17:10
2018/07/18 17:22
2018/07/18 19:31
2018/07/18 19:39
2018/07/18 19:41