Hallo Freunden nach lange Krankenhausaufenthalt Chemotherapie und OP
bin wieder da, und weil mir alles zu viel ist muss ich mich beschäftigen, also habe nicht besonderes gemacht aber für mich schon, das ist ein Dimmer mit eine ATmega8 und Zwei Taster, weil ich auch ein wenig kommentiert habe würde sehr gern von euch wissen ob das so wie ich geschrieben habe richtig ist, weil sonst habe nichts verstanden und darum geht’s mir die befehlen verstehen um Programmieren zu können, für diese Kleine Programm habe über Zwei Tage gebraucht aber es Funktioniert und darum geht’s.
Bitte nicht schimpfe weil ich das Prg. immer noch nicht vernünftig posten kann vielleicht erklärt mir Schritt für Schritt wie es geht falls jemand Lust hat dazu also viel Spass und danke.
Antonio
Dimmer
Alles anzeigen
bin wieder da, und weil mir alles zu viel ist muss ich mich beschäftigen, also habe nicht besonderes gemacht aber für mich schon, das ist ein Dimmer mit eine ATmega8 und Zwei Taster, weil ich auch ein wenig kommentiert habe würde sehr gern von euch wissen ob das so wie ich geschrieben habe richtig ist, weil sonst habe nichts verstanden und darum geht’s mir die befehlen verstehen um Programmieren zu können, für diese Kleine Programm habe über Zwei Tage gebraucht aber es Funktioniert und darum geht’s.
Bitte nicht schimpfe weil ich das Prg. immer noch nicht vernünftig posten kann vielleicht erklärt mir Schritt für Schritt wie es geht falls jemand Lust hat dazu also viel Spass und danke.
Antonio
Dimmer
BASCOM-Quellcode
- $regfile "m8def.dat"
- $crystal = 1000000
- Dim Pwmval As Byte 'Puls-Weiten-Modulation
- Config Portb.1 = Output 'PB1 Pin15 Led
- Config Portd.0 = Input 'Taster1 mit T1 geht die Leuchtkraft der Led runter
- Config Portd.1 = Input 'Taster2 mit T2 geht die Leuchtkraft der Led hoch
- Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 'Config Timer1 = Pwm, erteilung am Mega8 anweisung das einen
- 'pwm-Ausgang sein soll
- Portd.0 = 1 : Portd.1 = 1'Pullup-Widerstand
- Compare1a = 255
- Pwmval = 1
- Do
- If Pind.0 = 0 Then
- If Pwmval < 255 Then Incr Pwmval
- Waitms 50 : Compare1a = Pwmval
- End If
- If Pind.1 = 0 Then
- If Pwmval > 1 Then Decr Pwmval
- Waitms 50 : Compare1a = Pwmval
- End If
- Loop
Teilen dein Wissen, so erlagst du zu Unsterblichkeit