不是很明白你的意思
大致这样给你改：
Private Function Com_return(str As String) As String
MSComm1.Output = str & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, vbCr) '读取数据直到回车符响应。
Com_return = Buffer$ '返回数据
End Function
'然后你调用该函数就返回值了
研华adam 4017+模块中4-20ma对应数据分别是4.000-20.000
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024