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 > > > Man sollte den Eingang auch abfragen... > > > > 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 ' Nummer des Eingang - mit diesem Taster wird begonnen > iX = 0 ' Differenz des ersten Eingang zum ersten Ausgang > wZeitverzoegerung = 1000 ' Wert in 1000ms > ' > Do While 1 ' Endlosschleife > ' > If Port_ReadBit(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 > > > Gruss Manfred
