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 würde ein blinkprogramm für meine c-control pro ministation > > > brauchen! > > > > > > das blinken soll durchen einen taster am input1 gestartet werden! > > > > > > dann soll eine led am output1 2 mal hintereinander zeitverzögert > > > aufleuchten. dann das gleiche noch mal am output2. und dann immer weiter > > > und weiter bis der taster am input1 erneut gedrückt wird. > > > > > > danke schon mal für die hilfe! > > > > > > > > > gruß chris > > > > > > Hallo Chris, > > > > ich sende dir mal was in Basic!! ist aber NICHT getestet!!!! > > Die Eingänge und Ausgänge müssen noch angegeben werden. > > Prog ist nur eine Möglichkeit und erhebt keinen hohen Anspruch ;-) > > Ich hoffe es hilft Dir beim übersetzen in C > > > > Viel Spass > > Manfred > > > > > > > > Dim bAnzTaster As Byte ' Anzahl Taster > > Dim bAktuellerTaster As Byte ' aktuell abgefragter Taster > > Dim bOn As Byte ' Wert für Taster betätigt > > Dim iX As Integer ' Differenz des ersten Eingang zum ersten Ausgang > > Dim iZaehler As Integer ' Zähler für die For-Schleife > > Dim wZeitverzoegerung As Word ' Wert in ms > > Dim Dummy As Byte > > > > Sub main() > > ' > > ' ungetestet!!!! > > ' > > ' Eine mögliche Variante in Basic > > ' Taster werden nacheinander abgefragt und dann entsprechend der Ausgang gesetzt > > ' Ich kenne den Prozessor nicht! > > ' > > ' EINGÄNGE für Dummy die entsprechende Werte der Eingänge die benutzt werden eintragen!! > > Port_DataDirBit(Dummy,0) ' Port Bit Input > > Port_WriteBit(Dummy,1) ' Set PULLAB > > Port_DataDirBit(Dummy,0) ' Port Bit Input > > Port_WriteBit(Dummy,1) ' Set PULLAB > > Port_DataDirBit(Dummy,0) ' Port Bit Input > > Port_WriteBit(Dummy,1) ' Set PULLAB > > ' Anzahl nach Bedarf erweitern > > ' > > 'Ausgänge für Dummy die entsprechende Werte der Ausgänge die benutzt werden eintragen!! > > Port_DataDirBit(Dummy,1)' Port Bit Output > > Port_DataDirBit(Dummy,1)' Port Bit Output > > Port_DataDirBit(Dummy,1)' Port Bit Output > > ' Anzahl nach Bedarf erweitern > > ' > > bAnzTaster = 3 ' genaue Anzahl angeben! > > bOn = 0 ' prüfen ob 1 oder 0 kommt wenn Taster gedrückt ist - ich denke es kommt 0 > > bAktuellerTaster = 1 ' mit diesem Taster wird begonnen > > iX = 0 ' Differenz des ersten Eingang zum ersten Ausgang > > wZeitverzoegerung = 1000 ' Wert in 1000ms > > ' > > Do While 1 > > ' > > If bAktuellerTaster = bOn Then > > For iZaehler = 1 To 4 > > Port_ToggleBit(bAktuellerTaster+iX) > > AbsDelay(wZeitverzoegerung) > > Next > ' > > If bAktuellerTaster = bAnzTaster Then > > bAktuellerTaster = 1 > > Else > > bAktuellerTaster++ > > End If > > > End If > > ' > > ' > > End While > > > > > > > > End Sub > > Upp' s da war schon die erste Macke drin > > Ich hoffe das war's > > Gruß, Manfred
