OpenEuphoria

Re: Simple Socket Setup

• Posted by Andy Briggs <briggsan at HOTMAIL.COM> Jan 11, 2000
• 523 views

--Here it is Kat.
--This is My Cool Little 8-Bit Parallel Port Program So Far...
--by Andy Briggs

--Saint John
--NewBrunswick
--Canada

include win32lib.ew
include Ports.e

global integer
ext1,decValue
constant AndyWin = create( Window, "Windows Parallel Port Program", 0,
Default, Default, 400, 300, 0 )
val=0

button1 = create(4,"button1", AndyWin, 10,10 ,12,14, 0 )
procedure onClick_button1()

 --Add or subtract bit value from val depending on active state
 if isChecked(button1) then
  val=val+1
 else
  val=val-1
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button1] = routine_id("onClick_button1")

button2 = create(4,"button2", AndyWin, 10,30 ,12,14, 0 )
procedure onClick_button2()

 --Add or subtract bit value from val depending on active state
 if isChecked(button2) then
  val=val+2
 else
  val=val-2
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button2] = routine_id("onClick_button2")

button3 = create(4,"button3", AndyWin, 10,50 ,12,14, 0 )
procedure onClick_button3()

 --Add or subtract bit value from val depending on active state
 if isChecked(button3) then
  val=val+4
 else
  val=val-4
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button3] = routine_id("onClick_button3")

button4 = create(4,"button4", AndyWin, 10,70 ,12,14, 0 )
procedure onClick_button4()

 --Add or subtract bit value from val depending on active state
 if isChecked(button4) then
  val=val+8
 else
  val=val-8
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button4] = routine_id("onClick_button4")

button5 = create(4,"button5", AndyWin, 10,90 ,12,14, 0 )
procedure onClick_button5()

 --Add or subtract bit value from val depending on active state
 if isChecked(button5) then
  val=val+16
 else
  val=val-16
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button5] = routine_id("onClick_button5")

button6 = create(4,"button6", AndyWin, 10,110 ,12,14, 0 )
procedure onClick_button6()

 --Add or subtract bit value from val depending on active state
 if isChecked(button6) then
  val=val+32
 else
  val=val-32
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button6] = routine_id("onClick_button6")

button7 = create(4,"button7", AndyWin, 10,130 ,12,14, 0 )
procedure onClick_button7()

 --Add or subtract bit value from val depending on active state
 if isChecked(button7) then
  val=val+64
 else
  val=val-64
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button7] = routine_id("onClick_button7")

button8 = create(4,"button8", AndyWin, 10,150 ,12,14, 0 )
procedure onClick_button8()

 --Add or subtract bit value from val depending on active state
 if isChecked(button8) then
  val=val+128
 else
  val=val-128
 end if
 setScrollPos( slider, val )
 if val=0 then setScrollPos( slider, 1 ) end if
end procedure
onClick[button8] = routine_id("onClick_button8")

decValue = create(16,"", AndyWin, 10,165 ,40,14, 0 )
slider = create(VScroll,"", AndyWin, 28,10 ,10,150, 0 )
setScrollRange( slider, 1, 255 )
procedure onScroll_slider(integer pos)
 integer result
 setText(decValue,sprint(pos))
 Output(pos,#378)--This sends o/p to port
 result=pos+1
 --Calculate new binary code
 if result-128>0 then
  result=result-128
  setCheck(button8,1)
 else
  setCheck(button8,0)
 end if
 if result-64>0 then
  result=result-64
  setCheck(button7,1)
 else
  setCheck(button7,0)
 end if
 if result-32>0 then
  result=result-32
  setCheck(button6,1)
 else
  setCheck(button6,0)
 end if
 if result-16>0 then
  result=result-16
  setCheck(button5,1)
 else
  setCheck(button5,0)
 end if
 if result-8>0 then
  result=result-8
  setCheck(button4,1)
 else
  setCheck(button4,0)
 end if
 if result-4>0 then
  result=result-4
  setCheck(button3,1)
 else
  setCheck(button3,0)
 end if
 if result-2>0 then
  result=result-2
  setCheck(button2,1)
 else
  setCheck(button2,0)
 end if
 if result-1>0 then
  result=result-1
  setCheck(button1,1)
 else
  setCheck(button1,0)
 end if
 val=pos
end procedure
onScroll[slider] = routine_id("onScroll_slider")


WinMain( AndyWin, Normal )