version
6.30
0
Form1
1
59
0
0
10
4
0
2
2
0
0
0
0
0
0
0
0
5
0
0
238
268

0
1
SerialDevice.dll
1
serial:Serial
Sub designer




































































































addform(Form1,"EZKEY MODULE","",240,240,240)@
addimage(form1,Image10,200,240,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image8,200,210,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image6,200,160,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image4,200,55,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image2,200,30,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image9,10,240,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image7,10,210,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image5,10,160,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image3,10,55,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimage(form1,Image1,10,30,30,25,"cCenterImage","w28w35.jpg",245,245,220,True,True)@
addimagebutton(form1,ImageButton5closeport,45,55,155,25,"",212,208,200,0,0,0,"cCenterImage","closeport_rw.jpg",True,True,True,9)@
addimagebutton(form1,ImageButton4openport,45,30,155,25,"",212,208,200,0,0,0,"cCenterImage","openport_rw.jpg",True,True,True,9)@
addimagebutton(form1,ImageButton3getdata,45,240,150,25,"",212,208,200,0,0,0,"cCenterImage","getdata_gw.jpg",True,True,True,9)@
addimagebutton(form1,ImageButton2initial,45,210,150,25,"",212,208,200,0,0,0,"cCenterImage","initial_gw.jpg",True,True,True,9)@
addimagebutton(form1,ImageButton1clearwin,45,160,150,25,"",212,208,200,0,0,0,"cCenterImage","clearwin_yw.jpg",True,True,True,9)@
addlabel(form1,Label3,20,185,215,25,"Send Commands To EZKEY:",240,240,240,0,0,0,True,True,13)@
addlabel(form1,Label2,15,80,220,25,"Data Received From EZKEY:",240,240,240,0,0,0,True,True,13)@
addlabel(form1,Label1,5,0,230,25,"",240,240,240,0,0,0,True,True,13)@
addtextbox(form1,TextBox1,5,105,230,50,"",255,255,0,0,0,0,True,True,True,10)@
End Sub
@EndOfDesignText@Sub Globals
    portflag = 0
    FSvar=13
    strlabel0="COM 8: 9600,N,8,1"
    strlabel1=" [OFF]"
    strlabel2=" [ ON]"
    strlabel3=" = "
    strlabeltemp=""
End Sub

Sub App_Start
             Form1.show
             label1.Text = strlabel0 & strlabel1 & strlabel3
             strlabeltemp  = strlabel0 & strlabel1 & strlabel3
      
serial.New2 (8,9600,"N",8,1)
 
textbox1.FontSize=FSvar
image3.Image="b28w35.jpg"
image4.Image="b28w35.jpg"
SIP=false
End Sub

Sub serial_OnCom
TextBox1.Text=TextBox1.Text & serial.Inputstring
End Sub

Sub ImageButton1clearwin_Click
TextBox1.Text=""
label1.Text = strlabeltemp & " "
sound ("M_CW.wav")
End Sub

Sub ImageButton2initial_Click
serial.Output ("I")
label1.Text = strlabeltemp & "I"
sound ("M_I.wav")
End Sub

Sub ImageButton3getdata_Click
serial.Output ("G")
label1.Text = strlabeltemp & "G"
sound ("M_GD.wav")
End Sub

Sub ImageButton4openport_Click
    sound ("M_OP.wav")
    if portflag = 0 then
        serial.PortOpen=true
        portflag = 1
        label1.Text = strlabel0 & strlabel2 & strlabel3
        strlabeltemp=label1.Text 
        serial.enableoncomm=true
        serial.Output ("*")
end if
End Sub

Sub ImageButton5closeport_Click
if portflag = 1 then
  TextBox1.Text=""
   serial.Output ("^")
   serial.enableoncomm=false
   serial.PortOpen=false
   portflag = 0
   label1.Text = strlabel0 & strlabel1 & strlabel3
   strlabeltemp=label1.Text 
end if
   sound ("M_CP.wav")
End Sub

Sub ImageButton4openport_ButtonDown
    image1.Image="b28w35.jpg"
    image2.Image="b28w35.jpg"
    image3.Image="w28w35.jpg"
    image4.Image="w28w35.jpg"
End Sub

Sub ImageButton5closeport_ButtonDown
    image1.Image="w28w35.jpg"
    image2.Image="w28w35.jpg"
    image3.Image="b28w35.jpg"
    image4.Image="b28w35.jpg"
End Sub

Sub ImageButton1clearwin_ButtonDown
    image5.Image="g28w35.jpg"
    image6.Image="g28w35.jpg"
End Sub

Sub ImageButton1clearwin_ButtonUp
    image5.Image="w28w35.jpg"
    image6.Image="w28w35.jpg"
End Sub

Sub ImageButton2initial_ButtonDown
    image7.Image="r28w35.jpg"
    image8.Image="r28w35.jpg"
End Sub

Sub ImageButton2initial_ButtonUp
    image7.Image="w28w35.jpg"
    image8.Image="w28w35.jpg"
End Sub

Sub ImageButton3getdata_ButtonDown
    image9.Image="r28w35.jpg"
    image10.Image="r28w35.jpg"
End Sub

Sub ImageButton3getdata_ButtonUp
    image9.Image="w28w35.jpg"
    image10.Image="w28w35.jpg"
End Sub