Joystick am PC zur Kontrolle eines Roboters - Versionsgeschichte

Willa: /* Probleme mit Windows 7 */

2009-12-14T09:26:38Z

‎Probleme mit Windows 7

Willa am 14. Dezember 2009 um 09:25 Uhr

2009-12-14T09:25:39Z

Willa: /* Variante 2: Verbesserter Signal-Empfang */

2009-03-04T14:37:14Z

‎Variante 2: Verbesserter Signal-Empfang

Willa: /* Update: Verbesserter Signal-Empfang */

2009-02-28T20:54:52Z

‎Update: Verbesserter Signal-Empfang

Willa: Autorenlink gegönnt :-D

2008-10-29T07:42:44Z

Autorenlink gegönnt :-D

Willa: Bessere Signalübertragung hinzugefügt

2007-11-29T23:08:14Z

Bessere Signalübertragung hinzugefügt

Willa: fertig gemacht

2007-11-08T16:48:21Z

fertig gemacht

Willa am 6. November 2007 um 21:28 Uhr

2007-11-06T21:28:05Z

Willa am 5. November 2007 um 00:07 Uhr

2007-11-05T00:07:06Z

Willa: /* Einleitung */

2007-11-04T23:58:25Z

‎Einleitung

@@ Zeile 208: / Zeile 208: @@
 == Probleme mit Windows 7 ==
 Anscheinend hat Microsoft irgendwas mit dem DirectX geändert. Damit es trotzdem funktioniert müsst ihr so vorgehen:
-In Sharp Develop muss man im Menü auf Projekt -> Referenz hinzufügen klicken und dann in der GAC Liste Microsoft.DirectX und Microsoft.DirectX.DirectInput markieren (mit gedrückter STRG Taste) und dann auf "Wählen" klicken. Wenn man jetzt das Projekt neu kompiliert funktioniert es ohne Fehlermeldung.
+In Sharp Develop muss man im Menü auf Projekt -> Referenz hinzufügen klicken und dann in der GAC Liste Microsoft.DirectX und Microsoft.DirectX.DirectInput markieren (mit gedrückter STRG Taste) und dann auf "Wählen" klicken. Wenn man jetzt das Projekt neu kompiliert funktioniert es ohne Fehlermeldung. Das Beispielprogramm wurde noch ohne diese Änderung kompiliert, daher funktioniert es unter Win7 nicht.
 == Autoren ==

@@ Zeile 205: / Zeile 205: @@
 Mit den Variablen "Joystick_X_wert_integer" und "Joystick_Y_wert_integer" könnt ihr jetzt eure Motoren oder ähnliches ansteuern.
 Ihr könnt das Ganze auch erweitern und auch noch die Button Positionen senden etc...
 == Autoren ==

@@ Zeile 165: / Zeile 165: @@
 $crystal = 16000000
 $baud = 9600
 Dim Inputstring As String * 5

@@ Zeile 147: / Zeile 147: @@
 Viel Spaß!
-== Update: Verbesserter Signal-Empfang ==
+== Variante 2: Verbesserter Signal-Empfang ==
-In dem oben erläuterten Programm kann schnell mal ein Chaos passieren wenn der PC mal einen RS232 Befehl verschluckt. Dann wird nämlich das X und Y Signal des Joysticks dauerhaft vertauscht. Dieses "Verschlucken" kann schnell mal passieren wenn man z.B. ein Funkmodul zur Übertragung der Daten benutzt. Deswegen hier eine verbesserte Version des Signal-Empfangs. Euer Windows Programm sollte folgendes senden:
+In dem oben erläuterten Programm kann evtl. ein Chaos passieren wenn der PC mal einen RS232 Befehl verschluckt. Dann wird nämlich das X und Y Signal des Joysticks dauerhaft vertauscht. Dieses "Verschlucken" kann passieren wenn man z.B. ein Funkmodul zur Übertragung der Daten benutzt. Deswegen hier eine andere Version des Signal-Empfangs. Die Daten für die Joystickposition werden markiert. Euer Windows Programm sollte folgendes senden:
-Für die Joystick X-Position 0-20 sendet es den String "X0" bis "X20"
+* Für die Joystick X-Position -20 bis 20 sendet es den String "X-20" bis "X20"
-Für die Joystick Y-Position 0-20 sendet es den String "Y0" bis "Y20"
+* Für die Joystick Y-Position -20 bis 20 sendet es den String "Y-20" bis "Y20"
+Das geht z.B. in SharpDevelop so:
-Die Essenz des Bascom-Quellcodes mit Kommentaren für den Mikrocontroller:
+<pre>
 <pre>
