毕业设计资料 代码程序

界面1的程序：DimX,Y,a,bAsSinglePrivateSublabel1_Click()Form2.HidefrmSplash.ShowEndSubPrivateSubForm_Load()Setball.Picture=LoadPicture("D:\04计通1\图片\00.jpg")X=10Y=10a=30b=50EndSubPrivateSubTimer1_Timer()ball.MoveX,YX=X+aY=Y+bIfX>=Form2.Width-ball.WidthThena=-50IfY>=Form2.Height-ball.HeightThenb=-20IfX<=0Thena=10IfY<=0Thenb=20EndSub界面2的程序：DimX,Y,a,bAsSinglePrivateSubcommand1_Click()frmSplash.Visible=FalseForm1.Visible=TrueEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)UnloadMeEndSubPrivateSubImage5_Click()EndSubPrivateSubTimer1_Timer()IfImage3.Left>frmSplash.ScaleWidthThenImage3.Left=frmSplash.ScaleLeft-200EndIfImage3.Left=Image3.Left+350IfImage3.Picture=Image1.PictureThenImage3.Picture=Image2.PictureElseImage3.Picture=Image1.PictureEndIfIfImage6.Left>frmSplash.ScaleWidthThenImage6.Left=frmSplash.ScaleLeft-200EndIfImage6.Left=Image6.Left+350IfImage6.Picture=Image1.PictureThenImage6.Picture=Image5.PictureElseImage6.Picture=Image4.PictureEndIfEndSubPrivateSubTimer2_Timer()StaticX,YY=Y+1X=X+1IfX>30ThenX=1IfY>15ThenY=1Label1.ForeColor=QBColor(Y)Label1.FontSize=XEndSubPrivateSubTimer3_Timer()StaticX,YY=Y+1X=X+1IfX>40ThenX=1IfY>15ThenY=1Label2.ForeColor=QBColor(Y)Label2.FontSize=XEndSubPrivateSubTimer4_Timer()ball.MoveX,YX=X+aY=Y+bIfX>=frmSplash.Width-ball.WidthThena=-50IfY>=frmSplash.Height-ball.HeightThenb=-20IfX<=0Thena=10IfY<=0Thenb=20EndSub选项对话框的程序：PrivateSubcommand1_Click()Dialog.Visible=FalseEndSubPrivateSubCommand2_Click()Dialog.Visible=FalseEndSubPrivateSubCommand3_Click()Dialog.Visible=FalseEndSubPrivateSubForm_Load()Text2.Text="1200,N,8,1"EndSub主界面的程序：DimthetitleAsString,counter1AsIntegerDimX,Y,a,bAsSinglePrivateSubcolor_Click()CommonDialog1.Flags=1CommonDialog1.color=BackColorCommonDialog1.Action=3Text2.ForeColor=CommonDialog1.colorEndSubPrivateSubCOM1_Click()COM1.Checked=TrueCOM2.Checked=FalseEndSubPrivateSubCOM2_Click()COM1.Checked=FalseCOM2.Checked=TrueEndSubPrivateSubcommand1_Click()Mscomm1.DTREnable=NotMscomm1.DTREnableIfMscomm1.DTREnableThenShape1(5).FillColor=RGB(0,255,0)ElseShape1(5).FillColor=RGB(255,0,0)EndIfEndSubPrivateSubCommand2_Click()Mscomm1.RTSEnable=NotMscomm1.RTSEnableIfMscomm1.RTSEnableThenShape1(3).FillColor=RGB(0,255,0)ElseShape1(3).FillColor=RGB(255,0,0)EndIfEndSubPrivateSubCommand3_Click()Mscomm1.Output=Trim(Text2.Text)EndSubPrivateSubCommand4_Click()DimBuf$Buf=Trim(MCOMM1.Input)IfLen(Buf)=0ThenText1.Text=""ElseText1.Text=BufEndIfEndSubPrivateSubCommand5_Click()Timer1.Enabled=NotTimer1.EnabledEndSubPrivateSubCommand6_Click()SSTab1.Visible=FalseEndSubPrivateSubCommand7_Click()SSTab1.Visible=FalseEndSubPrivateSubCommand8_Click()SSTab1.Visible=FalseEndSubPrivateSubcuti_Click()Text2.FontBold=TrueEndSubPrivateSubdaxiao_Click()Text2.FontSize=20EndSubPrivateSubFontname_Click()CommonDialog2.Flags=3CommonDialog2.ShowFontText2.fontname=CommonDialog2.fontnameText2.FontSize=CommonDialog2.FontSizeText2.FontBold=CommonDialog2.FontBoldText2.FontItalic=CommonDialog2.FontItalicText2.FontUnderline=CommonDialog2.FontUnderlineText2.FontStrikethru=CommonDialog2.FontStrikethruEndSubPrivateSubForm_Load()Mscomm1.PortOpen=TrueText1.Text=""Text2.Text=""thetitle=Label3.CaptionEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenufontstyleEndIfEndSubPrivateSubqxxhx_Click()Text2.FontUnderline=FalseEndSubPrivateSubsee_Click()Form2.ShowEndSubPrivateSubTimer1_Timer()IfMscomm1.CDHoldingThenShape1(0).FillColor=RGB(255,0,0)ElseShape1(0).FillColor=RGB(255,255,255)EndIfIfMscomm1.ctshHoldingThenShape1(1).FillColor=RGB(255,0,0)ElseShape1(1).FillColor=RGB(255,255,255)EndIfIfMscomm1.DSRHoldingThenShape1(2).FillColor=RGB(255,0,0)ElseShape1(2).FillColor=RGB(255,255,255)EndIfIfMscomm1.CommEvent=comEvRingThenShape1(4).FillColor=RGB(255,0,0)ElseShape1(4).FillColor=RGB(255,255,255)EndIfIfMscomm1.InBufferCount>0ThenText1.Text=Text1.Text+Mscomm1.InputEndIfEndSubPrivateSubTimer2_Timer()DimstrAsStringstr=Mid(thetitle,1,counter1)IfLen(str)=Len(thetitle)Thencounter1=0EndIfLabel3.Caption=strcounter1=counter1+1EndSubPrivateSubTimer4_Timer()IfImage3.Left>Form1.ScaleWidthThenImage3.Left=Form1.ScaleLeft-200EndIfImage3.Left=Image3.Left+300IfImage3.Picture=Image1.PictureThenImage3.Picture=Image2.PictureElseImage3.Picture=Image1.PictureEndIfEndSubPrivateSubxiahua_Click()Text2.FontUnderline=TrueEndSubPrivateSubxiti_Click()Text2.FontItalic=TrueEndSubPrivateSubxuan_Click()Dialog.Visible=TrueEndSub单片机程序：st_addrequ4000hportequ1b30horgst_addrljmpmainmain:clrp3.4clrp3.3movtmod,#20hmovscon,#52hmovth1,#0f3hmovtl1,#0f3hsetbtr1jnbri,load1load:clrriclrp3.3clrp3.4mova,sbufmovr0,amovsbuf,ajnbti,$clrtiload1:mova,r0swapaanla,#0fhmovdptr,#table2movca,@a+dptrmovp1,asetbp3.4lcalldelayclrp3.4mova,r0anla,#0fhmovdptr,#table2movc