Lampenansteuerung mit Atmel AVR

'============================================================
'
' ************************************
' ***                              ***
' ***    Dimmendes Blinklicht      ***
' ***                              ***
' ************************************
'
' µC: ATtiny13
' +Ub: 3,00 V
'
'
'============================================================

$regfile = "ATtiny13.DAT"
$crystal = 128000                                           'Reale Frequenz des internen 128kHz-Oszillators

Config Portb = &B00011000                                   'Pinb.3 und 4 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = &B11100111                                          'Pullups zuschalten, außer für Pinb.3 und .4
Stop Adc                                                    'A/D-Wandler abschalten, um Strom zu sparen
Stop Ac                                                     'Analog-Komparator abschalten, um Strom zu sparen

Dim A As Byte
Dim B As Byte
Dim Stufen As Byte

Stufen = 20

Do

For A = 0 To Stufen
B = Stufen - A
Gosub Pwm
Next
For A = Stufen To 0 Step -1
B = Stufen - A
Gosub Pwm
Next
Waitms 1000

Loop

Pwm:
        Portb.3 = 1
        Waitms A
        Portb.3 = 0
        Waitms B
        Return

End

'============================================================
'
' ************************************
' ***                              ***
' *** Hardware PWM 06.07.2006      ***
' ***                              ***
' ************************************
'
' µC: ATtiny13
' Hardware Pwm auf Portb.0
' Fusebit DCBA 1001 (4,8 MHz)
'
'
'
'============================================================
'
$regfile = "ATtiny13.DAT"
$crystal = 4800000
Config Pinb.0 = Output
Tccr0a = &B11110001
Tccr0b = &B00000011
Dim I As Byte
Do

For I = 1 To 255
Ocr0a = I
Waitms 5
Next I
For I = 255 To 1 Step -1
Ocr0a = I
Waitms 5
Next I
Loop

End

'--------------------------------------------------------------
' PWM-Lampenregelung
' Speichert letzte Helligkeit im FlashROM (Speicherung nur nach Tastenbetätigung um das FlashROM zu schonen)
' Taster an PB3 (heller) und PB4 (dunkler), LED ("ist gespeichert-Signal") an PB2
' Ausgäne an PB0 und PB1
' Hauptquelle PWM: http://www.roboternetz.de/phpBB2/viewtopic.php?p=216633

' Fusebits:
' H : 0
' G : 1
' F : 1
' E : 1
' DCBA: z.B. 0011
'---------------------------------------------------------------

$regfile = "ATtiny13.DAT"
$crystal = 113000
$hwstack = 6

Config Pinb.0 = Output                   '1. PWM-Ausgang für 55W Halogenlampe
Config Pinb.1 = Output                   '2. PWM-Ausgang
Config Pinb.2 = Output                   'Ausgang für "gespeichert Signal"
Config Pinb.3 = Input                    'Taster "heller"
Config Pinb.4 = Input                    'Taster "dunkler"
Portb.3 = 1                              'PullUP ein
Portb.4 = 1                              'PullUP ein

Config Timer0 = Pwm , Pwn = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
'Prescale 1 entspricht ca. 220Hz, Prescale 8 ca 27Hz (vermutlich zu langsam für Lampenregelung) bei 128kHz Oszillatorfrequenz

Enable Timer0
Enable Interrupts

Dim D As Byte                            'D = Drehzahl
Dim Z As Long                            'Zähler für "FlashROM-Schonung"
Dim T As Byte                            'toggle für "FlashROM-Schonung"
Dim E As Eram Byte

Readeeprom D , &H10

If D = 0 Then D = 127                    'Wenn gespeicherte Helligkeit 0% oder 100% beträgt wird 50% eingestellt
If D = 255 Then D = 127

'D = 0                                   'Ausgang = high
'D = 255                                 'Ausgang = low
'D = 127                                 'Ausgang = 50% / 50%

Do

Waitms 10                                'Geschwindigkeit für Hell-/Dunkelregelung

Ocr0a = D                                'PWM Wert setzen
Ocr0b = D

If Pinb.3 = 0 And D > 0 Then             'heller
   Decr D
   T = 1                                 'Wenn Taste, dann auf 1 toggeln,
End If                                   'damit irgendwann gespeichert wird

If Pinb.4 = 0 And D < 255 Then           'dunkler
   Incr D
   T = 1
End If

Incr Z                                   'Zähler erhöhen bei jedem Durchlauf
If Z > 500 Then                          'Nach 500 Durchläufen (ca. 3 Sekunden)...
   Z = 0                                 'wird Zähler auf 0 gesetzt...
   If T = 1 Then                         'und wenn eine Taste gedrückt wurde...
      Writeeeprom D , &H10               'wird die Helligkeitseinstellung im FlashROM gespeichert...
      T = 0                              'und der Tastenindikator auf 0 gesetzt
      Portb.2 = 1                        'Port 2 wird für 100ms auf HIGH gesetzt... (Der Teil wird nicht benötigt)
      Waitms 100
      Portb.2 = 0                        'Port 2 wird wieder auf 0 low gesetzt
      'Waitms 1000
   End If
End If

Loop

End