ATTiny 25

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • ATTiny 25

      Hallo Zusammen
      Der Winzling ATTiny 25 bringt mich noch zur Verzeiflung

      Problem:

      Der Ausgang Jz_out soll in Abhängigkeit des Steuereingangs Tz durchgereicht werden
      Bei Tz =0 (Nacht) einfach 1:1 auf Durchzug
      Bei Tag mit Verzögerung einschalten und ohne Verzögerung ausschalten

      Das Ding macht einfach nicht das was ich will

      Wichtig: Ich bin nur Hobbyprogrammierer

      ******************************************************************


      Source Code

      1. '------------------------------------------------------------------
      3. ' Tiny25_1.bas
      5. ' 10.11.2022
      7. ' ATTiny25
      9. ' V 1.0
      11. ' Impulsunterdrückung und Einschaltverzögerung
      13. '------------------------------------------------------------------
      15. '
      17. '
      19. $regfile = "attiny25.dat"
      21. $Crystal=1000000 'intern 8,0 MHz / 8
      23. $hwstack = 32
      25. $swstack = 32
      27. $framesize = 40
      32. Config PinB.0 = input 'Jahreszeit Eingang
      34. Config PinB.2 = input 'Tageszeit Eingang
      36. Config PortB.1 = Output 'Jahreszeit Ausgang
      38. Config PortB.4 = Output 'Messausgang
      44. 'Test alias portb.4 ' nur für Test
      48. Tz alias PinB.2
      50. Jz_in alias PinB.0
      52. Jz_out alias PortB.1
      56. Tz=1 ' Pull up ein (nur für Test)
      58. Jz_in =1 ' Pull up ein (nur für Test)
      62. Enable Interrupts
      66. do
      70. select case Tz
      72. case 0: Jz_out = Jz_in 'Nacht 1:1 Übertragung
      74. case 1: goto M1 'Tag
      76. end select
      80. M1: 'Tag
      82. select case Jz_in
      84. case 0: Jz_out = 0
      86. case 1: goto M2
      88. end select
      93. M2: ' Verzögerung Anstieg
      95. Wait 2
      97. Jz_out = Jz_in
      101. loop
      103. end
      Display All

    • Hallo @Anton70

      Ich würde es so machen

      BASCOM Source Code

      1. $regfile = "attiny25.dat"
      3. $Crystal=1000000 'intern 8,0 MHz / 8
      4. $hwstack = 32
      5. $swstack = 32
      6. $framesize = 40
      8. Config PortB.0 = input 'Jahreszeit Eingang
      9. Config PortB.2 = input 'Tageszeit Eingang
      10. Config PortB.1 = Output 'Jahreszeit Ausgang
      11. Config PortB.4 = Output 'Messausgang
      13. Portb.0 = 1 ' Pullup
      14. Portb.2 = 1 ' Pullup
      16. ' Merker definieren
      17. Dim Tz as Byte
      18. Dim Jz_In as Byte
      19. Dim Jz_Out as Byte
      22. Enable Interrupts ' für was?
      25. Do
      27. ' Auf Merker umsetzen damit das Programm
      28. ' immer mit den gleichen Daten Arbeitet.
      29. Tz = PinB.2
      30. Jz_In = PinB.0
      31. Portb.1 = Jz_out
      35. If Tz =0 Then
      36. Jz_out = Jz_in 'Nacht 1:1 Übertragung
      37. Elseif Tz = 1 Then
      38. If Jz_In = 0 Then
      39. Jz_out = 0
      40. Elseif Jz_in = 1 Then
      41. Wait 2
      42. Jz_out = Jz_in
      43. End If
      44. End If
      46. Loop
      48. end
      Display All
      Ich habe mir das Goto total abgewöhnt.
      Dadurch das du alles in der Do-Loop Schleife hast kommt dein M2: immer zur Geldung.
      Und je nachdem wann die Signal wechseln kann das mal irgendwo in der Schleife passieren.

    • Anton70 wrote:

      Das Ding macht einfach nicht das was ich will
      Weil immer alles durchlaufen wird. z.B. Tz=0 in der ersten Case wird der Ausgang gesetzt und die Select Case verlassen. Aber Dann geht es mit M1 weiter obwohl das nicht gewünscht ist.
      Und zum Schluß rennt M2 auch noch
      Ein Möglichkeit wäre

      Source Code

      1. Do
      2. M0:
      3. select case Tz
      4. Case 0
      5. Jz_out = Jz_in 'Nacht 1:1 Übertragung
      6. Goto M0
      7. Case 1
      8. ...
      9. Case 0
      10. Jz_out = 0
      11. Goto M0
      12. case 1
      13. ....
      Display All
      Eine andere wäre das Loop...End nach der ersten End Select zu setzen und die goto in gosub zu ändern.
      M1: und M2: wären dann Subroutinen die mit Retun beendet werden müssen
      Das hat den Vorteil das sie nur laufen wenn sie aufgerufen werden (und nicht immer)
      Und sie können (wenn das Projekt größer wird) von verschiedenen Stellen im Code aufgerufen werden. Ihr Return sorgt dann dafür das es genau an der Stelle weiter geht von wo sie aufgerufen (gosub) wurden.

    • Ich hab auch noch einen:

      Um einen PullUp-Widerstand zu aktivieren, muss man das PORT-Register auf 1 setzen (und natürlich den I/O-Port als Input konfigurieren, aber das sind alle I/O-Ports beim Einschalten der Spannungsversorgung sowieso). Das PIN-Register dient einzig und alleine der Abfrage es anliegenden logischen Pegels.

      Statt
      1. Tz=1 ' Pull up ein (nur für Test)
      2. Jz_in =1 ' Pull up ein (nur für Test)
      solletst Du also lieber schreiben

      PORTB.0=1
      PORTB.2=1

      wenigstens wenn Du die PullUp-Widerstände brauchst.