Re: Operationsgeschwindigkeit Kategorie: CC-Pro Unit & Appl.Board (von PeterS - 23.11.2005 19:01) | |
Als Antwort auf Re: Operationsgeschwindigkeit von starke - 23.11.2005 16:13
| |
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 > '******* 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 > > > > '******* 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 > > > > '******* 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 > > > | |
Antwort schreiben Antworten: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum