XProfan

Italia

Jens
Tiburski

hallo leute,

folgendes problem: mein programm ist jetzt als technik-demo fertig ... aber nun fällt mir auf, dass wenn das programm minimiert wird - um z.b. in einem anderen fenster zu arbeiten - und man es dann wieder öffnet kommt es regelmässig zu allgemeinen schutzverletzungen im profan-kernal und das programm stürzt ab!

das programm ist in ogl 1 geschrieben und ich verwende win ME ...
vielleicht kennt jemand die ursache des fehlers?!

vielen dank im voraus

jens tiburski

Ich bin nicht faul - ich schütze mich nur instinktiv vor Stress!! [...]

14.04.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Sebastian
Sprenger

Hallo Jens,
benutzt du vielleicht Arrays in Zusammenhang mit den OGL-Funktionen StartTest und EndTest?
Im OGLBasic-Beispiel Planeten treten nämlich auch Schutzverletzungen durch Minimieren auf. Wie ich am Ende feststellte, kann EndTest auch die Zahl -1 ausgeben (das hat es nach dem Minimieren wohl auch getan); die Schutzverletzung wurde praktisch durch namen$[-1] verursacht (was ja sowieso nicht funktionieren kann).
Wenn das bei dir aber nicht das Problem ist, poste doch mal einen Codeausschnitt, in dem die Schutzverletzung auftritt. Die Antwort kann einem dadurch leichter fallen...
Saluto, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

14.04.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jens
Tiburski

hi sebastian - ich denke da potuto das problem liegen ... jedenfalls verwende ich sowohl Namen$[45] als auch oGL(StartTest, %MouseX, %MouseY) und Let Text$ = namen$[oGL(EndTest)] . die frage ist nun, wie kann man das problem beheben?

jens tiburski

Ich bin nicht faul - ich schütze mich nur instinktiv vor Stress!! [...]

15.04.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Sebastian
Sprenger

Ciao,
zwei Möglichkeiten:

1. Du speicherst das Ergebnis von EndTest in un temporäre Variable ab und prüfst erstmal, ob es größer als oder gleich null ist. Wenn ja, dann kannst du diese Zahl auch auf das Array anwenden, und wenn nicht, tust du es eben nicht:

Kompilieren Markieren Separieren

a% = oGL(EndTest)

if a% >= 0

    Let Text$ = namen$[a%]
    Mach_irgendetwas_mit Text$

else

    Mach_gar_nichts

KompilierenMarkierenSeparierennamen$[0] = <nichts>
namen$[1] = Sonne
namen$[2] = Mond
namen$[3] = Sterne
[...]
Let Text$ = namen$[oGL(EndTest) + 1]

Saluto, Sebastian