|
#2
事业男儿前天 10:19
|
VERSION 5.00
Begin VB.Form frmMain
Caption = "宇电519仪表通讯"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin cmdRead
Caption = "读取数据"
Height = 495
Left = 1680
TabIndex = 2
Top = 2160
Width = 1215
End
Begin VB.TextBox txtSetpoint
Height = 375
Left = 1680
Locked = -1 'True
TabIndex = 1
Top = 1200
Width = 1215
End
Begin VB.TextBox txtDisplay
Height = 375
Left = 1680
Locked = -1 'True
TabIndex = 0
Top = 600
Width = 1215
End
Begin VB.Label Label2
Caption = "设定值:"
Height = 255
Left = 840
TabIndex = 4
Top = 1320
Width = 735
End
Begin VB.Label Label1
Caption = "显示值:"
Height = 255
Left = 840
TabIndex = 3
Top = 720
Width = 735
End
Begin MSCommLib.MSComm MSComm1
Left = 3600
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 1
DTREnable = -1 'True
RThreshold = 1
RTSEnable = -1 'True
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdRead_Click()
' 初始化串口
With MSComm1
.Settings = "9600,n,8,1" ' 宇电519默认通讯参数
.PortOpen = True
End With
' 读取显示值
txtDisplay.Text = Format(ReadDisplayValue(MSComm1), "0.00")
' 读取设定值
txtSetpoint.Text = Format(ReadSetpoint(MSComm1), "0.00")
' 关闭串口
MSComm1.PortOpen = False
End Sub