-    Dim Geschwx As Integer
+$regfile = "m32def.dat"
-    Dim Geschwy As Integer
+$framesize = 32
-    Dim Geschwxstr As String * 5
+$swstack = 32
-    Dim Geschwystr As String * 5
+$hwstack = 32
-    Dim Geschwxy As String * 5
+$crystal = 16000000
-    Dim Isitx As Byte
+$baud = 9600
-    Dim Isity As Byte
-−
-−
-Input "" , Geschwxy                  'Irgendeinen Datenstring vom PC empfangen
-Isitx = Instr(geschwxy , "X")        'Wenn ein "X" im String ist, dann wird die Variable "IsItX" auf 1 gesetzt
-Isity = Instr(geschwxy , "Y")        'Wenn ein "Y" im String ist, dann wird die Variable "IsItY" auf 1 gesetzt
-−
-If Isitx = 1 Then                    'Wenn ein X im String war, dann...
+Dim Inputstring As String * 5
-   Geschwxstr = Mid(geschwxy , 2)    'Schneide die erste Stelle (das "X") des empfangenen Strings ab.
+Dim Data_available As Byte
-   Geschwx = Val(geschwxstr)         'Konvertiere den Rest des Strings in einen Integer
+Dim X_empfangen As Byte
-End If
+Dim Y_empfangen As Byte
-If Isity = 1 Then                    'Das gleiche für Y
+Do
-   Geschwystr = Mid(geschwxy , 2)
+  Data_available = Ischarwaiting()
-   Geschwy = Val(geschwystr)
+  If Data_available > 0 Then                      'wenn Daten da sind, dann...
-End If
+    Input "" , Inputstring
 </pre>
-Mit den Variablen Geschwx und Geschwy könnt ihr jetzt eure Motoren oder ähnliches ansteuern.
+Mit den Variablen "Joystick_X_wert_integer" und "Joystick_Y_wert_integer" könnt ihr jetzt eure Motoren oder ähnliches ansteuern.
-Dadurch ist das Ganze jetzt weniger empfindlich auf Störungen, da bei jedem empfangenen String überprüft wird ob es sich um die X oder die Y Position des Joysticks handelt. Ihr könnt das Ganze auch erweitern und auch noch die Button Positionen senden. Dann köntet ihr den empfangenen String z.B. auf ein "B" hin überprüfen und danach entsprechend verwerten.
+Ihr könnt das Ganze auch erweitern und auch noch die Button Positionen senden etc...
 == Autoren ==

@@ Zeile 183: / Zeile 183: @@
 Mit den Variablen Geschwx und Geschwy könnt ihr jetzt eure Motoren oder ähnliches ansteuern.
 Dadurch ist das Ganze jetzt weniger empfindlich auf Störungen, da bei jedem empfangenen String überprüft wird ob es sich um die X oder die Y Position des Joysticks handelt. Ihr könnt das Ganze auch erweitern und auch noch die Button Positionen senden. Dann köntet ihr den empfangenen String z.B. auf ein "B" hin überprüfen und danach entsprechend verwerten.
   [[Kategorie:Microcontroller]]

@@ Zeile 146: / Zeile 146: @@
 '''Ich übernehme keinerlei Haftung für Schäden oder Probleme die das Programm verursacht!''' <br>
 Viel Spaß!
   [[Kategorie:Microcontroller]]
   [[Kategorie:Software]]

@@ Zeile 1: / Zeile 1: @@
-{{Baustelle|Willa}}
+[[Bild:joytest.jpg]]
 == Was braucht man hierfür? ==
 * RN-Control Board
-* USB -> COM+port Adapter (wenn man keinen COM port mehr am PC hat)
+* USB -> COM-port Adapter (wenn man keinen COM port mehr am PC hat)
 * ISP Programmierkabel (wenn man nicht den Bootloader nutzt)
 * PC
@@ Zeile 12: / Zeile 12: @@
 == Einleitung ==
-Ein Roboter (auf Basis eines RN-Control Boards) kann über einen am PC angeschlossenen Joystick sehr einfach kontrolliert werden. In diesem Beispiel benutzen wir SharpDevelop als Entwicklungsumgebung (Programmierprogramm) für eine Windows VB.Net Applikation (ein Computerprogramm). Die Positionsdaten des Joysticks werden schliesslich über die RS232 Schnittstelle an den µC übertragen. Auch wenn du totaler Programmierneuling sein solltest kann dir diese Anleitung helfen. Einfach den Code kopieren und wie beschrieben einfügen. Dann sollte dein RN-Control Board auf Joystick-Befehle hören.
+Ein Roboter (auf Basis eines RN-Control Boards) kann über einen am PC angeschlossenen Joystick sehr einfach kontrolliert werden. In diesem Beispiel benutzen wir SharpDevelop als Entwicklungsumgebung ([http://www.sharpdevelop.net SharpDevelop OpenSource Webseite]) für eine Windows VB.Net Applikation (ein Computerprogramm). Die Positionsdaten des Joysticks werden schliesslich über die RS232 Schnittstelle an den µC übertragen. Auch wenn du totaler Programmierneuling sein solltest kann dir diese Anleitung helfen. Einfach den Code kopieren und wie beschrieben einfügen. Dann sollte dein RN-Control Board auf Joystick-Befehle hören.
-Es wird Directinput benutzt um den Joystick zu erkennen und abzufragen. Deswegen muss das .NET Framework installiert sein (link). Die Kommunikation zwischen PC und µC findet - wie bereits erwähnt - über die RS232 Schnittstelle statt. Das Programm auf dem PC sendet alle 100 ms die aktuelle Joystick Position an den µC. Dieser liest die Werte für X und Y Achse ein und kann dann entsprechend darauf reagieren.
+Es wird Directinput benutzt um den Joystick zu erkennen und abzufragen. Deswegen muss das .NET Framework installiert sein [http://www.microsoft.com/downloads/details.aspx?displaylang=de&FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5 .NET Framework @ Microsoft]. Die Kommunikation zwischen PC und µC findet - wie bereits erwähnt - über die RS232 Schnittstelle statt. Das Programm auf dem PC sendet alle 100 ms (oder schneller/ langsamer, je nach Wunsch) die aktuelle Joystick Position an den µC. Dieser liest die Werte für X und Y Achse ein und kann dann entsprechend darauf reagieren.
 == Beispielhafter Quellcode für BASCOM ==
@@ Zeile 39: / Zeile 39: @@
   'Die Variablen umskalieren
-  X1 = X + 10
+  X1 = X + 20
   X2 = X1 * 40
-  Y1 = Y + 10
+  Y1 = Y + 20
   Y2 = Y1 * 40
 'Einen Ton (Tonhöhe = Joystick Position) ausgeben
@@ Zeile 50: / Zeile 50: @@
 </pre>
 == Quellcode in VB.NET (SharpDevelop) ==
--empty-
+Da sich dieser Artikel wieder einmal an Anfänger richtet, gebe ich auch hier eine Schritt für Schritt Anleitung für SharpDevelop.
 == Beispielprogramm ==
--empty-
+Ein Beispielprogramm kann hier herunter geladen werden:

← Nächstältere Version		Version vom 5. November 2007, 00:07 Uhr
Zeile 1:		Zeile 1:
	{{Baustelle\|Willa}}		{{Baustelle\|Willa}}
		+
		+	== Was braucht man hierfür? ==
		+	* RN-Control Board
		+	* USB -> COM port adapter (wenn man keinen COM port mehr am PC hat)
		+	* ISP Programmierkabel (wenn man nicht den bootloader nutzt)
		+	* PC
		+	* USB-Joystick
		+	* Netzgerät (+-12V)
		+	* Evtl. 2 kleine Motörchem um das ganze zu testen

	== Einleitung ==		== Einleitung ==