一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

請(qǐng)問(wèn)MX Component  使用vb 來(lái)寫(xiě)，要用哪個(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)問(wèn)要怎麼修改才不會(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è)試看看，有問(wèn)題再討論

=====================================
Option Explicit
'/*****************************************************/
'/*撰寫(xiě)者：李同在                                     */
'/*日期：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ā)問(wèn)？

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

一樣，直接給你現(xiàn)成的CODE，有問(wèn)題再討論
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

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

感謝大師協(xié)助~

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

真的非常感謝~!!