version 6.30 0 Form1 1 0 4 0 24 13 2 0 2 0 0 0 0 0 0 0 0 5 0 0 238 268 1 SerialDevice.dll 1 SerialDevice.dll 1 serial:Serial Sub designer addform(Form1,"MOUSE STATUS","mse3.jpg",250,250,250)@ addimage(form1,Image6,190,190,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addimage(form1,Image4,190,155,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addimage(form1,Image2,0,120,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addimage(form1,Image5,0,190,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addimage(form1,Image3,0,155,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addimage(form1,Image1,190,120,50,30,"cCenterImage","w50w35.jpg",250,250,250,True,True)@ addcheckbox(form1,CheckBox3,50,190,140,30,"Mouse Up",0,0,0,0,255,255,True,True,False,16)@ addcheckbox(form1,CheckBox2,50,155,140,30,"Mouse Move",0,0,0,0,255,0,True,True,False,16)@ addcheckbox(form1,CheckBox1,50,120,140,30,"Mouse Down",0,0,0,255,0,0,True,True,False,16)@ addimage(form1,Image10,125,55,30,30,"cCenterImage","sw.jpg",250,250,250,True,True)@ addimagebutton(form1,ImageButtonClear,155,25,80,30,"CLEAR",250,250,250,0,0,0,"cCenterImage","yellow.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonSendTX,155,55,80,30,"SEND TX",250,250,250,0,0,0,"cCenterImage","green.jpg",True,True,True,9)@ addlabel(form1,Label8,125,95,30,20,"RX:",250,250,250,0,0,0,True,True,13)@ addlabel(form1,Label7,5,95,30,20,"TX:",250,250,250,0,0,0,True,True,13)@ addtextbox(form1,TextBox2,155,90,80,25,"",0,255,255,0,0,0,True,True,True,13)@ addtextbox(form1,TextBox1,35,90,80,25," ",255,255,0,0,0,0,True,True,True,13)@ addimage(form1,Image9,125,25,30,30,"cCenterImage","sw.jpg",250,250,250,True,True)@ addlabel(form1,Label6,5,5,230,20,"STATUS",255,255,255,0,0,0,True,True,13)@ addimage(form1,Image8,0,55,30,30,"cCenterImage","sw.jpg",245,245,220,True,True)@ addimage(form1,Image7,0,25,30,30,"cCenterImage","sw.jpg",245,245,220,True,True)@ addimagebutton(form1,ImageButtonClosePort,30,55,85,30,"CLOSE",250,250,250,0,0,0,"cCenterImage","blue.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonOpenPort,30,25,85,30,"OPEN",250,250,250,0,0,0,"cCenterImage","blue.jpg",True,True,True,9)@ End Sub @EndOfDesignText@Sub Globals portflag = 0 strlabel0="COM 8: 9600,N,8,1" strlabel1=" [OFF]" strlabel2=" [ ON]" strlabeltemp="" m_down_flag=0 m_move_flag=0 m_up_flag=0 End Sub Sub App_Start Form1.show textbox1.Text="" textbox2.Text="" label6.Text = strlabel0 & strlabel1 strlabeltemp = strlabel0 & strlabel1 serial.New2 (8,9600,"N",8,1) textbox1.FontSize=13 textbox2.FontSize=13 ' Turn the Port Closed indicator ON ' since the Bluetooth port is closed ' when the program first starts up. image8.Image="sr.jpg" Sip=false End Sub Sub ImageButtonClear_Click Textbox1.Text="" Textbox2.Text="" label6.Text = strlabeltemp & "" clear_indicators End Sub Sub ImageButtonClear_ButtonDown image9.Image="sr.jpg" End Sub Sub ImageButtonClear_ButtonUp image9.Image="sw.jpg" End Sub Sub ImageButtonOpenPort_Click image7.Image="sr.jpg" image8.Image="sw.jpg" If portflag = 0 Then serial.PortOpen=true portflag = 1 label6.Text = strlabel0 & strlabel2 strlabeltemp=label6.Text serial.enableoncomm=true End If End Sub Sub ImageButtonClosePort_Click image7.Image="sw.jpg" image8.Image="sr.jpg" If portflag = 1 Then TextBox1.Text="" serial.enableoncomm=false serial.PortOpen=false portflag = 0 label6.Text = strlabel0 & strlabel1 strlabeltemp=label6.Text End If End Sub Sub serial_OnCom TextBox2.Text=TextBox2.Text & serial.Inputstring End Sub Sub ImageButtonSendTX_Click serial.Output (Textbox1.Text) End Sub Sub ImageButtonSendTX_ButtonDown image10.Image="sr.jpg" End Sub Sub ImageButtonSendTX_ButtonUp image10.Image="sw.jpg" End Sub Sub form1_mousedown(x1,y1) clear_indicators textbox1.Text="" textbox2.Text="" If m_down_flag=1 Then image1.Image="r50w35.jpg" image2.Image="r50w35.jpg" serial.Output ("D") textbox1.Text="D" label6.Text = strlabeltemp & " = D" End If End Sub Sub form1_mousemove(x1,y1) If m_move_flag=1 Then clear_indicators image3.Image="g50w35.jpg" image4.Image="g50w35.jpg" serial.Output ("M") textbox1.Text="M" label6.Text = strlabeltemp & " = M" End If End Sub Sub form1_mouseup(x1,y1) clear_indicators textbox1.Text="" textbox2.Text="" If m_up_flag=1 Then image5.Image="b50w35.jpg" image6.Image="b50w35.jpg" serial.Output ("U") textbox1.Text="U" label6.Text = strlabeltemp & " = U" End If End Sub Sub clear_indicators image1.Image="w50w35.jpg" image2.Image="w50w35.jpg" image3.Image="w50w35.jpg" image4.Image="w50w35.jpg" image5.Image="w50w35.jpg" image6.Image="w50w35.jpg" End Sub Sub CheckBox1_Click image1.Image="w50w35.jpg" image2.Image="w50w35.jpg" If checkbox1.Checked=true Then m_down_flag=1 End If If checkbox1.Checked=false Then m_down_flag=0 End If End Sub Sub CheckBox2_Click image3.Image="w50w35.jpg" image4.Image="w50w35.jpg" If checkbox2.Checked=true Then m_move_flag=1 End If If checkbox2.Checked=false Then m_move_flag=0 End If End Sub Sub CheckBox3_Click image5.Image="w50w35.jpg" image6.Image="w50w35.jpg" If checkbox3.Checked=true Then m_up_flag=1 End If If checkbox3.Checked=false Then m_up_flag=0 End If End Sub