Hallo,
ist bestimmt nur ein kleiner dummer Fehler, aber ich komm nicht drauf
Ich habe eine schicke kleine Uhr gebaut: thingiverse.com/thing:570797
Nun möchte ich noch zwei Taster zum stellen nachrüsten.
Aber ich kriege die internen Pullups nicht aktiviert.
Die Eingänge funktionieren, floaten aber rum.
Externe Pullups wären schwierig, alles ziemlich eng gebaut
Was stimmt da nicht?
Alles anzeigen
ist bestimmt nur ein kleiner dummer Fehler, aber ich komm nicht drauf
Ich habe eine schicke kleine Uhr gebaut: thingiverse.com/thing:570797
Nun möchte ich noch zwei Taster zum stellen nachrüsten.
Aber ich kriege die internen Pullups nicht aktiviert.
Die Eingänge funktionieren, floaten aber rum.
Externe Pullups wären schwierig, alles ziemlich eng gebaut
Was stimmt da nicht?
Quellcode
- 'Programm für Uhren mit Steppermotor und mit ATTiny 24
- 'Schaltplan, Fotos und Leiterplatte unter"Eigenbauten->Holo-Clock"
- 'Steppermotor 28BYJ 4096Step/Umdr.über StepDown zur Stromregelung
- $regfile = "attiny24.dat"
- $crystal = 32768
- $hwstack = 12
- $swstack = 10
- $framesize = 15
- DdrA=&B00001111 'Ausgänge für Motor
- Config Pinb.2 = Input 'Taster
- Portb.2 = 1 'Pullup*********geht nicht??
- Config Pina.7 = Input 'Taster
- PORTA.7 = 1 'Pullup*********geht nicht??
- Declare Sub TestCW
- Declare Sub TestCCW
- Dim Wert1 As Word
- Dim Wert2 As Word
- Dim Test As Word
- Wert1 = 174
- Wert2 = 175
- Test = 17
- 'max=120Hz=2ms/Takt
- '175ms=zu langsam 174ms=zu schnell
- Do
- If Pinb.2 = 0 Then
- Gosub TestCW 'Schneller Vorlauf
- End If
- If PinA.7 = 0 Then
- Gosub TestCCW 'Schneller Rücklauf
- End If
- 'Vorwärts
- PortA=&B00001001
- Waitms Wert1
- PORTA=&B00001100
- Waitms Wert2
- PortA=&B00000110
- Waitms Wert1
- PORTA=&B00000011
- Waitms Wert2
- Loop
- End
- Sub TestCW 'Schneller Vorlauf
- If Pinb.2 = 0 Then
- Do
- PortA=&B00001001
- Waitms Test
- PORTA=&B00001100
- Waitms Test
- PortA=&B00000110
- Waitms Test
- PORTA=&B00000011
- Waitms Test
- Loop until Pinb.2 = 1
- End If
- Return
- End Sub
- Sub TestCCW 'Schneller Rücklauf
- If PinA.7 = 0 Then
- Do
- PortA=&B00000011
- Waitms Test
- PORTA=&B00000110
- Waitms Test
- PortA=&B00001100
- Waitms Test
- PORTA=&B00001001
- Waitms Test
- Loop until PinA.7 = 1
- End If
- Return
- End Sub