Problem Serout v. Bascom auf MyAVR

Gast #2708126
Lesenswert?

Ich mache gerade Versuche mit einer seriellen 4-stelligen 
7-Segment-Anzeige von Sparkfun an einem MyAVR-Experimentierboard unter 
Bascom. Während die Ausgabe eines Zählercodes per "Print"-Befehl über 
den TX-Anschluss des Boardes problemlos funktioniert (Programmcode 
sollte also weitgehend in Ordnung sein), bewirkt der Befehl "Serout" 
rein garnichts.
Der Pin B.0 ist frei verfügbar und funtionabel, habe ich vorher mittels 
LED-Blinkausgabe getestet.

Warum geht das nicht?

----------------------------
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
$hwstack = 40
$swstack = 32
$framesize = 60

Config Portb = Output

Dim Cnt As Integer
Dim Myb As Integer

Dim Blk As String * 1
Dim Rst As String * 1
Dim Res As String * 5

Blk = Chr(120) 'code for blank digit
Rst = Chr(118) 'code for reset display
Myb = 2400

Do

   Cnt = Cnt + 1
   If Cnt > 9999 Then Cnt = 0

   Res = Blk + Blk + Blk + Str(cnt)
   Res = Rst + Right(res , 4)

   Rem Print Res;
   Serout Res , 0 , B , 0 , Myb , 0 , 8 , 1

   Portb.1 = 0
   Waitms 50

   Portb.1 = 1
   Waitms 50

Loop

End

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren