Gast
#2708126
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