未系统学习过VB.NET这门语言,但工作需要解读一个源代码,这里的QueryValue、QueryString、SendCmd三个方法一直理解不了其中的意思,想实现什么,请各位大佬帮帮忙谢谢
#Region "RS232 read/write"
Protected Function QueryValue(ByVal sCmd As String) As Double
Dim s As String
Dim v As Double
s = Me.QueryString(sCmd)
If Double.TryParse(s, v) Then
Return v
Else
Return Double.NaN
End If
End Function
Protected Function QueryString(ByVal sCmd As String) As String ' 查询字符串
Dim s As String
mPort.DiscardInBuffer()
mPort.DiscardOutBuffer()
mPort.Write(sCmd + ControlChars.CrLf)
s = mPort.ReadLine()
If s.Contains("Error") Then
MessageBox.Show("Error sending " + sCmd)
End If
Return s.Trim()
End Function
Protected Sub SendCmd(ByVal sCmd As String)
Dim s As String
mPort.DiscardOutBuffer()
mPort.Write(sCmd + ControlChars.CrLf)
'System.Threading.Thread.Sleep(5)
s = mPort.ReadLine()
If s.Contains("Error") Then
MessageBox.Show("Error sending " + sCmd)
End If
End Sub
#End Region