桂林電子科技大學(xué)畢業(yè)設(shè)計(jì)（論文）報(bào)告用紙第⑤上位機(jī)VB程序代碼PrivateSubCombo1_Click()IfCombo1.Text="COM1"ThenMSComm1.CommPort=1ElseIfCombo1.Text="COM2"ThenMSComm1.CommPort=2ElseIfCombo1.Text="COM3"ThenMSComm1.CommPort=3ElseIfCombo1.Text="COM4"ThenMSComm1.CommPort=4ElseIfCombo1.Text="COM5"ThenMSComm1.CommPort=5ElseMSComm1.CommPort=3EndIfEndSubPrivateSubCommand1_Click()'Text3.Text=Str(Val(Text3.Text)+1000)DimbufAsStringMSComm1.Output=Trim("a")EndSubPrivateSubCommand10_Click()'Text3.Text=Text3.Text+100MSComm1.Output=Trim("b")EndSubPrivateSubCommand11_Click()'Text3.Text=Text3.Text+10MSComm1.Output=Trim("c")EndSubPrivateSubCommand12_Click()OnErrorGoToSettingErrorStaticcountAsIntegercount=count+1Ifcount=2Thencount=0EndIfIfcount=1ThenCombo1.Enabled=FalseCombo1.BackColor=vbRedMSComm1.Settings=Str(Combo2.Text)&","&"n"&","&"8"&","&"1"MSComm1.InputMode=0MSComm1.RThreshold=10MSComm1.PortOpen=TrueCommand12.Caption="關(guān)閉串口"ElseCombo1.BackColor=vbWhiteCombo1.Enabled=TrueMSComm1.PortOpen=FalseCommand12.Caption="打開串口"EndIfExitSubSettingError:count=0MsgBox(Error(Err.Number))IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfCombo1.BackColor=vbWhiteCombo1.Enabled=TrueCommand12.Caption="打開串口"EndSubPrivateSubCommand13_Click()MSComm1.Output=Trim("8")EndSubPrivateSubCommand14_Click()MSComm1.Output=Trim("0")EndSubPrivateSubCommand15_Click()MSComm1.Output=Trim("d")EndSubPrivateSubCommand16_Click()Text3.Text=0MSComm1.Output=Trim("e")EndSubPrivateSubCommand17_Click()MSComm1.Output=Trim("7")EndSubPrivateSubCommand18_Click()MSComm1.Output=Trim("f")EndSubPrivateSubCommand2_Click()MSComm1.Output=Trim("7")EndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()MSComm1.Output=Trim("3")EndSubPrivateSubCommand5_Click()MSComm1.Output=Trim("2")EndSubPrivateSubCommand6_Click()MSComm1.Output=Trim("1")EndSubPrivateSubCommand7_Click()MSComm1.Output=Trim("6")EndSubPrivateSubCommand8_Click()MSComm1.Output=Trim("5")EndSubPrivateSubCommand9_Click()MSComm1.Output=Trim("4")EndSubPrivateSubForm_Load()Combo1.Text="COM3"MSComm1.CommPort=3EndSubPrivateSubForm_Unload(CancelAsInteger)IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfEndSubPrivateSubList1_Click()EndSubPrivateSubOption1_Click()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=TrueCommand10.Enabled=FalseCommand11.Enabled=FalseText3.Enabled=FalseEndSubPrivateSubOption2_Click()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalseCommand10.Enabled=TrueCommand11.Enabled=TrueText3.Enabled=TrueEndSubPrivateSubMSComm1_OnComm()DimmodeAsStringDimdirectionAsStringDimfreq_flagAsStringDimrunAsStringDimbuf()AsByteSelectCaseMSComm1.CommEventCasecomEvReceiveIfNotMSComm1.PortOpenThenMSComm1.PortOpen=TrueEndIf'此處為處理接收的代碼buf=MSComm1.InputEndSelectText2.Text=bufmode=Left(Text2.Text,1)'*************************速度控制模式*************************IfVal(mode)=0ThenText1.Text=Right(Left(Text2.Text,6),3)'將頻率顯示在文本框中Text5.Text=Val(Text1.Text)*7.5/6'將相應(yīng)頻率顯示在文本框中Command14.Caption="速度控制&R"Command1.Enabled=FalseCommand10.Enabled=FalseCommand11.Enabled=FalseCommand15.Enabled=FalseCommand16.Enabled=FalseCommand17.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText6.Enabled=FalseText9.Enabled=FalseCommand18.Enabled=FalseCommand14.BackColor=vbReddirection=Right(Left(Text2.Text,2),1)run=Right(Left(Text2.Text,3),1)'***********************方向控制**************************If(Val(direction)=0)Then'順時(shí)針Command2.Caption="順時(shí)針旋轉(zhuǎn)&W"Command2.BackColor=vbGreenElseCommand2.Caption="逆時(shí)針旋轉(zhuǎn)&W"'逆時(shí)針Command2.BackColor=vbRedEndIf'***********************運(yùn)行控制**************************IfVal(run)=1ThenCommand13.Caption="停止&E"Command13.BackColor=vbRedElseCommand13.Caption="運(yùn)行&E"Command13.BackColor=vbGreenEndIf'****************************角度模式控制******************************ElseCommand14.Caption="角度控制&R"Command1.Enabled=TrueCommand10.Enabled=TrueCommand11.Enabled=TrueCommand15.Enabled=TrueCommand16.Enabled=TrueCommand17.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText6.Enabled=TrueText9.Enabled=TrueCommand18.Enabled=TrueCommand14.BackColor=vbGreendirection=Right(Left(Text2.Text,2),1)freq_flag=Right(Left(Text2.Text,3),1)If(Val(direction)=0)ThenLabel15.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText6.Enabled=TrueLabel9.Enabled=TrueLabel16.Enabled=TrueLabel7.Enabled=TrueLabel18.Enabled=FalseLabel19.Enabled=FalseLabel20.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseText9.Enabled=FalseIf(Val(freq_flag)=0)ThenText3.Enabled=FalseText6.Enabled=TrueText6.Text=Left(Right(Text2.Text,7),3)'頻率Else'EndIf'If(Val(freq_flag)=1)ThenText3.Enabled=TrueText6.Enabled=FalseText3.Text=Right(Text2.Text,4)'步數(shù)EndIfEndIfIf(Val(direction)=1)ThenLabel15.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText6.Enabled=FalseLabel9.Enabled=FalseLabel16.Enabled=FalseLabel7.Enabled=FalseLabel18.Enabled=TrueLabel19.Enabled=TrueLabel20.Enabled=TrueText7.Enabled=TrueText8.Enabled=TrueText9.Enabled=TrueI