Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > Ahh, > > ich hatte den Zusatz "höchste Baudrate" übersehen. Damit ließe sich dann folgendes Schreiben: > > Sub main() > Dim adret As Word > Dim str(20) As Char > > ADC_Set(ADC_VREF_VCC,0) > Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD230400) > > For i=1 To 30000 > adret=ADC_Read() > Str_WriteWord(12345,10,str,0,0) ' konvertiert Word in String mit Basis 10 und Offfset 0 > ' Str_WriteWord(0,10,str,0,0) > Serial_WriteText(0,str) ' gibt den String aus > Next > End Sub > > Dauer - Mega128: 5 Zeichen - 17530ms, 1 Zeichen - 9170ms > > Für die Tests habe ich alternativ mit den Ausgabewerten "12345" und "0" gearbeitet. > > Der sendet dann mit 230K Baud, und vielleicht läßt sich bei der Stringkonvertierung noch was optimieren. > > > Gruss Peter > > > Hallo Peter, > > vielen Dank fuer Deine schnelle Reaktion. > > Hier der Quellcode fuer 3 Tests im CC1 Basic Code, bin echt gespannt wie schnell der µC wirklich ist. > > Rainald > > > > Testprogramm fuer Port Ausgabefolgen > > <basic>'******* DIO Speed > > define OBit1 port[1] > > define OBit2 port[2] > > define coun1 byte > > '******* Main > > print "Start D" > > FOR coun1=1 TO 10000 > > OBit1=0:OBit2=1 > > OBit1=1:OBit2=0 > > NEXT > > beep 100,2,0 > > print "Stop D" > > END > > </basic> > > > > <basic> > > '******* ADC RS232 speed > > define adc1 ad[1] > > define coun1 byte > > define result_8 byte > > define result_10 word > > '******* Main > > print "Start AS" > > FOR coun1=1 TO 10000 > > result_8=adc1 > > print result_8 > > NEXT > > beep 100,2,0 > > print "Stop AS" > > END > > </basic> > > > > <basic> > > '******* ADC Speed > > define adc1 ad[1] > > define coun1 byte > > define result_8 byte > > define result_10 word > > > > '******* Main > > print "Start A" > > FOR coun1=1 TO 10000 > > result_8=adc1 > > NEXT > > beep 100,2,0 > > print "Stop A" > > END > > </basic> > > > >
