QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: MarcoPajotter on April 20, 2021, 08:45:47 am

Title: My small walking robot project ...
Post by: MarcoPajotter on April 20, 2021, 08:45:47 am

Hello everyone,

I love building small robots,
now I'm playing with the idea to build a walking robot.
I want to use a LATTE PANDA DELTA 432 - Win 10 pro x64 with a FHD display and QB64 for the GUI Human Machine Interface.
And an Arduino DUE for all the hardware connections, like GPS, 9 DOF sensor (compass, accelerator, )
So I need a USB serial connection between the LATTE PANDA and the ARDUINO DUE.

Q1) Is here someone who have some experiences with this communication ?
Q2) Is it possible to read and use the touch screen (mouse) data in QB64 ?

Greetings,
thanks,

Marco

PS: How can I show some images here on the forum ?

Title: Re: My small walking robot project ...
Post by: Cobalt on April 21, 2021, 12:20:54 am

Quote from: MarcoPajotter on April 20, 2021, 08:45:47 am

Q1) Is here someone who have some experiences with this communication ?
Q2) Is it possible to read and use the touch screen (mouse) data in QB64 ?


PS: How can I show some images here on the forum ?

A1) Yes and No,  I have interfaced with older style Fischertechnik interfaces but nothing newer.  (there is a post somewhere around here)
A2) Not sure, imagine it depends on how the OS handles input from a touch screen, I unfortunately have never had enough $$$ to purchase a computer with touch screen capabilities to play with
      that possibility. If the OS treats the screen like a mouse then I guess you could probably use it with QB64.

PS. A) Right below the text box says Attachments and other options with a little plus in front. click on that and select a file to attach.

Title: Re: My small walking robot project ...
Post by: 191Brian on April 21, 2021, 07:49:31 am

Hi

Very interesting project.

Few years ago I worked on communication between ardunio and android basic via Bluetooth. From what I remember the USB connection gets converted to a serial comm port on the pc so the communication is serial and qb64 already has serial communication via print and input. I will see if I still have an ardunio and try hooking it up to qb64.
Pretty sure windows converts touch screen movements and taps to mouse so qb64's mouse command's would work fine.

Title: Re: My small walking robot project ...
Post by: FellippeHeitor on April 21, 2021, 09:44:33 am

Quote from: 191Brian on April 21, 2021, 07:49:31 am

Pretty sure windows converts touch screen movements and taps to mouse so qb64's mouse command's would work fine.

It does. Here's my TTTRings clone being played on a touch enabled device:

Title: Re: My small walking robot project ...
Post by: Richard Frost on April 21, 2021, 02:06:26 pm

There are supposedly GPS receivers sensitive enough to work indoors, but I bet
they're expensive.  Maybe your robot will stay outdoors, squashing squirrels.

For ideas re indoors:
https://en.wikipedia.org/wiki/Indoor_positioning_system

It's fun to track purple arrows (my attached ancient tracking system), which used
CDPD (Cellular Digital Packet Data).

Title: Re: My small walking robot project ...
Post by: 191Brian on April 21, 2021, 02:40:42 pm

Hi

Found an Arduino in my shed, put a primitive sketch on it that listens for commands "fast", "med" and "slow" on the serial port then flashes its on board LED accordingly, then wrote a little QB64 program to send commands via serial port.
As proof of concept it works.

Arduino sketch.
String inputString ="";
int fspeed = 500;
char code = "x";

void setup() {
  pinMode(LED_BUILTIN, OUTPUT);
  Serial.begin(9600);

}

void loop() {
  // put your main code here, to run repeatedly:
  //Serial.println(code);
  digitalWrite(LED_BUILTIN, HIGH);
  delay(fspeed);
  digitalWrite(LED_BUILTIN,LOW);
  delay(fspeed);
}

void serialEvent()
{
  while(Serial.available())
  {
    char ch = (char)Serial.read();
    Serial.write(ch);
    inputString += ch;
    if(ch == '\n')
    {
      if(inputString == "fast\r\n"){
        fspeed = 50;
        code = "s";
      }
      if(inputString == "slow\r\n"){
        fspeed = 1000;
        code ="f";
      }
      if(inputString == "med\r\n"){
        fspeed = 500;
        code ="f";
      }
      inputString ="";
     
    }
  }
}

Code: QB64: [Select]

