Ampel mit Bascom und ATTiny2313

[Pharma (Gast)]

Hallo,

bin dabei eine kleine Ampel zu programieren.
Soweit klappe das auch, nun möchte ich aber das die Ampel rot leuchtet 
solange an PB3 nicht VCC anlieg.

Leider leuchtet sie jetzt durchgänig rot.

$regfile = "attiny2313.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 8
$framesize = 16



'Grün an PB0
Gruen Alias Portb.0
Config Gruen = Output

'Gelb an PB1
Gelb Alias Portb.1
Config Gelb = Output

'Rot an PB2
Rot Alias Portb.2
Config Rot = Output

'Schalter An Pb3
Schalter Alias Portb.3
Config Schalter = Input

Do
   If Schalter = 1 Then
  Rot = 1
  Gelb = 0
  Gruen = 0
 Waitms 5000
  Rot = 1
  Gelb = 1
  Gruen = 0
 Waitms 2000
  Rot = 0
  Gelb = 0
  Gruen = 1
 Waitms 5000
   Rot = 0
  Gelb = 1
  Gruen = 0
 Waitms 2000

   Else
      Rot = 1
      Gelb = 0
      Gruen = 0

   End If

Loop

End

MfG Pharma

[Krapao (Gast)]

Sieht deine Schaltung so ähnlich aus?

          ^ Vcc
          |
          #
          # Pull-Up Widerstand 
          # 1-10k
          |
PB3 o-----+
          |
          o |
            |=| Taster oder Schalter
          o |
          |
         --- Gnd

Oder heisst "solange an PB3 nicht VCC anlieg." dass da der Draht zu PB3 
frei in der Gegend rumbambelt?

[Räuber (Gast)]

Das Programm schon im Simulator gehabt? Es läuft wie es soll, aber die 
Ausgänge werden programmtechnisch scheinbar nicht richtig angesprochen!

[Pharma (Gast)]

Hallo, angeschlossen ist der Schalter folgendermaßen:

          ^ Vcc
          |
          o |
            |=| Taster oder Schalter
          o |
          |
PB3 o-----+
          |
          #
          # Pull-Up Widerstand 
          # 10k
          |
         --- Gnd

Bei dem Simulator sehe ich leider noch garnicht durch, bin noch neuling 
in sachen AVR.

Wenn ich nur

$regfile = "attiny2313.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 8
$framesize = 16



'Grün an PB0
Gruen Alias Portb.0
Config Gruen = Output

'Gelb an PB1
Gelb Alias Portb.1
Config Gelb = Output

'Rot an PB2
Rot Alias Portb.2
Config Rot = Output

'Schalter An Pb3
Schalter Alias Portb.3
Config Schalter = Input

Do
  Rot = 1
  Gelb = 0
  Gruen = 0
 Waitms 5000
  Rot = 1
  Gelb = 1
  Gruen = 0
 Waitms 2000
  Rot = 0
  Gelb = 0
  Gruen = 1
 Waitms 5000
   Rot = 0
  Gelb = 1
  Gruen = 0
 Waitms 2000

Loop

End

verwende läuft die Ampel, also müssten doch die Pins richtig 
angesporchen werden oder?

Wenn an PB3 +5 anliegen soll die Ampel ihr Programm durchspielen, wenn 
keine Spannung anliegt soll die Ampel permanent rot sein.

MfG Pharma

[Norbert S. (norberts)]

Pharma schrieb:
> Schalter Alias Portb.3
> Config Schalter = Input

Pb.3 ist als Eingang definiert aber Schalter ist Portb.3.
Port ist aber das was man als Ausgang schreibt bzw der Pullup wenn als 
Eingang definiert.
Also bleibt Schalter immer 0, egal wie du an dem Beinchen wackelst.

Gewöhne Dir das so an:

Ddrb.3 = 0         'Eingang, könnte man weglassen
Schalter Alias Pinb.3
Portb.3 = 1         'Schaltet den internen Pullup ein, Schalter vom Pin an Masse nötig

'Gelb an PB1
Ddrb.1 = 1           'Output
Gelb Alias Portb.1

Gruß,
Norbert

[meinName (Gast)]

Pharma schrieb:
> 'Schalter An Pb3
> Schalter Alias Portb.3
> Config Schalter = Input

hier muss es:

Schalter Alias Pinb.3

heißen. und ein PullUp der nach Gnd zieht ist ein PullDown

[Norbert S. (norberts)]

Hi,

ich hatte den Schaltplan nicht gesehen, lass den "Portb.3 = 1" internen 
Pullup weg.
Du braucht ausschliesslich Schalter Alias Pinb.3, weiter nichts-

Gruß,
Norbert

[Pharma (Gast)]

Hallo,
also danke erstmal.
das Port in PIN zu ändern hat schonmal funktioniert.
Nur dauert es einige Sekunden bis der Tiny merkt das ich die Spannung an 
PB3 weggenommen habe, hat das was mit meiner eingestellten Taktfrequenz 
zu tun?

MfG

[Karl H. (kbuchegg)]

Pharma schrieb:
> Hallo,
> also danke erstmal.
> das Port in PIN zu ändern hat schonmal funktioniert.
> Nur dauert es einige Sekunden bis der Tiny merkt das ich die Spannung an
> PB3 weggenommen habe, hat das was mit meiner eingestellten Taktfrequenz
> zu tun?

Nein.
Das hat was mit deinem Programm zu tun, welches du eigentlich kennen 
solltest.

Dein Programm schaltet rot ein und wartet dann 5 Sekunden.
Dann schaltet es gelb ein und wartet wieder 2 sekunden
dann grün und wartet wieder 5 Sekunden
bis dann endlich wieder erst mal gelb eingeschaltet wird, gefolgt von 
einer 2 sekündigen Pause.

und erst dann ist es mit einer Ampelsequenz fertig und in der Schleife 
gehts nach oben  wo dann endlich überprüft wird ob der Eingang auf 1 
ist.
Dein Programm verbrutzelt also 12 Sekunden Rechenzeit mit Däumchen 
drehen, ehe es dann wieder mal nachsieht, ob du den Taster betätigt 
hast.

Und das ist genau das, was du siehst.

[Pharma (Gast)]

Halli Hallo,

danke für deine ausführliche Info, das ist mir auch gerade selber 
aufgefallen. Vielen dank nochmal an alle.

MfG Pharma

[Rolf H. (flash01)]

Hallo Karl Heinz,
wenn man zum Schluß sowas liest, muß man sich fragen
"weshalb habe ich dafür die Zeit investiert"!

Grüße

Rolf