Modbus vb源程序(可以讀寫寄存器)

《Modbus vb源程序(可以讀寫寄存器)》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、modbusvb源程序可以讀寫寄存器自己的項(xiàng)目做完了，最近比較閑，就幫別人用VB寫了一個很簡單的modbus程序，可以實(shí)現(xiàn)實(shí)時數(shù)據(jù)采集顯示，以及能對寄存器進(jìn)行設(shè)置。程序很簡單，想用的可以完善，現(xiàn)在只能實(shí)時采集顯示一個地址的數(shù)據(jù)，只要修改一下，就可以實(shí)時采集多個地址的數(shù)據(jù)。現(xiàn)在也只能一次對一個寄存器進(jìn)行設(shè)置，也可以更加完善。想用的朋友就自己改改吧。下面是運(yùn)行界面，采集的模塊的地址為75，是一個溫濕度采集模塊。有3個寄存器，顯示的數(shù)據(jù)上是溫度，濕度，露點(diǎn)溫度。modbusPrivateSubCommand1_C

2、lick()'設(shè)置按鈕Dimbisend()AsByteDimcrcDimbtLoCRCAsByte,btHiCRCAsByteDimDataAsIntegerIfMSComm1.PortOpen=TrueThenIfCombo5.ListIndex=0ThenReDimbisend(7)'重新定義數(shù)組長度bisend(0)="&h"+Hex(Val(Text1.Text))'地址碼bisend(1)="&h"+Hex(3)'功能碼讀寄存器bisend(2)="&h"+Hex(0)'起始地址高位bisend

3、(3)="&h"+Hex(0)'起始地址低位bisend(4)="&h"+Hex(0)'寄存器個數(shù)高位bisend(5)="&h"+Hex(Combo6.ListIndex+1)'寄存器個數(shù)低位crc=CRC16(bisend,6,btLoCRC,btHiCRC)bisend(6)="&h"+Hex(btLoCRC)'CRC高位bisend(7)="&h"+Hex(btHiCRC)'CRC低位'發(fā)送數(shù)據(jù)MSComm1.Output=bisendElseReDimbisend(10)'一次只能寫一個寄存器bi

4、send(0)="&h"+Hex(Val(Text1.Text))'地址碼bisend(1)="&h"+Hex(16)'功能碼寫寄存器bisend(2)="&h"+Hex(0)'起始地址高位bisend(3)="&h"+Hex(0)'起始地址低位bisend(4)="&h"+Hex(0)'寄存器個數(shù)高位bisend(5)="&h"+Hex(1)'寄存器個數(shù)低位bisend(6)="&h"+Hex(2)'字節(jié)數(shù)Data=Val(Trim(Text3.Text))bisend(7)="&h"+Hex(Data

5、256)'要寫入寄存器的值的高字節(jié)bisend(8)="&h"+Hex(DataMod256)'要寫入寄存器的值的低字節(jié)crc=CRC16(bisend,9,btLoCRC,btHiCRC)bisend(9)="&h"+Hex(btLoCRC)'CRC高位bisend(10)="&h"+Hex(btHiCRC)'CRC低位MSComm1.Output=bisendEndIfElseMsgBox"串口沒有打開"EndIfEndSubPrivateSubCommand2_Click()'實(shí)時采集按鈕Timer1

6、.Enabled=NotTimer1.Enabled'進(jìn)行狀態(tài)切換EndSubPrivateSubCommand3_Click()'初始化，并打開串口WithMSComm1If.PortOpen=FalseThen.CommPort=Combo7.ListIndex+1'打開串口1.Settings=Combo1.Text+","+Combo2.Text+","+Combo3.Text+Combo4.Text.InputMode=1.InputLen=50'一次性從接收緩沖區(qū)中讀取所有數(shù)據(jù)(8個字節(jié)為一組！

7、！).InBufferCount=0'清空接收緩沖區(qū).OutBufferCount=0'清空發(fā)送緩沖區(qū).RThreshold=5+(Combo6.ListIndex+1)*2.InBufferSize=1024.OutBufferSize=1024.PortOpen=TrueElseMsgBox"串口已經(jīng)打開"EndIfEndWithEndSubPrivateSubCommand4_Click()'關(guān)閉串口按鈕IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=False

8、EndIfEndSubPrivateSubForm_Load()DimiAsInteger'波特率設(shè)置Combo1.AddItem"4800",0Combo1.AddItem"9600",1Combo1.AddItem"115200",2'校驗(yàn)位設(shè)置Combo2.AddItem"N",0Combo2.AddItem"E",1Combo2.AddItem"O",2'數(shù)據(jù)位設(shè)置Combo3.AddItem"7",0C