RS232串联接口的通讯程序论文机械设计带图纸文档
收藏
资源目录
压缩包内文档预览：
编号：92352071
类型：共享资源
大小：3.80MB
格式：ZIP
上传时间：2020-08-15
上传人：QQ24****1780
认证信息
个人认证
王**（实名认证）
浙江
IP属地：浙江
15
积分
- 关 键 词：
-
RS232
串联
接口
通讯
程序
论文
机械设计
图纸
文档
- 资源描述：
-
RS232串联接口的通讯程序论文机械设计带图纸文档,RS232,串联,接口,通讯,程序,论文,机械设计,图纸,文档
- 内容简介：
-
界面1的程序：Dim X, Y, a, b As SinglePrivate Sub label1_Click()Form2.HidefrmSplash.ShowEnd SubPrivate Sub Form_Load()Set ball.Picture = LoadPicture(D:04计通1图片00.jpg)X = 10Y = 10a = 30b = 50End SubPrivate Sub Timer1_Timer()ball.Move X, YX = X + aY = Y + bIf X = Form2.Width - ball.Width Then a = -50If Y = Form2.Height - ball.Height Then b = -20If X = 0 Then a = 10If Y frmSplash.ScaleWidth ThenImage3.Left = frmSplash.ScaleLeft - 200End IfImage3.Left = Image3.Left + 350If Image3.Picture = Image1.Picture ThenImage3.Picture = Image2.PictureElseImage3.Picture = Image1.PictureEnd IfIf Image6.Left frmSplash.ScaleWidth ThenImage6.Left = frmSplash.ScaleLeft - 200End IfImage6.Left = Image6.Left + 350If Image6.Picture = Image1.Picture ThenImage6.Picture = Image5.PictureElseImage6.Picture = Image4.PictureEnd IfEnd SubPrivate Sub Timer2_Timer()Static X, YY = Y + 1X = X + 1If X 30 Then X = 1If Y 15 Then Y = 1Label1.ForeColor = QBColor(Y)Label1.FontSize = XEnd SubPrivate Sub Timer3_Timer()Static X, YY = Y + 1X = X + 1If X 40 Then X = 1If Y 15 Then Y = 1Label2.ForeColor = QBColor(Y)Label2.FontSize = XEnd SubPrivate Sub Timer4_Timer()ball.Move X, YX = X + aY = Y + bIf X = frmSplash.Width - ball.Width Then a = -50If Y = frmSplash.Height - ball.Height Then b = -20If X = 0 Then a = 10If Y 0 ThenText1.Text = Text1.Text + Mscomm1.InputEnd IfEnd SubPrivate Sub Timer2_Timer()Dim str As Stringstr = Mid(thetitle, 1, counter1)If Len(str) = Len(thetitle) Thencounter1 = 0End IfLabel3.Caption = strcounter1 = counter1 + 1End SubPrivate Sub Timer4_Timer()If Image3.Left Form1.ScaleWidth ThenImage3.Left = Form1.ScaleLeft - 200End IfImage3.Left = Image3.Left + 300If Image3.Picture = Image1.Picture ThenImage3.Picture = Image2.PictureElseImage3.Picture = Image1.PictureEnd IfEnd SubPrivate Sub xiahua_Click()Text2.FontUnderline = TrueEnd SubPrivate Sub xiti_Click()Text2.FontItalic = TrueEnd SubPrivate Sub xuan_Click()Dialog.Visible = TrueEnd Sub单片机程序：st_addr equ 4000hport equ 1b30h org st_addr ljmp mainmain: clr p3.4 clr p3.3 mov tmod, #20h mov scon, #52h mov th1,#0f3h mov tl1,#0f3h setb tr1 jnb ri,load1load: clr ri clr p3.3 clr p3.4 mov a,sbuf mov r0,a mov sbuf,a jnb ti,$ clr tiload1:mov a,r0 swap a anl a,#0fh mov dptr,#table2 movc a,a+dptr mov p1,a setb p3.4 lcall delay clr p3.4 mov a,r0 anl a,#0fh mov dptr,#table2 movc a,a+dptr mov p1,a setb p3.3 lcall delay clr p3.3 mov a,r0 jnb ri,load1 jmp loaddelay:mov r7,#0
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号