XProfan

English

Jens
Tiburski

Hello people,

the following trouble: my Program is now as engineering-demonstration ready ... but now falls me on, that if the Program minimizes becomes - circa z.b. in another window To works - and one it then again opens comes it regelmässig To general schutzverletzungen in the profane-kernal and the Program crashes!

the Program is in ogl 1 written what about me use win ME ...
Perhaps knows someone The cause the fehlers?!

thank you very much beforehand

jens tiburski

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

04/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
Sprenger

Hello Jens,
using You Perhaps Arrays in Context with the OGL-functions StartTest and EndTest?
in the OGLBasic-example planets zurück namely too Schutzverletzungen through minimize on. How I end feststellte, can EndTest too The number -1 spend (the has it to the minimize well too done); The Schutzverletzung watts useful through names$[-1] causes (what Yes anyhow not functions can).
If the with you but not the trouble is, poste still time a Codeausschnitt, in the The Schutzverletzung appears. The response can one therefore leichter entrapments...
Greeting, 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

04/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jens
Tiburski

hi sebastian - i think there could the trouble lying ... anyway use I sowohl names$[45] as well as oGL(StartTest, %MouseX, %MouseY) and Let Text$ = names$[oGL(EndTest)] . The question is now, how can to the trouble to fix?

jens tiburski

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

04/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
Sprenger

Hi,
two Opportunities:

1. You save the Result of EndTest in a temporary Variable ex and examine first, whether it larger as or same zero is. if so, then can you these number on the aray utilize, and unless, do You it even not:

Compile Mark Separation

a% = oGL(EndTest)

if a% >= 0

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

else

    Mach_gar_nichts

CompileMarkSeparationnames$[0] = <nothing>
namen$[1] = sun
namen$[2] = moon
namen$[3] = stars
[...]
Let Text$ = names$[oGL(EndTest) + 1]

Greeting, Sebastian