version 6.30 1 Form2 Form1 2 0 10 0 26 31 0 0 5 3 0 0 9 0 0 0 0 75 0 0 238 268 1 Serial2.dll 1 Serial2.dll 1 serial:Serial Sub designer addform(Form2,"VIEW DATA","",255,255,255)@ addlabel(form2,Label110,170,150,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label109,170,125,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label108,170,100,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label107,170,75,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label210,145,150,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label209,145,125,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label208,145,100,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label207,145,75,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label205,75,150,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label204,75,125,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label203,75,100,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label202,75,75,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label105,5,150,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label104,5,125,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label103,5,100,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label102,5,75,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label206,145,50,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label201,75,50,20,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label106,170,50,65,20,"",200,200,200,0,0,0,True,True,9)@ addlabel(form2,Label101,5,50,65,20,"",200,200,200,0,0,0,True,True,9)@ addimagebutton(form2,ImageButton75,120,150,25,25,"10",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton74,120,125,25,25,"9",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton73,120,100,25,25,"8",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton72,120,75,25,25,"7",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton71,120,50,25,25,"6",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton70,95,150,25,25,"5",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton69,95,125,25,25,"4",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton68,95,100,25,25,"3",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton67,95,75,25,25,"2",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButton66,95,50,25,25,"1",212,208,200,0,0,0,"cCenterImage","w28w35.jpg",True,False,True,8)@ addimagebutton(form2,ImageButtonEXITDATAVIEW,45,205,150,30,"EXIT",212,208,200,0,0,0,"cCenterImage","g150w35.jpg",True,True,True,9)@ addform(Form1,"Custom Buttons","",255,255,255)@ addimagebutton(form1,ImageButtonDATAVIEW,150,115,45,25,"View",212,208,200,0,0,0,"cCenterImage","b50w35.jpg",True,True,True,8)@ addtimer(form1,Timer3,50,140,500)@ addtimer(form1,Timer2,45,165,500)@ addtimer(form1,Timer1,40,190,500)@ addimagebutton(form1,ImageButtonOpen,25,5,45,25,"Open",212,208,200,0,0,0,"cCenterImage","b50w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonStopRangeTest,135,5,30,25,"ST",212,208,200,0,0,0,"cCenterImage","G35w35.jpg",True,True,True,8)@ addlabel(form1,Label1,100,5,40,25,"",128,255,128,0,0,0,True,True,13)@ addtextbox(form1,TextBox1,5,60,115,20,"TextBox1",255,255,0,0,0,0,True,True,True,9)@ addimagebutton(form1,ImageButtonRangeTestOn,65,5,35,25,"RT",212,208,200,0,0,0,"cCenterImage","G35w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonVIEW,150,85,20,25,"V",212,208,200,0,0,0,"cCenterImage","R28w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGMClear,60,85,20,25,"C",212,208,200,0,0,0,"cCenterImage","R28w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonSaveFile,205,85,35,25,"S:F",212,208,200,0,0,0,"cCenterImage","y40w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonReadFile,170,85,35,25,"R:F",212,208,200,0,0,0,"cCenterImage","b40w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonClearRX,30,85,30,25,"RX",212,208,200,0,0,0,"cCenterImage","b35w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonSendTX,90,35,75,25,"Send TX",212,208,200,0,0,0,"cCenterImage","y80w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonPGM10,155,240,85,25,"",212,208,200,0,0,0,"cCenterImage","r90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM9,155,215,85,25,"",212,208,200,0,0,0,"cCenterImage","g90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM8,155,190,85,25,"",212,208,200,0,0,0,"cCenterImage","y90w35.jpg",True,True,True,9)@ addimage(form1,Image10,100,240,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image9,100,215,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image8,100,190,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addcheckbox(form1,CheckBox5,85,240,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox4,85,215,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox3,85,190,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox10,140,240,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox9,140,215,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox8,140,190,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addimage(form1,Image15,120,240,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image14,120,215,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image13,120,190,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimagebutton(form1,ImageButtonPGM5,0,240,85,25,"",212,208,200,0,0,0,"cCenterImage","r90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM3,0,190,85,25,"",212,208,200,0,0,0,"cCenterImage","y90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM4,0,215,85,25,"",212,208,200,0,0,0,"cCenterImage","g90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonClearTX,0,85,30,25,"TX",212,208,200,0,0,0,"cCenterImage","y35w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonClearAll,80,85,70,25,"Clear All",212,208,200,0,0,0,"cCenterImage","g70w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonPGMEnter1,195,115,45,25,"Enter",212,208,200,0,0,0,"cCenterImage","Y50w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonPGM7,155,165,85,25,"",212,208,200,0,0,0,"cCenterImage","b90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM6,155,140,85,25,"",212,208,200,0,0,0,"cCenterImage","r90w35.jpg",True,True,True,9)@ addimage(form1,Image12,120,165,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image11,120,140,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image7,100,165,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image6,100,140,20,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addtextbox(form1,TextBox4,130,115,20,21,"",128,255,128,0,0,0,True,True,False,9)@ addtextbox(form1,TextBox3,35,115,60,21,"",128,255,128,0,0,0,True,True,False,9)@ addlabel(form1,Label7,100,115,30,20,"Value:",255,255,255,0,0,0,True,True,8)@ addlabel(form1,Label6,5,115,30,20,"Label:",255,255,255,0,0,0,True,True,8)@ addcheckbox(form1,CheckBox7,140,165,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox6,140,140,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox2,85,165,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(form1,CheckBox1,85,140,20,25,"",255,255,255,0,0,0,True,True,False,9)@ addimagebutton(form1,ImageButtonPGM2,0,165,85,25,"",212,208,200,0,0,0,"cCenterImage","b90w35.jpg",True,True,True,9)@ addimagebutton(form1,ImageButtonPGM1,0,140,85,25,"",212,208,200,0,0,0,"cCenterImage","r90w35.jpg",True,True,True,9)@ addimage(form1,Image3,70,30,20,35,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addtextbox(form1,TextBox2,120,60,115,20,"TextBox2r",175,200,255,0,0,0,True,True,True,9)@ addimage(form1,Image5,165,30,20,35,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image4,165,0,20,35,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image2,0,30,25,35,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimage(form1,Image1,0,0,25,35,"cCenterImage","w28w35.jpg",245,245,220,True,True)@ addimagebutton(form1,ImageButtonSipOff,185,35,55,25,"SIP Off",212,208,200,0,0,0,"cCenterImage","B60w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonSipOn,185,5,55,25,"SIP On",212,208,200,0,0,0,"cCenterImage","B60w35.jpg",True,True,True,8)@ addimagebutton(form1,ImageButtonClose,20,35,50,25,"Close",212,208,200,0,0,0,"cCenterImage","b50w35.jpg",True,True,True,8)@ addmenuitem(form1,Menu1,"BUTTON COLOR ",True,False)@r addmenuitem(menu1,MenuRed,"All Red",True,False)@r addmenuitem(menu1,MenuBlue,"All Blue",True,False)@r addmenuitem(menu1,MenuGreen,"All Green",True,False)@r addmenuitem(menu1,MenuYellow,"All Yellow",True,False)@r addmenuitem(menu1,MenuMixed,"Mixed Colors",True,False)@ End Sub End Sub End Sub End Sub End Sub @EndOfDesignText@Sub Globals blip_color=5 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="" x=0 PGM_1_FLAG = 0 PGM_2_FLAG = 0 PGM_3_FLAG = 0 PGM_4_FLAG = 0 PGM_5_FLAG = 0 PGM_6_FLAG = 0 PGM_7_FLAG = 0 PGM_8_FLAG = 0 PGM_9_FLAG = 0 PGM_10_FLAG = 0 PGM_1_TEXT = "" PGM_2_TEXT = "" PGM_3_TEXT = "" PGM_4_TEXT = "" PGM_5_TEXT = "" PGM_6_TEXT = "" PGM_7_TEXT = "" PGM_8_TEXT = "" PGM_9_TEXT = "" PGM_10_TEXT = "" PGM_1_VALUE = "" PGM_2_VALUE = "" PGM_3_VALUE = "" PGM_4_VALUE = "" PGM_5_VALUE = "" PGM_6_VALUE = "" PGM_7_VALUE = "" PGM_8_VALUE = "" PGM_9_VALUE = "" PGM_10_VALUE = "" End Sub Sub App_Start Form1.show label1.color=128,255,128 Textbox1.Text="" Textbox2.Text="" serial.New2 (8,9600,"N",8,1) Sip(False) End Sub Sub ImageButtonSipOn_ButtonDown image4.Image="r28w35.jpg" End Sub Sub ImageButtonSipOn_ButtonUp image4.Image="w28w35.jpg" End Sub Sub ImageButtonSipOn_Click Sip(true) End Sub Sub ImageButtonSipOff_ButtonDown image5.Image="r28w35.jpg" End Sub Sub ImageButtonSipOff_ButtonUp image5.Image="w28w35.jpg" End Sub Sub ImageButtonSipOff_Click Sip(False) End Sub Sub ImageButtonSendTX_Click If portflag=1 Then serial.Output (textbox1.Text) Sound("beep.wav") End If End Sub Sub ImageButtonSendTX_ButtonDown image3.Image="r28w35.jpg" End Sub Sub ImageButtonSendTX_ButtonUp image3.Image="w28w35.jpg" End Sub Sub ImageButtonOpen_ButtonDown image1.Image="r28w35.jpg" image2.Image="w28w35.jpg" End Sub Sub ImageButtonOpen_Click Sip(false) If portflag = 0 Then serial.PortOpen=true portflag = 1 serial.enableoncomm=true End If Sip(false) End Sub Sub ImageButtonClose_ButtonDown image1.Image="w28w35.jpg" image2.Image="r28w35.jpg" End Sub Sub ImageButtonClose_Click If portflag = 1 Then TextBox1.Text="" serial.enableoncomm=false serial.PortOpen=false portflag = 0 End If End Sub Sub ImageButtonPGMEnter1_Click If PGM_1_FLAG=1 Then PGM_1_TEXT=textbox3.Text imagebuttonPGM1.Text=PGM_1_TEXT PGM_1_VALUE=textbox4.Text End If If PGM_2_FLAG=1 Then PGM_2_TEXT=textbox3.Text imagebuttonPGM2.Text=PGM_2_TEXT PGM_2_VALUE=textbox4.Text End If If PGM_3_FLAG=1 Then PGM_3_TEXT=textbox3.Text imagebuttonPGM3.Text=PGM_3_TEXT PGM_3_VALUE=textbox4.Text End If If PGM_4_FLAG=1 Then PGM_4_TEXT=textbox3.Text imagebuttonPGM4.Text=PGM_4_TEXT PGM_4_VALUE=textbox4.Text End If If PGM_5_FLAG=1 Then PGM_5_TEXT=textbox3.Text imagebuttonPGM5.Text=PGM_5_TEXT PGM_5_VALUE=textbox4.Text End If If PGM_6_FLAG=1 Then PGM_6_TEXT=textbox3.Text imagebuttonPGM6.Text=PGM_6_TEXT PGM_6_VALUE=textbox4.Text End If If PGM_7_FLAG=1 Then PGM_7_TEXT=textbox3.Text imagebuttonPGM7.Text=PGM_7_TEXT PGM_7_VALUE=textbox4.Text End If If PGM_8_FLAG=1 Then PGM_8_TEXT=textbox3.Text imagebuttonPGM8.Text=PGM_8_TEXT PGM_8_VALUE=textbox4.Text End If If PGM_9_FLAG=1 Then PGM_9_TEXT=textbox3.Text imagebuttonPGM9.Text=PGM_9_TEXT PGM_9_VALUE=textbox4.Text End If If PGM_10_FLAG=1 Then PGM_10_TEXT=textbox3.Text imagebuttonPGM10.Text=PGM_10_TEXT PGM_10_VALUE=textbox4.Text End If End Sub Sub ImageButtonPGMClear_Click textbox3.Text="" textbox4.Text="" checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 End Sub Sub CheckBox1_Click PGM_1_FLAG=1 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox2_Click PGM_1_FLAG=0 PGM_2_FLAG=1 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox3_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=1 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox4_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=1 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox5_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=1 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox6_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=1 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox7_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=1 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox8_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=1 PGM_9_FLAG=0 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox9.Checked=false checkbox10.Checked=false End Sub Sub CheckBox9_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=1 PGM_10_FLAG=0 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox10.Checked=false End Sub Sub CheckBox10_Click PGM_1_FLAG=0 PGM_2_FLAG=0 PGM_3_FLAG=0 PGM_4_FLAG=0 PGM_5_FLAG=0 PGM_6_FLAG=0 PGM_7_FLAG=0 PGM_8_FLAG=0 PGM_9_FLAG=0 PGM_10_FLAG=1 checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false End Sub Sub ImageButtonPGM1_Click textbox1.Text=textbox1.Text & PGM_1_VALUE If portflag=1 Then serial.Output (PGM_1_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM2_Click textbox1.Text=textbox1.Text & PGM_2_VALUE If portflag=1 Then serial.Output (PGM_2_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM3_Click textbox1.Text=textbox1.Text & PGM_3_VALUE If portflag=1 Then serial.Output (PGM_3_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM4_Click textbox1.Text=textbox1.Text & PGM_4_VALUE If portflag=1 Then serial.Output (PGM_4_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM5_Click textbox1.Text=textbox1.Text & PGM_5_VALUE If portflag=1 Then serial.Output (PGM_5_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM6_Click textbox1.Text=textbox1.Text & PGM_6_VALUE If portflag=1 Then serial.Output (PGM_6_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM7_Click textbox1.Text=textbox1.Text & PGM_7_VALUE If portflag=1 Then serial.Output (PGM_7_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM8_Click textbox1.Text=textbox1.Text & PGM_8_VALUE If portflag=1 Then serial.Output (PGM_8_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM9_Click textbox1.Text=textbox1.Text & PGM_9_VALUE If portflag=1 Then serial.Output (PGM_9_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonPGM10_Click textbox1.Text=textbox1.Text & PGM_10_VALUE If portflag=1 Then serial.Output (PGM_10_VALUE) Sound("beep.wav") End If End Sub Sub ImageButtonView_Click If PGM_1_FLAG=1 Then textbox3.Text=PGM_1_TEXT textbox4.Text=PGM_1_VALUE End If If PGM_2_FLAG=1 Then textbox3.Text=PGM_2_TEXT textbox4.Text=PGM_2_VALUE End If If PGM_3_FLAG=1 Then textbox3.Text=PGM_3_TEXT textbox4.Text=PGM_3_VALUE End If If PGM_4_FLAG=1 Then textbox3.Text=PGM_4_TEXT textbox4.Text=PGM_4_VALUE End If If PGM_5_FLAG=1 Then textbox3.Text=PGM_5_TEXT textbox4.Text=PGM_5_VALUE End If If PGM_6_FLAG=1 Then textbox3.Text=PGM_6_TEXT textbox4.Text=PGM_6_VALUE End If If PGM_7_FLAG=1 Then textbox3.Text=PGM_7_TEXT textbox4.Text=PGM_7_VALUE End If If PGM_8_FLAG=1 Then textbox3.Text=PGM_8_TEXT textbox4.Text=PGM_8_VALUE End If If PGM_9_FLAG=1 Then textbox3.Text=PGM_9_TEXT textbox4.Text=PGM_9_VALUE End If If PGM_10_FLAG=1 Then textbox3.Text=PGM_10_TEXT textbox4.Text=PGM_10_VALUE End If End Sub Sub ImageButtonClearAll_Click ImageButtonPGM1.Text="" ImageButtonPGM2.Text="" ImageButtonPGM3.Text="" ImageButtonPGM4.Text="" ImageButtonPGM5.Text="" ImageButtonPGM6.Text="" ImageButtonPGM7.Text="" ImageButtonPGM8.Text="" ImageButtonPGM9.Text="" ImageButtonPGM10.Text="" textbox1.Text="" textbox2.Text="" textbox3.Text="" textbox4.Text="" checkbox1.Checked=false checkbox2.Checked=false checkbox3.Checked=false checkbox4.Checked=false checkbox5.Checked=false checkbox6.Checked=false checkbox7.Checked=false checkbox8.Checked=false checkbox9.Checked=false checkbox10.Checked=false PGM_1_FLAG = 0 PGM_2_FLAG = 0 PGM_3_FLAG = 0 PGM_4_FLAG = 0 PGM_5_FLAG = 0 PGM_6_FLAG = 0 PGM_7_FLAG = 0 PGM_8_FLAG = 0 PGM_9_FLAG = 0 PGM_10_FLAG = 0 PGM_1_TEXT = "" PGM_2_TEXT = "" PGM_3_TEXT = "" PGM_4_TEXT = "" PGM_5_TEXT = "" PGM_6_TEXT = "" PGM_7_TEXT = "" PGM_8_TEXT = "" PGM_9_TEXT = "" PGM_10_TEXT = "" PGM_1_VALUE = "" PGM_2_VALUE = "" PGM_3_VALUE = "" PGM_4_VALUE = "" PGM_5_VALUE = "" PGM_6_VALUE = "" PGM_7_VALUE = "" PGM_8_VALUE = "" PGM_9_VALUE = "" PGM_10_VALUE = "" End Sub Sub ImageButtonClearTX_Click textbox1.Text="" End Sub Sub ImageButtonClearRX_Click textbox2.Text="" End Sub Sub ImageButtonPGM1_ButtonDown If blip_color=1 Then image6.Image="r28w35.jpg" End If If blip_color=2 Then image6.Image="b28w35.jpg" End If If blip_color=3 Then image6.Image="g28w35.jpg" End If If blip_color=4 Then image6.Image="y28w35.jpg" End If If blip_color=5 Then image6.Image="r28w35.jpg" End If End Sub Sub ImageButtonPGM1_ButtonUp image6.Image="w28w35.jpg" End Sub Sub ImageButtonPGM2_ButtonDown If blip_color=1 Then image7.Image="r28w35.jpg" End If If blip_color=2 Then image7.Image="b28w35.jpg" End If If blip_color=3 Then image7.Image="g28w35.jpg" End If If blip_color=4 Then image7.Image="y28w35.jpg" End If If blip_color=5 Then image7.Image="b28w35.jpg" End If End Sub Sub ImageButtonPGM2_ButtonUp image7.Image="w28w35.jpg" End Sub Sub ImageButtonPGM3_ButtonDown If blip_color=1 Then image8.Image="r28w35.jpg" End If If blip_color=2 Then image8.Image="b28w35.jpg" End If If blip_color=3 Then image8.Image="g28w35.jpg" End If If blip_color=4 Then image8.Image="y28w35.jpg" End If If blip_color=5 Then image8.Image="y28w35.jpg" End If End Sub Sub ImageButtonPGM3_ButtonUp image8.Image="w28w35.jpg" End Sub Sub ImageButtonPGM4_ButtonDown If blip_color=1 Then image9.Image="r28w35.jpg" End If If blip_color=2 Then image9.Image="b28w35.jpg" End If If blip_color=3 Then image9.Image="g28w35.jpg" End If If blip_color=4 Then image9.Image="y28w35.jpg" End If If blip_color=5 Then image9.Image="g28w35.jpg" End If End Sub Sub ImageButtonPGM4_ButtonUp image9.Image="w28w35.jpg" End Sub Sub ImageButtonPGM5_ButtonDown If blip_color=1 Then image10.Image="r28w35.jpg" End If If blip_color=2 Then image10.Image="b28w35.jpg" End If If blip_color=3 Then image10.Image="g28w35.jpg" End If If blip_color=4 Then image10.Image="y28w35.jpg" End If If blip_color=5 Then image10.Image="r28w35.jpg" End If End Sub Sub ImageButtonPGM5_ButtonUp image10.Image="w28w35.jpg" End Sub Sub ImageButtonPGM6_ButtonDown If blip_color=1 Then image11.Image="r28w35.jpg" End If If blip_color=2 Then image11.Image="b28w35.jpg" End If If blip_color=3 Then image11.Image="g28w35.jpg" End If If blip_color=4 Then image11.Image="y28w35.jpg" End If If blip_color=5 Then image11.Image="r28w35.jpg" End If End Sub Sub ImageButtonPGM6_ButtonUp image11.Image="w28w35.jpg" End Sub Sub ImageButtonPGM7_ButtonDown If blip_color=1 Then image12.Image="r28w35.jpg" End If If blip_color=2 Then image12.Image="b28w35.jpg" End If If blip_color=3 Then image12.Image="g28w35.jpg" End If If blip_color=4 Then image12.Image="y28w35.jpg" End If If blip_color=5 Then image12.Image="b28w35.jpg" End If End Sub Sub ImageButtonPGM7_ButtonUp image12.Image="w28w35.jpg" End Sub Sub ImageButtonPGM8_ButtonDown If blip_color=1 Then image13.Image="r28w35.jpg" End If If blip_color=2 Then image13.Image="b28w35.jpg" End If If blip_color=3 Then image13.Image="g28w35.jpg" End If If blip_color=4 Then image13.Image="y28w35.jpg" End If If blip_color=5 Then image13.Image="y28w35.jpg" End If End Sub Sub ImageButtonPGM8_ButtonUp image13.Image="w28w35.jpg" End Sub Sub ImageButtonPGM9_ButtonDown If blip_color=1 Then image14.Image="r28w35.jpg" End If If blip_color=2 Then image14.Image="b28w35.jpg" End If If blip_color=3 Then image14.Image="g28w35.jpg" End If If blip_color=4 Then image14.Image="y28w35.jpg" End If If blip_color=5 Then image14.Image="g28w35.jpg" End If End Sub Sub ImageButtonPGM9_ButtonUp image14.Image="w28w35.jpg" End Sub Sub ImageButtonPGM10_ButtonDown If blip_color=1 Then image15.Image="r28w35.jpg" End If If blip_color=2 Then image15.Image="b28w35.jpg" End If If blip_color=3 Then image15.Image="g28w35.jpg" End If If blip_color=4 Then image15.Image="y28w35.jpg" End If If blip_color=5 Then image15.Image="r28w35.jpg" End If End Sub Sub ImageButtonPGM10_ButtonUp image15.Image="w28w35.jpg" End Sub Sub ImageButtonReadFile_Click FileOpen (c1,"CButtons.txt",cRead,,cASCII) ImageButtonPGM1.Text = FileRead (c1) PGM_1_TEXT = ImageButtonPGM1.Text ImageButtonPGM2.Text = FileRead (c1) PGM_2_TEXT = ImageButtonPGM2.Text ImageButtonPGM3.Text = FileRead (c1) PGM_3_TEXT = ImageButtonPGM3.Text ImageButtonPGM4.Text = FileRead (c1) PGM_4_TEXT = ImageButtonPGM4.Text ImageButtonPGM5.Text = FileRead (c1) PGM_5_TEXT = ImageButtonPGM5.Text ImageButtonPGM6.Text = FileRead (c1) PGM_6_TEXT = ImageButtonPGM6.Text ImageButtonPGM7.Text = FileRead (c1) PGM_7_TEXT = ImageButtonPGM7.Text ImageButtonPGM8.Text = FileRead (c1) PGM_8_TEXT = ImageButtonPGM8.Text ImageButtonPGM9.Text = FileRead (c1) PGM_9_TEXT = ImageButtonPGM9.Text ImageButtonPGM10.Text = FileRead (c1) PGM_10_TEXT = ImageButtonPGM10.Text PGM_1_VALUE = FileRead (c1) PGM_2_VALUE = FileRead (c1) PGM_3_VALUE = FileRead (c1) PGM_4_VALUE = FileRead (c1) PGM_5_VALUE = FileRead (c1) PGM_6_VALUE = FileRead (c1) PGM_7_VALUE = FileRead (c1) PGM_8_VALUE = FileRead (c1) PGM_9_VALUE = FileRead (c1) PGM_10_VALUE = FileRead (c1) FileClose (c1) End Sub Sub ImageButtonSaveFile_Click FileOpen (c1,"CButtons.txt",cWrite,,cASCII) FileWrite (c1,PGM_1_TEXT) FileWrite (c1,PGM_2_TEXT) FileWrite (c1,PGM_3_TEXT) FileWrite (c1,PGM_4_TEXT) FileWrite (c1,PGM_5_TEXT) FileWrite (c1,PGM_6_TEXT) FileWrite (c1,PGM_7_TEXT) FileWrite (c1,PGM_8_TEXT) FileWrite (c1,PGM_9_TEXT) FileWrite (c1,PGM_10_TEXT) FileWrite (c1,PGM_1_VALUE) FileWrite (c1,PGM_2_VALUE) FileWrite (c1,PGM_3_VALUE) FileWrite (c1,PGM_4_VALUE) FileWrite (c1,PGM_5_VALUE) FileWrite (c1,PGM_6_VALUE) FileWrite (c1,PGM_7_VALUE) FileWrite (c1,PGM_8_VALUE) FileWrite (c1,PGM_9_VALUE) FileWrite (c1,PGM_10_VALUE) FileClose (c1) 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 label1.fontcolor=cRed label1.color=cBlack label1.Text="OUT" End If End Sub Sub ImageButtonRangeTestOn_Click timer1.Interval=500 timer1.Enabled=true timer2.Interval=1000 timer2.Enabled=true timer3.Interval=2000 timer3.Enabled=true tmr_flag=1 End Sub Sub ImageButtonStopRangeTest_Click timer1.Enabled=false timer2.Enabled=false timer3.Enabled=false textbox1.Text="" textbox2.Text="" label1.color=128,255,128 label1.text="" tmr_flag=0 End Sub Sub ImageButtonRangeTestOn_ButtonDown ImageButtonRangeTestOn.Image="r35w35.jpg" End Sub Sub ImageButtonRangeTestOn_ButtonUp ImageButtonRangeTestOn.Image="g35w35.jpg" End Sub Sub ImageButtonStopRangeTest_ButtonDown ImageButtonStopRangeTest.Image="r35w35.jpg" End Sub Sub ImageButtonStopRangeTest_ButtonUp ImageButtonStopRangeTest.Image="g35w35.jpg" End Sub Sub serial_OnCom strval=serial.InputString TextBox2.Text=TextBox2.Text & strval If tmr_flag=1 Then If strval = "R" Then label1.color=cBlack label1.fontcolor=cRed label1.text=" IN" Sound("beep.wav") tmr_count=tmr_count + 1 End If End If End Sub Sub MenuRed_Click ImageButtonPGM1.Image="r90w35.jpg" ImageButtonPGM2.Image="r90w35.jpg" ImageButtonPGM3.Image="r90w35.jpg" ImageButtonPGM4.Image="r90w35.jpg" ImageButtonPGM5.Image="r90w35.jpg" ImageButtonPGM6.Image="r90w35.jpg" ImageButtonPGM7.Image="r90w35.jpg" ImageButtonPGM8.Image="r90w35.jpg" ImageButtonPGM9.Image="r90w35.jpg" ImageButtonPGM10.Image="r90w35.jpg" blip_color=1 End Sub Sub MenuBlue_Click ImageButtonPGM1.Image="b90w35.jpg" ImageButtonPGM2.Image="b90w35.jpg" ImageButtonPGM3.Image="b90w35.jpg" ImageButtonPGM4.Image="b90w35.jpg" ImageButtonPGM5.Image="b90w35.jpg" ImageButtonPGM6.Image="b90w35.jpg" ImageButtonPGM7.Image="b90w35.jpg" ImageButtonPGM8.Image="b90w35.jpg" ImageButtonPGM9.Image="b90w35.jpg" ImageButtonPGM10.Image="b90w35.jpg" blip_color=2 End Sub Sub MenuGreen_Click ImageButtonPGM1.Image="g90w35.jpg" ImageButtonPGM2.Image="g90w35.jpg" ImageButtonPGM3.Image="g90w35.jpg" ImageButtonPGM4.Image="g90w35.jpg" ImageButtonPGM5.Image="g90w35.jpg" ImageButtonPGM6.Image="g90w35.jpg" ImageButtonPGM7.Image="g90w35.jpg" ImageButtonPGM8.Image="g90w35.jpg" ImageButtonPGM9.Image="g90w35.jpg" ImageButtonPGM10.Image="g90w35.jpg" blip_color=3 End Sub Sub MenuYellow_Click ImageButtonPGM1.Image="y90w35.jpg" ImageButtonPGM2.Image="y90w35.jpg" ImageButtonPGM3.Image="y90w35.jpg" ImageButtonPGM4.Image="y90w35.jpg" ImageButtonPGM5.Image="y90w35.jpg" ImageButtonPGM6.Image="y90w35.jpg" ImageButtonPGM7.Image="y90w35.jpg" ImageButtonPGM8.Image="y90w35.jpg" ImageButtonPGM9.Image="y90w35.jpg" ImageButtonPGM10.Image="y90w35.jpg" blip_color=4 End Sub Sub MenuMixed_Click ImageButtonPGM1.Image="r90w35.jpg" ImageButtonPGM2.Image="b90w35.jpg" ImageButtonPGM3.Image="y90w35.jpg" ImageButtonPGM4.Image="g90w35.jpg" ImageButtonPGM5.Image="r90w35.jpg" ImageButtonPGM6.Image="r90w35.jpg" ImageButtonPGM7.Image="b90w35.jpg" ImageButtonPGM8.Image="y90w35.jpg" ImageButtonPGM9.Image="g90w35.jpg" ImageButtonPGM10.Image="r90w35.jpg" blip_color=5 End Sub Sub ImageButtonEXITDATAVIEW_ButtonDown ImageButtonEXITDATAVIEW.Image="r150w35.jpg" End Sub Sub ImageButtonEXITDATAVIEW_ButtonUp ImageButtonEXITDATAVIEW.Image="g150w35.jpg" Form2.Close End Sub Sub ImageButtonDATAVIEW_Click Form2.Show Label101.Text=PGM_1_TEXT Label102.Text=PGM_2_TEXT Label103.Text=PGM_3_TEXT Label104.Text=PGM_4_TEXT Label105.Text=PGM_5_TEXT Label106.Text=PGM_6_TEXT Label107.Text=PGM_7_TEXT Label108.Text=PGM_8_TEXT Label109.Text=PGM_9_TEXT Label110.Text=PGM_10_TEXT Label201.Text=PGM_1_VALUE Label202.Text=PGM_2_VALUE Label203.Text=PGM_3_VALUE Label204.Text=PGM_4_VALUE Label205.Text=PGM_5_VALUE Label206.Text=PGM_6_VALUE Label207.Text=PGM_7_VALUE Label208.Text=PGM_8_VALUE Label209.Text=PGM_9_VALUE Label210.Text=PGM_10_VALUE End Sub