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 Leute, > > > > Ich hab ein Problem mit dem Mega 128, und zwar brauch ich 32 bit oder mehr mit 1 Befehl, > > damit keine Zeitverzögerung drin ist. mit dem c-control 1 konnte man beide Ports mit wordport > > ansteuern (Ausgänge). Kann man auch mit dem 128er alle ports gemeinsam ansteuern? Wäre nett, > > wenn mir da jemand helfen könnte. > > > > Endergebnis wäre dann ein Würfel, wie man ihn bei diversen Videoportalen bewundern kann (8x8x8 RGB) > > Da ich für den alten c-control 1 vorher den 4x4x4 rgb würfel gebaut habe, dieser auch perfekt > > funktioniert, aber für mehr einfach zu langsam ist, wollte ich den 128er dafür verwenden. ich > > versuch grad, den 4x4x4 würfel auf dem 128er zum laufen zu bekommen, habe hier aber timingprobleme, > > weil ich die ports nur einzeln ansprechen kann, also jeweils nur 8 bit. > > > > ich hab meinen bisherigen programmcode mal drunterkopiert, dann ist das problem wohl ersichtlich. > > Sag mal, in welcher Zeit muß denn auf den Port geschrieben werden? Ich kann das mal messen, > aber ich würde darauf tippen, das 8-Bit in ca. 100µs auf den Port geschrieben werden. > > Gruss Peter > > > > > > > Dim delval As Integer > > Sub Port_CNT(delay_val As Integer) > > Dim i As Integer > > Dim a As Integer > > a = 0 > > #define PORT3 3 > > Port_DataDir(PORT3,255) > > #define PORT2 2 > > Port_DataDir(PORT2,255) > > For i=0 To 255 > > a = a + 1 > > Port_Write(PORT3,0) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,1) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,2) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,3) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,4) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,5) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,6) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,7) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,8) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,9) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,10) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,11) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,12) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,13) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,14) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Port_Write(PORT3,15) > > Port_Write(PORT2,a) > > AbsDelay(delay_val) > > Next > > End Sub > > > > '------------------------------------------------------------------------------ > > ' Hauptprogramm > > ' > > Sub main() > > delval=0 > > Do While True > > Port_CNT(delval) > > End While > > End Sub > >
