version
6.30
0
Form1
1
0
0
0
17
15
0
0
2
3
0
0
0
0
0
0
0
7
0
0
238
268

1
Serial2.dll
1
Serial2.dll
1
serial:Serial
Sub designer






















































































addform(Form1,"RF  Range  Test","",250,250,250)@
addtextbox(form1,TextBox1,35,90,200,35,"
",255,255,0,0,0,0,True,True,True,9)@
addtimer(form1,Timer3,185,95,2000)@
addimagebutton(form1,ImageButtonRangeTestOff,65,195,145,25,"RF RANGE TEST OFF",250,250,250,0,0,0,"cCenterImage","g150w35.jpg",True,True,True,10)@
addimagebutton(form1,ImageButtonRangeTestOn,65,165,145,25,"RF RANGE TEST ON",250,250,250,0,0,0,"cCenterImage","y150w35.jpg",True,True,True,10)@
addimage(form1,Image17,35,190,20,30,"cCenterImage","sw.jpg",250,250,250,True,True)@
addimage(form1,Image16,35,160,20,30,"cCenterImage","sw.jpg",250,250,250,True,True)@
addtextbox(form1,TextBox2,35,125,200,35,"",0,255,255,0,0,0,True,True,True,9)@
addtimer(form1,Timer2,90,95,1000)@
addlabel(form1,Label5,0,245,240,25," RF DEVICE OUT OF RANGE",0,0,0,255,0,0,True,False,14)@
addlabel(form1,Label4,0,220,240,25,"     RF DEVICE IN RANGE",0,0,0,0,255,0,True,False,14)@
addtimer(form1,Timer1,50,95,500)@
addimage(form1,Image9,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,Label3,5,125,30,20,"RX:",250,250,250,0,0,0,True,True,13)@
addlabel(form1,Label2,5,90,30,20,"TX:",250,250,250,0,0,0,True,True,13)@
addimage(form1,Image8,125,25,30,30,"cCenterImage","sw.jpg",250,250,250,True,True)@
addlabel(form1,Label1,0,0,240,25,"  COM 8: 9600,N,8,1  [OFF]",0,0,0,255,255,0,True,True,13)@
addimage(form1,Image7,0,55,30,30,"cCenterImage","sw.jpg",245,245,220,True,True)@
addimage(form1,Image6,0,25,30,30,"cCenterImage","sw.jpg",245,245,220,True,True)@
addimagebutton(form1,ImageButton2,30,55,85,30,"CLOSE",250,250,250,0,0,0,"cCenterImage","blue.jpg",True,True,True,9)@
addimagebutton(form1,ImageButton1,30,25,85,30,"OPEN",250,250,250,0,0,0,"cCenterImage","blue.jpg",True,True,True,9)@
End Sub
@EndOfDesignText@Sub Globals
tmr_flag=0
tmr_count=0
tmr_count_1=0
tmr_count_2=0
msdelay=0
portflag = 0
strlabel0="  COM 8: 9600,N,8,1"
strlabel1=" [OFF]"
strlabel2=" [ ON]"
strlabeltemp=""
strval=""
End Sub

Sub App_Start
 Form1.show

textbox1.Text=""
textbox2.Text=""
              label1.Text = strlabel0 & strlabel1
             strlabeltemp  = strlabel0 & strlabel1 
      
serial.New2 (8,9600,"N",8,1)

textbox1.FontSize=8
textbox2.FontSize=8

' Turn the Port Closed indicator ON 
' since the Bluetooth port is closed
' when the program first starts up.

image7.Image="sr.jpg"

image16.Image="sw.jpg"
image17.Image="sr.jpg"

Sip=false

msdelay=100

label4.Visible=false
label5.Visible=false

End Sub

Sub form1_keypress(specialkey)

End Sub

Sub ImageButtonClear_Click
Textbox1.Text=""
Textbox2.Text=""
End Sub

Sub ImageButtonClear_ButtonDown
image8.Image="sr.jpg"
End Sub

Sub ImageButtonClear_ButtonUp
image8.Image="sw.jpg"
End Sub

Sub ImageButton1_Click
image6.Image="sr.jpg"
image7.Image="sw.jpg"

If portflag = 0 Then
   serial.PortOpen=true
   portflag = 1
   label1.Text = strlabel0 & strlabel2
  strlabeltemp=label1.Text 

serial.enableoncomm=true
serial.Output ("*")
End If
End Sub

Sub ImageButton2_Click
image6.Image="sw.jpg"
image7.Image="sr.jpg"

If portflag = 1 Then
   TextBox1.Text=""
   serial.Output ("^")
   serial.enableoncomm=false
   serial.PortOpen=false
   portflag = 0
   label1.Text = strlabel0 & strlabel1
 strlabeltemp=label1.Text 
End If
End Sub

Sub serial_OnCom
strval=serial.InputString
TextBox2.Text=TextBox2.Text & strval

If tmr_flag=1 Then
   If strval = "R" Then
      label4.Visible=true
      label5.Visible=false
      Sound("beep.wav")
      tmr_count=tmr_count + 1
   End If
End If
End Sub

Sub ImageButtonSendTX_Click
      serial.Output (Textbox1.Text)
End Sub

Sub ImageButtonSendTX_ButtonDown
image9.Image="sr.jpg"
End Sub

Sub ImageButtonSendTX_ButtonUp
image9.Image="sw.jpg"
End Sub

Sub Timer1_Tick
serial.Output ("R")
textbox1.Text=textbox1.Text & "R"
End Sub

Sub Timer2_Tick
tmr_count_1=tmr_count
End Sub

Sub Timer3_Tick
tmr_count_2=tmr_count
If tmr_count_1=tmr_count_2 Then
   label4.Visible=false
   label5.Visible=true
End If
End Sub

Sub ImageButtonRangeTestOn_Click
image16.Image="sr.jpg"
image17.Image="sw.jpg"

timer1.Interval=500
timer1.Enabled=true

timer2.Interval=1000
timer2.Enabled=true

timer3.Interval=2000
timer3.Enabled=true
tmr_flag=1
End Sub

Sub ImageButtonRangeTestOff_Click
image16.Image="sw.jpg"
image17.Image="sr.jpg"
timer1.Enabled=false
timer2.Enabled=false
timer3.Enabled=false
textbox1.Text=""
textbox2.Text=""
label4.Visible=false
label5.Visible=false
tmr_flag=0
End Sub