3708407
111111111111111
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 118 個(gè)
工控威望: 375 點(diǎn)
下載積分: 684 分
在線時(shí)間: 64(小時(shí))
注冊(cè)時(shí)間: 2007-08-03
最后登錄: 2024-08-20
查看3708407的 主題 / 回貼
樓主  發(fā)表于: 2009-07-18 16:21
各位同仁:
大家好,
請(qǐng)大家?guī)椭幌?誰(shuí)能用VB寫(xiě)一程序,讀寫(xiě)PLC中的數(shù)據(jù),例如將數(shù)某一數(shù)值,寫(xiě)入PLC中的一個(gè)D元件中,固定向D0寫(xiě)入數(shù)值,10進(jìn)制的,一個(gè)數(shù)值輸入框,一個(gè)寫(xiě)入按鈕,好像用到mscomm控件,雖然網(wǎng)上很多例子,但都很復(fù)雜,發(fā)來(lái)源代碼,不勝感激.謝謝.
xingshengwei
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看xingshengwei的 主題 / 回貼
1樓  發(fā)表于: 2009-07-22 22:24
private sub command1_click()
       mscomm1.output=chr(2)+"1"+"1000"+text1.text+chr(3)+sum
end sub

sum是校驗(yàn)和=chr(2)~chr(3)不包括chr(2)的字符串的ascii碼的16進(jìn)制和的后兩位
如輸入數(shù)值為"1“則sum=31H+31H+30H+30H+30H+31H+03H=126H取后兩位字符="26"