串口收发程序.docx
《串口收发程序.docx》由会员分享,可在线阅读,更多相关《串口收发程序.docx(118页珍藏版)》请在冰豆网上搜索。
![串口收发程序.docx](https://file1.bdocx.com/fileroot1/2023-1/31/ace3f301-9f52-458c-996b-e53c8bd04156/ace3f301-9f52-458c-996b-e53c8bd041561.gif)
串口收发程序
Form1.frm源码
VERSION5.00
Object="{F3940CDF-5C27-11D1-ACEC-444553540000}#36.0#0";"PANEL3D.OCX"
BeginVB.FormForm1
BorderStyle=3'FixedDialog
Caption="读取电参数"
ClientHeight=2340
ClientLeft=45
ClientTop=495
ClientWidth=7350
Icon="Form1.frx":
0000
LinkTopic="Form1"
MaxButton=0'False
MinButton=0'False
ScaleHeight=2340
ScaleWidth=7350
ShowInTaskbar=0'False
StartUpPosition=3'窗口缺省
BeginVB.CommandButtoncmdRW
Height=330
Index=0
Left=5040
Picture="Form1.frx":
0442
Style=1'Graphical
TabIndex=41
ToolTipText="读取当前选中项的选点方式"
Top=1920
Width=960
End
BeginVB.PictureBoxPicChkSet
Height=720
Left=2640
ScaleHeight=660
ScaleWidth=2235
TabIndex=5
Top=1320
Width=2295
BeginVB.TextBoxtxtTimes
BackColor=&H00808080&
ForeColor=&H0080FFFF&
Height=270
Left=1080
TabIndex=9
Text="0"
Top=0
Width=795
End
BeginVB.TextBoxtxtFcoe
BackColor=&H00808080&
ForeColor=&H0080FFFF&
Height=270
Left=1080
TabIndex=8
Text="0"
Top=360
Width=810
End
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index=17
Left=0
TabIndex=7
Top=360
Value=1'Checked
Width=135
End
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index=18
Left=0
TabIndex=6
Top=120
Value=1'Checked
Width=135
End
BeginVB.Labellbl
Caption="启动次数:
"
Height=195
Index=2
Left=240
TabIndex=12
Top=120
Width=855
End
BeginVB.Labellbl
Caption="启动电流:
"
Height=360
Index=0
Left=240
TabIndex=11
Top=360
Width=825
End
BeginVB.Labellbl
Caption="A"
Height=210
Index=3
Left=1920
TabIndex=10
Top=360
Width=195
End
End
BeginVB.CommandButtoncmdCancel
Cancel=-1'True
Height=330
Left=6120
Picture="Form1.frx":
0644
Style=1'Graphical
TabIndex=4
Top=1920
Width=840
End
BeginVB.PictureBoxPicture1
Height=480
Left=4920
ScaleHeight=420
ScaleWidth=2235
TabIndex=0
Top=1320
Width=2295
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index=21
Left=0
TabIndex=2
Top=120
Value=1'Checked
Width=135
End
BeginVB.TextBoxText3
BackColor=&H00808080&
ForeColor=&H0080FFFF&
Height=270
Left=1080
TabIndex=1
Text="0"
Top=75
Width=795
End
BeginVB.Labellbl
Caption="运行时间:
秒"
Height=210
Index=7
Left=0
TabIndex=3
Top=120
Width=2190
End
End
BeginVB.TimerTimer1
Index=1000
Left=2640
Top=2160
End
BeginvbpPanel3D.Panel3DpnlMSinglePhaseBoard
Height=1035
Left=120
TabIndex=13
TabStop=0'False
Top=120
Width=7095
_ExtentX=12515
_ExtentY=1826
Version="March,171998"
Object.Align=0
Caption="电流值"
RichLabel="False"
RLCaption=""
Alignment=0
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=32768
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=0
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
0846
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=6
Left=6200
TabIndex=27
TabStop=0'False
Top=555
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
0862
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=3
Left=3195
TabIndex=26
TabStop=0'False
Top=555
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
087E
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=4
Left=4200
TabIndex=25
TabStop=0'False
Top=555
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
089A
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=5
Left=5200
TabIndex=24
TabStop=0'False
Top=555
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
08B6
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=2
Left=2160
TabIndex=23
TabStop=0'False
Top=570
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
08D2
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=1
Left=1140
TabIndex=22
TabStop=0'False
Top=570
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
08EE
End
BeginvbpPanel3D.Panel3DpnlMThreePhase
Height=240
Index=0
Left=120
TabIndex=21
TabStop=0'False
Top=570
Width=750
_ExtentX=1323
_ExtentY=423
Version="March,171998"
Object.Align=0
Caption=""
RichLabel="False"
RLCaption=""
Alignment=7
BeginPropertyFont{0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name="宋体"
Size=9
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Font3D=3
BackColor=12632256
ForeColor=0
BorderColor=12632256
ShadowColor=8421504
FloodColor=16711680
OutLine=0'False
BevelInner=0
BevelOuter=1
BevelWidth=1
BorderWidth=0
WordBorderDistance=0
LinesDistance=0
Enabled=-1'True
Object.Visible=-1'True
MousePointer=0
MouseIcon="Form1.frx":
090A
End
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index=0
Left=200
TabIndex=20
Top=300
Value=1'Checked
Width=135
End
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index=9
Left=6080
TabIndex=19
Top=255
Value=1'Checked
Width=135
End
BeginVB.CheckBoxCheck1
Caption="Check1"
Height=180
Index