成人精品一区二区久久久 I 国产美女永久无遮挡 I 中文字幕+乱码+中文字幕明步 I 国产在视频一区二区三区吞精 I 日韩精品小视频 I 成人性生交大片免费4 I 免费aaa级毛片在线视频 I 一级片毛片 I 大型成人社区 I 国模在线播放 I 欧美大荫蒂毛茸茸视频 I 偷偷色噜狠狠狠狠的777米奇 I www.久久亚洲 I 日日搞夜夜操 I 亚洲成色777777女色窝 I 毛片黄色毛片 I 午夜片在线观看 I 国产一区二区三区中文字幕 I 天天干夜夜骑 I 日韩在线视频一区二区三区 I 久久久无码精品亚洲a片0000 I 写真福利片hd在线播放 I 欧美成人一区二免费视频 I 色噜噜狠狠爱综合视频 I 中文字幕无线码免费人妻 I 国产精品久久久久久久久久不蜜臀 I 欧美综合人人做人人爱 I 1024成人网色www I 国产精品视频一二三区 I 亚洲免费美女视频

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

求助~

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

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

祝好運

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

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

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

顯示出來的數據會有 "- "號，應該是進位了，但是還是顯示不出和MELSOFT一樣的數據

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

=====================================
Option Explicit
'/*****************************************************/
'/*撰寫者：李同在                                     */
'/*日期：2009/09/07 V1.0                              */
'/*用途：讀取三荾PLC的資料                            */
'/*****************************************************/
Dim bufferBit As udtBitInteger        '使用者自定型態 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

'/**************************************************************/
'/*功能：連續讀取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

這樣會錯誤....

麻煩指點一下，謝謝~

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

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

一樣，直接給你現成的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

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

感謝大師協助~

目前已經弄出一點東西了

真的非常感謝~!!