1. Option _Explicit
2.  
3. Type button
4.     x As Integer
5.     y As Integer
6.     w As Integer
7.     h As Integer
8.     code As String
9.     imageH As Long
10. End Type
11.  
12. Type vector2
13.     x As Integer
14.     y As Integer
15. End Type
16.  
17.  
18. Dim Shared speedBtn(3) As button
19. Dim Shared mousePos As vector2
20. Dim Shared currMode As String
21.  
22. Dim comP As Long
23. Dim comPno As String
24. Dim comPmode As String
25.  
26. currMode = ""
27. comP = FreeFile
28. comPno = "COM3:"
29. comPmode = "9600,N,8,1,ASC"
30.  
31. CreateButtons
32.  
33. Open comPno + comPmode For Output As comP
34.  
35. _Delay 0.5
36.  
37. Screen _NewImage(320, 140, 32)
38.  
39. Do
40.     Cls
41.     _Limit 30
42.     DisplayButtons
43.     _Display
44.     While _MouseInput: Wend
45.     mousePos.x = _MouseX
46.     mousePos.y = _MouseY
47.     ' If the mouse was clicked check if it was selecting a tile, clicking a button or putting a tile on the map
48.     If _MouseButton(1) Then
49.         currMode = CheckButtons
50.     End If
51.     If currMode <> "" Then
52.         Print #comP, currMode
53.     End If
54.  
55.  
56. Loop Until _KeyDown(27)
57.  
58. Close #comP
59. System
60.  
61.  
62. Sub CreateButtons
63.     Dim si As Integer
64.     Dim currDest As Long
65.  
66.     currDest = _Dest
67.  
68.     si = 0
69.     speedBtn(si).imageH = _NewImage(64, 32, 32)
70.     _Dest speedBtn(si).imageH
71.     Line (0, 0)-(63, 31), _RGB32(255), B
72.     _PrintString (10, 2), "Slow"
73.     speedBtn(si).x = 10
74.     speedBtn(si).y = 10
75.     speedBtn(si).w = 64
76.     speedBtn(si).h = 32
77.     speedBtn(si).code = "slow"
78.  
79.     si = 1
80.     speedBtn(si).imageH = _NewImage(64, 32, 32)
81.     _Dest speedBtn(si).imageH
82.     Line (0, 0)-(63, 31), _RGB32(255), B
83.     _PrintString (10, 2), "Medium"
84.     speedBtn(si).x = 110
85.     speedBtn(si).y = 10
86.     speedBtn(si).w = 64
87.     speedBtn(si).h = 32
88.     speedBtn(si).code = "med"
89.  
90.     si = 2
91.     speedBtn(si).imageH = _NewImage(64, 32, 32)
92.     _Dest speedBtn(si).imageH
93.     _PrintString (10, 2), "Fast"
94.     Line (0, 0)-(63, 31), _RGB32(255), B
95.     speedBtn(si).x = 210
96.     speedBtn(si).y = 10
97.     speedBtn(si).w = 64
98.     speedBtn(si).h = 32
99.     speedBtn(si).code = "fast"
100.  
101.     _Dest currDest
102.  
103.  
104.  
105. End Sub
106.  
107. Sub DisplayButtons
108.  
109.     Dim si
110.  
111.     For si = 0 To 2
112.         _PutImage (speedBtn(si).x, speedBtn(si).y), speedBtn(si).imageH
113.     Next si
114.     _PrintString (120, 90), "Mode " + currMode
115.  
116. End Sub
117.  
118. Function CheckButtons$
119.     Dim si As Integer
120.  
121.     CheckButtons = ""
122.  
123.     For si = 0 To UBound(speedbtn)
124.         If RectCollide(mousePos.x, mousePos.y, 1, 1, speedBtn(si).x, speedBtn(si).y, speedBtn(si).w, speedBtn(si).h) Then
125.             CheckButtons = speedBtn(si).code
126.             Exit For
127.         End If
128.     Next si
129.  
130. End Function
131.  
132. FUNCTION RectCollide (rect1X as integer,rect1Y as integer,rect1Width as integer,rect1Height as integer,_
133.                       rect2X as integer,rect2Y as integer,rect2Width as integer,rect2Height as integer)
134.  
135.     Dim rect1X2 As Integer
136.     Dim rect1Y2 As Integer
137.     Dim rect2X2 As Integer
138.     Dim rect2Y2 As Integer
139.  
140.     rect1X2 = rect1X + rect1Width - 1
141.     rect1Y2 = rect1Y + rect1Height - 1
142.     rect2X2 = rect2X + rect2Width - 1
143.     rect2Y2 = rect2Y + rect2Height - 1
144.  
145.     RectCollide = 0
146.     If rect1X2 >= rect2X Then
147.         If rect1X <= rect2X2 Then
148.             If rect1Y2 >= rect2Y Then
149.                 If rect1Y <= rect2Y2 Then
150.                     RectCollide = -1
151.                 End If
152.             End If
153.         End If
154.     End If
155.  
156. End Function
157.  
158.  

Title: Re: My small walking robot project ...
Post by: MarcoPajotter on April 21, 2021, 04:12:54 pm

Hi everyone,

first at all, thanks for your help.
it is nice to see some working solutions.
so I can start right away ...

it is a big project, so I will be a lot on this forum ;-)

greetings
Marco,

Title: Re: My small walking robot project ...
Post by: 191Brian on April 21, 2021, 04:57:26 pm

Hi Marco

Look forward to seeing the project develop would be happy to help where I can.

Text Only | Text with Attachments