台灣最大程式設計社群網站
線上人數
1637
 
會員總數:245248
討論主題:189105
歡迎您免費加入會員
討論區列表 >> VB6 >> 程式跑到一半 出現型態不符
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
程式跑到一半 出現型態不符
價值 : 10 QP  點閱數:1366 回應數:0

樓主

爆牙
門外漢
0 7
129 11
發送站內信

小弟寫一段程式如下,針對儀器透過GPIB做存取電壓 電流值
作記號的那兩行,時常會出現 型態不符...
但有時又可以完整跑完,如果將valuestr 定義為 double 也不行
不知是哪邊出了問題....資料型態也有換過 也是不能跑

Public valuestr As String * arraysize
Public valuestr2 As String * arraysize
Public aa1 As Double
Public aa2 As Double
Public displaystr As Double
Public displaystr2 As Double

For i = 2 To Range("a65536").End(xlUp).Row
'ilwrt dev%, "*cls", Len("*cls")

ld1 = "curr:stat:l1 " & Cells(i, 1)
ilwrt dev%, ld1, Len(ld1)
ilwrt dev%, "load on", Len("load on")
Application.Wait (Now + TimeValue("0:00:2"))

Call meas(ma1, ma2)
ilwrt dev%, ma2, Len(ma2)
ilrd dev%, valuestr, Len(valuestr)

displaystr = valuestr ''''''''''''''''''''''''''''''''''''''''''''''
Cells(1, 6) = valuestr
Cells(i, 3).value = Round(displaystr, 2)
a = displaystr

Call meas(ma1, ma2)
ilwrt dev%, ma1, Len(ma1)
ilrd dev%, valuestr2, Len(valuestr2)

displaystr2 = valuestr2 ''''''''''''''''''''''''''''''''''''''''''''
Cells(i, 2).value = Round(displaystr2, 2)
b = displaystr2

If (ibsta And EERR) Then
Call gpibcleanup("unable to read from device")
End If

本篇文章發表於2010-03-31 15:34
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.