Post Reply 
Testing the touch screen
05-24-2015, 07:55 AM (This post was last modified: 05-24-2015 10:29 AM by Digitaldreams.)
Post: #1
Testing the touch screen
Just a little noddy I wrote to view output from the mouse() command. Interesting to see how it handles two fingers, stretch (type 3) and has obvious issues with 'rotate' detection (type 4).

Other calculators I've used in the past have a function to fill a string with your chosen character. Can't seem to find it on the prime, hence the huge string on line 4...Anyone know of such a command ?

Regards

Code:

EXPORT Touchscreen()
 
BEGIN
LOCAL TOUCH,ST;
"                                                                                                    "▶ST;

RECT_P();      //CLEAR SCREEN
TEXTOUT_P("TOUCH(1)=",0,0,0,#00FF00,300,0);
TEXTOUT_P("TOUCH(2)=",0,32,0,#00FF00,300,0);
TEXTOUT_P("Touch/Drag With One Or Two Fingers",0,90,0,#0000FF,300,0);
TEXTOUT_P("ESC to exit",0,106,0,#0000FF,300,0);

repeat       //CLEAR TOUCH BUFFER
 TOUCH:=mouse();
until size(TOUCH(1))=0;
 
WHILE ISKEYDOWN(4)<>1 do    //ESC KEY ?
 TOUCH:=mouse();
 WAIT(0.1);
 TEXTOUT_P(ST,0,18,2,#00FF00,300,0);
 TEXTOUT_P(TOUCH(1),0,18,2,#00FF00,300,0);
 TEXTOUT_P(ST,0,50,2,#00FF00,300,0);
 TEXTOUT_P(TOUCH(2),0,50,2,#00FF00,300,0);

// Example of obtaining decimal coordinates
//   if size(TOUCH(1)) then
//     if  TOUCH(1,5)==0 then
//        X:=B→R(TOUCH(1,1));
//        Y:=B→R(TOUCH(1,2));
//     END;
//   END;

 END;
END;
Find all posts by this user
Quote this message in a reply
05-24-2015, 09:55 AM
Post: #2
RE: Testing the touch screen
(05-24-2015 07:55 AM)Digitaldreams Wrote:  ...
Note the fifth line that contains "▶ST.....in between the quotes there should be around 94 spaces. I see them when editing the post but not when viewing ??. This forum seems to strip out additional spaces !?. ...

The missing spaces should be visible, if you're entering the code between the code tags.
Code:
[code ] your code [/code ]
Code:
EXPORT Touchscreen()

BEGIN
  LOCAL TOUCH,ST;
  "                                                                                                    "▶ST;

  RECT_P();      //CLEAR SCREEN 
  TEXTOUT_P("TOUCH(1)=",0,0,0,#00FF00,300,0);
  TEXTOUT_P("TOUCH(2)=",0,32,0,#00FF00,300,0);
  TEXTOUT_P("Touch/Drag With One Or Two Fingers",0,90,0,#0000FF,300,0);
  TEXTOUT_P("ESC to exit",0,106,0,#0000FF,300,0);
  
  repeat       //CLEAR TOUCH BUFF
    TOUCH:=mouse();
  until size(TOUCH(1))=0;

  WHILE ISKEYDOWN(4)<>1 do    //ESC KEY ?
    TOUCH:=mouse();
    WAIT(0.1);
    TEXTOUT_P(ST,0,18,2,#00FF00,300,0);
    TEXTOUT_P(TOUCH(1),0,18,2,#00FF00,300,0);
    TEXTOUT_P(ST,0,50,2,#00FF00,300,0);
    TEXTOUT_P(TOUCH(2),0,50,2,#00FF00,300,0);
    
    // Example of obtaining decimal coordinates
    //   if size(TOUCH(1)) then
    //     if  TOUCH(1,5)==0 then
    //        X:=B→R(TOUCH(1,1));
    //        Y:=B→R(TOUCH(1,2));
    //     END;
    //   END;

  END;
END;
Find all posts by this user
Quote this message in a reply
05-24-2015, 10:19 AM (This post was last modified: 05-24-2015 10:30 AM by Digitaldreams.)
Post: #3
RE: Testing the touch screen
Thanks Thomas.

Post updated. Part of my problem is viewing posts with Android, they look a mess..
Find all posts by this user
Quote this message in a reply
05-24-2015, 10:42 AM
Post: #4
RE: Testing the touch screen
(05-24-2015 07:55 AM)Digitaldreams Wrote:  Other calculators I've used in the past have a function to fill a string with your chosen character. Can't seem to find it on the prime, hence the huge string on line 4...Anyone know of such a command ?

To create a string with 94 spaces you can do:

Code:
CHAR(MAKELIST(32,A,1,94))▶ST;

There may be other ways to do it.
Find all posts by this user
Quote this message in a reply
05-24-2015, 10:54 AM
Post: #5
RE: Testing the touch screen
(05-24-2015 10:42 AM)Didier Lachieze Wrote:  To create a string with 94 spaces you can do:

Code:
CHAR(MAKELIST(32,A,1,94))▶ST;

There may be other ways to do it.

replace("",94," ") is fast and easy.

<0|ɸ|0>
-Joe-
Visit this user's website Find all posts by this user
Quote this message in a reply
05-24-2015, 11:06 AM
Post: #6
RE: Testing the touch screen
(05-24-2015 10:54 AM)Joe Horn Wrote:  replace("",94," ") is fast and easy.
Nice trick but it works only for a string of spaces.
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: