Mein neuer Offroader :-)

**LuK-AS** · 27.09.2004, 05:25

Hallo zusammen,

@NumberFive
Dann hab ich das wohl missverstanden, ich benutze natürlich eine serielle Kommunikation zwischen den AVR´s. Wenn ich soweit bin, dass mein Bot fertig ist können wir das gerne mal ausprobieren.

@all
Ich habe nun einen USB Joystick in meine Steuerung integriert, so lässt sich der Sann4WD wesentlich besser steuern als mit den Mausclicks.
Ich werde in der nächsten Zeit noch ein SRF08 und eine CMUCam auf den Sann bauen, mal sehen was dabei heraus kommt.

Ein kleines Problem habe ich noch bei meinem Interface, es durchläuft während der Joystick Steuerung eine Loop und sendet mir permanent den "Stop" Befehl an den Bot dadurch ist die serielle Kommunikation auch ständig in Betrieb und wird auch extrem langsam. Habe die letzten Tage viel damit rumgespielt, allerdings bin ich irgendwie nicht viel weitergekommen.

Hier ist der Code zu der Loop:

Code:

Private Sub JoyLoop()
Dim preMedMsg As String
Dim JS As New clsJoy
Dim tStr As String
Do While active = True

 Text15.Text = JS.JoyPOV
 Text16.Text = active
 Select Case JS.JoyPOV
 Case 65535
   MSComm1.Output = "s"
 Case 0
   MSComm1.Output = "f"
 Case 18000
   MSComm1.Output = "b"
 Case 27000
   MSComm1.Output = "l"
 Case 9000
   MSComm1.Output = "r"
 End Select
 If JS.JoyButState = 4 Then
   MSComm1.Output = "4"
   Sleep 500
 End If
DoEvents
Loop
End Sub

Der Stopbefehl ist der MSComm1.Output "s"

Hat jemand ne Idee wie ich den soweit abfangen kann, dass er nicht permanent das "s" sendet? Das ganze ist in VB6 programmiert.

Gruss an alle
Clemens

**Crock** · 27.09.2004, 09:01

aehm....
Mach es doch so:
Nimms ne boolean die speichert ob im vorherigen durchlauf irgendein movement ausgefuehrt wurde (also die boolean auf true, wenn irgendwas ausser s gesendet wurde).
Wenn der JS in der Mitte ist, wird ueberpreuft ob die boollean true is, dann wird "s" gesendet und dann die boolean auf false gesetzt. Schau mal ob das was bringt.

Eigentlich mag ich VB nicht aber di Grundlagen scheinen ja einfach zusein:

Code:

Private Sub JoyLoop() 
Dim preMedMsg As String 
Dim JS As New clsJoy 
Dim tStr As String 
Dim doS As Boolean = false
Do While active = True 

 Text15.Text = JS.JoyPOV 
 Text16.Text = active 
 Select Case JS.JoyPOV 
 Case 65535 
   If doS then
    MSComm1.Output = "s" 
    doS = false
   End If
 Case 0 
   MSComm1.Output = "f" 
   doS = true 
 Case 18000 
   MSComm1.Output = "b" 
   doS = true 
 Case 27000 
   MSComm1.Output = "l" 
   doS = true 
 Case 9000 
   MSComm1.Output = "r" 
   doS = true 
 End Select 
 If JS.JoyButState = 4 Then 
   MSComm1.Output = "4" 
   Sleep 500 
 End If 
DoEvents 
Loop 
End Sub

MfG
Surma

**LuK-AS** · 27.09.2004, 18:24

Jooooo, so funzt das !!

Vielen dank! Gruss Clemens

**Crock** · 27.09.2004, 18:38

hui das macht mich stolz, denn ich kann kein wort basic

freu mich schon auf ein weiteres Video, wuerd gern mal die Videofassung sehen, also in Action

**NumberFive** · 29.09.2004, 06:42

@LuK-AS:

Die Software kann man jetzt runter laden und bei der Windows version ist das
Serial addon auch da bei. Hast du lust das Jostik Teil für die mc als Addon zu machen ?

Gruß Numberfive

**LuK-AS** · 29.09.2004, 17:05

@NumberFive
Ich kann zwar die serielle Schnittstelle in VB programmieren aber alles was mit TCP/IP zu tun hat hab ich nicht drauf

Gruss Clemens

**Trabukh** · 30.09.2004, 15:44

Das mit dem TCP-Zeug ist mit VB nicht sonderlich schwer, eigentlich reicht folgendes Tutorial vollkommen aus, um I-Net-Anwendungen zu schreiben: http://www.activevb.de/tutorials/tut...nsock_con.html
Ich hoffe, du kannst das gebrauchen!

Gruß, Trabukh