Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Statistikdaten am Ende des USERFLASHs lesen Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 30.08.2025 14:52)
 Als Antwort auf Statistikdaten ans Ende des USERFLASHs kopieren von Dietmar - 30.08.2025 14:48
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
' -----------------------------------------------------------------------
' Statistik-Challenge: Auswertung Aufrufzahlen des C-Control/Intern Forum
' von Beitrag 1 bis 18165 - mit ansteigender Funktionalitaet. Mitmachen!
' Unter 1,6 Sekunden bleiben. Weitere Informationen im Forum (siehe Link).
' Link: https://ccintern.dharlos.de/forum/lesen.php?eintrag=18200
' ------------------------------------------------------------------------

' Statistikdaten am Ende des USERFLASHs lesen. Von Dietmar.

'option OPENMAXI
INCLUDE "omax.def"              'Definitionen fuer die Open-Maxi

' ------------------------------------------------------------------------

DEFINE ANZBEITRAEGE 18165       'Hier Anzahl der Beiträge definieren

DIM adr WORD
DIM beitragsnummer WORD

' ------------------------------------------------------------------------

#MARK_CODE_START
End2Host=ON

?"FSTATLES.BAS ":? 'Erste PRINT String Anweisung im Quelltext als Label nutzen (Lbit-Konvention).

adr=&hfe00-3-ANZBEITRAEGE*2-2   'Die Startadresse der Tabelle am FLASH-Ende

IF PEEKW(adr)<>ANZBEITRAEGE THEN
  ?"Statistiktabelle am Ende des FLASHs nicht gefunden oder korrupt!"
  END
ELSE
  ?"Statistiktabelle am Ende des FLASHs gefunden."
END IF

FOR beitragsnummer=1 TO 10
  ?PEEKW(adr+beitragsnummer*2)
NEXT beitragsnummer

?"Programmende."
END

' ----------------------------------------------------------------------


Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten: