version 6.30 0 Form1 1 1 0 0 1 5 0 0 2 3 0 0 0 0 0 0 0 105 0 0 238 268 0 1 Serial2.dll 1 serial:Serial Sub designer addform(Form1,"Bluetooth SPP","",238,238,238)@ addimagebutton(form1,LOWER,65,145,55,25,"LOWER",212,208,200,0,0,0,"cCenterImage","r60w35.jpg",True,True,True,8)@ addimagebutton(form1,UPPER,120,145,55,25,"UPPER",212,208,200,0,0,0,"cCenterImage","r60w35.jpg",True,True,True,8)@ addimagebutton(form1,SpButton11,200,230,20,20,"\",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,Button8,200,210,20,20,"8",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,SpButton24,220,250,20,20,"]",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton12,220,230,20,20,"/",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,Button9,220,210,20,20,"9",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,SENDTX,175,145,65,25,"SEND TX",212,208,200,0,0,0,"cCenterImage","y70w35.jpg",True,True,True,8)@ addimagebutton(form1,ButtonA,0,170,20,20,"A",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,SpButton13,0,250,20,20,";",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton1,0,230,20,20,"!",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,ButtonY,0,210,20,20,"Y",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonX,220,190,20,20,"X",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonW,200,190,20,20,"W",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonV,180,190,20,20,"V",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonU,160,190,20,20,"U",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonT,140,190,20,20,"T",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonS,120,190,20,20,"S",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonR,100,190,20,20,"R",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonQ,80,190,20,20,"Q",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonP,60,190,20,20,"P",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonO,40,190,20,20,"O",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonN,20,190,20,20,"N",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonM,0,190,20,20,"M",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonL,220,170,20,20,"L",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonK,200,170,20,20,"K",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonJ,180,170,20,20,"J",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonI,160,170,20,20,"I",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonH,140,170,20,20,"H",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonG,120,170,20,20,"G",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonF,100,170,20,20,"F",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonE,80,170,20,20,"E",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonD,60,170,20,20,"D",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonC,40,170,20,20,"C",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,ButtonB,20,170,20,20,"B",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ addimagebutton(form1,CLOSEPORT,120,20,55,25,"CLOSE",212,208,200,0,0,0,"cCenterImage","b60w35.jpg",True,True,True,8)@ addimagebutton(form1,OPENPORT,65,20,55,25,"OPEN",212,208,200,0,0,0,"cCenterImage","b60w35.jpg",True,True,True,8)@ addimagebutton(form1,CLEARTX,0,20,65,25,"Clear TX",212,208,200,0,0,0,"cCenterImage","g70w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonSIP,175,20,65,25,"S.I.P.",212,208,200,0,0,0,"cCenterImage","g70w35.jpg",True,True,True,8)@ addimagebutton(form1,CLEARRX,0,145,65,25,"Clear RX",212,208,200,0,0,0,"cCenterImage","y70w35.jpg",True,True,True,8)@ addtextbox(form1,TextBox2,5,95,230,50,"",255,255,0,0,0,0,True,True,True,13)@ addlabel(form1,Label1,0,0,240,20,"Status Line",0,0,0,255,255,0,True,True,13)@ addtextbox(form1,TextBox1,5,45,230,50,"",0,255,128,0,0,0,True,True,True,13)@ addimagebutton(form1,SpButton23,200,250,20,20,"[",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton22,180,250,20,20,"}",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton21,160,250,20,20,"{",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton20,140,250,20,20,"~",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton19,120,250,20,20,"?",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton18,100,250,20,20,">",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton17,80,250,20,20,"<",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton16,60,250,20,20,",",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton15,40,250,20,20,"|",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton14,20,250,20,20,"-",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton10,180,230,20,20,")",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton9,160,230,20,20,"(",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton8,140,230,20,20,"*",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton7,120,230,20,20,"=",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton6,100,230,20,20,"^",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton5,80,230,20,20,"%",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton4,60,230,20,20,"$",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton3,40,230,20,20,"#",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,SpButton2,20,230,20,20,"@",212,208,200,0,0,0,"cCenterImage","sb.jpg",True,True,True,10)@ addimagebutton(form1,Button7,180,210,20,20,"7",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button6,160,210,20,20,"6",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button5,140,210,20,20,"5",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button4,120,210,20,20,"4",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button3,100,210,20,20,"3",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button2,80,210,20,20,"2",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button1,60,210,20,20,"1",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,Button0,40,210,20,20,"0",212,208,200,0,0,0,"cCenterImage","sy.jpg",True,True,True,10)@ addimagebutton(form1,ButtonZ,20,210,20,20,"Z",212,208,200,0,0,0,"cCenterImage","sg.jpg",True,True,True,10)@ End Sub @EndOfDesignText@Sub Globals Sip_Flag=0 x=0 ULfLAG=1 portflag = 0 strlabel0=" COM 8: 9600,N,8,1" strlabel1=" [OFF]" strlabel2=" [ ON]" strlabel3=" : " strlabeltemp="" strval="" End Sub Sub App_Start Form1.show textbox1.Text="" textbox2.Text="" label1.Text = strlabel0 & strlabel1 & strlabel3 strlabeltemp = strlabel0 & strlabel1 & strlabel3 serial.New2 (8,9600,"N",8,1) textbox1.FontSize=13 textbox2.FontSize=13 SIP=false End Sub Sub OPENPORT_Click sound("beep.wav") if portflag = 0 then serial.PortOpen=true portflag = 1 label1.Text = strlabel0 & strlabel2 & strlabel3 strlabeltemp=label1.Text serial.enableoncomm=true end if End Sub Sub CLOSEPORT_Click sound("beep.wav") if portflag = 1 then TextBox1.Text="" TextBox2.Text="" serial.enableoncomm=false serial.PortOpen=false portflag = 0 label1.Text = strlabel0 & strlabel1 & strlabel3 strlabeltemp=label1.Text end if End Sub Sub serial_OnCom strval=serial.InputString TextBox2.Text=TextBox2.Text & strval End Sub Sub ButtonA_Click if ULflag=0 then label1.Text = strlabeltemp & "a" if portflag=1 then serial.Output ("a") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "A" if portflag=1 then serial.Output ("A") sound("beep.wav") end if end if End Sub Sub ButtonB_Click if ULflag=0 then label1.Text = strlabeltemp & "b" if portflag=1 then serial.Output ("b") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "B" if portflag=1 then serial.Output ("B") sound("beep.wav") end if end if End Sub Sub ButtonC_Click if ULflag=0 then label1.Text = strlabeltemp & "c" if portflag=1 then serial.Output ("c") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "C" if portflag=1 then serial.Output ("C") sound("beep.wav") end if end if End Sub Sub ButtonD_Click if ULflag=0 then label1.Text = strlabeltemp & "d" if portflag=1 then serial.Output ("d") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "D" if portflag=1 then serial.Output ("D") sound("beep.wav") end if end if End Sub Sub ButtonE_Click if ULflag=0 then label1.Text = strlabeltemp & "e" if portflag=1 then serial.Output ("e") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "E" if portflag=1 then serial.Output ("E") sound("beep.wav") end if end if End Sub Sub ButtonF_Click if ULflag=0 then label1.Text = strlabeltemp & "f" if portflag=1 then serial.Output ("f") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "F" if portflag=1 then serial.Output ("F") sound("beep.wav") end if end if End Sub Sub ButtonG_Click if ULflag=0 then label1.Text = strlabeltemp & "g" if portflag=1 then serial.Output ("g") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "G" if portflag=1 then serial.Output ("G") sound("beep.wav") end if end if End Sub Sub ButtonH_Click if ULflag=0 then label1.Text = strlabeltemp & "h" if portflag=1 then serial.Output ("h") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "H" if portflag=1 then serial.Output ("H") sound("beep.wav") end if end if End Sub Sub ButtonI_Click if ULflag=0 then label1.Text = strlabeltemp & "i" if portflag=1 then serial.Output ("i") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "I" if portflag=1 then serial.Output ("I") sound("beep.wav") end if end if End Sub Sub ButtonJ_Click if ULflag=0 then label1.Text = strlabeltemp & "j" if portflag=1 then serial.Output ("j") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "J" if portflag=1 then serial.Output ("J") sound("beep.wav") end if end if End Sub Sub ButtonK_Click if ULflag=0 then label1.Text = strlabeltemp & "k" if portflag=1 then serial.Output ("k") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "K" if portflag=1 then serial.Output ("K") sound("beep.wav") end if end if End Sub Sub ButtonL_Click if ULflag=0 then label1.Text = strlabeltemp & "l" if portflag=1 then serial.Output ("l") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "L" if portflag=1 then serial.Output ("L") sound("beep.wav") end if end if End Sub Sub ButtonM_Click if ULflag=0 then label1.Text = strlabeltemp & "m" if portflag=1 then serial.Output ("m") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "M" if portflag=1 then serial.Output ("M") sound("beep.wav") end if end if End Sub Sub ButtonN_Click if ULflag=0 then label1.Text = strlabeltemp & "n" if portflag=1 then serial.Output ("n") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "N" if portflag=1 then serial.Output ("N") sound("beep.wav") end if end if End Sub Sub ButtonO_Click if ULflag=0 then label1.Text = strlabeltemp & "o" if portflag=1 then serial.Output ("o") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "O" if portflag=1 then serial.Output ("O") sound("beep.wav") end if end if End Sub Sub ButtonP_Click if ULflag=0 then label1.Text = strlabeltemp & "p" if portflag=1 then serial.Output ("p") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "P" if portflag=1 then serial.Output ("P") sound("beep.wav") end if end if End Sub Sub ButtonQ_Click if ULflag=0 then label1.Text = strlabeltemp & "q" if portflag=1 then serial.Output ("q") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "Q" if portflag=1 then serial.Output ("Q") sound("beep.wav") end if end if End Sub Sub ButtonR_Click if ULflag=0 then label1.Text = strlabeltemp & "r" if portflag=1 then serial.Output ("r") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "R" if portflag=1 then serial.Output ("R") sound("beep.wav") end if end if End Sub Sub ButtonS_Click if ULflag=0 then label1.Text = strlabeltemp & "s" if portflag=1 then serial.Output ("s") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "S" if portflag=1 then serial.Output ("S") sound("beep.wav") end if end if End Sub Sub ButtonT_Click if ULflag=0 then label1.Text = strlabeltemp & "t" if portflag=1 then serial.Output ("t") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "T" if portflag=1 then serial.Output ("T") sound("beep.wav") end if end if End Sub Sub ButtonU_Click if ULflag=0 then label1.Text = strlabeltemp & "u" if portflag=1 then serial.Output ("u") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "U" if portflag=1 then serial.Output ("U") sound("beep.wav") end if end if End Sub Sub ButtonV_Click if ULflag=0 then label1.Text = strlabeltemp & "v" if portflag=1 then serial.Output ("v") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "V" if portflag=1 then serial.Output ("V") sound("beep.wav") end if end if End Sub Sub ButtonW_Click if ULflag=0 then label1.Text = strlabeltemp & "w" if portflag=1 then serial.Output ("w") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "W" if portflag=1 then serial.Output ("W") sound("beep.wav") end if end if End Sub Sub ButtonX_Click if ULflag=0 then label1.Text = strlabeltemp & "x" if portflag=1 then serial.Output ("x") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "X" if portflag=1 then serial.Output ("X") sound("beep.wav") end if end if End Sub Sub ButtonY_Click if ULflag=0 then label1.Text = strlabeltemp & "y" if portflag=1 then serial.Output ("y") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "Y" if portflag=1 then serial.Output ("Y") sound("beep.wav") end if end if End Sub Sub ButtonZ_Click if ULflag=0 then label1.Text = strlabeltemp & "z" if portflag=1 then serial.Output ("z") sound("beep.wav") end if end if if ULflag=1 then label1.Text = strlabeltemp & "Z" if portflag=1 then serial.Output ("Z") sound("beep.wav") end if end if End Sub Sub Button0_Click label1.Text = strlabeltemp & "0" if portflag=1 then serial.Output ("0") sound("beep.wav") end if End Sub Sub Button1_Click label1.Text = strlabeltemp & "1" if portflag=1 then serial.Output ("1") sound("beep.wav") end if End Sub Sub Button2_Click label1.Text = strlabeltemp & "2" if portflag=1 then serial.Output ("2") sound("beep.wav") end if End Sub Sub Button3_Click label1.Text = strlabeltemp & "3" if portflag=1 then serial.Output ("3") sound("beep.wav") end if End Sub Sub Button4_Click label1.Text = strlabeltemp & "4" if portflag=1 then serial.Output ("4") sound("beep.wav") end if End Sub Sub Button5_Click label1.Text = strlabeltemp & "5" if portflag=1 then serial.Output ("5") sound("beep.wav") end if End Sub Sub Button6_Click label1.Text = strlabeltemp & "6" if portflag=1 then serial.Output ("6") sound("beep.wav") end if End Sub Sub Button7_Click label1.Text = strlabeltemp & "7" if portflag=1 then serial.Output ("7") sound("beep.wav") end if End Sub Sub Button8_Click label1.Text = strlabeltemp & "8" if portflag=1 then serial.Output ("8") sound("beep.wav") end if End Sub Sub Button9_Click label1.Text = strlabeltemp & "9" if portflag=1 then serial.Output ("9") sound("beep.wav") end if End Sub Sub UPPER_Click sound("beep.wav") ULflag=1 buttonA.Text="A" buttonB.Text="B" buttonC.Text="C" buttonD.Text="D" buttonE.Text="E" buttonF.Text="F" buttonG.Text="G" buttonH.Text="H" buttonI.Text="I" buttonJ.Text="J" buttonK.Text="K" buttonL.Text="L" buttonM.Text="M" buttonN.Text="N" buttonO.Text="O" buttonP.Text="P" buttonQ.Text="Q" buttonR.Text="R" buttonS.Text="S" buttonT.Text="T" buttonU.Text="U" buttonV.Text="V" buttonW.Text="W" buttonX.Text="X" buttonY.Text="Y" buttonZ.Text="Z" End Sub Sub LOWER_Click sound("beep.wav") ULflag=0 buttonA.Text="a" buttonB.Text="b" buttonC.Text="c" buttonD.Text="d" buttonE.Text="e" buttonF.Text="f" buttonG.Text="g" buttonH.Text="h" buttonI.Text="i" buttonJ.Text="j" buttonK.Text="k" buttonL.Text="l" buttonM.Text="m" buttonN.Text="n" buttonO.Text="o" buttonP.Text="p" buttonQ.Text="q" buttonR.Text="r" buttonS.Text="s" buttonT.Text="t" buttonU.Text="u" buttonV.Text="v" buttonW.Text="w" buttonX.Text="x" buttonY.Text="y" buttonZ.Text="z" End Sub Sub CLEARTX_Click sound("beep.wav") textbox1.Text="" label1.Text = strlabeltemp End Sub Sub CLEARRX_Click sound("beep.wav") textbox2.Text="" label1.Text = strlabeltemp End Sub Sub SENDTX_Click if portflag=1 then sound("beep.wav") serial.Output (textbox1.Text) end if End Sub Sub SpButton1_Click label1.Text = strlabeltemp & "!" if portflag=1 then serial.Output ("!") sound("beep.wav") end if End Sub Sub SpButton2_Click label1.Text = strlabeltemp & "@" if portflag=1 then serial.Output ("@") sound("beep.wav") end if End Sub Sub SpButton3_Click label1.Text = strlabeltemp & "#" if portflag=1 then serial.Output ("#") sound("beep.wav") end if End Sub Sub SpButton4_Click label1.Text = strlabeltemp & "$" if portflag=1 then serial.Output ("$") sound("beep.wav") end if End Sub Sub SpButton5_Click label1.Text = strlabeltemp & "%" if portflag=1 then serial.Output ("%") sound("beep.wav") end if End Sub Sub SpButton6_Click label1.Text = strlabeltemp & "^" if portflag=1 then serial.Output ("^") sound("beep.wav") end if End Sub Sub SpButton7_Click label1.Text = strlabeltemp & "=" if portflag=1 then serial.Output ("=") sound("beep.wav") end if End Sub Sub SpButton8_Click label1.Text = strlabeltemp & "*" if portflag=1 then serial.Output ("*") sound("beep.wav") end if End Sub Sub SpButton9_Click label1.Text = strlabeltemp & "(" if portflag=1 then serial.Output ("(") sound("beep.wav") end if End Sub Sub SpButton10_Click label1.Text = strlabeltemp & ")" if portflag=1 then serial.Output (")") sound("beep.wav") end if End Sub Sub SpButton11_Click label1.Text = strlabeltemp & "\" if portflag=1 then serial.Output ("\") sound("beep.wav") end if End Sub Sub SpButton12_Click label1.Text = strlabeltemp & "/" if portflag=1 then serial.Output ("/") sound("beep.wav") end if End Sub Sub SpButton13_Click label1.Text = strlabeltemp & ";" if portflag=1 then serial.Output (";") sound("beep.wav") end if End Sub Sub SpButton14_Click label1.Text = strlabeltemp & "-" if portflag=1 then serial.Output ("-") sound("beep.wav") end if End Sub Sub SpButton15_Click label1.Text = strlabeltemp & "|" if portflag=1 then serial.Output ("|") sound("beep.wav") end if End Sub Sub SpButton16_Click label1.Text = strlabeltemp & "," if portflag=1 then serial.Output (",") sound("beep.wav") end if End Sub Sub SpButton17_Click label1.Text = strlabeltemp & "<" if portflag=1 then serial.Output ("<") sound("beep.wav") end if End Sub Sub SpButton18_Click label1.Text = strlabeltemp & ">" if portflag=1 then serial.Output (">") sound("beep.wav") end if End Sub Sub SpButton19_Click label1.Text = strlabeltemp & "?" if portflag=1 then serial.Output ("?") sound("beep.wav") end if End Sub Sub SpButton20_Click label1.Text = strlabeltemp & "~" if portflag=1 then serial.Output ("~") sound("beep.wav") end if End Sub Sub SpButton21_Click label1.Text = strlabeltemp & "{" if portflag=1 then serial.Output ("{") sound("beep.wav") end if End Sub Sub SpButton22_Click label1.Text = strlabeltemp & "}" if portflag=1 then serial.Output ("}") sound("beep.wav") end if End Sub Sub SpButton23_Click label1.Text = strlabeltemp & "[" if portflag=1 then serial.Output ("[") sound("beep.wav") end if End Sub Sub SpButton24_Click label1.Text = strlabeltemp & "]" if portflag=1 then serial.Output ("]") sound("beep.wav") end if End Sub Sub ImageButtonSIP_Click sound("beep.wav") Sip_Flag=Sip_Flag + 1 If Sip_Flag=2 Then Sip_Flag=0 End If If Sip_Flag=0 Then SIP(False) ImageButtonSIP.Image="g70w35.jpg" End If If Sip_Flag=1 Then SIP(True) ImageButtonSIP.Image="r70w35.jpg" End If End Sub Sub CLEARTX_ButtonDown CLEARTX.Image="w70w35.jpg" End Sub Sub CLEARTX_ButtonUp CLEARTX.Image="g70w35.jpg" End Sub Sub CLEARRX_ButtonDown CLEARRX.Image="w70w35.jpg" End Sub Sub CLEARRX_ButtonUp CLEARRX.Image="y70w35.jpg" End Sub