97久久精品人人爽人人爽蜜臀/www.青草视频/成视频年人黄网站视频福利/国产第一页第二页/国产裸拍裸体视频在线观看/国产又色又爽又高潮免费/精品超清无码视频在线观看/久久精品蜜芽亚洲国产av/辽宁熟女高潮狂叫视频/你懂在线/欧美少妇15p/人妖 丝袜 另类 亚洲/日韩欧美网站/少妇人妻大乳在线视频/婷婷色国产/性色av无码久久一区二区三区/亚洲精品图片一区15p/亚洲一卡2卡3卡4卡5卡精品

使用純軟體的方式來(lái)模擬PLC的動(dòng)作

環(huán)境： GPPW+LLT+MX+VB6+電腦一臺(tái) ^_^

使用方法：
1 先開(kāi)啟 GPPW
2 載入PLC程式
3 執(zhí)行LLT
4 執(zhí)行VB6
5 開(kāi)啟附件檔(vb6程式碼)

動(dòng)作：
有VB6的畫(huà)面來(lái)模擬氣壓缸的前進(jìn)與後退。

PS：有興趣的朋友可以抓回去看看。

謝謝你分享了

想要繼續(xù)增加按扭要如何做呢？怎么編寫(xiě)VB代碼，如添加二個(gè)點(diǎn)動(dòng)按扭，謝謝了。

謝謝，我寫(xiě)寫(xiě)看了，有問(wèn)題了再向你請(qǐng)教了。

樓主你好，我寫(xiě)了好久還是沒(méi)能讀出D值，請(qǐng)你幫忙做個(gè)示例了。

謝謝樓主了

19樓，你看一下這個(gè)是不是讀32位寄存器
Private Sub btn_Write32BitInteger_Click()

    Dim lReturnCode As Long                         'Return code
    Dim buffer32BitInteger  As udt32BitInteger      'User-defined type for '32bit Integer' data
    Dim bufferInteger As udtInteger                 'User-defined type for writing to the PLC
    
    'Error Handler
    On Error GoTo CatchError
    
    'Copy the TextBox data to the user-defined type for '32bit Integer'.
    buffer32BitInteger.l32BitInteger = CLng(txt_Write32BitInteger.Text)
    
    'Copy the 'buffer32BitInteger' to the user-defined type for writing to the PLC.
    LSet bufferInteger = buffer32BitInteger
    
    'The WriteDeviceBlock2 method is executed.(to D10-D11)
    lReturnCode = ActEasyIF1.WriteDeviceBlock2("D10",

呵呵，樓主再辛苦你來(lái)一個(gè)寫(xiě)D0 值的示例了。

好的，謝謝樓主，我這就試試

樓主：我怎么運(yùn)行寫(xiě)入后，原有的數(shù)值變?yōu)?了。

那要如何指定數(shù)值呢？

樓主，麻煩你再辛苦一下了，做個(gè)示例了，還是做不出來(lái)，呵呵太笨了。