RN-Control vom PC aus während dem Programm steuern

[Schneggli92]

Guten Tag allerseits

Gibt es eine möglichkeit das RN-Control vom PC aus zu steuern? Allso wenn auf dem RN-Control ein Programm läuft per Konsole vom PC aus zb Variabeln veränder? So dass ich zB eine Servo vom PC aus steuern kann am besten über rs232.
Sorry falls es schon passende Forumsbeiträge gibt aber ich habe keine gefunden und freund Google konnte mir nicht wirklich weiterhelfen.

Vielen Dank für die Antworten.

[sulu]

HI

das ist eigentlich relativ einfach zu machen. ich würde das über die Ascii Zeichen und Inkey() machen.
Ich hab mal ein Programm zum Morsen gemacht. Jeder Buchstabe der Tastatur wurde einem Ton zugeordnet.(Oder eben einer Servodrehung)
Danach schließt du einfach dein Board an die serielle Schnittstelle an und gehst ins Terminalprogramm.

Die Liste für die einzelnen Buchstaben oder Zahlen und Ascii Wert hab ich jetzt nicht mehr im Kopf wo die war.
Aber das sollte dir weiterhelfen:


$regfile = "m32def.dat"
Dim A As Byte
Do
A = Inkey()
If A > 0 Then
Select Case A
Case 97
'
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 200 , 750
Waitms 50
Case 98
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Case 99
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50

.................................................. ......

[Schneggli92]

vielen dank das hat mir sehr weiter geholfen
aber gibt es eine möglichkeit mit inkey() strings zu empfangen?
so in etwa in dieser Art:



$regfile = "m32def.dat"
' bei Mega 16 $regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
Dim A As String

Do
A = Inkey()
If A > 0 Then
Select Case A
Case Mot001 'Das ist der ASCII Code für Taste "1"
Sound Portd.7 , 400 , 450
Print "motor 1"
Case Mot002 'Das ist der ASCII Code für Taste "2"
Sound Portd.7 , 400 , 250
Print "motor 2"
Goto 0
End Select
End If
Loop

also so geht es irgendwie nicht gibt es eine andere möglichkeit als inkey()? input()??

vilen dank für eure antworten