Spannungssteuerung über Taster

**Ratber** · 11.01.2006, 17:58

du meinst die Software ?

Hier mal ein einfaches Testprogramm
Damit kannste etwas Experimentieren.
Mit den Zeilen

"Ocr1a = A" und "Ocr1b = A" wird der jeweilige Wert (0-255 für 0-100%) gesetzt.

Code:

'PWM Test für Attiny26
'Je eine LED von Pin B0-3 nach masse.

$regfile = "At26def.dat"
$crystal = 1000000

Dim A As Byte

Tccr1a = &B01010011                                         'Manuelle Konfiguration von OC1a
Tccr1b = &B10000101                                         'Manuelle Konfiguration von OC1b
Ocr1c = 255

'Ddrb.0 = 1                                                  'Port b.0 als Ausgang
'Ddrb.1 = 1                                                  'Port b.1 als Ausgang
'Ddrb.2 = 1                                                  'Port b.2 als Ausgang
'Ddrb.3 = 1                                                  'Port b.3 als Ausgang.

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output

Do
Gosub Pwm
Loop

Pwm:
 For A = 0 To 255
  Ocr1a = A
  Ocr1b = A
  Waitms 2
 Next
Return

End

**joerea** · 11.01.2006, 18:05

Danke Ratber, ich werds mal ausprobieren!

**Strahleman** · 25.01.2006, 19:14

*Ausgrab*
Habe nun die Schaltung fertig und auch den Controller schon beschrieben. Nur leider läuft mein Lüfter durchgehend auf 12V (genauer gesagt 11,97V ^^). In der Schaltung habe ich keinen Fehler gefunden und wenn ich das Programm simuliere, funktioniert es auch. Außerdem müsste ja zumindest der Taster "An/Aus" funktionieren.

Hier einmal der Code, vllt ist ja einfach nur ein kleiner Fehler drin... wenn ihr wollt, kann ich auch Fotos von der Schaltung machen

Code:

'Definitionen & Konfigurationen
$regfile = "at15def.dat"
$tiny
Config Pinb.6 = Output
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Pinb.4 = Input

'Timer
Tccr1 = &B01010011
Tcnt1 = &B10000111
Ddrb.1 = 1

'Aliases
Ausgang Alias Pinb.6
Tasterhoch Alias Pinb.2
Tasterrunter Alias Pinb.3
Tastervoll Alias Pinb.4

'Variablen
Dim Aout As Iram Byte
Dim Bvar As Iram Byte
Dim Cfull As Iram Byte
Dim Bouncer1 As Iram Bit
Dim Bouncer2 As Iram Bit
Dim Bouncer3 As Iram Bit

'Var-Werte
Bvar = 10
Cfull = 255

Aout = 150

'Programm
Do
     'Spannungserhöhung
     If Tasterhoch = 0 And Bouncer1 = 0 Then
         If Aout > 245 Then
            Aout = Cfull
         Else
            Aout = Aout + Bvar
         End If
     Else
        nop
        Bouncer1 = 1
     End If

     If Tasterhoch = 1 Then
        Bouncer1 = 0
     End If

     'Spannungsverminderung
     If Tasterrunter = 0 And Bouncer2 = 0 Then
         If Aout < Bvar Then
            Aout = 0
         Else
            Aout = Aout - Bvar
         End If
     Else
         nop
         Bouncer2 = 1
     End If

     If Tasterrunter = 1 Then
        Bouncer2 = 0
     End If

     'Volle 12V
     If Tastervoll = 0 And Bouncer3 = 0 Then
        If Aout = Cfull Then
           Aout = 0
        Else
           Aout = Cfull
        End If
     Else
        nop
        Bouncer3 = 1
     End If

     If Tastervoll = 1 Then
     Bouncer3 = 0
     End If

Loop
End

**Ratber** · 25.01.2006, 19:51

Ja ,wundert auch nicht.

Ich dachte das hatte ich schon erwähnt.

Nicht den Pin ansteuern sondern den Timer über seine Register.

Mit

Compare1a = 100
oder
Pwm1a = 100
oder
OCR1A =100

Gehts dann auch.

**Strahleman** · 25.01.2006, 20:37

D.h. mit der Konfiguration sollte der Lüfter sich nicht drehen:

Code:

'Definitionen & Konfigurationen
$regfile = "at15def.dat"
$tiny
Config Pinb.1 = Output

'Timer
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 64

Do
Ocr1a = 0
End
Loop

ersetzte, sollte sich der Lüfter nicht drehen oder? Oder wie setzt man Ocr1a ein?!

**Ratber** · 25.01.2006, 23:23

Ja genau.
0 = 0% also ständig Low.
255 =100% ständig High.
Die Werte dazwischen ergeben ein entsprechendes Tastverhältnis.

aber oben in dem Tiny26 Beispiel kannste dir das nochmal anschauen.

**Strahleman** · 26.01.2006, 15:49

Hm komischerweise dreht sich auch der Lüfter, auch wenn der Code wie oben gepostet auf den Chip geschrieben ist. Einen Fehler in der Schaltung kann ich nicht entdecken, kann es sein, dass vllt. einer im Schaltbild ist?