PC -> RS232 -> µC

Zitat von flipp86

Egal ob ich im Terminalprogramm ne 1 ne 0 oder sonst was sende.

Auch schon Enter gedrückt?
Warum beginnst du nicht einfach den Beispielcode aus der Hilfe und bastelst den solange um bis es nicht mehr geht, dann weisst du wo dein Problem liegt.

Nabend, ich schmeiß mal eben eine Idee in den Raum:
Ich habe von Bascom keine Ahnung, aber ich kenne Switch Case abfragen nur mit Integer-Werte (oder chars) diese werden normal mit '0' und '1' deklariert ich weiß nicht ob Bascom hier nen unterschied macht oder ob es vllt sogar mit Strings oder sowas funktioniert. Um nicht völligen Unsinn zu posten habe ich noch etwas hier aus dem Forum gefunden

Select Case I
Case 0 : Gosub Allesaus
Case 1 : Gosub Sl
Case 2 : Gosub Abl
End Select

Das sieht für mich anders aus, aber vllt klappt ja auch deine Version..

Letzte Idee: Ich hatte es bei mir schon einmal umgestellt gehabt das beim Enter dücken der CR Befehl nicht richtig war. Versuch doch mal den CR explizit zu schicken. Dazu die "ALT" Taste Drücken und dann auf dem Nummernblock den Ascii-Code 13 eintippen, dann die ALT-Taste loslassen.
Bein schreiben kam mir noch eine Idee. Ich lese "Config Portd.5 = Output" ist das die TX-Leitung am µC? Wäre es vllt sinnvoll die RX-Leitung auch auf Input zu setzen ?
So ich bin nun schlafen, meine nicht Bascom spezifischen Tipps wollte ich noch eben loswerden.

wieso verwendest du nicht eins dieser befehle statt Input!?

Waitkey()  = Waitkey will until a character is received in the serial buffer.
 
Ischarwaiting()  = Isrcharwaiting returns 1 when a character is waiting in the hardware UART buffer.
 
Inkey()  = Inkey returns the ASCII value of the first character in the serial input buffer.

oder sendest einfach mal etwas damit Input die pause beendet und weiter spring...

Zitat von flipp86

Und der Beispielcode aus der Hilfe tuts leider auch nicht :(.

Dann such doch den Fehler erstmal bei deiner Hardware.
einfach ne Brücke zwischen pin 2 und 3 machen dann musst du dass empangen was du auch sendest.

Hi,

funktioniert der Syntax von Dir überhaupt? Meckert da der Compiler nicht? Ich kenne die "Select Case"-Syntax anders...

Gruß, Benny.

Ich benutze zum Empfangen von Daten einen anderen, viel flexibleren Code, den ich irgendwo im internet gefunden habe.
Ich hab dein Programm mal so umgeschrieben.
Der vorteil ist, dass du, egal in welchem Schritt des Programms du bist, etwas empfangen kannst und das dann abfragen kannst, wann du willst.
Der nachteil ist, dass das was vom PC gesendet wird immer eine bestimmte länge haben muss.

benkly: Bei mir hat der Compiler nichts gesagt.

$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600




Config Portd.5 = Output


'Für RS232 Empfang
Enable Urxc						'Interrupt, der auslößt, sobald etwas empfangen wird
On Urxc Onrxd 						'Wird der Interrupt Urxc ausgelößt springt er zum Label Onrxd						


Dim Empfangen As byte
dim s as string *255


Do




Print "hallo"


   


	Print "gehts noch???"




 	Select Case Empfangen


     	Case "0"
        	Portd.5 = 0
        	Print "Led aus"


     	Case "1"
        	Portd.5 = 1
        	Print "led ein"


 	End Select


	Wait 2


Loop






'Label vom Interrupt
Onrxd:


 S = S + Chr(udr)
    If Len(s) = 3 Then                                      'Die länge (Hier 3) immer einen höher als die anzahl der zeichen die man empfangen möchte, wegen dem CR-LF hinten dran


      S = Left(s , 2 )                                      'Erstes Zeichen abschneiden. Hier die tatsächliche Länge vom Empfangenen
      Empfangen = Val(s)                                  'Inhalt von dem String S in die Byte Variable Empfangen schreiben
      S = ""						'String für die nächsten Zeichen leeren.
    End If


Return






End