精品精品-精品精品国-精品精品国产-精品精品国产高-精品精品国产高清-精品精品国产国产-精品精品国产精品等-精品精品国产理论

請問MX Component  使用vb 來寫，要用哪個指令抓取32位d值?
怎麼是都抓16位而已，求助~

求助~

有人知道取得32位的方式嗎?

指令的話，使用 【ReadDeviceBlock2】
但要特別處理，才能讀到。
詳細，請參考mx內(nèi)附的程式範例。

祝好運

大師您好~
小的只差在這個"特別處裡"
目前用範例程式ModemSample 來修改
裡面有使用到ReadDeviceBlock 指令，但是必須修改成ReadDeviceBlock2
請問要怎麼修改才不會出錯~感謝了~!!

目前把範例程式裡的
lReturnValue = ActEasyIF1.ReadDeviceBlock(szDeviceName, lSize, lData(0))

改成
lReturnValue = ActEasyIF1.ReadDeviceBlock2(szDeviceName, lSize, lData(0))

顯示出來的數(shù)據(jù)會有 "- "號，應(yīng)該是進位了，但是還是顯示不出和MELSOFT一樣的數(shù)據(jù)

好人作到底，給你完整的code
自己測試看看，有問題再討論

=====================================
Option Explicit
'/*****************************************************/
'/*撰寫者：李同在                                     */
'/*日期：2009/09/07 V1.0                              */
'/*用途：讀取三荾PLC的資料                            */
'/*****************************************************/
Dim bufferBit As udtBitInteger        '使用者自定型態(tài) for 32bit Integer
Dim bufferInteger As udtInteger
Public lRet As Long                   'PLC回傳值
Const MAX_SIZE_OF_ARRAY = 20          'Size of array for reading/writing 'Word' data to the PLC
'Data for reading/writing to the PLC
Private Type udtInteger
  iarrInteger(MAX_SIZE_OF_ARRAY - 1) As Integer
End Type
'資料位元
Private Type udtBitInteger
  l32Bit As Long
End Type

'/**************************************************************/
'/*功能：連續(xù)讀取32BIT PLC D值的資料                           */
'/*用法：Call Read32Bit("D0", "D2", "D4", "D6", "D8")          */
'/**************************************************************/
Public Function Read32Bit(ParamArray PLC_Data()) As String()
  Dim sRead32BitData() As String    '存放資料用
  Dim iCnt As Integer               '迴圈計算
 
  ReDim sRead32BitData(UBound(PLC_Data))
  For iCnt = LBound(PLC_Data) To UBound(PLC_Data)
    lRet = frmPLC.PLC.ReadDeviceBlock2(UCase(PLC_Data(iCnt)), CLng(2), bufferInteger.iarrInteger(0))
    LSet bufferBit = bufferInteger    '複製'bufferInteger'到 '32bit Integer'
    sRead32BitData(iCnt) = CStr(bufferBit.l32Bit)
  Next
  Read32Bit = sRead32BitData
End Function

感謝大師~正在努力了解中~!

大師您好~
目前我是用一個按鈕 和list
有一段我改成 lRet = ActEasyIF1.ReadDeviceBlock2  用gx 仿真來測試

Private Sub Command1_Click()
Call Read32Bit("D236", "D238", "D240", "D242", "D244")
List1.AddItem (Read32Bit)
End Sub

這樣會錯誤....

麻煩指點一下，謝謝~

你不是臺灣來的嗎？怎麼不在臺灣那邊發(fā)問？

你的CALL有問題，CALL回來的東西要放那裡？誰(程式)會知道？
當然就錯誤了。

一樣，直接給你現(xiàn)成的CODE，有問題再討論
VB語法不懂的，請自行找資料了解。
================================================
'讀取sv位置資料
Public Sub ReadSVData(iSVAxis As Integer)
  Dim arrData As Variant
  Dim iCnt As Integer

  Select Case iSVAxis
    Case 1:
      arrData = Read32Bit("D1000", "D1002", "D1004", "D1006", "D1008", "D1010", "D1012")
      For iCnt = LBound(arrData) To UBound(arrData)
        lblAxis1Poistion(iCnt).Caption = arrData(iCnt)
      Next iCnt
    Case 2:
      arrData = Read32Bit("D1018", "D1020", "D1024", "D1026", "D1028", "D1030", "D1032")
      For iCnt = LBound(arrData) To UBound(arrData)
        lblAxis2Poistion(iCnt).Caption = arrData(iCnt)
      Next iCnt
    Case 3:
      arrData = Read32Bit("D1034", "D1036", "D1038", "D1040", "D1042", "D1044", "D1046", "D1048", "D1050")
      For iCnt = LBound(arrData) To UBound(arrData)
        lblAxis3Poistion(iCnt).Caption = arrData(iCnt)
      Next iCnt
    Case 4:
      arrData = Read32Bit("D1054", "D1056", "D1058", "D1060", "D1062", "D1064", "D1066", "D1070", "D1072", "D1074", "D1076", "D1078", "D1080")
      For iCnt = LBound(arrData) To UBound(arrData)
        lblAxis4Poistion(iCnt).Caption = Format(arrData(iCnt) / 100, "##00.00")
      Next iCnt
  End Select
End Sub

若問題解決了，煩請改一下標題分類。

感謝大師協(xié)助~

目前已經(jīng)弄出一點東西了

真的非常感謝~!!