Framesizes überprüfen
Eine private Website zum Bilder und anderes zeigen ...
K
P

Speichergrößen (Frame, SW/HW-Stack) überprüfen

am Anfang einfügen:

Const _do_stackcheck = 1
$hwstack = 500                                ' erst mal etwas größer anfangen
Const _my_framesize = 1000
$framesize = 1000                             ' gleich zu $Framesize!!!!!!!!!!!!!
$swstack = 500                                ' erst mal etwas größer anfangen

#if _do_stackcheck = 1
  Declare Sub Outputstackvalues
  $lib "stackcheck.lib"

   $hwcheck
   $softcheck
   $framecheck
#endif

 weiter unten bei den weiteren Funktionen:

#if _do_stackcheck = 1
Sub Outputstackvalues
Local Sc As Word
      Sc = _hwstackstart - _hw_lowest
      Tempstring = "H/F/S" + Str(sc ) + "/"

      Sc = _frame_high - _fw_highest
      Sc = _my_framesize - Sc                    ' ohne Korrektur wird verbleibender Platz angezeigt...
      Tempstring = Tempstring + Str(sc ) + "/"


      Sc = _hwstack_low - _sw_lowest
      Tempstring = Tempstring + Str(sc )
      Call Debugout(tempstring )

End Sub
#endif
  • Tempstring muß deklariert sein (String*120 oder so)
  • DebugOut gibt Text auf geeignete Ausgabe aus (z.B. Print auf serielle Schnittstelle zum Monitoren auf PC oder LCD-Ausgabe...)
  • dann ab und zu Call OutputStackValues aufrufen und Werte überprüfen (Sollte die voreingestellten nicht überschreiten....)

 

 

Powered by websitebaker, (c) by C. Lotze, based on a design by Chio Maisriml Nutzung der Texte oder Bilder - auch teilweise - nur nach Rücksprache, siehe Impressum!