CMOS-Dezimal-Counter- bzw. -Teiler-Kaskade in Bascom umsetzen

Pluto25 · Nov 18th 2024, 10:38pm

Zu wenig Code. Um die Fehler nachvollziehen zu können wäre der komplette Code nötig. So kann man nur raten. z.B.
Wenn kein $regfile angegeben ist nimmt er den aus den Voreinstellungen (bei mir einen Tiny13) und wenn dieser keinen Port C hat gibt es auch kein Register DdrC und keine Portc Pins
Ich hab Deinen Code mal in der alten Version gefriemelt. Dort machte es keine Fehler (außer das zwei waitms alleine ohne Zahl dort stehen)
Portc = 0 schaltet alle Pins ab DDRC = 0 schaltet sie alle auf Eingang, so daß die in der Sectic gesetzten keine Auswirkung haben. Es muß vor der Pulsausgabe wieder auf Ausgang gesetzt werden 'DDRC = 31(255)'
Dann sollte das 'End if nach den For.. Next stehen damit sie nur einmal gepulst werden.
Wichtig ist das die Main mit eine Loop endet. Der jetzige Code würde nach den For Next mit der Tastanaus weitermachen bis er dann mit dem Return abgeschossen wird.
Da das ganz weniger als eine halbe Sekunde braucht könnte das Pulsen auch in die Halbsec ausgelagert werden. Dann kann die Sectic nicht dazwischen funken. Es wäre ja blöd wenn ein Stundenwechsel genau dann passiert wenn gerade gepulst wird

Damit nichts vielfach ausgeführt wird bietet sich die Aufwarm an z.B. für die Anodenspannung

Source Code

If warmzeit = 239 Then
If aufwarm = 1 then ' Heizung ist an
reset Portb.3 ' Anodenspannung ein
aufwarm = 2 ' Röhren bereit
end if
End if

ähnlich nach dem Pulsen Aufwarm = 3 ' Röhren fertig. So das nur gepulst wird wenn Aufwarm = 2 ist.

Mitch64 · Nov 19th 2024, 6:35am

delatube wrote:

Was schlägst Du zum jetzigen Zeitpunkt vor, was ich tun kann, um es sofort übersichtlicher zu machen? Ich überlege mir mal bzw. zeichne mir mal auf, was wie und wann im Ablauf geschehen soll. Gern bemühe ich mich um mehr Übersichtlichkeit, wenn ich dabei Hilfe bekomme.

Zum Thema alias, da hatte ich gelesen, dass es in Subs Probleme geben kann, da die dort nicht erkannt werden? Bei PortC funktioniert das mit alias nicht oder ich müsste jeden Port einzeln mit einem alias verknüpfen, oder?

Zuerst mal würde ich den Pins, die du als Eingang oder Ausgang benutzt einen zutreffenden Namen geben. Ein Prefix "pin" für den Namen macht klar, dass es sich bei der Bezeichnung um einen Pin handelt.

Z.B.
pinAnodenspannung Alias PortB.0

Dann kannst du den Pin konfigurieren mit
Config pinAnodenspannung=Output

Setzen und Löschen des Ausgangs mit

Set pinAnodenspannung ' bzw.
Reset pinAnodenspannung

Für den PortC könnte man auch ein Alias verwenden. Mann kann aber dann nur dem ganzen Port einen Wert zuweisen. Das Setzen/löschen einzelner Pins ist dann wieder unübersichtlich.

Besser hier den einzelnen Pins auch ein Alias geben. Als Namen würden sich ja pinSec01, pinSec10, pinMin01, pinMin10, pinHour01 und pinHour10 anbieten.
Dann weist du welcher Pin was macht.

Mir ist unbekannt, dass ein Alias in Subs oder Unterprogrammen Probleme bereiten sollte. Bisher war das bei mir nie der Fall.

Wichtig ist bei den Alias, dass die definiert sein müssen, bevor man die Bezeichnungen im Code verwendet.
Und dann sollte man auch konsequent nur diese Bezeichnungen im Code verwenden und nicht wieder die Port.x und Pin.x Bezeichnungen.
Nur so kannst du die Pins ohne große mühe später ändern oder bei anderen Controllern anpassen.

In deinem Code verwendest du ja öfters (an mehreren Stellen) die Anweisung
PortC = 0

Hier würde ich eine Sub mit aussagefähigem Namen anlegen, in der dann die einzelnen Pins via Alias zurück gesetzt werden.
Eine solche Routine könnte z.B. heißen "Sub ResetTube()"
Anstelle der Anweisung

PortC=0

schreibst du dann ein Call ResetTube()

In der Sub steht dann die Liste der zu löschenden Pins.

BASCOM Source Code: Beispiel Sub

' Löscht alle Puls-Pins der Röhre
Sub ResetTube()
Reset pinSec01
Reset pinSec10
Reset pinMin01
Reset pinMin10
Reset pinHour01
Reset pinHour10
End Sub

Pluto25 · Nov 19th 2024, 11:05am

Dann wird dem Avr nicht langweilig.

Neben dem Haufen (unnötiger) Schreibarbeit hat er damit mehr als 8 mal mehr Arbeit als ein deutliches PortC = 0.
Auch die Bezeichnung sorgt wirklich für Verwirrung: PortB.0 schaltet einen (Teil)Reset. Port C nur die Zählimpulse.
@delatube gibt es auch einen Pin der alle Röhren zurücksetzen würde? Anodenspannung aus/an scheint mir da etwas grob/langsam ?

