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 > Hallo, > > ich hab die Schleifenzahl erhöht um genauere Ergebnisse zu bekommen. Den Test mit der RS232 hab ich > mir gespart, da dort die Baudrate (spätestens wenn der IRQ Puffer voll ist) der limitierende Faktor ist. > Hier die Tests: > > ' Portausgaben > Sub main() > Dim i As Integer > > Port_DataDirBit(PORT_LED1,PORT_OUT) > Port_DataDirBit(PORT_LED2,PORT_OUT) > > > For i=1 To 30000 > Port_WriteBit(PORT_LED1,PORT_ON) > Port_WriteBit(PORT_LED2,PORT_ON) > Port_WriteBit(PORT_LED1,PORT_OFF) > Port_WriteBit(PORT_LED2,PORT_OFF) > Next > End Sub > > Dauer - Mega 32: 6450ms Mega 128: 5660ms > (An dieser Stelle sieht man, das wir den M128 Interpreter etwas besser auf Geschwindigkeit optimiert > haben. Der M32 Interpreter mußte auf Platz opmimiert werden). > > > > 'ADC Read > Sub main() > Dim adret As Word > > ADC_Set(ADC_VREF_VCC,0) > > For i=1 To 30000 > adret=ADC_Read() > Next > End Sub > > Dauer - Mega 32: 4710ms Mega 128: 4710ms > > Ich hoffe die Ergebnisse waren aufschlussreich, wir waren denn die C-Control 1 Werte? > > 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> > > > >
