erstellt  26.07.2010
1 Hz Blinker
Hier wird ein einfacher Blinker vorgestellt , der mit einer Frequenz von ca 1 Hz blinkt

Schaltplan vergrößern
Plan als PDF laden
Folgende Einstellung ist im Programm vorzunehmen
Und so sieht das dazugehörige Programm aus
 
 
Einige andere Möglichkeiten  eine Led blinken zu lassen :

Dim A as Word
 Variable definieren die einen Wert zwischen 0 und 65535 annehmen kann
Do
 Anfang der Schleife
a=a+1
 Variable a bei jedem Schleifendurchgang um eins erhöhen
if a=200 then Toggle Portc.4
 Wenn Variable den Wert von 200 erreicht hat den Zustand am Portc.4 ändern ( angeschlossene Led)
Loop
 Ende der Schleife

Hier hat man den Vorteil das die Zustandsänderung  der Led fast verzögerungsfrei statt findet und somit die Programmgeschwindigkeit
kaum beeinflusst wird,hat aber den Nachteil das die Zeit in der die Led an ist ,genau so lange ist wie die Zeit in der die Led aus ist.

Dim A as Word
 Variable definieren die einen Wert zwischen 0 und 65535 annehmen kann
Do
 Anfang der Schleife
a=a+1
 Variable a bei jedem Schleifendurchgang um eins erhöhen
If A > 64900 Then Portc.4 = 1 Else Portc.4 = 0
 Wenn Variable größer 64900 dann geht Led um bei 65535 wieder aus zu gehen
loop
 Ende der Schleife



Hier geht die Led nur kurz an um dann für eine längere Zeit aus zu bleiben, dadurch wird zum einen Energie gespart, und zum anderen
das Programm kaum ausgebremst.




Do
 Anfang der Schleife
Portc.4=1
 Ausgang für Led ein schalten
waitms 10
 Pause damit led lange genug leuchtet um es zu erkennen
Portc.4=0
 Ausgang für Led aus schalten
waitms 10
 Pause damit led erkennbar lange aus bleibt
loop
 Ende der Schleife
Hier kann man sehr genau die Leuchtdauer und die Pausenzeit einstellen, damit wird das Programm aber doppelt ausgebremst einmal für
 die Leuchtdauer und einmal für die Pausendauer
  Programm laden  

Aktualisiert 17.02.2019
Copyright by Ms 2009