Schaltung mit ATtiny13 und stufen dimmer 30 - 50 - 100 Mit Fototransistor

[Gnom67]

Welche Programmiersprache ist das? Probier mal etwas in der Art:

If Analogwandler < 180 Then Led_realis = 100 'Dunkel -> LED/Realis hell
Else If Analogwandler < 400 Then Led_realis = 75 'heller -> LED/Realis dunkler
Else If Analogwandler < 800 Then Led_realis = 50 'noch heller -> LED/Realis noch dunkler
Else Led_realis = 25 'ganz hell -> LED/Realis ganz dunkel

Für die LEDs benötigst du ein PWM-Signal.
Mit einem Relais funktioniert das nicht.

[Der bastler]

Moin Das ist Bascom und ich habe ja auch gesagt das ich eine Dimmerschaltung habe die auch Funktoniert wie ich den code gepostet habe..

Oh ich sehe was ups,
das ist Falsch
If Analogwandler < 180 Then Led_realis = 100 'Dunkel -> LED/Realis an
If Analogwandler > 400 Then Led_realis = 20 'Hell -> LED/Realis aus

So Sollte es sein
If Analogwandler < 180 Then Led_realis = 1 'Dunkel -> LED/Realis an
If Analogwandler > 400 Then Led_realis = 0 'Hell -> LED/Realis aus

Und ich möchte es aber irgendwie habe das es nich tganz ausschaltet......

So Danke wahr späz gestern

[Andree-HB]

...also mit dimmen hat das ja nix zu tun, mit stufenlos auch nix.

Schaue mal hier:
http://www.dieelektronikerseite.de/u...erleuchten.htm

Und "baue" statt den Tastern dort die Variable von Deinem Analogwandler/Lichtsensor ein

[Der bastler]

Moin Andree-HB

Ich habe mir was zurecht gebastelt mit einen ( ATtiny2313 ) Später ATtiny13 werden
Hier mein Code, irgendwie kommt und passiert nichts ähm....

$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32


Dim Pwmval As Byte


Config Portb.1 = Output
Config Portb.0 = Input


Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Portb.0 = 1
Compare1a = 255
Pwmval = 50


Do
  If Pinb.0 = 0 Then
    If Pwmval < 255 Then Incr Pwmval
    Waitms 50 : Compare1a = Pwmval
  End If

  If Pinb.0 = 0 Then
    If Pwmval < 180 Then Incr Pwmval
    Waitms 50 : Compare1a = Pwmval
  End If

  If Pinb.0 = 0 Then
    If Pwmval < 100 Then Incr Pwmval
    Waitms 50 : Compare1a = Pwmval
  End If

  If Pinb.0 = 0 Then
    If Pwmval > 50 Then Decr Pwmval
    Waitms 50 : Compare1a = Pwmval
  End If
Loop

[Der bastler]

Juhu Gibt es Tips oder Ratschläge
Bin Offen für eure tipps

[Siro]

Sorry, ich glaube ich hab den Prozessor/Programmiersprache nicht richtig verstanden,
daher habe ich meinen Beitrag gelöscht um keine Falschinformation zu verbreiten....

Siro

[Der bastler]

Hallo Siro

Da ich eine Mail erhalte wie andere auch hab ich mir es durchgelesen und fand es interriesant.
aber danke