Mitch64 · Nov 19th 2024, 3:56pm

Es ging um die Programm-Übersichtlichkeit und nicht um Geschwindigkeits-Rekorde aufzustellen.

Bei diesem Projekt ist es wurscht, ob die 6 Puls-Pins nun in 1µs oder in 8µs zurückgesetzt sind.
Das bezieht sich nur auf den Fall, wenn man die Pins einzeln auf 0 setzt und nicht Port.x = 0 schreibt.

Zudem kann man auch dem Port ein Name geben. Das hatte ich ja auch geschrieben (Post #62).

Ob man nun den Pin (Set Portb.0) direkt setzt oder per Alias macht keinen Unterschied.
Mit Alias ist es aber übersichtlicher. Gründe, die für den Alias sprechen, habe ich ja auch schon gegeben (Siehe Post #62).

Aber es muss auch die Fraktion der Spaghetti-Code-Verfechter geben

delatube · Nov 20th 2024, 11:43am

Jetzt bin ich verwirrt und weiß nicht so recht, welchen Hinweisen hinsichtlich der Übersichtlichkeit ich nachgehen soll. Aber ja, mir fällt es schon zunehmend schwer, alles zu finden und zuzuordnen. Bei Euren Ideen zur Umsetzung werde ich sicherlich auch noch fragen haben.

Ich werde mich mal dransetzen und den kompletten Code nach Euren Hinweisen durch zu arbeiten und die Erweiterungen einzubauen und dabei auch versuchen alles besser zu struturieren und zumindest aus meiner Sicht irgendwie übersichtlicher zu gestalten. Z.B. nach Funktionsgruppen oder Ablaufreihenfolge oder so. Die Alias-Namen würde ich versuchen dort einzusetzen, wo es für mich Sinn macht. Beim PortC bin ich dahingehend aber tatsächlich unsicher, ob ichs lasse oder so ändere. Dabei die Frage, wenn ich den gesamten PortC anspreche, ob das eigentlich Einfluss auf den Resetpin PortC6 hat?

Pluto25 wrote:

@delatube gibt es auch einen Pin der alle Röhren zurücksetzen würde? Anodenspannung aus/an scheint mir da etwas grob/langsam ?

Nein, einen einzigen Pin als Reset für alle Röhren gibt es nicht. Das müsste ich auf der Platine Anpussungen vornehmen und Zähl- und Reseteingänge durch z.B. Dioden trennen und unabhängig von den Zählimpulsen machen.

bitlogger · Nov 20th 2024, 1:12pm

Lasse dich bitte nicht konfus machen, bleibe realistisch. Realistisch bedeutet, Alles hat gleichzeitig und ohne Ausnahmen Vorteile und Nachteile.
Es kommt immer nur auf die Betrachtung an, ob man dies als Vorteil oder Nachteil empfindet.
Spargetticode kann es auch mit der Verwendung von Aliase sein, werden.
Jedoch haben Aliase durchaus Vorteile wenn gute Namen gewählt werden. Dann ist das Programm zwar verständlicher, will man mal zwischendurch messen,
muss man nachschauen an welchem Portpin die namentliche Bezeichnung liegt. Wird seltener vorkommen.

Ich verwende gerne Aliasnamen, denn ich entwickle einiges auf einem gekauften Bord, was später auf einem anderen Bord funktionieren soll.
Da definiere ich zb const entwicklungsbord = 1 und setze die zugehörigen Portpins etc mit Aliasnamen passend zu diesem Bord.
Wird das später umgearbeitet auf das originale Bord, muss ich nur die Bordbezeichnung gültig machen, dann wird das Programm sachgerecht compliert.

Wie Mitch es bereits angedeutet hat, soll man beim verwenden von Aliasen mit berücksichtigen, daran denken, ob es zum Zeitpunkt der Bearbeitung ein Port
oder ein Pin sein soll, etc. Hat man sich an Aliase gewöhnt, wird das quasi zum Standart. Hilfreich sein kann auch das handschriftliche Zeichnen und eintragen
von gewollter Programmbearbeitung in Kästchen mit Strichverbindungen zu den betroffenen Kästchen. Dann ist leichter erkennbar, was zu programieren ist, wohin
Verzweigungen hinführen usw.
Übernimmt man das ähnlich im Programmcode, wird das Programm übersichtlicher.
Ist nur ein Vorschlag meinerseits. Darfst du egal wie realistisch betrachten, umsetzen.

delatube · Nov 20th 2024, 10:34pm

Puhh und Hmpf. Ich stehe auf dem Schlauch. Habe mich dran gesetzt und versucht, den Ursprungscode mit den neuen Teilen zusammenzubringen und etwas mehr Nachvollziehbarkeit reinzubringen. Leider bekomme ich es nicht richtig hin. Den Uhr-Code habe ich ja irgendwie noch nachvollziehen und mir erklären können und halbwegs verstanden warum was wohin muss, damit es funzt. Aber bei den neuen zusätzlichen Teilen gelingt mir das irgendwie nicht, d.h. was machen die einzelnen Teile - die Main und die Taster-Sub An/Aus Heiz- und Anodenspannung und die Sub Refreshz - für sich und im Zusammenspiel und was muss wo genau hin? Ich verliere hier den Überblick gar nicht mal so sehr wegen des Codes, sondern eher weil mir das Wissen fehlt, es nachzuvollziehen und dann korrekt u.a. auch die Code-Ideen und vielen kleinen Hinweise von Pluto25 einzubauen.

Ich poste hier einfach mal den leider unvollständigen und sicherlich fehlerhaften Code nach aktuellem Stand mit Bitte um Korrektur um das Ding zum Laufen zu bekommen.

P.S.: Naheliegend wäre auch, wenn nach der Inbetriebnahme sowohl die Anodenspannung und die Pulse auch erst nach 3-4 Minuten eingeschaltet werden ähnlich wie nach dem "Aufwecken" der Röhren/der Schaltung nach einem Unterbrechen der Heiz- und Anodenspannung per Tastendruck.

Danke und guten Abend erstmal. Code folgt nach.

delatube · Nov 20th 2024, 10:35pm

Der Code.

Source Code

$regfile = "m8def.dat"
$crystal = 1000000
$swstack = 64
$hwstack = 64
$framesize = 64
Config Clock = Soft , Gosub = Sectic 'Clock-Modus, externer Quarz 32Khz wird genutzt
On Oc2 Halbsec '500ms-Pulse an Outputs
Enable Oc2
Ocr2 = 128 'bestimmt das Tastverhältnis
Config Timer2 = Timer , Prescale = 128 'Initialisierung Timer2
Dim S , Sz , Me , Mz , He, Hz As Byte 'Variablen Sekunden, Minuten, Stunden (0 bis 24)
Dim warte as byte 'Für Delay Start Timer2 nach Tastendruck Stellen/Reset
Dim A as byte 'Zählvariable bestimmen
Dim Aufwaerm as Byte 'Flag zum Röhrenstaus
Dim Warmzeit as byte 'Zeiten der Aufwärmphasen
Enable Interrupts
'*** Ein/Ausgänge deklarieren **************************************************
'Pulse Set/Reset für Röhren
Pinresethour10 Alias Portb.0 'Resetpuls für Stunden10er Schaltung
Config Pinresethour10 = Output
Config Portc = Output 'C.0 = Sek. ... C.5 = Stundenzehner
'Taster Stellen und Reset der Uhr
Config Portd.0 = Input 'Sekundentaster
Pind.0 = 1 'Pullup einschalten
Config Portd.1 = Input 'Minutentaster
Pind.1 = 1 'Pullup einschalten
Config Portd.2 = Input 'Stundentaster
Pind.2 = 1 'Pullup einschalten
Config Portd.3 = Input 'Resettaster (alle Röhren auf 0)
Pind.3 = 1 'Pullup einschalten
'An/Aus Heiz- und Anodenspannung (Röhrensafer)
Pintastonoff Alias Pinb.1
Config Pintastonoff = Input 'Taster An/Aus Röhren
Pintastonoff = 1 'Pullup einschalten
pinAnodenspannung alias Portb.2
Config Pinanodenspannung = Output 'Anodenspannung An/Aus
pinHeizung alias Portb.3
Config Pinheizung = Output 'Heizung An/Aus
'*** Hauptschleife *************************************************************
Do
Debounce Pind.0 , 0 , Tastsec1 , Sub 'Debounce Taster, Sprung Sub Einstellen Sekunden
Debounce Pind.1 , 0 , Tastsec2 , Sub 'Debounce Taster, Sprung Sub Einstellen Minuten
Debounce Pind.2 , 0 , Tastsec3 , Sub 'Debounce Taster, Sprung Sub Einstellen Stunden
Debounce Pind.3 , 0 , Tastsec4 , Sub 'Debounce Taster, Sprung Sub Resetpuls alle Ausgänge
Debounce Pintastonoff , 0 , Tastanaus , Sub 'Debounce Taster, Sprung Sub Delay Heiz- und Anodenspannung
'An/Aus Heiz- und Anodenspannung (Röhrensafer)
If Warmzeit = 240 Then '4 Minuten nach dem Wiedereinschalten
Reset Pinanodenspannung 'Anodenspannung an
If Warmzeit = 220 Then '3,5 Minuten nach dem Wiedereinschalten
Reset Pinheizung 'Heizung an
End If
'Erzeugung einer Pause (3s) nach Betätigen eines Tasters
If Warte >= 1 Then 'Start Timer2 3 Sek. nach letztem Tastendruck
Decr Warte '30 in Tastsec wird runtergezählt
If Warte = 0 Then Start Timer2 'wenn O dann Start Timer2
End If
Waitms 100 '30x100ms ergibt dann die 3 Sekunden
Loop
End
'*** Subs **********************************************************************
'Sub für Erzeugung und Ausgabe Zähl- und Resetpulse für die Röhren
Sectic:
Incr Warmzeit 'Timer für Aufwärmzeit
Set Portc.0 'jede Sec. (Takt S1)
Incr S
If S >= 10 Then
S = 0
Set Portc.1 'alle 10s (Takt S10, Reset S1)
Incr Sz
If Sz >= 6 Then
Sz = 0
Set Portc.2 'alle 60s (jede Min) (Takt M1, Reset S10)
Incr Me
If Me >= 10 Then
Me = 0
Set Portc.3 'alle 10m (Takt M10, Reset M1)
Incr Mz
If Mz >= 6 Then
Mz = 0
Set Portc.4 'alle 60m (jede Stunde) (Takt H1, Reset M10)
Incr He
If He = 10 Then Portc.5 = 1 '10h
Incr Hz
If He = 20 Then Portc.5 = 1 '20h
Incr Hz
If He >= 24 Then
He = 0
Hz = 0
Set Pinresethour10 'Reset H10 (23.59)
Set Portc.5 'Reset H1
End If
End If
End If
End If
End If
Return
'Sub Refresh der Anzeige nach Aufwachen
For A = 0 To S 'für die 1er-Sekundenröhre
Set Portc.0
Waitms 1
reset portc.0
waitms 1
next
For A = 0 To Sz 'für die 10er-Sekundenröhre
Set Portc.1
Waitms 1
Reset Portc.1
Waitms 1
Next
For A = 0 To Me 'für die 1er-Minutenröhre
Set Portc.2
waitms 1
reset portc.2
waitms 1
next
For A = 0 To Mz 'für die 10er-Miuntenröhre
Set Portc.3
Waitms 1
Reset Portc.3
Waitms 1
Next
For A = 0 To He 'für die 1er-Stundenröhre
Set Portc.4
Waitms 1
Reset Portc.4
Waitms 1
Next
For A = 0 To Hz 'für die 10er-Stundenröhre
Set Portc.5
Waitms 1
Reset Portc.5
Waitms 1
Next
'Sub für Dauer der einzelnen Pulse (High-Low 500ms)
Halbsec: 'Puls 1 Hz (500ms)
Reset Pinresethour10
Portc = 0
Return
'Sub für Einstelltaster Stellen der Uhr und Reset alle Röhren
Tastsec1: 'Bei Tastendruck
Stop Timer2 'Das stoppt die Uhr.
Set Portc.0 'Stellt die Sekunden
Incr S
If S >= 10 Then
S = 0
Set Portc.1
Incr Sz
If Sz >= 6 Then Sz = 0
End If
Waitms 200
Portc = 0
Warte = 30 '3 Sekunden warten bis Restart Timer2
Return
Tastsec2: 'Bei Tastendruck
Stop Timer2 'Das stoppt die Uhr.
Set Portc.2 'Stellt die Minuten
Incr Me
If Me >= 10 Then
Me = 0
Set Portc.3
Incr Mz
If Mz >= 6 Then Mz = 0
End If
Waitms 200
Portc = 0
Warte = 30 '3 Sekunden warten bis Restart Timer2
Return
Tastsec3: 'Das stoppt die Uhr.
Stop Timer2 'Stellt die Stunden
Set Portc.4
Incr He
If He = 10 Then Portc.5 = 1
If He = 20 Then Portc.5 = 1
If He >= 24 Then
He = 0
Set Pinresethour10
Set Portc.5
End If
Waitms 200
Portc = 0
Pinresethour10 = 0
Warte = 30 '3 Sekunden warten bis Restart Timer2
Return
Tastsec4: 'Bei Tastendruck
Stop Timer2 'Das stoppt die Uhr.
Set Pinresethour10
Portc = &B00111111
Waitms 200 'Highpuls an allen Outputs als Resetpuls für Zählschaltung
Portc = 0
Pinresethour10 = 0
Warte = 30 '3 Sekunden warten bis Restart Timer2
Return
'Sub Taster für An/Aus Heiz- und Anodenspannung (Röhrensafer, High=Aus)
Tastanaus:
If Pintastonoff = 0 Then 'Röhren sind an
Ddrc = 0 'Ausgangspulse abschalten
'Pinresethour10 = 'Resetpuls abschalten -> was ist damit?
Set Pinanodenspannung 'Anodenspannung aus (High=Aus)
Set Pinheizung 'Heizung aus (High=Aus)
Aufwaerm = 0 'Röhren abgeschaltet
Else
Reset Pinheizung 'Heizung an
Aufwaerm = 1 'Vorheizen
'Ddrc = 1? 'Ausgangspulse anschalten
'Pinresthour10 = 'Resetpuls anschalten -> was ist damit?
End If
Return

Display All

Pluto25 · Nov 21st 2024, 7:56am

Sieht doch soweit recht gut aus.

Nur eine Fehlermeldung :thumbup:

in den if Warmzeit...
ich habs mal so geändert

Source Code

If Warmzeit = 220 Then '3,5 Minuten nach dem Wiedereinschalten
Reset Pinanodenspannung 'Anodenspannung an
End If
If Warmzeit = 240 Then
DDRC = 31 'Ausgänge aktivieren
Gosub Refresh 'Richtige Zeit pulsen
End If

Unklar ob die Anodenspannung wirklich 20 Sekunden anliegen muß bevor gepulst wird?

Unter Übersichtlichkeit versteht hier jeder etwas anderes. Wichtig ist das es für Dich verständlich ist.
Der Simulator eignet sich gut nach zu vollziehen was der Code macht.

Die Main ist der Hauptbestandteil des Codes. In ihr werden alle Entscheidungen getroffen; sie 'mainagt' das Ganze

PS die Sub Refreshz muß auch als solche benannt werden 'Refreshz: ... Return' .
Außerhalb der Main sollten keine Befehle alleine stehen, die würden nie ausgeführt.

Beim Start (vor der Main könnte) die Tastanaus aufgerufen werden. Sie startet dann die Heizung und das Warten . Allerdings ist dann 00:04:00 , solange die Zeit nicht von woanders eingegangen ist (Rtc)

delatube wrote:

'Ddrc = 1? 'Ausgangspulse anschalten
'Pinresthour10 = 'Resetpuls anschalten -> was ist damit?

DdrC = 1 würde nur ein Portc.0 als Ausgang freigeben,
Pinresthour10 braucht da nicht beachtet werden, er wurde nicht abgeschaltet und die Zehner Röhre ist sowieso 0

Müsste der abgeschaltet werden? Schadet es der Schaltung wenn dort ein Puls auftritt solange sie keine Spannung hat? (Reset DdrB.0)

delatube · Nov 21st 2024, 8:54am

Okay, dankeschön fürs Durchsehen und ja, denke auch, die Übersichtlichkeit ist erstmal die, mit der ich selbst gut zurecht komme und die mir hilft. Ich habe da für das Projekt einen Zwischenweg genommen.

Ich schau mir alles mal an und ändere es entsprechend. Dazu habe ich aber Fragen:

Woher weißt Du, dass 'ddrc=31' den Port wieder einschaltet, also woher kommt die 31? Habe im Datenblatt und der Hilfe geschaut, konnte aber nichts finden.

Warum sollten die Ausgänge auf Eingang (und nicht einfach ab-) geschaltet werden? Der Schaltung schadet es zumindest nicht, wenn Pulse auftreten obwohl die Röhren keine Anoden- und/oder Heizspannung haben. Die gehen einfach verloren. Wie könnten sich denn die Pulse aus Sectic und Refreh gegenseitig stören?

Was hat es mit der Variablen Aufwaerm auf sich? Die kommt ja nur in der Sub Tastanaus vor und sonst nirgends. Was kann man mit der machen? In Deinem Beitrag #61 ist dazu ein Codeschnipsel, den ich aber offensichtlich gar nicht beachtet habe. Fehlt der noch? Das verwirrt mich...

Könntest Du das bitte nochmal erklären zusammen auch mit den Hinweisen in Deinem Beitrag #61? Da bringst Du ein 'Aufwaerm =3' ins Spiel.

Mitch64 · Nov 21st 2024, 4:16pm

delatube wrote:

Woher weißt Du, dass 'ddrc=31' den Port wieder einschaltet, also woher kommt die 31? Habe im Datenblatt und der Hilfe geschaut, konnte aber nichts finden.

Da sind wir wieder bei der Übersichtlichkeit des Programms

Anstatt DDRC = 31 ' (dezimal)
wäre Hex oder binäre Schreibweise deutlicher gewesen.

DDRC = &h1F ' (hex)
DDRC = &b0001_1111 ' (binär), da sieht man die einzelnen Bits

Gemeint damit sind die Bits am Port C, die als Ausgang (1) geschaltet werden sollen.

Dabei fällt mir auf, dass der Wert offensichtlich falsch ist. Am Port C sind 6 Puls-Pins, die gesetzt oder gelöscht werden müssen.

Genaus so schleichen sich Fehler ein, die man dann mühsam sucht, weil für den Compiler ist das ok.

Richtig müsste es wohl eher
DDRC = &b0011_1111 ' bzw.
DDRC = &b0000_0000
heißen.

Aber es ist Vorsicht geboten.
Wenn nämlich der Controller oder der Port gewechselt wird. Wenn dann dort alle 8 Pins verwendet werden. Dann könnte das so Probleme machen.
Besser nur die Pins schalten, die auch tatsächlich geschaltet werden sollen, und nicht der ganze Port. Die anderen Pins sollte man unverändert lassen.

Über eine Routine, wie ich es in Post #62 vorgeschlagen habe, wäre das auch bei Port oder Controller-Wechsel kein Problem.
Zwar mehr schreibarbeit, dafür sicherer. Was für einen Anfänger sicherlich ein Vorteil ist.

Fehlersuchen geht länger als etwas mehr schreiben.

Soviel zur Übersicht und Lesbarkeit des Programms.

Alternativ gibt es auch noch die Befehle Bits() und NBits().
Damit können die Pins auch geschaltet werden.

z.B.
PortC = Bits(pinSec01, pinSec10, pinMin01, pinMin10, pinStd01, pinStd10) ' hier werden die benötigten an, die anderen ausgeschaltet.

Besser:
PortC = PortC Or Bits(pinSec01, pinSec10, pinMin01, pinMin10, pinStd01, pinStd10) ' hier werden wirklich nur die benötigten Pins eingeschaltet.

Beim Abschalten muss man mit NBits und And verfahren.

Pluto25 · Nov 21st 2024, 7:04pm

delatube wrote:

Warum sollten die Ausgänge auf Eingang (und nicht einfach ab-) geschaltet werden?

Das auf Eingang schalten ist einfacher. Andernfalls müsste die Sectic prüfen ob er in der Aufwärmphase ist
und solange die Ausgänge nicht schalten. Würden sie einfach weiterpulsen wird es beim wachwerden der Röhren zu Unklarheiten kommen: Ab wann zählt sie wirklich ? 0,1 Sekunden nachdem die Anodenspannung geschaltet wurde oder erst 2 Sekunden später? Wenn die Pins erst vor dem Refreshz auf Ausgang gesetzt werden kann da keine vorher Zählen.

Das Aufwarm ist dazu gedacht das die Main weis in welcher Phase der Aufwärmvorgang sich befindet. Damit sie nichts doppelt ausführt. Bei der Anodenspannung ist das noch egal: 'anner' als an wird die nicht.

Aber das Pulsen darf nicht mehrfach passieren.

Es könnte in der Main z.B. als Select Case verwendet werden:

Source Code

Vor der Main:
Pinanodenspannung Alias Portb.2
Set Pinanodenspannung 'Wichtig Anodenspannung Aus
Config Pinanodenspannung = Output 'Anodenspannung An/Aus
Pinheizung Alias Portb.3
Config Pinheizung = Output 'Heizung An
Aufwarm = 1 'Vorheizen
Warmzeit = 0
...
'In der Main:
Case Select Aufwarm
'Case Is = 0 'Röhren sind aus
Case Is = 1 'Heizung ist an, warte bis
If Warmzeit = 220 Then '3,5 Minuten nach dem Wiedereinschalten
Reset Pinanodenspannung 'Anodenspannung an
Aufwarm = 2
End If
Case Is = 2 'Heizung und Spannung sind an, warte bis
If Warmzeit = 240 Then '4 Minuten nach dem Wiedereinschalten
Do 'Warte auf Halbsec
If Tccr2 = 0 Then Exit Do 'Nicht falls der Timer steht
Loop Until Timer2 > Ocr2
Ddrc = $3f 'Ausgänge aktivieren
Gosub Refresh 'Richtige Zeit pulsen
Aufwarm = 3 'Röhren in Betrieb
End If
End Select

Display All

Das Tccr2 besagt in welchen Zustand der Timer2 ist. Ein 'If Timer2 = gestoppt' kennt Bascom nicht.

Diese Abfrage ist wichtig, denn bei ungünstigen Tastendruck könnte der Timer stehen und dann würde die Loop nie aufhören. (ohne Watchdog)

Mitch64 wrote:

dass der Wert offensichtlich falsch ist. Am Port C sind 6 Puls-Pins

Klar, die Uhrzeit hat auch 6 Röhren nicht 5 a_45_132ca9f5

daher 63 nicht 31.
Der Port ist glücklich gewählt Bit 6 und 7 sind nicht vorhanden. Daher ist es einfach den gesamten Port zu schalten DDRC=0 oder 255 ohne Komplikationen zu erwachten. In dem Fall würde das auch mit PortB gehen da seine 6 und 7 vom Quarz belegt sind. (sollten die Röhren daran hängen)

@ Delatube, ist die Platine schon fertig? Anderenfalls wäre es wirklich eine Überlegung wert die Röhren mit dem Port B zu Pulsen. Dann würden C4 und C5 frei um eine I2C-RTC dran zu hängen.

Der Probelauf zeigte ein Problem in der Tastanaus (der Pin ist dann immer 0) Vielleicht so:

Source Code

Tastanaus:
If Aufwarm = 0 Then 'Röhren sind aus
Reset Pinheizung 'Heizung an
Aufwarm = 1 'Vorheizen
Warmzeit = 0 'ohne dem ist der Warmzeit irgendwas
Else
Ddrc = 0 'Ausgangspulse abschalten
Set Pinanodenspannung 'Anodenspannung aus (High=Aus)
Set Pinheizung 'Heizung aus (High=Aus)
Aufwarm = 0 'Röhren abgeschaltet
End If
Return

Display All

So kann zwar der Aufheizvorgang abgebrochen werden jedoch hat man keine Kontrolle über dem Zustand falls er mehrfach gedrückt wird (in den ersten 4 Minuten) Vielleicht ein~~e Led?~~ Schalter? Zweiter Taster?

delatube · Nov 22nd 2024, 8:22am

Pluto25 wrote:

Ab wann zählt sie wirklich ? 0,1 Sekunden nachdem die Anodenspannung geschaltet wurde oder erst 2 Sekunden später?

Soweit ich es beurteilen kann, zählt die Röhre wenn sie gut aufgewärmt ist, nahezu sofort.

Pluto25 wrote:

Es könnte in der Main z.B. als Select Case verwendet werden:

Dann baue ich das im Code entsprechend um und ein.

Pluto25 wrote:

@ Delatube, ist die Platine schon fertig? Anderenfalls wäre es wirklich eine Überlegung wert die Röhren mit dem Port B zu Pulsen. Dann würden C4 und C5 frei um eine I2C-RTC dran zu hängen.

Die Platine ist soweit eigentlich fertig, da als Projekt aktuell auf Lochraster, sind kleine Änderungen zwar möglich, aber der Platz zum Verschieben usw. ist dennoch begrenzt. Was konkret hätte die I2C-RTC für einen Vorteil für die Schaltung/Anwendung?

Pluto25 wrote:

So kann zwar der Aufheizvorgang abgebrochen werden jedoch hat man keine Kontrolle über dem Zustand falls er mehrfach gedrückt wird (in den ersten 4 Minuten) Vielleicht eine Led? Schalter? Zweiter Taster?

Ohh, okay. D.h. heißt also, der Taster schaltet ab und bei nochmaligem Drücken wieder an (Aufheizen -> Anodenspannung -> Refresh) aber es ist unklar, was passiert wenn ich ihn genau in der Aufwärmzeit nochmals drücke? Einen weiteren Taster würde ich mir gern sparen. Es sind ja jetzt schon 5 (Stellen S, M, H, Reset, Tastanaus). Wir würde das ganze mit Schalter aussehen müssen? Der Code könnte dann so bleiben, oder?
Mir lieber wäre es mit Taster. Wäre es hier als Kompromiss möglich (und wenn wie? Vielleicht den entsprechenden Pin auf Ausgang schalten solange Warmzeit läuft?) den Taster solange zu sperren wie der Aufheizvorgang läuft bzw. der Refresh gelaufen ist und erst wenn das alles abgeschlossen ist wieder frei zu geben? Klar, es ist nicht super nutzerfreundlich und man müsste dann immer warten, aber ich finde das klarer und sicherer als das irgendwas unvorhergesehenes passiert. Oder?

Pluto25 · Nov 22nd 2024, 3:28pm

delatube wrote:

zählt die Röhre wenn sie gut aufgewärmt ist, nahezu sofort.

sind 100ms? Dann könnte die Anodenspannung (nach einem Halbsec) 100ms vor dem Refresh eingeschaltet werden. Vom Timing kann das klappen: Das Refresh braucht <100ms maximal. Nach dem Halbsec dauert es eine knappe halbe Sekunde (oder länger wenn OCR2 kleiner würde) bis der nächste Puls kommt. Dann könnten die Ausgänge aktiv bleiben. Dennoch ein mulmiges Gefühl eine spanungslosen Schaltung mit der vollen Kraft eines/mehrere Ausgang an zu steuern

delatube wrote:

was passiert wenn ich ihn genau in der Aufwärmzeit nochmals drücke?

wenns nur einmal ist schaltet er wieder ab, beim nächsten mal beginnt der Aufheizvorgang von vorn, schlecht nur wenn die Anzahl unbekannt ist (Vertippt, Katze ...)

delatube wrote:

Pin auf Ausgang schalten solange Warmzeit läuft?)

Das geht nicht: der Taster würde den Ausgang kurzschliessen

aber die Tastanaus würde trotzdem ausgeführt. Blockieren bzw eine Reaktion verhindern geht: einfach das else durch elseif Auwarm=3 then ersetzen. Dann prüft er vor dem Ausschalten ob sie wirklich durchgestartet sind.
Ein Schalter hätte eine erkennbare Stellung.
~~Eine weiteren Pin schalten würde auch gehen.~~ Die Röhrenheizung wird ja schon geschaltet, die könnte z.B. zwei Glimmlämpchen zwischen Stunden/Minuten und Minuten/Sekunden schalten?
Eine Rtc könnte die Zeit behalten, solange er abgeschaltet ist. Nützlich bei Stromausfall.

delatube · Nov 23rd 2024, 2:09pm

...hauptsächlich aber nicht nur @Pluto25: Weitere Fragen heute mit Bitte um Hilfe sowie Antworten. Das Zusammenbauen des Codes mit den vielen neuen Schnipseln fällt mir schwer...

Pluto25 wrote:

sind 100ms? Dann könnte die Anodenspannung (nach einem Halbsec) 100ms vor dem Refresh eingeschaltet werden.

Denke ja, das sollte passen. Wie sähe das Einschalten dann aus?

Pluto25 wrote:

Der Probelauf zeigte ein Problem in der Tastanaus (der Pin ist dann immer 0) Vielleicht so:

Ein Verständnisfrage zum Taster 'PinTastonoff' und zur Sub 'Tastanaus'. Ich kann nicht nachvollziehen, das der Pin in Deinem neuen Code (siehe nachfolgend) nicht mehr direkt abgefragt wird a la "If pinTastonoff ...then". Der Taster taucht ja gar nicht mehr als Alias oder als Portpin in der Tastanaus-Sub oder irgendwo anders auf außer oben in der Deklaration. Was sehe ich hier oder verstehe ich da nicht?

Source Code

Tastanaus:
If Aufwarm = 0 Then 'Röhren sind aus
Reset Pinheizung 'Heizung an
Aufwarm = 1 'Vorheizen
Warmzeit = 0 'ohne dem ist der Warmzeit irgendwas
Else
Ddrc = 0 'Ausgangspulse abschalten
Set Pinanodenspannung 'Anodenspannung aus (High=Aus)
Set Pinheizung 'Heizung aus (High=Aus)
Aufwarm = 0 'Röhren abgeschaltet
End If
Return

Display All

Pluto25 wrote:

Dennoch ein mulmiges Gefühl eine spanungslosen Schaltung mit der vollen Kraft eines/mehrere Ausgang an zu steuern

Vielleicht sehe ich die Gründe für Deine Bedenken nicht, aber die Schaltung und auch die Röhren sind robust. Warum spannungslos? Die Anodenspannung wird doch jetzt immer vor irgendeinem Pulsen, egalt ob aus der Sub Sectic oder Refresh eingeschaltet (und wenn die Röhren aufgeheizt sind), oder?

Pluto25 wrote:

wenns nur einmal ist schaltet er wieder ab, beim nächsten mal beginnt der Aufheizvorgang von vorn, schlecht nur wenn die Anzahl unbekannt ist (Vertippt, Katze ...)

Ob die Röhren heizen oder nicht ist nach einigen Sekunden erkennbar am Glimmen der Kathodenheizung innerhalb der Röhre. Das ist eigentich ein guter Marker. Ggf. wäre aber auch eine LED interessant, die solange rot ist bis der Aufheizvorgang abgeschlossen ist.

Pluto25 wrote:

Eine Rtc könnte die Zeit behalten, solange er abgeschaltet ist. Nützlich bei Stromausfall

Diese Option ist interessant, möchte ich aber gern erstmal zurückstellen bis alles andere funktioniert.

Pluto25 · Nov 23rd 2024, 5:02pm

delatube wrote:

Was sehe ich hier .... nicht?

Das er zum Debonce genutzt wird: Zeile 50: Debounce Pintastonoff , 0 , Tastanaus , Sub
Und die ruft immer die Tastanaus auf sobald der 0 wird. Innerhalb der Tastanaus muß klar sein ob sie an oder ausschalten soll nicht ob der Taster noch gedrückt gehalten ist. Man müsste auch superschnell wieder loslassen damit er zu dem Zeitpunkt wieder 1 wäre a_38_b45e201d

Wenn die Schaltung und der AVR überleben ist es egal ob mir mulmig ist

Wichtig, das Du beim arbeiten an der Röhrenschaltung bedenkst das da noch ein AVR lebt der keinen Kurzschluss oder Fremdspannung bekommen sollte.
Eine Led in einer Röhrenschaltung

Dat jeht ga nich

delatube wrote:

gern erstmal zurückstellen

Erscheint mir auch sinnvoll. Jedoch ist noch viel Flash frei und irgendwas fällt einem immer ein. Dann ist es einfacher wenn die Pins, die man brauchen würde, noch gut erreichbar sind. z.B auch D0 und D1. Die gehören zum Usart, falls er sich die Zeit aus dem Internet holen soll oder Bluetooth braucht.

Oder sich die GPS Zeit holt: Insanity hat eben im Nachbarthreat eine Möglichkeit vorgestellt :thumbup:

delatube · Nov 23rd 2024, 5:24pm

Pluto25 wrote:

Das er zum Debonce genutzt wird: Zeile 50:

Danke, das leuchtet ein und habe ich einfach übersehen die Beziehung und Funktion von Debounce und der Sub.

Pluto25 wrote:

Wenn die Schaltung und der AVR überleben ist es egal ob mir mulmig ist Wichtig, das Du beim arbeiten an der Röhrenschaltung bedenkst das da noch ein AVR lebt der keinen Kurzschluss oder Fremdspannung bekommen sollte.

Eine Überlegung wäre es, die Ausgänge nach dem Atmega bevor es in die Schaltung geht mit Dioden abzublocken, so dass keine (positive) Fremdspannung zum mC kommen könnte, im Fall der Fälle.

Pluto25 wrote:

Eine Led in einer Röhrenschaltung Dat jeht ga nich

Ja, sichtbares Silizium einzubauen, dazu müsste ich mich wirklich selbst überreden, aber wenn das hinten bei der entsprechenden Taste wäre als zeitweises Signal, könnte ich damit leben.

Dann baue ich den Code und die Hardware der Platine mal zurecht und werde berichten.

By the way. Gibt es eine gute Anleitung zum Benutzen des Simulators in Bascom AVR? Ich komme mit den Funktionen und Möglichkeiten nicht klar.

Pluto25 · Nov 23rd 2024, 6:50pm

Da gibt die Hilfe nicht viel her. Ich hab wild drauflos getippt und irgendwann ergab sich der Sinn/die Funktion.
Ich nutze den vierten Button (neben Start, Pause und Stop) Einzelschritt sehr oft. Eigentlich immer den (missverständliche) 'LED'. Der öffnet eine weiteres Fenster in dem alle Port-pins dargestellt werden.
Eine real Hardware habe ich nicht, Die Register sind in dem Fall kaum interessant, die I/O schon eher.
(In TCCR2 könnte die 5 gegen eine 2 getauscht werden dann läuft der timer2 schneller) Der Memory ist hier auch weniger interessant. Wichtig ist der refresh Button (das 'Papier' mit der Hand) sonst ändern sich die angezeigten Pins nicht. Auch nicht die Variablen (die man in den gelben Feldern eingeben kann)
Das Terminal ist nützlich wenn der Simmulator einen Externen Usard ansprechen soll; wird gerade nicht gebraucht. Das Sim Timers wiederum muß angeklickt sein damit der die Timer beachtet. Leider fehlt ihm die Unterstützung des OC2

Heißt dass das Halbsec per Hand (über Interrupts / OC2) aufgerufen werden muß.
Locals gibts hier keine, die uP Reg sind zur Zeit auch nicht von Bedeutung. Das Watch auch eher nicht. Es ist nützlich wenn eine Variable "plötzlich" einen falschen Wert annimmt. Damit kann die Stelle im Code gefunden werden die sie vermasselt. Bei dem kurzen übersichtlichen Code auch eher nicht nötig.

Auch sehr nützlich sind Breakpoints. Die können gesetzt werden in dem man auf den gelben Punkt vor einer Zeile klickt und dann F9. Damit läuft das Programm solange durch bis es diese Zeile erreicht.

Der Simulator kann den Code nicht beschädigen. Von daher ruhig austoben. Das meiste erklärt sich von allein.
Falls er scheinbar nichts macht: Unten steht ob er läuft oder Pause macht. z.B. Waits brauchen viele tausende Operationen die er alle ausführt, was echt lange brauchen kann. (Während der Simulation habe ich das Waitms 100 auskommentiert)

Franz · Nov 24th 2024, 12:43am

Na ja, in der Hilfe unter BASCOM IDE -> Program Simulate steht alles, was du beschrieben hast und noch 1000 Dinge mehr.
Mit der Direktive $sim im Code wird der Compiler angewiesen, die Waits nicht zu generieren, sodass diese keinen Einfluss haben.

Pluto25 · Nov 24th 2024, 6:46am

Franz wrote:

und noch 1000 Dinge mehr.

richtig man muß nur weiter runter scrollen. a_45_132ca9f5

Ich hatte hier
Zwischenablage02.gif
aufgegeben a_71_f9c57bbe