blog/My_first_perl_GUI_application___controlling_a_Spykee_robot.html

   1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   2           "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
   3 <html xmlns="http://www.w3.org/1999/xhtml" dir="ltr">
   4   <head>
   5     <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
   6     <title>Petter Reinholdtsen: My first perl GUI application - controlling a Spykee robot</title>
   7     <link rel="stylesheet" type="text/css" media="screen" href="http://people.skolelinux.org/pere/blog/style.css" />
   8     <link rel="stylesheet" type="text/css" media="screen" href="http://people.skolelinux.org/pere/blog/vim.css" />
   9   </head>
  10   <body>
  11     <div class="title">
  12  <h1>
  13      <a href="http://people.skolelinux.org/pere/blog/">Petter Reinholdtsen</a>
  14
  15  </h1>
  16
  17 </div>
  18
  19
  20     <div class="entry">
  21       <div class="title">My first perl GUI application - controlling a Spykee robot</div>
  22       <div class="date"> 1st September 2010</div>
  23       <div class="body"><p>This evening I made my first Perl GUI application.  The last few
  24 days I have worked on a Perl module for controlling my recently
  25 aquired Spykee robots, and the module is now getting complete enought
  26 that it is possible to use it to control the robot driving at least.
  27 It was now time to figure out how to use it to create some GUI to
  28 allow me to drive the robot around.  I picked PerlQt as I have had
  29 positive experiences with the Qt API before, and spent a few minutes
  30 browsing the web for examples.  Using Qt Designer seemed like a short
  31 cut, so I ended up writing the perl GUI using Qt Designer and
  32 compiling it into a perl program using the puic program from
  33 libqt-perl.  Nothing fancy yet, but it got buttons to connect and
  34 drive around.</p>
  35
  36 <p>The perl module I have written provide a object oriented API for
  37 controlling the robot.  Here is an small example on how to use it:</p>
  38
  39 <p><pre>
  40 use Spykee;
  41 Spykee::discover(sub {$robot{$_[0]} = $_[1]});
  42 my $host = (keys %robot)[0];
  43 my $spykee = Spykee->new();
  44 $spykee->contact($host, "admin", "admin");
  45 $spykee->left();
  46 sleep 2;
  47 $spykee->right();
  48 sleep 2;
  49 $spykee->forward();
  50 sleep 2;
  51 $spykee->back();
  52 sleep 2;
  53 $spykee->stop();
  54 </pre></p>
  55
  56 <p>Thanks to the release of the source of the robot firmware, I could
  57 peek into the implementation at the other end to figure out how to
  58 implement the protocol used by the robot.  I've implemented several of
  59 the commands the robot understand, but is still missing the camera
  60 support to make it possible to control the robot from remote.  First I
  61 want to implement support for uploading new firmware and configuring
  62 the wireless network, to make it possible to bootstrap a Spykee robot
  63 without the producers Windows and MacOSX software (I only have Linux,
  64 so I had to ask a friend to come over to get the robot testing
  65 going. :).</p>
  66
  67 <p>Will release the source to the public soon, but need to figure out
  68 where to make it available first.  I will add a link to
  69 <a href="http://wiki.nuug.no/grupper/robot/">the NUUG wiki</a> for
  70 those that want to check back later to find it.</p>
  71 </div>
  72
  73       <div class="tags">Tags: <a href="http://people.skolelinux.org/pere/blog/tags/english">english</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>, <a href="http://people.skolelinux.org/pere/blog/tags/robot">robot</a>.</div>
  74
  75
  76     </div>
  77
  78
  79
  80
  81     <div id="sidebar">
  82
  83
  84
  85 <h2>Archive</h2>
  86 <ul>
  87
  88 <li>2012
  89 <ul>
  90
  91 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/01/">January (7)</a></li>
  92
  93 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/02/">February (10)</a></li>
  94
  95 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/03/">March (17)</a></li>
  96
  97 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/04/">April (12)</a></li>
  98
  99 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/05/">May (12)</a></li>
 100
 101 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/06/">June (20)</a></li>
 102
 103 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/07/">July (17)</a></li>
 104
 105 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/08/">August (6)</a></li>
 106
 107 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/09/">September (9)</a></li>
 108
 109 <li><a href="http://people.skolelinux.org/pere/blog/archive/2012/10/">October (4)</a></li>
 110
 111 </ul></li>
 112
 113 <li>2011
 114 <ul>
 115
 116 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/01/">January (16)</a></li>
 117
 118 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/02/">February (6)</a></li>
 119
 120 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/03/">March (6)</a></li>
 121
 122 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/04/">April (7)</a></li>
 123
 124 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/05/">May (3)</a></li>
 125
 126 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/06/">June (2)</a></li>
 127
 128 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/07/">July (7)</a></li>
 129
 130 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/08/">August (6)</a></li>
 131
 132 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/09/">September (4)</a></li>
 133
 134 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/10/">October (2)</a></li>
 135
 136 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/11/">November (3)</a></li>
 137
 138 <li><a href="http://people.skolelinux.org/pere/blog/archive/2011/12/">December (1)</a></li>
 139
 140 </ul></li>
 141
 142 <li>2010
 143 <ul>
 144
 145 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/01/">January (2)</a></li>
 146
 147 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/02/">February (1)</a></li>
 148
 149 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/03/">March (3)</a></li>
 150
 151 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/04/">April (3)</a></li>
 152
 153 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/05/">May (9)</a></li>
 154
 155 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/06/">June (14)</a></li>
 156
 157 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/07/">July (12)</a></li>
 158
 159 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/08/">August (13)</a></li>
 160
 161 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/09/">September (7)</a></li>
 162
 163 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/10/">October (9)</a></li>
 164
 165 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/11/">November (13)</a></li>
 166
 167 <li><a href="http://people.skolelinux.org/pere/blog/archive/2010/12/">December (12)</a></li>
 168
 169 </ul></li>
 170
 171 <li>2009
 172 <ul>
 173
 174 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/01/">January (8)</a></li>
 175
 176 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/02/">February (8)</a></li>
 177
 178 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/03/">March (12)</a></li>
 179
 180 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/04/">April (10)</a></li>
 181
 182 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/05/">May (9)</a></li>
 183
 184 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/06/">June (3)</a></li>
 185
 186 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/07/">July (4)</a></li>
 187
 188 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/08/">August (3)</a></li>
 189
 190 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/09/">September (1)</a></li>
 191
 192 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/10/">October (2)</a></li>
 193
 194 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/11/">November (3)</a></li>
 195
 196 <li><a href="http://people.skolelinux.org/pere/blog/archive/2009/12/">December (3)</a></li>
 197
 198 </ul></li>
 199
 200 <li>2008
 201 <ul>
 202
 203 <li><a href="http://people.skolelinux.org/pere/blog/archive/2008/11/">November (5)</a></li>
 204
 205 <li><a href="http://people.skolelinux.org/pere/blog/archive/2008/12/">December (7)</a></li>
 206
 207 </ul></li>
 208
 209 </ul>
 210
 211
 212
 213 <h2>Tags</h2>
 214 <ul>
 215
 216  <li><a href="http://people.skolelinux.org/pere/blog/tags/3d-printer">3d-printer (13)</a></li>
 217
 218  <li><a href="http://people.skolelinux.org/pere/blog/tags/amiga">amiga (1)</a></li>
 219
 220  <li><a href="http://people.skolelinux.org/pere/blog/tags/aros">aros (1)</a></li>
 221
 222  <li><a href="http://people.skolelinux.org/pere/blog/tags/bitcoin">bitcoin (2)</a></li>
 223
 224  <li><a href="http://people.skolelinux.org/pere/blog/tags/bootsystem">bootsystem (12)</a></li>
 225
 226  <li><a href="http://people.skolelinux.org/pere/blog/tags/bsa">bsa (2)</a></li>
 227
 228  <li><a href="http://people.skolelinux.org/pere/blog/tags/debian">debian (57)</a></li>
 229
 230  <li><a href="http://people.skolelinux.org/pere/blog/tags/debian edu">debian edu (113)</a></li>
 231
 232  <li><a href="http://people.skolelinux.org/pere/blog/tags/digistan">digistan (9)</a></li>
 233
 234  <li><a href="http://people.skolelinux.org/pere/blog/tags/docbook">docbook (7)</a></li>
 235
 236  <li><a href="http://people.skolelinux.org/pere/blog/tags/drivstoffpriser">drivstoffpriser (4)</a></li>
 237
 238  <li><a href="http://people.skolelinux.org/pere/blog/tags/english">english (153)</a></li>
 239
 240  <li><a href="http://people.skolelinux.org/pere/blog/tags/fiksgatami">fiksgatami (18)</a></li>
 241
 242  <li><a href="http://people.skolelinux.org/pere/blog/tags/fildeling">fildeling (12)</a></li>
 243
 244  <li><a href="http://people.skolelinux.org/pere/blog/tags/freeculture">freeculture (8)</a></li>
 245
 246  <li><a href="http://people.skolelinux.org/pere/blog/tags/frikanalen">frikanalen (8)</a></li>
 247
 248  <li><a href="http://people.skolelinux.org/pere/blog/tags/intervju">intervju (31)</a></li>
 249
 250  <li><a href="http://people.skolelinux.org/pere/blog/tags/kart">kart (17)</a></li>
 251
 252  <li><a href="http://people.skolelinux.org/pere/blog/tags/ldap">ldap (8)</a></li>
 253
 254  <li><a href="http://people.skolelinux.org/pere/blog/tags/lenker">lenker (4)</a></li>
 255
 256  <li><a href="http://people.skolelinux.org/pere/blog/tags/ltsp">ltsp (1)</a></li>
 257
 258  <li><a href="http://people.skolelinux.org/pere/blog/tags/multimedia">multimedia (25)</a></li>
 259
 260  <li><a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk (200)</a></li>
 261
 262  <li><a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug (144)</a></li>
 263
 264  <li><a href="http://people.skolelinux.org/pere/blog/tags/offentlig innsyn">offentlig innsyn (5)</a></li>
 265
 266  <li><a href="http://people.skolelinux.org/pere/blog/tags/open311">open311 (2)</a></li>
 267
 268  <li><a href="http://people.skolelinux.org/pere/blog/tags/opphavsrett">opphavsrett (35)</a></li>
 269
 270  <li><a href="http://people.skolelinux.org/pere/blog/tags/personvern">personvern (49)</a></li>
 271
 272  <li><a href="http://people.skolelinux.org/pere/blog/tags/raid">raid (1)</a></li>
 273
 274  <li><a href="http://people.skolelinux.org/pere/blog/tags/reprap">reprap (11)</a></li>
 275
 276  <li><a href="http://people.skolelinux.org/pere/blog/tags/rfid">rfid (2)</a></li>
 277
 278  <li><a href="http://people.skolelinux.org/pere/blog/tags/robot">robot (4)</a></li>
 279
 280  <li><a href="http://people.skolelinux.org/pere/blog/tags/rss">rss (1)</a></li>
 281
 282  <li><a href="http://people.skolelinux.org/pere/blog/tags/ruter">ruter (4)</a></li>
 283
 284  <li><a href="http://people.skolelinux.org/pere/blog/tags/scraperwiki">scraperwiki (2)</a></li>
 285
 286  <li><a href="http://people.skolelinux.org/pere/blog/tags/sikkerhet">sikkerhet (23)</a></li>
 287
 288  <li><a href="http://people.skolelinux.org/pere/blog/tags/sitesummary">sitesummary (4)</a></li>
 289
 290  <li><a href="http://people.skolelinux.org/pere/blog/tags/skepsis">skepsis (2)</a></li>
 291
 292  <li><a href="http://people.skolelinux.org/pere/blog/tags/standard">standard (38)</a></li>
 293
 294  <li><a href="http://people.skolelinux.org/pere/blog/tags/stavekontroll">stavekontroll (2)</a></li>
 295
 296  <li><a href="http://people.skolelinux.org/pere/blog/tags/stortinget">stortinget (4)</a></li>
 297
 298  <li><a href="http://people.skolelinux.org/pere/blog/tags/surveillance">surveillance (10)</a></li>
 299
 300  <li><a href="http://people.skolelinux.org/pere/blog/tags/valg">valg (7)</a></li>
 301
 302  <li><a href="http://people.skolelinux.org/pere/blog/tags/video">video (34)</a></li>
 303
 304  <li><a href="http://people.skolelinux.org/pere/blog/tags/vitenskap">vitenskap (3)</a></li>
 305
 306  <li><a href="http://people.skolelinux.org/pere/blog/tags/web">web (25)</a></li>
 307
 308 </ul>
 309
 310
 311     </div>
 312     <p style="text-align: right">
 313  Created by <a href="http://steve.org.uk/Software/chronicle">Chronicle v4.4</a>
 314 </p>
 315
 316   </body>
 317 </html>