vb串口接收数据画波形.docVIP

vb串口接收数据画波形 Dim shuju(102) As Byte 画波形缓存数组 Dim n As Integer 接收指针 Dim key As Byte 接收方式选择开关 Const pi = 3.14159 Dim a 画波形函数变量 Dim qing As String Dim shu As Byte 定义全局变量，二进制接收数组 Dim ji_shu As Integer Private Sub clean_Click() ji_shu = 0 End Sub Private Sub Command6_Click() 断开连接 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If xianshi.Caption = 串口未连接～～～ xianshi.ForeColor = vbRed End Sub Private Sub exit_Click() 退出程序 先断开端口再退出程序 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Unload Me End End Sub Private Sub Form_Load() 初始化界面************************************* xianshi.Caption = 串口未连接～～～ xianshi.ForeColor = vbRed Picture1.Cls Picture1.BackColor = vbBlack MSComm1.InputLen = 0 接收一次则清空**********************很重要的一句*************************************** MSComm1.RThreshold = 100 1 个字符产生接收事件**********************很重要的一句*************************************** ji_shu = 0 End Sub Private Sub lian_jie_Click() 连接串口 ******************************************* On Error GoTo err MSComm1.CommPort = Val(Combo1.Text) MSComm1.Settings = Trim(Combo2.Text) ,n,8,1 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If xianshi.Caption = 串口已经连接 xianshi.ForeColor = vbBlue err: If err = 8002 Then MsgBox (无效的端口号～请检查端口连接!) End If End Sub Public Function hua() 画数组shuju(100)的二进制数的曲线************************************************* 首先清除picture1内的图形 Picture1.Cls Picture1.BackColor = vbBlack Scale方法设定用户坐标系，坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-10, 10)-(10, -10) 用户重新定义坐标为(-10，10)-(10，-10) 设置绘线宽度 Picture1.DrawWidth = 1 绘坐标系的X轴及箭头线?? Picture1.Line (-10, 0)-(10, 0), vbBlue 画线 Picture1.Line (9, 0.5)-(10, 0), vbBlue 画线上半箭头 Picture1.Line -(9, -0.5), vbBlue Picture1.ForeColor = vbGreen Picture1.Print X 在显示完后显示X 绘坐标系的Y轴及箭头线 Picture1.Line (0, 10)-(0, -10), vbBlue Picture1.Line (0.5, 9)-(0, 10), vbBlue Picture1.Line -(-0.5, 9), vbBlue Picture1.Print Y 指定位置显示原点O Picture1.CurrentX = 0.