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 zusammen, > > ich habe Schwierigkeiten, die obere Hälfte des PortB einer Mega32 auf Projectboard als Ausgang > zu nutzen. > > Mit einem L293D sollen zwei kleine Motoren abwechselnd gesteuert werden. PortB.3 (Timer 0 Out) > habe ich mit allen Enables des L293D verbunden, PortB.4 bis PortB.7 steuern die Richtungs- > eingänge der vier Halbbrücken. > > Dabei funktioniert ein Motor einwandfrei, der andere nur in einer Richtung. Messung ergab, daß > PortB.6 auf 5V hängenbleibt, auch wenn er 0V ausgeben soll. > > Danach habe ich Pulldowns (4,7k) drangelötet. > > Jetzt: Alle Eingänge wechseln zwischen 0V und 0,5V, gehen also nicht mehr richtig auf High. > Mein Verdacht: Die Ports sind gar nicht als Ausgänge aktiv, sondern schalten nur den > internen Pullup an und aus. > > Wie kann das sein, bei folgendem Code?<basic> > > Sub main() > Port_DataDirBit(11,1) > Timer_T0PWM(1,PS0_64) > Port_DataDirBit(12,1) > Port_DataDirBit(13,1) > Port_DataDirBit(14,1) > Port_DataDirBit(15,1) > Motortest() > End Sub > > Sub Motortest() > Dim PWMWert As Integer > Do While 1 > Port_WriteBit(12,0) > Port_WriteBit(13,1) > Port_WriteBit(14,0) > Port_WriteBit(15,1) > For PWMWert = 1 To 255 > Timer_T0PW(PWMWert) > AbsDelay(10) > Next > AbsDelay(1000) > For PWMWert = 255 To 1 Step -1 > Timer_T0PW(PWMWert) > AbsDelay(10) > Next > Port_WriteBit(12,1) > Port_WriteBit(13,0) > Port_WriteBit(14,1) > Port_WriteBit(15,0) > For PWMWert = 1 To 255 > Timer_T0PW(PWMWert) > AbsDelay(10) > Next > AbsDelay(1000) > For PWMWert = 255 To 1 Step -1 > Timer_T0PW(PWMWert) > AbsDelay(10) > Next > End While > End Sub</basic> > > >
