最新天堂中文在线丨午夜嘿嘿嘿影院丨亚洲国产精品高清久久久丨中文字幕人成乱码熟女app丨www91亚洲丨97成人资源丨成人中文字幕+乱码+中文字幕丨一区二区三区在线 | 日丨日韩免费大片丨亚洲欧美一区二区三区丨国产在线观看a丨亚洲成人第一区丨国内免费视频成人精品丨亚洲综合色网站丨午夜精品美女久久久久av福利丨国产午夜人做人免费视频网站丨国产又黄视频丨97se狼狼狼狼狼亚洲网丨狠狠亚洲婷婷综合色香五月丨中国一级毛片黄丨国产女人十八毛片丨国产色视频在线播放丨国产亚洲精久久久久久无码苍井空丨天天摸日日摸爽爽狠狠丨久久综合香蕉国产蜜臀av

請(qǐng)問MX Component  使用vb 來(lái)寫，要用哪個(gè)指令抓取32位d值?
怎麼是都抓16位而已，求助~

求助~

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

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

祝好運(yùn)

大師您好~
小的只差在這個(gè)"特別處裡"
目前用範(fàn)例程式ModemSample 來(lái)修改
裡面有使用到ReadDeviceBlock 指令，但是必須修改成ReadDeviceBlock2
請(qǐng)問要怎麼修改才不會(huì)出錯(cuò)~感謝了~!!

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

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

顯示出來(lái)的數(shù)據(jù)會(huì)有 "- "號(hào)，應(yīng)該是進(jìn)位了，但是還是顯示不出和MELSOFT一樣的數(shù)據(jù)

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

=====================================
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               '迴圈計(jì)算
 
  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

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

大師您好~
目前我是用一個(gè)按鈕 和list
有一段我改成 lRet = ActEasyIF1.ReadDeviceBlock2  用gx 仿真來(lái)測(cè)試

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

這樣會(huì)錯(cuò)誤....

麻煩指點(diǎn)一下，謝謝~

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

你的CALL有問題，CALL回來(lái)的東西要放那裡？誰(shuí)(程式)會(huì)知道？
當(dāng)然就錯(cuò)誤了。

一樣，直接給你現(xiàn)成的CODE，有問題再討論
VB語(yǔ)法不懂的，請(qǐng)自行找資料了解。
================================================
'讀取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

若問題解決了，煩請(qǐng)改一下標(biāo)題分類。

感謝大師協(xié)助~

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

真的非常感謝~!!