Attiny 13 Programmierung

[Joerg D. (Firma: Robocompucom) (funeddy)]

Hallo und guten Abend,

ich habe eine kleines Problem.
Ich hbae hier ein Programm, welches über einen Attiny 13 eine LED 
blinken lässt, wenn auf einen LDR Fotowiderstand Licht fällt. Die LED 
ist an den PortB3 angeschlossen. Zusätzlich will ich jetzt aber 
gleichzeitig eine zweite LED die an PortB1 angeschlossen ist, blinken 
lassen.
Ich habe hierzu folgenden Basic Code...

$regfile = "ATtiny13.DAT"
$crystal = 16000                                            'Frequenz des  internen Oszillators
$hwstack = 2                                                'hardwarestack herabsetzen damit genügend variablen zur verfügung stehen
    
Config Adc = Single , Prescaler = Auto
Config Portb = &B00001000                                   'Pinb.3 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = 0                                                   'Ausgänge auf Low setzen
Stop Ac                                                     'Analog-Komparator abschalten, um Strom zu sparen

Wdtcr = &B11010011                                          'Watchdog definieren: 0.125 Sekunden, Interrupt auslösen, kein Reset
Enable Interrupts                                           'Interrupts freigeben

Const Tagschwelle = 800                                     'Schwellwert für Schlafmodus
Dim Ldr As Integer                                          '0 = Dunkel, 1023 = Hell

Do
 Gosub Pause
 Start Adc                                                  'A/D-Wandler starten
 Ldr = Getadc(2)                                            'Helligkeitswert einlesen
 Stop Adc                                                   'A/D-Wandler zum Stromsparen wieder stoppen
 If Ldr <= Tagschwelle Then
  Gosub Blinken                                             'Bei großer Änderung Dunkel->Hell: Blinken
 End If
Loop

Blinken:                                                    'LED blinken lassen
  Portb.3 = 1
  Reset Watchdog
  Powerdown
  Portb.3 = 0
Return

Pause:
 Wdtcr = &B11110001                                         'Watchdog auf 8 Sekunden stellen
 Reset Watchdog
 Powerdown
 Wdtcr = &B11010011                                         'Watchdog wieder auf 0,125 Sekunden zurückstellen
Return

End

Wie kann ich das realisieren das die zweite LED an PortB1 auch mit 
blinkt.

Kann da jemand weiter helfen.

vielen Dank und viele Grüße
funeddy

[Quarter Beck (Gast)]

Da musst Du Portb.1 das Gleiche machen lassen, wie Portb.3

Blinken:                                        'LED blinken lassen

  Portb.3 = 1
  Portb.1 = 1



  Reset Watchdog

  Powerdown

  Portb.3 = 0
  Portb.1 = 0

Return

Print "Mit freundlichem Gruss!"

[Joerg D. (Firma: Robocompucom) (funeddy)]

Danke für die Hilfe,

habe jetzt folgenden Code Probiert

Blinken:                                                    'LED blinken lassen
  Portb.3 = 1
  PORTB.1 = 1
  Reset Watchdog
  Powerdown
  Portb.3 = 0
  PORTB.1 = 0
Return

Leider funktioniert dann garnix mehr. Weder die eine noch die andere LED 
blinkt.
Weißt Du da weiter ?

Vielen Dank und Viele Grüße
funeddy

[Joerg D. (Firma: Robocompucom) (funeddy)]

Habe jetzt den Code nochmal geprüft, es funktioniert leider nicht
Ich habe jetzt folgenden Code

Blinken:                                                    'LED blinken lassen
  Portb.3 = 1
  Portb.1 = 1
  Reset Watchdog
  Powerdown
  Portb.3 = 0
  Portb.1 = 0
Return

ich weiß auch nicht warum das nicht funktioniert.
Vlt. muss der PortB.1 auch auf

Config Portb = &B00001000                                   'Pinb.3 auf 
'Ausgang', Rest auf 'Eingang' schalten

Ich habe die Vermutung das ich Pinb.1 auch auf ausgang setzen muss.

vielen Dank für die Hilfe
VG funeddy

[Quarter Beck (Gast)]

Joerg D. schrieb:

> Vlt. muss der PortB.1 auch auf
>
> Config Portb = &B00001000                                   'Pinb.3 auf
> 'Ausgang', Rest auf 'Eingang' schalten
>
> Ich habe die Vermutung das ich Pinb.1 auch auf ausgang setzen muss.

Da habe ich sogar Gewissheit.
:)

[Joerg D. (Firma: Robocompucom) (funeddy)]

ich habe das jetzt mit Portb.1=output und Portb.3=output probiert.
Kannst Du mir kurz schreiben wie das Binär geht. Das geht aber auch 
nicht.

also z.B. Config Portb = &B00001000 wäre nur der Portb.3 wie sieht es 
dann aus wenn der Portb.1 dazu kommt.

vielen Dank für die Hilfe

Vg funeddy

[Dieter D. (Firma: Hobbytheoretiker) (dieter_1234)]

Joerg D. schrieb:
> ..
&B00001010

[Joerg D. (Firma: Robocompucom) (funeddy)]

Das habe ich mir auch gedacht und schon ausprobiert. Keine Chance, es 
geht nicht. Jetzt mal noch ne grundsätzliche Frage. Kann ich denn den 
Portb.1 überhaupt zum schalten einer LED nutzen ? Normalerweise sollte 
das doch funktionieren ?

vielen Dank und viele Grüße
funeddy

[Dieter D. (Firma: Hobbytheoretiker) (dieter_1234)]

Schritt 1: Setzen der Ports auf Output.
&B00001010
Schritt 2: Setzen der Ausgänge auf High/Low (und - oder Verknüpfung)
.255 müßte alle versuchen zu setzen.

Tausche mal alles von
Portb.3 = 1
Portb.1 = 1
zu:
Portb.1 = 1
Portb.3 = 1

Wenn die Doppelbelegung irgendwo angesprochen wurde bei dem Pin gibt es 
Probleme:
https://www.rahner-edu.de/grundlagen/einf%C3%BChrung-in-bascom/

[Joerg D. (Firma: Robocompucom) (funeddy)]

vielen Dank für mdie Hilfe,
ich habe für heute erstmal Feierabend gemacht, morgen geht es weiter.

vielen lieben Dank nochmal.

VG Funeddy

[Joerg D. (Firma: Robocompucom) (funeddy)]

Hallo nochmal,

wie lege ich denn die Ausgänge auf High/Low.
geht das mit DDR, also z.B.  DDRB = &B00001010   ?

vielen Dank für die Hilfe
VG
funeddy

[Joerg D. (Firma: Robocompucom) (funeddy)]

oder eher mit

DDRB, PORTB.1 = 11 für high      und
DDRB, PORTB.1 = 10 für low

Vg funeddy

[nipe (Gast)]

Ist der Programmieradapter abgesteckt?

[nipe (Gast)]

EDIT: Sorry - sollte eigentlich egal sein. Habe mich verguckt.

[Stefan F. (Gast)]

Mit dem DDR Register konfigurierst du die Richtung (Ein-/Ausgang).
Mit dem PORT Register steuerst du die Ausgänge.
Mit dem PIN Register liest du die Eingänge.

[Joerg D. (Firma: Robocompucom) (funeddy)]

Okay, vielen Dank für die Hilfe. Ich habe jetzt das Programm noch mal 
abgeändert und jetzt blinken, wenn der LDR Licht bekommt beide LED.

Damit kann der Thread geschlossen werden. Es funktioniert jetzt bestens.

vielen lieben Dank nochmal für die Hilfe.

VG funeddy oder Joerg