Ortungspieper mit ATtiny13 für Modell-Elektrosegler

[Sauerbruch]

Moin Rolf,

vom reinen Code her würde ich auf den ersten Blick auch sagen, dass das Programm eigentlich in der "Piepen"-Schleife landen müsste, wenn keiner der vier Taster geschlossen wird. Auch wenn man den Code hier & da noch etwas verschlanken könnte - aber darum geht´s im Moment ja (noch) nicht

Ich hatte einmal ein ähnliches Problem, als ganz am Anfang des Programms (noch vor der Do-Loop-Schleife) ein komplettes Byte mittels DIP-Schalter eingestellt und eingelesen werden sollte. Dabei kamen auch ganz andere Werte heraus, als mit dem Schalter eingestellt wurden.

Das Problem ließ sich beheben, indem ich nach der Aktivierung der PullUp-Widerstände eine kurze Wartezeit programmiert habe (waitms 50). Irgendwie scheinen sich diese High-Pegel nicht unmittelbar sofort einzustellen, warum weiß ich auch nicht genau, denn die Zeitkonstante aus dem PullUp-Widerstand und der Eingangskapazität ist schon sehr kurz. Aber nach dieser kleinen initialen Pause ging´s einwandfrei: Taster offen = 1, Taster geschlossen = 0.

Versuch´s einfach mal!


Gruß,

Daniel

[hegewald]

Hallo Daniel,
danke für Deine Antwort!

Habe Waitms 50 hinzu gefügt, leider nichts...es blinkt und blinkt.
Das Ganze sieht jetzt in der Konfiguration der Eingänge so aus:

Test Alias Pinb.3
Config Test = Input
Portb.3 = 1
Waitms 50

Sw1 Alias Pinb.4
Config Sw1 = Input
Portb.4 = 1
Waitms 50

Sw2 Alias Pinb.1
Config Sw2 = Input
Portb.1 = 1
Waitms 50

Sw3 Alias Pinb.2
Config Sw3 = Input
Portb.2 = 1
Waitms 50

Grüße

Rolf

[Sauerbruch]

Wie seltsam... dann hilft es wohl nur noch, das Problem etwas systematischer "einzukreisen".

Dazu würde ich mal als erstes überprüfen, ob das Zusammenspiel zwischen Tastern und Eingangspegeln auch ordentlich funktioniert:

$regfile "attiny13.dat"
$crystal = 1000000

Piep Alias Portb.0
Config Piep = Output

Test Alias Pinb.3
Config Test = Input
Portb.3 = 1

Do
Piep = Test
Loop

Das ganze prüft natürlich nur einen Eingang, müsste also ggf. noch mit den anderen 3 Eingängen wiederholt werden. Aber dann weißt Du schon mal ob´s gleich schon an den Eingängen scheitert, oder doch noch ein Problem im Code steckt (das ich aber nach wie vor nicht sehe).

[hegewald]

Hallo Daniel,
hab mich gleich ran gemacht und die Pegel an den Eingängen gemessen.
Siehe da, Deine Vermutung lag richtig!
an Portb.1 (definiert als Sw2) lagen etwa 1,xx Volt!
Der Grund ist nicht der Taster noch der Pin-Eingang...sondern:
Hier muß ich nochmal zurück greifen, um das Ganze zu verstehen.
Ich legte mir eine myAVR zu. Der Sockel ist aber nur gedacht für Atmega8 (28 pol.)
da sich hier eine 10 pol. ISP Schnittstelle befand, habe ich auf einer Lochrasterkarte
einen Sockel für tiny13 aufgelötet und die Steuerleitungen (MISO/MOSI/SCK mit Vers.) rüber geführt.
Damit haute die Programm. hin. Im Betrieb dann aber das Kabel von der myAVR dran gelassen. Hier muß
mir die myAVR das High-Signal runter gezogen haben.
Das kabel abgenommen und der Pegel lag sauber bei 5 Volt.
Aber jetzt geht es erst richtig ins Eingemachte, denn ich benötige 3 Zeiten (20/30/40 Minuten)
Und die sollte ich mit Timer 0 und Interrupt realisieren.
Bevor es aber weiter geht, werde ich den Ortungspieper näher erklären.

Danke nochmal

Grüße
Rolf

[Sauerbruch]

Na, das ist doch schon mal ein guter Anfang!
Dann bin ich mal gespannt auf Details zum Ortungspiepser - aber die genannten Aufgaben müssten sich mit einem Tiny13 problemlos realisieren lassen!

[hegewald]

Hallo Daniel,
vorab gezielte Frage, bevor ich ins Eingemachte gehe.

"Kennst Du Dich mit Timer vom ATmega8 aus?"

Wenn ja komme ich drauf zurück.

Grüße

Rolf

[peterfido]

Bei 4 MHZ (Mega32) reichen bei meiner Multiplextastatur 3 NOPS aus, damit sie zuverlässig läuft.

reset portb.3
config portb.3=output
nop
nop
nop

if pinb.4=0 then 'Taste gedrückt
endif

if pinb.5=0 then 'Taste gedrückt
endif

config portb.3 = input
set portb.3
... mit nächsten Pin von vorn...

Läuft zuverlässig. Ohne die Nops werden die ersten Tasten nicht zuverlässig erkannt

Timer sind sehr gut in der Hilfe erklärt. Ich nutze gern einen 1ms oder für längere Zeiträume 10ms Timerdurchläufe. Diese dann einfach zählen und so die Zeitdifferenz ermitteln. Englischkenntnisse sind klar von Vorteil.

Ich habe grad leider kein Bascom für Codeschnipsel hier.... Wenn Du die Bascom internen Uhrroutinen nutzt, kannst Du mit Sectic=... eine Sub angeben, welche jede Sekunde aufgerufen wird.