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