I have the connections as and a screen as I will have to redesign the screen as there are no up and down arrows in ASCII.
The code so far is mostly cobbled from others and reports each button push to the wlog screen
screen revised to a lesser challenge
All thats left is to figure out the subroutines and convert some of the buttons to continus press
I assume many of you have been their before me on this...will keep you posted
Code: [Local Link Removed for Guests]
gui.init 20, Yellow 'reserve memory for 20 GUI objects. clears screen to black
txt = GUI.Textline(85,5,300,30, "Robot Camera Control", 3) 'x,y,w,h,text,fontsize
move1 = GUI.Button(35, 40, 100, 100, "RIGHT",5,10 ) 'x,y,w,h,text,fontsize, radius
move2 = GUI.Button(135, 40, 100, 100, "store 1",4,10 ) 'x,y,w,h,text,fontsize, radius
move3 = GUI.Button(235, 40, 100, 100, "store 2",4,10 ) 'x,y,w,h,text,fontsize, radius
move4 = GUI.Button(335, 40, 100, 100, "LEFT",5,10 ) 'x,y,w,h,text,fontsize, radius
move5 = GUI.Button(35, 140, 100, 100, " UP",5,10 ) 'x,y,w,h,text,fontsize, radius
move6 = GUI.Button(135,140, 100, 100, "store 3",4,10 ) 'x,y,w,h,text,fontsize, radius
move7 = GUI.Button(235,140, 100, 100, "store 4",4,10 ) 'x,y,w,h,text,fontsize, radius
move8 = GUI.Button(335,140, 100, 100, "DOWN",5,10 ) 'x,y,w,h,text,fontsize, radius
but1 = GUI.Button(20, 250, 100, 20, "load 1",2,10 ) 'x,y,w,h,text,fontsize, radius
but2 = GUI.Button(130, 250, 100, 20, "load 2",2,10 ) 'x,y,w,h,text,fontsize, radius
but3 = GUI.Button(240, 250, 100, 20, "load 3",2,10 ) 'x,y,w,h,text,fontsize, radius
but4 = GUI.Button(350, 250, 100, 20, "load 4",2,10 ) 'x,y,w,h,text,fontsize, radius
but5 = GUI.Button(135, 280, 200, 35, "EXIT",4,10 ) 'x,y,w,h,text,fontsize, radius
gui.setevent but1, TOUCH, buttonclick1 'set touched event, jump to buttonclick1
gui.setevent but2, TOUCH, buttonclick2 'set touched event, jump to buttonclick2
gui.setevent but3, TOUCH, buttonclick3 'set touched event, jump to buttonclick3
gui.setevent but4, TOUCH, buttonclick4 'set touched event, jump to buttonclick4
gui.setevent but5, TOUCH, buttonclick5 'set touched event, jump to buttonclick6
gui.setevent move1, TOUCH, moveclick1 'set touched event, jump to moveclick1
gui.setevent move2, TOUCH, moveclick2 'set touched event, jump to moveclick2
gui.setevent move3, TOUCH, moveclick3 'set touched event, jump to moveclick3
gui.setevent move4, TOUCH, moveclick4 'set touched event, jump to moveclick4
gui.setevent move5, TOUCH, moveclick5 'set touched event, jump to moveclick5
gui.setevent move6, TOUCH, moveclick6 'set touched event, jump to moveclick6
gui.setevent move7, TOUCH, moveclick7 'set touched event, jump to moveclick7
gui.setevent move8, TOUCH, moveclick8 'set touched event, jump to moveclick8
gui.autorefresh 30, 1 'display gui items automatically each 30ms including touch
wait
subroutines:
moveclick1:
wlog "move 1 pressed"
return
moveclick2:
wlog "move 2 pressed"
return
moveclick3:
wlog "move 3 pressed"
return
moveclick4:
wlog "move 4 pressed"
return
moveclick5:
wlog "move 5 pressed"
return
moveclick6:
wlog "move 6 pressed"
return
moveclick7:
wlog "move 7 pressed"
return
moveclick8:
wlog "move 8 pressed"
return
buttonclick1:
wlog "preset 1 pressed"
return
buttonclick2:
wlog "preset 2 pressed"
return
buttonclick3:
wlog "preset 3 pressed"
return
buttonclick4:
wlog "preset 4 pressed"
return
buttonclick5:
wlog "exit pressed"
return