Fehlermeldung von Windows7

Sujet: Fehlermeldung von Windows7 Mer 12 Jan 2011 - 3:46

Hallo an alle,
ich habe wieder eine Windows Fehlermeldung. Wenn man Menüe "Einstellung" aufruft und dann schließt
kommt diese Meldung. Aber erst als ich "delete" in dem Subprogramm eingfügt hatte.
Severin

Bonjour à tous,
J'ai un autre message d'erreur Windows. Si vous menu "Einstellung", puis appelle à proximité
est le message. Mais seulement quand je "delete " avait eingfügt dans le sous-programme.
Severin

ab Zeile 1438

BUTTONzuruek:
command_target_is Form_Nr%
Button 8001
top 8001,INT(screen_y-screen_y + (screen_y/35)*29)
left 8001,INT(screen_x-screen_x + 30)
width 8001,85
height 8001,25
SCHRIFTART = 8001
Gosub Schriftart11F
caption 8001,"zurück"
hint 8001,"beenden und zum Hauptmenü zurück"
on_click 8001, WEITER981
end
WEITER981:
command_target_is Form_Nr%
delete 8001 <---------
return

Code:: REM LABEL FÜR HAUPTMENÜ DEFINIEREN
'
label Zahl340:label Zahl341:label Zahl342:label Zahl343:label Zahl344
label Zahl345:label Zahl346:label Zahl347:label Zahl348:label Zahl349
' ***
label Zahl350:label Zahl351:label Zahl352:label Zahl353:label Zahl354
label Zahl355:label Zahl356:label Zahl357:label Zahl358:label Zahl359
'
label Zahl360:label Zahl361:label Zahl362:label Zahl363:label Zahl364
label Zahl365:label Zahl366:label Zahl367:label Zahl368:label Zahl369
' *** DRUCKEN
label Zahl370:label Zahl371:label Zahl372:label Zahl373:label Zahl374
label Zahl375:label Zahl376:label Zahl377:label Zahl378:label Zahl379
label Zahl390:label Zahl391:label Zahl392:label Zahl393:label Zahl394
label Zahl395:label Zahl396:label Zahl397:label Zahl398:label Zahl399
' ***
label Zahl380:label Zahl381:label Zahl382:label Zahl383:label Zahl384
label Zahl385:label Zahl386:label Zahl387:label Zahl388:label Zahl389
' *** EINSTELLUNGEN
label Zahl520:label Zahl521:label Zahl522:label Zahl523:label Zahl524
label Zahl525:label Zahl526:label Zahl527:label Zahl528:label Zahl529
' *** INFO
REM LABEL UND VARIABELE FÜR UNTERFORMEN ANLEGEN
'
DIM Form_Nr%
'
Label MMneuanlegen:Label MMbearbeiten:Label MMdrucken:Label MMerklaeren
Label Einstellungen:Label Info:Label Menueschliessen:Label BUTTONzuruek
label RAHMENAUFFORM01:label RAHMENAUFFORM02:label RAHMENAUFFORM03
label RAHMENAUFFORM04:label RAHMENAUFFORM05:label RAHMENAUFFORM06
label MITTELLINIEAUFFORM01
label SCHRIFTART09N:label SCHRIFTART10N:label SCHRIFTART11N:label SCHRIFTART12N
label SCHRIFTART09F:label SCHRIFTART10F:label SCHRIFTART11F:label SCHRIFTART12F
label SCHRIFTART15F
label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU:label SCHRIFTART12FU
label SCHRIFTART15FU
'
label WEITER005
label WEITER006
label WEITER009:label WEITER010
label WEITER011:label WEITER012:label WEITER013:label WEITER014:label WEITER015
label WEITER016
'
label Startwert:label werfen:label Wuerfel
'
label WEITER981
'
REM REAL "12,789" VARIABLEN DEFINIEREN
DIM ZAEHLENi
DIM Bildbreite
DIM Bildhoehe
DIM ZUFALL_A :ZUFALL_A = 214013
DIM ZUFALL_C :ZUFALL_C = 2531011
DIM ZUFALL_Z :ZUFALL_Z = 16777216
DIM TEST
'
REM INTEGER "%" VARIABLEN DEFINIEREN
DIM i%
DIM hoehe%
DIM links%
DIM SCHRIFTART
DIM Nachricht%
'
REM ZUFALLSZEITEN VARIABLEN DEFINIEREN
DIM ZUFALL_HFGK_f%
DIM ZUFALL_ANZAHL_nt%
DIM ZUFALL_ZAEHL_i%
DIM ZUFALL_d%
DIM ZUFALL_n%(6)
DIM ZUFALL_chi2
DIM ZUFALL_diff
DIM ZUFALL_X_POS
DIM ZUFALL_TEXT$(60)
DIM zufall_ZAEHLEN_01%
DIM zufall_ZAEHLEN_02%
DIM zufall_ZAEHLEN_03%
DIM Sprung02
DIM ZUFALL_TEXT1$
DIM ZUFALL_TEXT1
DIM ZUFALL_WUERFEL%
DIM ZUFALL_START%
DIM edit$
DIM Textlaenge
DIM Charakter$
DIM code
DIM WERT1
REM
REM Technischer Rechner VARIABLEN und Labels DEFINIEREN
DIM KALK_i%
DIM variable$
DIM expression$
DIM value
DIM result
REM FESTE TEXTVARIABLEN AUF FORMEN DEFINIEREN
DIM FORM_TEXT$(9999)
'
DIM FORM_TEXT000$:FORM_TEXT000$ = " - PC-Zeit Programme - "
'
FORM_TEXT$(1350) = " - MM - Studie - 0. Projekt Neu anlegen"
FORM_TEXT$(1351) = " - MM - Studie - 1. Arbeitsplätze Neu anlegen"
FORM_TEXT$(1352) = " - MM - Studie - 2. Beobachtungsumfang Neu bestimmen"
FORM_TEXT$(1353) = " - MM - Studie - 3. Rundgangsplan Neu erstellen"
FORM_TEXT$(1354) = " - MM - Studie - 4. Rundgangszeiten Neu ermitteln"
FORM_TEXT$(1355) = " - MM - Studie - 5. Vorkommnisse Neu anlegen"
FORM_TEXT$(1356) = " - MM - Studie - 6. Erläuterungen zur MM-Studie "
FORM_TEXT$(1357) = " - MM - Studie - 7. Frei"
FORM_TEXT$(1358) = " - MM - Studie - 8. Frei"
FORM_TEXT$(1359) = " - MM - Studie - 9. Frei"
'
FORM_TEXT$(1360) = " - MM - Studie - 0. Projekt Öffnen / ändern"
FORM_TEXT$(1361) = " - MM - Studie - 1. Arbeitsplätze Öffnen / ändern"
FORM_TEXT$(1362) = " - MM - Studie - 2. Beobachtungsumfang Öffnen / ändern"
FORM_TEXT$(1363) = " - MM - Studie - 3. Rundgangsplan Öffnen / ändern"
FORM_TEXT$(1364) = " - MM - Studie - 4. Rundgangszeiten Öffnen / ändern"
FORM_TEXT$(1365) = " - MM - Studie - 5. Vorkommnisse Öffnen / ändern"
FORM_TEXT$(1366) = " - MM - Studie - 6. Frei"
FORM_TEXT$(1367) = " - MM - Studie - 7. Frei"
FORM_TEXT$(1368) = " - MM - Studie - 8. Frei"
FORM_TEXT$(1369) = " - MM - Studie - 9. Frei"
'
FORM_TEXT$(1370) = " - MM - Studie - 00. Projekt Drucken"
FORM_TEXT$(1371) = " - MM - Studie - 01. Arbeitsplätze Drucken"
FORM_TEXT$(1372) = " - MM - Studie - 02. Beobachtungsumfang Drucken"
FORM_TEXT$(1373) = " - MM - Studie - 03. Rundgangsplan Drucken"
FORM_TEXT$(1374) = " - MM - Studie - 04. Rundgangszeiten Drucken"
FORM_TEXT$(1375) = " - MM - Studie - 05. Vorkommnisse Drucken"
FORM_TEXT$(1376) = " - MM - Studie - 06. Frei"
FORM_TEXT$(1377) = " - MM - Studie - 07. Frei"
FORM_TEXT$(1378) = " - MM - Studie - 08. Frei"
FORM_TEXT$(1379) = " - MM - Studie - 09. Aufnahmebogen Drucken"
FORM_TEXT$(1390) = " - MM - Studie - 10. Projekt Drucken"
FORM_TEXT$(1391) = " - MM - Studie - 11. Arbeitsplätze Drucken"
FORM_TEXT$(1392) = " - MM - Studie - 12. Beobachtungsumfang Drucken"
FORM_TEXT$(1393) = " - MM - Studie - 13. Rundgangsplan Drucken"
FORM_TEXT$(1394) = " - MM - Studie - 14. Rundgangszeiten Drucken"
FORM_TEXT$(1395) = " - MM - Studie - 15. Vorkommnisse Drucken"
FORM_TEXT$(1396) = " - MM - Studie - 16. Frei"
FORM_TEXT$(1397) = " - MM - Studie - 17. Frei"
FORM_TEXT$(1398) = " - MM - Studie - 18. Frei"
FORM_TEXT$(1399) = " - MM - Studie - 19. Aufnahmebogen Drucken"
'
DIM FORM_TEXT380$:FORM_TEXT380$ = " - MM - Studie - 0. Frei"
DIM FORM_TEXT381$:FORM_TEXT381$ = " - MM - Studie - 1. Frei"
DIM FORM_TEXT382$:FORM_TEXT382$ = " - MM - Studie - 2. Beobachtungsumfang Erläutern"
DIM FORM_TEXT383$:FORM_TEXT383$ = " - MM - Studie - 3. Frei"
DIM FORM_TEXT384$:FORM_TEXT384$ = " - MM - Studie - 4. Rundgangszeiten Erläutern"
DIM FORM_TEXT385$:FORM_TEXT385$ = " - MM - Studie - 5. Würfelspiel mit Zufallszahlen"
DIM FORM_TEXT386$:FORM_TEXT386$ = " - MM - Studie - 6. Frei"
DIM FORM_TEXT387$:FORM_TEXT387$ = " - MM - Studie - 7. Frei"
DIM FORM_TEXT388$:FORM_TEXT388$ = " - MM - Studie - 8. Frei"
DIM FORM_TEXT389$:FORM_TEXT389$ = " - MM - Studie - 9. Lotto 6 aus 49"
'
FORM_TEXT$(1520) = " - Einstellungen - 0. Form 021 --"
FORM_TEXT$(1521) = " - Einstellungen - 1. Form 021 --"
FORM_TEXT$(1522) = " - Einstellungen - 2. Form 021 --"
FORM_TEXT$(1523) = " - Einstellungen - 3. Form 021 --"
FORM_TEXT$(1524) = " - Einstellungen - 4. Form 021 --"
FORM_TEXT$(1525) = " - Einstellungen - 5. Form 021 --"
FORM_TEXT$(1526) = " - Einstellungen - 6. Form 021 --"
FORM_TEXT$(1527) = " - Einstellungen - 7. Form 021 --"
FORM_TEXT$(1528) = " - Einstellungen - 8. Form 021 --"
FORM_TEXT$(1529) = " - Einstellungen - 9. Form 021 --"
'
REM FESTE TEXTVARIABLEN AUF FORMEN DEFINIEREN
DIM TEXT_AUF_FORM$(100)
TEXT_AUF_FORM$(031) = "Erläuterung von Zufallzahlen"
TEXT_AUF_FORM$(032) = "----------------------------"
TEXT_AUF_FORM$(033) = "Als Beispiel eine theoretische Simulation mit einem Würfelspiel und dem Chi² Test."
TEXT_AUF_FORM$(034) = "Zufallszahlengenerator ist - Mersenne Twister - der als einer, der zuverlässigsten gilt."
TEXT_AUF_FORM$(035) = " "
TEXT_AUF_FORM$(036) = "Simulation von Würfelspiel"
TEXT_AUF_FORM$(037) = "-----------------------------"
TEXT_AUF_FORM$(038) = " Häufigkeit von 1 = 98 erwartet 100"
TEXT_AUF_FORM$(039) = " Häufigkeit von 2 = 122 erwartet 100"
TEXT_AUF_FORM$(040) = " Häufigkeit von 3 = 97 erwartet 100"
TEXT_AUF_FORM$(041) = " Häufigkeit von 4 = 96 erwartet 100"
TEXT_AUF_FORM$(042) = " Häufigkeit von 5 = 81 erwartet 100"
TEXT_AUF_FORM$(043) = " Häufigkeit von 6 = 106 erwartet 100"
TEXT_AUF_FORM$(044) = " "
TEXT_AUF_FORM$(045) = "Der berechnete Chi² Wert beträgt 9,1"
TEXT_AUF_FORM$(046) = " "
TEXT_AUF_FORM$(047) = "Für den Vergleich zwischen der beobachteten Häufigkeit für jede Zahl und die erwartete "
TEXT_AUF_FORM$(048) = "Häufigkeit wird ein Chi² Test durchgeführt:"
TEXT_AUF_FORM$(049) = "Chi² = S i = 1 .. p (O i - C i) ² / C i "
TEXT_AUF_FORM$(050) = "wobei p die Anzahl der Klassen, O i und C i die beobachteten und berechneten Frequenzen."
TEXT_AUF_FORM$(051) = "In unserem Fall p = 6, O i = n% (i%) und C i = f%. Diese Summe hat p - 1 = 5 Freiheitsgraden."
TEXT_AUF_FORM$(052) = "Unter diesen Bedingungen ist dem kritischen Wert von Chi² mit einer Wahrscheinlichkeit"
TEXT_AUF_FORM$(053) = "von 95% überschritten 11,07. Die beobachteten Frequenzen unterscheiden sich von den "
TEXT_AUF_FORM$(054) = "theoretischen, aber der niedrige Chi²-Wert zeigt, daß diese Unterschiede statistisch "
TEXT_AUF_FORM$(055) = "nicht signifikant sind."
TEXT_AUF_FORM$(056) = " "
TEXT_AUF_FORM$(057) = "Es wird ist möglich, das Programm auszuführen mit unterschiedlichen Initialisierungen"
TEXT_AUF_FORM$(058) = "und steigende Werte von f ."
TEXT_AUF_FORM$(059) = "siehe Menüpunkt: - Würfelspiel zu Zufallszahlen - "
REM
TEXT_AUF_FORM$(060) = " - PC-Zeit Programme - "
REM
TEXT_AUF_FORM$(061) = "Zufallszahlen - Test mit einem Würfelspiel"
TEXT_AUF_FORM$(062) = "------------------------------------------"
TEXT_AUF_FORM$(063) = "Initialisieren des Zufallszahlengenerator. Probieren Sie verschiedene Werte für Startwert (max. 999),"
TEXT_AUF_FORM$(067) = "für Anzahl Würfe (max. 10.000) und für Anzahl Würfel (max. 9). Los gehts!"
TEXT_AUF_FORM$(064) = "Eingabe Startwert :"
TEXT_AUF_FORM$(065) = "Eingabe Anzahl Würfe :"
TEXT_AUF_FORM$(066) = "Eingabe Anzahl Würfel :"
TEXT_AUF_FORM$(068) = " "
REM PROGRAMM STARTEN
REM FORM 000 DEFINIEREN
color 000,0,255,0
width 000,screen_x-0
height 000,screen_y-0
caption 000,FORM_TEXT000$
border_normal 000
REM
gosub RAHMENAUFFORM01
REM
REM ALLE UNTERFORMEN ERSTELLEN / VERSTECKEN
REM
Form 1340:hide 1340:Form 1341:hide 1341:Form 1342:hide 1342:Form 1343:hide 1343
Form 1344:hide 1344:Form 1345:hide 1345:Form 1346:hide 1346:Form 1347:hide 1347
Form 1348:hide 1348:Form 1349:hide 1349
REM Multimomentstudie - Neu anlegen
Form 1350:hide 1350:Form 1351:hide 1351:Form 1352:hide 1352:Form 1353:hide 1353
Form 1354:hide 1354:Form 1355:hide 1355:Form 1356:hide 1356:Form 1357:hide 1357
Form 1358:hide 1358:Form 1359:hide 1359
REM Multimomentstudie - bearbeiten / ändern
Form 1360:hide 1360:Form 1361:hide 1361:Form 1362:hide 1362:Form 1363:hide 1363
Form 1364:hide 1364:Form 1365:hide 1365:Form 1366:hide 1366:Form 1367:hide 1367
Form 1368:hide 1368:Form 1369:hide 1369
REM Multimomentstudie - drucken
Form 1370:hide 1370:Form 1371:hide 1371:Form 1372:hide 1372:Form 1373:hide 1373
Form 1374:hide 1374:Form 1375:hide 1375:Form 1376:hide 1376:Form 1377:hide 1377
Form 1378:hide 1378:Form 1379:hide 1379:Form 1390:hide 1390:Form 1391:hide 1391
Form 1392:hide 1392:Form 1393:hide 1393:Form 1394:hide 1394:Form 1395:hide 1395
Form 1396:hide 1396:Form 1397:hide 1397:Form 1398:hide 1398:Form 1399:hide 1399
REM Multimomentstudie - erklären
Form 1380:hide 1380:Form 1381:hide 1381:Form 1382:hide 1382:Form 1383:hide 1383
Form 1384:hide 1384:Form 1385:hide 1385:Form 1386:hide 1386:Form 1387:hide 1387
Form 1388:hide 1388:Form 1389:hide 1389
REM Einstellungen für PC-Zeit
Form 1520:hide 1520:Form 1521:hide 1521:Form 1522:hide 1522:Form 1523:hide 1523
Form 1524:hide 1524:Form 1525:hide 1525:Form 1526:hide 1526:Form 1527:hide 1527
Form 1528:hide 1528:Form 1529:hide 1529
REM STARTBILD ANZEIGEN AUF FORM 000
Command_target_is 000:ALPHA 3060:hide 3060
show 3060
top 3060,screen_y-screen_y + (screen_y/35)*5
left 3060,screen_x-(screen_x/1.4)
SCHRIFTART = 3060
wait 200
Gosub Schriftart15F
wait 200
caption 3060,TEXT_AUF_FORM$(060)
wait 200
Command_Target_is 000
REM Hauptmenü
main_menu 001
REM RAHMEN AUF FORM 000 ERSTELLEN
Gosub RAHMENAUFFORM01
REM ERSTELLEN VON 20 UNTERMENÜS
sub_menu 002:caption 002," Datei " :parent 002,001
sub_menu 003:caption 003," Multimomentstudie ":parent 003,001
sub_menu 020:caption 020," Einstellungen " :parent 020,001
REM UNTERMENÜS 1. STUFE ERSTELLEN
sub_menu 050:caption 050,"Multimomentstudie Neu ":parent 050,003
sub_menu 051:caption 051,"Multimomentstudie Öffnen ":parent 051,003
sub_menu 052:caption 052,"Multimomentstudie Drucken ":parent 052,003
sub_menu 053:caption 053,"Multimomentstudie Erläuterung":parent 053,003
REM ERSTELLEN UNTERMENÜ 002 "NEU anlegen"
sub_menu 340:caption 340,"Zählen bis.......1.000 ":parent 340,002
sub_menu 341:caption 341,"Zählen bis......10.000 ":parent 341,002
sub_menu 342:caption 342,"Zählen bis.....100.000 ":parent 342,002
sub_menu 343:caption 343,"Zählen bis...1.000.000 ":parent 343,002
sub_menu 344:caption 344,"Systemvariablen ":parent 344,002
sub_menu 345:caption 345,"Form 002 -- 5. --- ":parent 345,002
sub_menu 346:caption 346,"Form 002 -- 6. --- ":parent 346,002
sub_menu 347:caption 347,"Form 002 -- 7. --- ":parent 347,002
sub_menu 348:caption 348,"Form 002 -- 8. --- ":parent 348,002
sub_menu 900:caption 900,"------------------------- ":parent 900,002
sub_menu 349:caption 349,"Beenden ":parent 349,002
REM ERSTELLEN UNTERMENÜ 003 "NEU anlegen"
sub_menu 350:caption 350,FORM_TEXT$(1350):parent 350,050
sub_menu 351:caption 351,FORM_TEXT$(1351):parent 351,050
sub_menu 352:caption 352,FORM_TEXT$(1352):parent 352,050
sub_menu 353:caption 353,FORM_TEXT$(1353):parent 353,050
sub_menu 354:caption 354,FORM_TEXT$(1354):parent 354,050
sub_menu 355:caption 355,FORM_TEXT$(1355):parent 355,050
sub_menu 356:caption 356,FORM_TEXT$(1356):parent 356,050
sub_menu 357:caption 357,FORM_TEXT$(1357):parent 357,050
sub_menu 358:caption 358,FORM_TEXT$(1358):parent 358,050
sub_menu 359:caption 359,FORM_TEXT$(1359):parent 359,050
REM ERSTELLEN UNTERMENÜ 004 "bearbeiten"
sub_menu 360:caption 360,FORM_TEXT$(1360):parent 360,051
sub_menu 361:caption 361,FORM_TEXT$(1361):parent 361,051
sub_menu 362:caption 362,FORM_TEXT$(1362):parent 362,051
sub_menu 363:caption 363,FORM_TEXT$(1363):parent 363,051
sub_menu 364:caption 364,FORM_TEXT$(1364):parent 364,051
sub_menu 365:caption 365,FORM_TEXT$(1365):parent 365,051
sub_menu 366:caption 366,FORM_TEXT$(1366):parent 366,051
sub_menu 367:caption 367,FORM_TEXT$(1367):parent 367,051
sub_menu 368:caption 368,FORM_TEXT$(1368):parent 368,051
sub_menu 369:caption 369,FORM_TEXT$(1369):parent 369,051
REM ERSTELLEN UNTERMENÜ 006 "Erläuterung"
sub_menu 370:caption 370,FORM_TEXT$(1370):parent 370,052
sub_menu 371:caption 371,FORM_TEXT$(1371):parent 371,052
sub_menu 372:caption 372,FORM_TEXT$(1372):parent 372,052
sub_menu 373:caption 373,FORM_TEXT$(1373):parent 373,052
sub_menu 374:caption 374,FORM_TEXT$(1374):parent 374,052
sub_menu 375:caption 375,FORM_TEXT$(1375):parent 375,052
sub_menu 376:caption 376,FORM_TEXT$(1376):parent 376,052
sub_menu 377:caption 377,FORM_TEXT$(1377):parent 377,052
sub_menu 378:caption 378,FORM_TEXT$(1378):parent 378,052
sub_menu 379:caption 379,FORM_TEXT$(1379):parent 379,052
sub_menu 390:caption 390,FORM_TEXT$(1390):parent 390,052
sub_menu 391:caption 391,FORM_TEXT$(1391):parent 391,052
sub_menu 392:caption 392,FORM_TEXT$(1392):parent 392,052
sub_menu 393:caption 393,FORM_TEXT$(1393):parent 393,052
sub_menu 394:caption 394,FORM_TEXT$(1394):parent 394,052
sub_menu 395:caption 395,FORM_TEXT$(1395):parent 395,052
sub_menu 396:caption 396,FORM_TEXT$(1396):parent 396,052
sub_menu 397:caption 397,FORM_TEXT$(1397):parent 397,052
sub_menu 398:caption 398,FORM_TEXT$(1398):parent 398,052
sub_menu 399:caption 399,FORM_TEXT$(1399):parent 399,052
REM ERSTELLEN UNTERMENÜ 005 "Drucken"
sub_menu 380:caption 380,FORM_TEXT380$:parent 380,053
sub_menu 381:caption 381,FORM_TEXT381$:parent 381,053
sub_menu 382:caption 382,FORM_TEXT382$:parent 382,053
sub_menu 383:caption 383,FORM_TEXT383$:parent 383,053
sub_menu 384:caption 384,FORM_TEXT384$:parent 384,053
sub_menu 385:caption 385,FORM_TEXT385$:parent 385,053
sub_menu 386:caption 386,FORM_TEXT386$:parent 386,053
sub_menu 387:caption 387,FORM_TEXT387$:parent 387,053
sub_menu 388:caption 388,FORM_TEXT388$:parent 388,053
sub_menu 389:caption 389,FORM_TEXT389$:parent 389,053
REM ERSTELLEN UNTERMENÜ Einstellungen 020
sub_menu 520:caption 520,FORM_TEXT$(1520):parent 520,020
sub_menu 521:caption 521,FORM_TEXT$(1521):parent 521,020
sub_menu 522:caption 522,FORM_TEXT$(1522):parent 522,020
sub_menu 523:caption 523,FORM_TEXT$(1523):parent 523,020
sub_menu 524:caption 524,FORM_TEXT$(1524):parent 524,020
sub_menu 525:caption 525,FORM_TEXT$(1525):parent 525,020
sub_menu 526:caption 526,FORM_TEXT$(1526):parent 526,020
sub_menu 527:caption 527,FORM_TEXT$(1527):parent 527,020
sub_menu 528:caption 528,FORM_TEXT$(1528):parent 528,020
sub_menu 529:caption 529,FORM_TEXT$(1529):parent 529,020
REM SPRUNG NACH DEM KLICK
Gosub RAHMENAUFFORM01
on_click 340,Zahl340:on_click 341,Zahl341:on_click 342,Zahl342:on_click 343,Zahl343
on_click 344,Zahl344:on_click 345,Zahl345:on_click 346,Zahl346:on_click 347,Zahl347
on_click 348,Zahl348:on_click 349,Zahl349
on_click 350,Zahl350:on_click 351,Zahl351:on_click 352,Zahl352:on_click 353,Zahl353
on_click 354,Zahl354:on_click 355,Zahl355:on_click 356,Zahl356:on_click 357,Zahl357
on_click 358,Zahl358:on_click 359,Zahl359
on_click 360,Zahl360:on_click 361,Zahl361:on_click 362,Zahl362:on_click 363,Zahl363
on_click 364,Zahl364:on_click 365,Zahl365:on_click 366,Zahl366:on_click 367,Zahl367
on_click 368,Zahl368:on_click 369,Zahl369
on_click 370,Zahl370:on_click 371,Zahl371:on_click 372,Zahl372:on_click 373,Zahl373
on_click 374,Zahl374:on_click 375,Zahl375:on_click 376,Zahl376:on_click 377,Zahl377
on_click 378,Zahl378:on_click 379,Zahl379
on_click 390,Zahl390:on_click 391,Zahl391:on_click 392,Zahl392:on_click 393,Zahl393
on_click 394,Zahl394:on_click 395,Zahl395:on_click 396,Zahl396:on_click 397,Zahl397
on_click 398,Zahl398:on_click 399,Zahl399
on_click 380,Zahl380:on_click 381,Zahl381:on_click 382,Zahl382:on_click 383,Zahl383
on_click 384,Zahl384:on_click 385,Zahl385:on_click 386,Zahl386:on_click 387,Zahl387
on_click 388,Zahl388:on_click 389,Zahl389
on_click 520,Zahl520:on_click 521,Zahl521:on_click 522,Zahl522:on_click 523,Zahl523
on_click 524,Zahl524:on_click 525,Zahl525:on_click 526,Zahl526:on_click 527,Zahl527
on_click 528,Zahl528:on_click 529,Zahl529
end
REM BEGINN DER UNTERPROGRAMME
Zahl340:
Print:Print "Startzeit: ",Time$
FOR ZAEHLENi= 1 TO 1000:NEXT ZAEHLENi
Print "gezählt bis: ",ZAEHLENi-1
Print "Endzeit: ", Time$
Print
end
Zahl341:
Print:Print "Startzeit: ",Time$
FOR ZAEHLENi = 1 TO 10000:NEXT ZAEHLENi
Print "gezählt bis: ",ZAEHLENi-1
Print "Endzeit: ", Time$
Print
end
Zahl342:
Print:Print "Startzeit: ",Time$
FOR ZAEHLENi = 1 TO 100000:NEXT ZAEHLENi
Print "gezählt bis: ",ZAEHLENi-1
Print "Endzeit: ", Time$
Print
end
Zahl343:
Print
Print "Startzeit: ",Time$
FOR ZAEHLENi = 1 TO 1000000
NEXT ZAEHLENi
Print "gezählt bis: ",ZAEHLENi-1
Print "Endzeit: ", Time$
end
Zahl344:
gosub Schriftart09N
Print
gosub RahmenaufForm01
Print " Startzeit: ",Time$
FOR ZAEHLENi = 1 TO 1000
NEXT ZAEHLENi
Print " gezählt bis: ",ZAEHLENi-1
Print " Endzeit: ", Time$
gosub RahmenaufForm01
Bildbreite = screen_x
Bildhoehe = screen_y
Print
Print " BildschirmBreite_ : ",Bildbreite," Pixel"
Print
Print " BildschirmHöhe__ : ",Bildhoehe ," Pixel"
Print
ZUFALL_Z = sgn(9.3)
Print " ", ZUFALL_Z
Print Nachricht%
end
REM PSEUDO-LABEL WIRD NICHT ANGESPUNGEN
Zahl345:
end
REM PSEUDO-LABEL WIRD NICHT ANGESPUNGEN
Zahl346:
end
REM PSEUDO-LABEL WIRD NICHT ANGESPUNGEN
Zahl347:
end
REM PSEUDO-LABEL WIRD NICHT ANGESPUNGEN
Zahl348:
end
REM POGRAMM BEENDEN
Zahl349:
terminate
return
end
REM Multimomentstudie --- 0. Projekt Neu anlegen
Zahl350:
Form_Nr% = 1350
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie --- 1. Arbeitsplätze Neu anlegen
Zahl351:
Form_Nr% = 1351
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie --- 2. Beobachtungsumfang bestimmen
Zahl352:
Form_Nr% = 1352
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie --- 3. Rundgangsplan erstellen
Zahl353:
Form_Nr% = 1353
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie --- 4. Rundgangszeiten ermitteln
Zahl354:
Form_Nr% = 1354
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 5.
Zahl355:
Form_Nr% = 1355
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 6.
Zahl356:
Form_Nr% = 1356
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 7.
Zahl357:
Form_Nr% = 1357
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 8.
Zahl358:
Form_Nr% = 1358
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 9.
Zahl359:
Form_Nr% = 1359
gosub MMneuanlegen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 0. Projekt anzeigen/ändern
Zahl360:
Form_Nr% = 1360
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 1. Arbeitsplätze anzeigen/ändern
Zahl361:
Form_Nr% = 1361
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 2. Beobachtungsumfang anzeigen
Zahl362:
Form_Nr% = 1362
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 3. Rundgangsplan anzeigen
Zahl363:
Form_Nr% = 1363
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 4. Rundgangszeiten anzeigen
Zahl364:
Form_Nr% = 1364
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MULTIMOMENTSTUDIE 5. Vorkommnisse anzeigen/ändern
Zahl365:
Form_Nr% = 1365
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 6.
Zahl366:
Form_Nr% = 1366
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 7.
Zahl367:
Form_Nr% = 1367
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 8.
Zahl368:
Form_Nr% = 1368
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 9.
Zahl369:
Form_Nr% = 1369
gosub MMbearbeiten
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MM - Studie - 00. Projekt Drucken
Zahl370:
Form_Nr% = 1370
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM MM - Studie - 01.
Zahl371:
Form_Nr% = 1371
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 02.
Zahl372:
Form_Nr% = 1372
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 03.
Zahl373:
Form_Nr% = 1373
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 04.
Zahl374:
Form_Nr% = 1374
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 05.
Zahl375:
Form_Nr% = 1375
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 06.
Zahl376:
Form_Nr% = 1376
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 07.
Zahl377:
Form_Nr% = 1377
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 08.
Zahl378:
Form_Nr% = 1378
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 09.
Zahl379:
Form_Nr% = 1379
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 10.
Zahl390:
Form_Nr% = 1390
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 11.
Zahl391:
Form_Nr% = 1391
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 12.
Zahl392:
Form_Nr% = 1392
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 13.
Zahl393:
Form_Nr% = 1393
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 14.
Zahl394:
Form_Nr% = 1394
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 15.
Zahl395:
Form_Nr% = 1395
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 16.
Zahl396:
Form_Nr% = 1396
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 17.
Zahl397:
Form_Nr% = 1397
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 18.
Zahl398:
Form_Nr% = 1398
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 19.
Zahl399:
Form_Nr% = 1399
gosub MMdrucken
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie - 0. Erläuterung Beobachungsumfang
Zahl380:
Form_Nr% = 1380
gosub MMerklaeren
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie - 1. Erläuterung Rundgangszeiten
Zahl381:
Form_Nr% = 1381
gosub MMerklaeren
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie - 2.
Zahl382:
Form_Nr% = 1382
gosub MMerklaeren
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie - 3.
Zahl383:
Form_Nr% = 1383
gosub MMerklaeren
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Multimomentstudie - 3. Erläuterung Rundgangszeiten
Zahl384:
Form_Nr% = 1384
gosub MMerklaeren
command_target_is Form_Nr%
command_target_is 1384:ALPHA 3031:hide 3031
on_error_goto Weiter005
command_target_is 1384:ALPHA 3032:hide 3032
command_target_is 1384:ALPHA 3033:hide 3033
command_target_is 1384:ALPHA 3034:hide 3034
command_target_is 1384:ALPHA 3035:hide 3035
command_target_is 1384:ALPHA 3036:hide 3036
command_target_is 1384:ALPHA 3037:hide 3037
command_target_is 1384:ALPHA 3038:hide 3038
command_target_is 1384:ALPHA 3039:hide 3039
command_target_is 1384:ALPHA 3040:hide 3040
command_target_is 1384:ALPHA 3041:hide 3041
command_target_is 1384:ALPHA 3042:hide 3042
command_target_is 1384:ALPHA 3043:hide 3043
command_target_is 1384:ALPHA 3044:hide 3044
command_target_is 1384:ALPHA 3045:hide 3045
command_target_is 1384:ALPHA 3046:hide 3046
command_target_is 1384:ALPHA 3047:hide 3047
command_target_is 1384:ALPHA 3048:hide 3048
command_target_is 1384:ALPHA 3049:hide 3049
command_target_is 1384:ALPHA 3050:hide 3050
command_target_is 1384:ALPHA 3051:hide 3051
command_target_is 1384:ALPHA 3052:hide 3052
command_target_is 1384:ALPHA 3053:hide 3053
command_target_is 1384:ALPHA 3054:hide 3054
command_target_is 1384:ALPHA 3055:hide 3055
command_target_is 1384:ALPHA 3056:hide 3056
command_target_is 1384:ALPHA 3057:hide 3057
command_target_is 1384:ALPHA 3058:hide 3058
command_target_is 1384:ALPHA 3059:hide 3059
command_target_is 1384:Button 8002:hide 8002
command_target_is 1384:Button 8003:hide 8003
Weiter005:
command_target_is 1384
show 3031
top 3031,screen_y-screen_y + (screen_y/35)*1
left 3031,screen_x-screen_x + 30
SCHRIFTART = 3031
Gosub Schriftart12F
caption 3031,TEXT_AUF_FORM$(031)
show 3032
top 3032,screen_y-screen_y + (screen_y/35)*2
left 3032,screen_x-screen_x + 30
SCHRIFTART = 3032
Gosub Schriftart12F
caption 3032,TEXT_AUF_FORM$(032)
show 3033
top 3033,screen_y-screen_y + (screen_y/35)*3
left 3033,screen_x-screen_x + 30
SCHRIFTART = 3033
Gosub Schriftart11N
caption 3033,TEXT_AUF_FORM$(033)
show 3034
top 3034,screen_y-screen_y + (screen_y/35)*4
left 3034,screen_x-screen_x + 30
SCHRIFTART = 3034
Gosub Schriftart11N
caption 3034,TEXT_AUF_FORM$(034)
show 3035
top 3035,screen_y-screen_y + (screen_y/35)*5
left 3035,screen_x-screen_x + 40
SCHRIFTART = 3035
Gosub Schriftart11N
caption 3035,TEXT_AUF_FORM$(035)
show 3036
top 3036,screen_y-screen_y + (screen_y/35)*6
left 3036,screen_x-screen_x + 70
SCHRIFTART = 3036
Gosub Schriftart11F
caption 3036,TEXT_AUF_FORM$(036)
show 3037
top 3037,screen_y-screen_y + (screen_y/35)*7
left 3037,screen_x-screen_x + 70
SCHRIFTART = 3037
Gosub Schriftart11N
caption 3037,TEXT_AUF_FORM$(037)
show 3038
top 3038,screen_y-screen_y + (screen_y/35)*8
left 3038,screen_x-screen_x + 40
SCHRIFTART = 3038
Gosub Schriftart11N
caption 3038,TEXT_AUF_FORM$(038)
show 3039
top 3039,screen_y-screen_y + (screen_y/35)*9
left 3039,screen_x-screen_x + 40
SCHRIFTART = 3039
Gosub Schriftart11N
caption 3039,TEXT_AUF_FORM$(039)
show 3040
top 3040,screen_y-screen_y + (screen_y/35)*10
left 3040,screen_x-screen_x + 40
SCHRIFTART = 3040
Gosub Schriftart11N
caption 3040,TEXT_AUF_FORM$(040)
show 3041
top 3041,screen_y-screen_y + (screen_y/35)*11
left 3041,screen_x-screen_x + 40
SCHRIFTART = 3041
Gosub Schriftart11N
caption 3041,TEXT_AUF_FORM$(041)
show 3042
top 3042,screen_y-screen_y + (screen_y/35)*12
left 3042,screen_x-screen_x + 40
SCHRIFTART = 3042
Gosub Schriftart11N
caption 3042,TEXT_AUF_FORM$(042)
REM
show 3043
top 3043,screen_y-screen_y + (screen_y/35)*13
left 3043,screen_x-screen_x + 40
SCHRIFTART = 3043
Gosub Schriftart11N
caption 3043,TEXT_AUF_FORM$(043)
show 3044
top 3044,screen_y-screen_y + (screen_y/35)*14
left 3044,screen_x-screen_x + 70
SCHRIFTART = 3044
Gosub Schriftart11F
caption 3044,TEXT_AUF_FORM$(044)
show 3045
top 3045,screen_y-screen_y + (screen_y/35)*15
left 3045,screen_x-screen_x + 30
SCHRIFTART = 3045
Gosub Schriftart11N
caption 3045,TEXT_AUF_FORM$(045)
show 3046
top 3046,screen_y-screen_y + (screen_y/35)*16
left 3046,screen_x-screen_x + 30
SCHRIFTART = 3046
Gosub Schriftart11N
caption 3046,TEXT_AUF_FORM$(046)
show 3047
top 3047,screen_y-screen_y + (screen_y/35)*17
left 3047,screen_x-screen_x + 30
SCHRIFTART = 3047
Gosub Schriftart11N
caption 3047,TEXT_AUF_FORM$(047)
show 3048
top 3048,screen_y-screen_y + (screen_y/35)*18
left 3048,screen_x-screen_x + 30
SCHRIFTART = 3048
Gosub Schriftart11N
caption 3048,TEXT_AUF_FORM$(048)
show 3049
top 3049,screen_y-screen_y + (screen_y/35)*17
left 3049,screen_x-screen_x + 30
SCHRIFTART = 3049
Gosub Schriftart11N
caption 3049,TEXT_AUF_FORM$(049)
show 3050
top 3050,screen_y-screen_y + (screen_y/35)*18
left 3050,screen_x-screen_x + 30
SCHRIFTART = 3050
Gosub Schriftart11N
caption 3050,TEXT_AUF_FORM$(050)
show 3051
top 3051,screen_y-screen_y + (screen_y/35)*19
left 3051,screen_x-screen_x + 30
SCHRIFTART = 3051
Gosub Schriftart11N
caption 3051,TEXT_AUF_FORM$(051)
show 3052
top 3052,screen_y-screen_y + (screen_y/35)*20
left 3052,screen_x-screen_x + 30
SCHRIFTART = 3052
Gosub Schriftart11N
caption 3052,TEXT_AUF_FORM$(052)
show 3053
top 3053,screen_y-screen_y + (screen_y/35)*21
left 3053,screen_x-screen_x + 30
SCHRIFTART = 3053
Gosub Schriftart11N
caption 3053,TEXT_AUF_FORM$(053)
show 3054
top 3054,screen_y-screen_y + (screen_y/35)*22
left 3054,screen_x-screen_x + 30
SCHRIFTART = 3054
Gosub Schriftart11N
caption 3054,TEXT_AUF_FORM$(054)
show 3055
top 3055,screen_y-screen_y + (screen_y/35)*23
left 3055,screen_x-screen_x + 30
SCHRIFTART = 3055
Gosub Schriftart11N
caption 3055,TEXT_AUF_FORM$(055)
show 3056
top 3056,screen_y-screen_y + (screen_y/35)*24
left 3056,screen_x-screen_x + 30
SCHRIFTART = 3056
Gosub Schriftart11N
caption 3056,TEXT_AUF_FORM$(056)
show 3057
top 3057,screen_y-screen_y + (screen_y/35)*25
left 3057,screen_x-screen_x + 30
SCHRIFTART = 3057
Gosub Schriftart11N
caption 3057,TEXT_AUF_FORM$(057)
show 3058
top 3058,screen_y-screen_y + (screen_y/35)*26
left 3058,screen_x-screen_x + 30
SCHRIFTART = 3058
Gosub Schriftart11N
caption 3058,TEXT_AUF_FORM$(058)
show 3059
top 3059,screen_y-screen_y + (screen_y/35)*27
left 3059,screen_x-screen_x + 30
SCHRIFTART = 3059
Gosub Schriftart11N
caption 3059,TEXT_AUF_FORM$(059)
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Würfelspiel zum Testen der Zufallszahlen
Zahl385:
Form_Nr% = 1385
gosub MMerklaeren
command_target_is Form_Nr%
command_target_is 1385:ALPHA 3061:hide 3061
on_error_goto WEITER006
command_target_is 1385:ALPHA 3062:hide 3062
command_target_is 1385:ALPHA 3063:hide 3063
command_target_is 1385:ALPHA 3064:hide 3064
command_target_is 1385:ALPHA 3065:hide 3065
command_target_is 1385:ALPHA 3066:hide 3066
command_target_is 1385:ALPHA 3067:hide 3067
command_target_is 1385:EDIT 4001:hide 4001
command_target_is 1385:EDIT 4002:hide 4002
command_target_is 1385:EDIT 4003:hide 4003
command_target_is 1385:Button 8004:hide 8004
command_target_is 1385:Button 8005:hide 8005
command_target_is 1385:Button 8006:hide 8006
command_target_is 1385:Button 8007:hide 8007
command_target_is 1385:Button 8008:hide 8008
WEITER006:
command_target_is 1385
show 3061
top 3061,screen_y-screen_y + (screen_y/35)*1
left 3061,screen_x/2-240
SCHRIFTART = 3061
Gosub Schriftart12F
caption 3061,TEXT_AUF_FORM$(061)
show 3062
top 3062,screen_y-screen_y + (screen_y/35)*2
left 3062,screen_x/2-240
SCHRIFTART = 3062
Gosub Schriftart12F
caption 3062,TEXT_AUF_FORM$(062)
show 3063
top 3063,screen_y-screen_y + (screen_y/35)*3
left 3063,screen_x-screen_x+40
SCHRIFTART = 3063
Gosub Schriftart11N
caption 3063,TEXT_AUF_FORM$(063)
show 3067
top 3067,screen_y-screen_y + (screen_y/35)*4
left 3067,screen_x-screen_x+40
SCHRIFTART = 3067
Gosub Schriftart11N
caption 3067,TEXT_AUF_FORM$(067)
show 3064
top 3064,screen_y-screen_y + (screen_y/35)*5
left 3064,screen_x-screen_x+40
SCHRIFTART = 3064
Gosub Schriftart11N
caption 3064,TEXT_AUF_FORM$(064)
show 4001
top 4001,screen_y-screen_y + (screen_y/35)*6
left 4001,screen_x-screen_x+40
SCHRIFTART = 4001
Gosub Schriftart11F
show 8006
top 8006,screen_y-screen_y + (screen_y/35)*6
left 8006,screen_x-screen_x + 200
width 8006,50
height 8006,25
SCHRIFTART = 8006
Gosub Schriftart11F
caption 8006,"ok"
on_click 8006,WEITER013
set_focus 4001
edit$=text$(4001)
Textlaenge=len(edit$)
if Textlaenge>0
for i=1 to Textlaenge
Charakter$=mid$(edit$, i, 1)
code=asc(Charakter$)
if 97<=code and code<=122 then WERT1=code-96
if 65<=code and code<=90 then WERT1=code-64
print WERT1
next i
end_if
return
end
REM Eingabe Anzahl Würfe
WEITER013:
show 3065
top 3065,screen_y-screen_y + (screen_y/35)*5
left 3065,screen_x/3+40
SCHRIFTART = 3065
Gosub Schriftart11N
caption 3065,TEXT_AUF_FORM$(065)
show 4002
top 4002,screen_y-screen_y + (screen_y/35)*6
left 4002,screen_x/3+40
SCHRIFTART = 4002
Gosub Schriftart11F
show 8007
top 8007,screen_y-screen_y + (screen_y/35)*6
left 8007,screen_x/3+ 200
width 8007,50
height 8007,25
SCHRIFTART = 8007
Gosub Schriftart11F
caption 8007,"ok"
on_click 8007,WEITER014
set_focus 4002
edit$=text$(4002)
Textlaenge=len(edit$)
if Textlaenge>0
for i=1 to Textlaenge
Charakter$=mid$(edit$, i, 1)
code=asc(Charakter$)
if 97<=code and code<=122 then WERT1=code-96
if 65<=code and code<=90 then WERT1=code-64
print WERT1
next i
end_if
return
end
WEITER014:
show 3066
top 3066,screen_y-screen_y + (screen_y/35)*5
left 3066,((screen_x/3)*2)+40
SCHRIFTART = 3066
Gosub Schriftart11N
caption 3066,TEXT_AUF_FORM$(066)
show 4003
top 4003,screen_y-screen_y + (screen_y/35)*6
left 4003,((screen_x/3)*2)+40
SCHRIFTART = 4003
Gosub Schriftart11F
show 8008
top 8008,screen_y-screen_y + (screen_y/35)*6
left 8008,((screen_x/3)*2)+ 200
width 8008,50
height 8008,25
SCHRIFTART = 8008
Gosub Schriftart11F
caption 8008,"ok"
on_click 8008,WEITER015
set_focus 4003
edit$=text$(4003)
Textlaenge=len(edit$)
if Textlaenge>0
for i=1 to Textlaenge
Charakter$=mid$(edit$, i, 1)
code=asc(Charakter$)
if 97<=code and code<=122 then WERT1=code-96 :REM umwandlung in klein Buchstaben
if 65<=code and code<= 90 then WERT1=code-64 :REM umwandlung in klein Buchstaben
print WERT1
next i
end_if
return
REM Übernahme der eingegebenen Werte
WEITER015:
Startwert:
ZUFALL_START% = VAL(TEXT$(4001))
print_target_is 000
print ZUFALL_START%
Werfen:
ZUFALL_HFGK_f% = VAL(TEXT$(4002))
print_target_is 000
print ZUFALL_HFGK_f%
Wuerfel:
ZUFALL_WUERFEL% = VAL(TEXT$(4003))
print_target_is 000
print ZUFALL_WUERFEL%
goto WEITER010
end
REM **
print_target_is 00000
Print ZUFALL_START%
Print ZUFALL_HFGK_f%
Print ZUFALL_WUERFEL%
return
end
REM ZUFALL_HFGK_f% = 100% Erwartete Häufigkeit für jede Zahl
ZUFALL_HFGK_f% = 100
REM Anzahl der Durchläufe
ZUFALL_ANZAHL_nt% = 6 * ZUFALL_HFGK_f%
REM DLL aufrufen
rem dll_on "ranmt.dll"
REM Initialize Zufallszahlengenerator (Probieren Sie verschiedene Werte)
rem ZUFALL_ZAEHL_i% = dll_call1("InitMT", 123456789)
REM Die ZUFALL_ANZAHL_nt% läuft, jede Zahl erscheinen soll etwa ZUFALL_HFGK_f% mal
rem for ZUFALL_ZAEHL_i% = 1 to ZUFALL_ANZAHL_nt%
rem ZUFALL_d% = dll_call2("IRanMT2", 1, 6)
rem ZUFALL_n%(ZUFALL_d%) = ZUFALL_n%(ZUFALL_d%) + 1
rem next ZUFALL_ZAEHL_i%
REM DLL schließen
rem dll_off
REM Mersenne Twister - Computer Chi2 berechnen
ZUFALL_chi2 = 0
for ZUFALL_ZAEHL_i% = 1 to 6
ZUFALL_diff = ZUFALL_n%(ZUFALL_ZAEHL_i%) - ZUFALL_HFGK_f%
ZUFALL_chi2 = ZUFALL_chi2 + ZUFALL_diff * ZUFALL_diff / ZUFALL_HFGK_f%
next ZUFALL_ZAEHL_i%
end
REM Schalter setzen - zurück/nochmal
WEITER010:
show 8004
top 8004,screen_y-screen_y + (screen_y/35)*29
left 8004,screen_x-screen_x + 30
width 8004,85
height 8004,25
SCHRIFTART = 8004
Gosub Schriftart11F
caption 8004,"zurück"
show 8005
top 8005,screen_y-screen_y + (screen_y/35)*29
left 8005,screen_x-screen_x + 145
width 8005,85
height 8005,25
SCHRIFTART = 8005
Gosub Schriftart11F
caption 8005,"nochmal?"
on_click 8004, WEITER009
on_click 8005, WEITER011
end
WEITER009:
hide 8004
hide 8005
gosub WEITER012
gosub WEITER016
end
WEITER011:
hide 8004
hide 8005
gosub WEITER012
gosub Zahl385
end
REM alles auf 1385 löschen
Weiter012:
command_target_is 1385
hide 3061:hide 3062:hide 3063:hide 3064:hide 3065
hide 3066:hide 3067
hide 4001:hide 4002:hide 4003
hide 8004:hide 8005:hide 8006:hide 8007:hide 8008
Text 4001,"" :Text 4002,"" :Text 4003,""
return
end
REM zurück zum Hauptmenü
WEITER016:
gosub Menueschliessen
end
REM 06.
Zahl386:
Form_Nr% = 1386
gosub MMerklaeren
command_target_is Form_Nr%
message "Der Test ist fertig!"
gosub Menueschliessen
end
REM 07.
Zahl387:
Form_Nr% = 1387
gosub MMerklaeren
command_target_is Form_Nr%
message "Der Test ist fertig!"
gosub Menueschliessen
end
REM 08.
Zahl388:
Form_Nr% = 1388
gosub MMerklaeren
command_target_is Form_Nr%
message "Der Test ist fertig!"
gosub Menueschliessen
end
REM 09.
Zahl389:
Form_Nr% = 1389
gosub MMerklaeren
command_target_is Form_Nr%
message "Der Test ist fertig!"
gosub Menueschliessen
end
REM Einstellungen 00.
Zahl520:
Form_Nr% = 1520
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Einstellungen 01.
Zahl521:
Form_Nr% = 1521
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM Einstellungen 02.
Zahl522:
Form_Nr% = 1522
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM KALENDER 03.
Zahl523:
Form_Nr% = 1523
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 04.
Zahl524:
Form_Nr% = 1524
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 05.
Zahl525:
Form_Nr% = 1525
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 06.
Zahl526:
Form_Nr% = 1526
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 07.
Zahl527:
Form_Nr% = 1527
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 08.
Zahl528:
Form_Nr% = 1528
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM 09.
Zahl529:
Form_Nr% = 1529
gosub Einstellungen
command_target_is Form_Nr%
gosub BUTTONzuruek
gosub Menueschliessen
end
REM UNTERPROGRAMME FÜR GOSUB ROUTINEN MIT RÜCKSPRUNG
REM UNTERPROGRAMM FÜR FORMEN ERSTELLEN UND SCHLISSEN
MMneuanlegen:
Gosub RAHMENAUFFORM01
caption 000,FORM_TEXT000$+FORM_TEXT$(Form_Nr%)
show Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
hoehe% = 56
links% = 08
Bildhoehe = screen_y-(hoehe%+49)
COLOR Form_Nr%,146,159,215
width Form_Nr%,screen_x-(links%*2)
top Form_Nr%,hoehe%
left Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
For i% = hoehe% TO Bildhoehe Step 2
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
height Form_Nr%,i%
next i%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
return
MMbearbeiten:
Gosub RAHMENAUFFORM01
caption 000,FORM_TEXT000$+FORM_TEXT$(Form_Nr%)
show Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM04
hoehe% = 56
links% = 08
Bildhoehe = screen_y-(hoehe%+49)
COLOR Form_Nr%,146,159,215
width Form_Nr%,screen_x-(links%*2)
top Form_Nr%,hoehe%
left Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM04
For i% = hoehe% TO Bildhoehe Step 2
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM04
height Form_Nr%,i%
next i%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM04
return
MMdrucken:
Gosub RAHMENAUFFORM01
caption 000,FORM_TEXT000$+FORM_TEXT$(Form_Nr%)
show Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM06
hoehe% = 56
links% = 08
Bildhoehe = screen_y-(hoehe%+49)
COLOR Form_Nr%,146,159,215
width Form_Nr%,screen_x-(links%*2)
top Form_Nr%,hoehe%
left Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM06
For i% = hoehe% TO Bildhoehe Step 2
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM06
height Form_Nr%,i%
next i%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM06
return
MMerklaeren:
Gosub RAHMENAUFFORM01
caption 000,FORM_TEXT000$+FORM_TEXT$(Form_Nr%)
show Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM05
hoehe% = 56
links% = 08
Bildhoehe = screen_y-(hoehe%+49)
COLOR Form_Nr%,233,212,022
width Form_Nr%,screen_x-(links%*2)
top Form_Nr%,hoehe%
left Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM05
For i% = hoehe% TO Bildhoehe Step 2
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM05
height Form_Nr%,i%
next i%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM05
return
Einstellungen:
Gosub RAHMENAUFFORM01
caption 000,FORM_TEXT000$+FORM_TEXT$(Form_Nr%)
show Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
hoehe% = 56
links% = 08
Bildhoehe = screen_y-(hoehe%+49)
COLOR Form_Nr%,180,180,180
width Form_Nr%,screen_x-(links%*2)
top Form_Nr%,hoehe%
left Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
For i% = hoehe% TO Bildhoehe Step 2
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
height Form_Nr%,i%
next i%
Gosub RAHMENAUFFORM01
Gosub RAHMENAUFFORM02
return
BUTTONzuruek:
command_target_is Form_Nr%
Button 8001
top 8001,INT(screen_y-screen_y + (screen_y/35)*29)
left 8001,INT(screen_x-screen_x + 30)
width 8001,85
height 8001,25
SCHRIFTART = 8001
Gosub Schriftart11F
caption 8001,"zurück"
hint 8001,"beenden und zum Hauptmenü zurück"
on_click 8001, WEITER981
end
WEITER981:
command_target_is Form_Nr%
delete 8001
return
REM UNTERMENÜS SCHLIESSEN RÜCKKEHR AUF FORM 000
Menueschliessen:
For i% = Bildhoehe TO 0 Step -2
height Form_Nr%,i%
next i%
hide Form_Nr%
command_target_is 000
caption 000,FORM_TEXT000$
Gosub RAHMENAUFFORM03
Gosub RAHMENAUFFORM01
return
REM RAHMEN SCHWARZ AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM01:
2D_target_is 00000
2d_pen_color 0,0,0
REM LINIEN OBEN
2d_line 0,0,screen_x- 9,0
2d_line 3,3,screen_x-12,3
REM LINIEN LINKS
2d_line 0,0,0,screen_y-99
2d_line 3,3,3,screen_y-102
REM LINIEN RECHTS
2d_line screen_x- 9,0,screen_x- 9,screen_y- 99
2d_line screen_x-12,3,screen_x-12,screen_y-102
REM LINIEN UNTEN
2d_line 0,screen_y- 99,screen_x- 9,screen_y- 99
2d_line 3,screen_y-102,screen_x-12,screen_y-102
2d_pen_color 0,0,0
return
REM RAHMEN ROT AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM02:
2D_target_is 00000
2d_pen_color 255,0,0
REM LINIEN OBEN
2d_line 1,1,screen_x-10,1
2d_line 2,2,screen_x-11,2
REM LINIEN LINKS
2d_line 1,1,1,screen_y-100
2d_line 2,2,2,screen_y-101
REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100
2d_line screen_x-11,2,screen_x-11,screen_y-101
REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100
2d_line 2,screen_y-101,screen_x-11,screen_y-101
2d_pen_color 0,0,0
return
REM RAHMEN GRÜN AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM03:
2D_target_is 00000
2d_pen_color 0,255,0
REM LINIEN OBEN
2d_line 1,1,screen_x-10,1
2d_line 2,2,screen_x-11,2
REM LINIEN LINKS
2d_line 1,1,1,screen_y-100
2d_line 2,2,2,screen_y-101
REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100
2d_line screen_x-11,2,screen_x-11,screen_y-101
REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100
2d_line 2,screen_y-101,screen_x-11,screen_y-101
2d_pen_color 0,0,0
return
REM RAHMEN GELB AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM04:
2D_target_is 00000
2d_pen_color 255,255,0
REM LINIEN OBEN
2d_line 1,1,screen_x-10,1
2d_line 2,2,screen_x-11,2
REM LINIEN LINKS
2d_line 1,1,1,screen_y-100
2d_line 2,2,2,screen_y-101
REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100
2d_line screen_x-11,2,screen_x-11,screen_y-101
REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100
2d_line 2,screen_y-101,screen_x-11,screen_y-101
2d_pen_color 0,0,0
return
REM RAHMEN BLAU AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM05:
2D_target_is 00000
2d_pen_color 027,031,243
REM LINIEN OBEN
2d_line 1,1,screen_x-10,1
2d_line 2,2,screen_x-11,2
REM LINIEN LINKS
2d_line 1,1,1,screen_y-100
2d_line 2,2,2,screen_y-101
REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100
2d_line screen_x-11,2,screen_x-11,screen_y-101
REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100
2d_line 2,screen_y-101,screen_x-11,screen_y-101
2d_pen_color 0,0,0
return
REM RAHMEN LILA AUF ALLEN FORMEN ZEICHNEN
RAHMENAUFFORM06:
2D_target_is 00000
2d_pen_color 188,024,220
REM LINIEN OBEN
2d_line 1,1,screen_x-10,1
2d_line 2,2,screen_x-11,2
REM LINIEN LINKS
2d_line 1,1,1,screen_y-100
2d_line 2,2,2,screen_y-101
REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100
2d_line screen_x-11,2,screen_x-11,screen_y-101
REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100
2d_line 2,screen_y-101,screen_x-11,screen_y-101
2d_pen_color 0,0,0
return
REM MITTELLINIE SCHWARZ AUF ALLEN FORMEN ZEICHNEN
MITTELLINIEAUFFORM01:
REM 2D_target_is 01061
2d_pen_color 0,0,0
2d_line screen_x/2+1,10,screen_x/2+1,screen_y-125
2d_line screen_x/2-1,10,screen_x/2-1,screen_y-125
2d_line screen_x/2,10,screen_x/2,screen_y-125
2d_pen_color 0,0,0
return
REM SCHRIFTART "Courier" GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 11 Normal
Schriftart11N:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "ARIAL" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 10 Fett
Schriftart10F:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "Courier" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "ARIAL" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
REM SCHRIFTART "ARIAL" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Courier"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return

Sujet: Re: Fehlermeldung von Windows7 Mer 12 Jan 2011 - 11:46

Ich habe Windows XP, aber auch bei mir funktionniert das nicht. Ih habe zwar leine Windows-Meldung, aber bei mehrmaligem Klicken in das Menu kommt eine Panoramic-Meldung: dans Objekt 8001 ist schon definiert in Zeiule 1485. Ich habe das so umgangen:

Code:: on_error_goto BUTTONzuruek1 : Button 8001
BUTTONzuruek1:
off_error_goto

und habe das neue Label an Zeile 28 angehängt.

J"ai Windows XP, mais ça ne marche pas chez moi non plus. Je n'ai pas de message Windows, mais en cliquant plusieurs fois dans le menu, j'ai un message Panoramic: l'objet 8001 est déjà défini en ligne 1485. J'ai contourné cela de la manière suivante:

Code:: on_error_goto BUTTONzuruek1 : Button 8001
BUTTONzuruek1:
off_error_goto

et j'ai ajouté le nouveau label à la ligne 28.

Nebenbei bemerkt: es ist gefährlich, ein Unterprogramm mit END zu unterbrechen. Du gibst zwar einen Button mit der Event_Routine "on_click 8001, WEITER981", wo Du das unterbrochene Unterprogramm abschliessen willst. Das functionniert aber nicht so, wie Du Dir das vorstellst. Erstens ist Panoramic nicht reentrant. Wenn Du durch ein anderes Event wieder in das ursprüngliche Unterprogramm springst, ist der vorige Aufruf noch nicht abgearbeitet, die Variablen verändern ihre Bedeutung, dir Rückkehradressen vermischen sich, usw. Und Zweitens, und als Folge de Vorgesagten, ist sehr davon abzuraten, von internen Unterprogrammen Event-Routinen zu aktivieren, die wieder in dieselben Unterprogramme zurückkommen können, selbst auf Umwegen. Und ich denke, dass Dein Windows-Problem auf diesen Konflikt zurückzuführen ist.

Das Problem

Code:: ...
gosob UNTERPROGRAMM_MIT_UNTERBRECHUNG
...
return

UNTERPROGRAMM_MIT_UNTERBRECHUNG:
...
on_click 8001,WEITERE_BEHANDLUNG
end

WEITERE_BEHANDLUNG:
...
return

sollte auf folgende Art gelöst werden:

Code:: dim schalter%
...
schalter% = 7 : ' um den Aufruf zu identifizieren
gosob UNTERPROGRAMM_MIT_UNTERBRECHUNG
return
WEITERE_BEHANDLUNG_ZURUECK_7:
...
return

UNTERPROGRAMM_MIT_UNTERBRECHUNG:
...
on_click 8001,WEITERE_BEHANDLUNG
return

WEITERE_BEHANDLUNG:
...
select schalter%
case 1:
...
case 7: goto WEITERE_BEHANDLUNG_ZURUECK_7
...
end_select
return : ' sollte nie vorkommen

Une remarque à part: il est dangereux d'interrompre un sous-programme par END. Tu donnes bien un bouton avec une routine évènement "on_click 8001, WEITER981", où tu veux terminer le sous-programme interrompu. Mais cela ne fonctionne pas comme tu l'imagines. D'abord, Panoramic n'est pas réentrant. Si par un autre évènement, tu reviens dans le sous-programme d'origine, l'appel précédent n'est pas résorbé, les variables changent leur signification,, les adresses de retour se mélangent etc. Et puis, par conséquence de ceci, il est sortement déconseillé d'activer des routines évènements dans des sous-programmes internes qui peuvent être appelés âr l'évènement, même par des chemins détournés. Et je pense que ton problème Windows a un tel conflit comme origine.

Le problème

Code:: ...
gosub SOUSPROGRAMME_AVEC_INTERRUPTION
...
return

SOUSPROGRAMME_AVEC_INTERRUPTION:
...
on_click 8001,SUITE_DU_TRAITEMENT
end

SUITE_DU_TRAITEMENT:
...
return

devrait être résolu de la manière suivante:

Code:: dim selecteur%
...
selecteur% = 7 : ' afin d'identifier l'appel
gosub SOUSPROGRAMME_AVEC_INTERRUPTION
return
SUITE_DU_TRAITEMENT_7:
...
return

SOUSPROGRAMME_AVEC_INTERRUPTION:
...
on_click 8001,SUITE_DU_TRAITEMENT
return

SUITE_DU_TRAITEMENT:
...
select selecteur%
case 1:
...
case 7: goto SUITE_DU_TRAITEMENT_7
...
end_select
return : ' on ne devrait jamais passer ici

Sujet: Re: Fehlermeldung von Windows7 Mer 12 Jan 2011 - 15:26

Hallo Klaus,
ich habe das Programm geändet, noch ohne Error.
Es erscheint immer noch folgende Meldung.
Severin

Wie wird ein jpg. Bild geladen ???

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 0:18

Welche Meldung ? Du gibst sie nicht an in Deinem Post...

Du kannst kein JPG laden. Es muss BMP sein, und es gibt eine Menge Freeware, die die Dateien konvertieren können.

Quel message ? Tu ne donnes pas le message dans ton psot...

Tu ne peux pas charger un JPG. Cela doit être un BMP, et il y a une quantité de freeware permettant de convertir les fichiers.

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 1:25

Hier die Meldung in deutsch, französisch und englisch:

Access violation at address 00403DED in module.
"PANORANIC.exe". Read of address 202D204D.

Violation d'accès à 00403DED adresse dans le module.
"PANORANIC.exe". Lire d'adresse 202D204D.

Zugriffsverletzung bei Adresse 00403DED im Modul.
"PANORANIC.exe". Lesen von Adresse 202D204D.

Das mit dem BMP hat nicht geklapt. Hat sich so ein komischer Dienst eingeklinkt.
den muß ich erstmal wieder entfernen.

Severin

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 1:58

Est mal für das Bild: lade Dir Photofiltre herunter -zuverlässige Freeware, mit der Du en JPG öffnen und als BMP abspeichern kannst. Hier ist die offizielle Webseite: http://www.photofiltre.com/

D'abord pour la photo: télécharge Photofiltre - un freeware fiable, avec lequel tu peux ouvrir un JPG et l'enregistrer en BMP. Voici la page Web officielle: http://www.photofiltre.com/

Dann die Fehlermeldung: sie zeigt eindeutig an, dass irgendwo dynamische Speichergrenzen verletzt worden sind. Und das liegt wahrscheinlich an den Problemen, die ich in meinen vorigen Meldungen aufgezeigt habe. Solange dieses strukturellen Mängel nicht behoben sind, kann man in der Analyse nicht viel weiter gehen.

Puis le message d'erreur: il montre clairement qu'à un endroit quelconque, des limites dynamiques de mémoire ont été transgressées. Et cela est probablement dû à des problèmes que j'ai indiqués dans mes messages précédents. Tant que ces défauts structurels ne sont pas corrigés, on ne peut pas avancer beaucoup plus loin dans l'analyse.

Du kannst aber den Bereich eingrenzen, der zu dem Fehler führt, indem Du das MESSAGE Kommando verwendest, um Trace-Meldungen auszugeben. Mache es so:
1. definiere eine variable

Code:: dim trace%

2. an verschiedenen strategischen Stellen, benutze MESSAGE auf diese Art:

Code:: trace% = trace% + 1
' oder
trace% = ein sinnvoller Wert
MESSAGE str$(trace%)

Du kannst dann von der am letzten ausgegebenen Meldung ab weiter neue MESSAGE Kommandos eingeben, um den Fehlerbereich weiter einzugrenzen. Du wirst aber wahrscheinlich feststellen, dass es an einem RETURN, END, oden einem Event-Aufruf liegt...

Mais tu peux limiter la section consuisant à l'erreur, en utilisant la commande MESSAGE, afin d'afficher des messages de traçage. Fais-le de la manière suivante:
1. définis une variable

Code:: dim trace%

2. à divers endroits stratégiques, utilise MESSAGE de la façon suivante:

Code:: trace% = trace% + 1
' ou
trace% = une valeur significative
MESSAGE str$(trace%)

Alors, à partir du dernier message de traçage affiché, tu peux en introduire d'autres, afin de circonscrire le secteur fautif de façon plus détaillée. Du découvriras probablement qu'il s'agit d'un RETURN, END ou l'appel d'une routine d'évènement...

Invité

Je ne voulais pas répondre pour plusieurs raisons. Déjà pour ne pas faire parler de moi, ensuite c'est en allemand, et il ne me reste plus rien de cette langue. En plus j'ai des gros travaux à faire, et j'ai pas de temps.

Plusieurs fois (à Klaus) tu dis qu'il est dangereux d’interrompre un sous programme par END.
Je ne suis pas du tout d'accord avec toi. Tout les exemples où j'utilise ce procédé me montre le contraire.
Cela parait pas logique, et franchement j'aurai dis la même chose. Mais je me suis apperçu du contraire. Peut-être que Jack a fait une exception dans son interpréteur pour que cela n'engendre pas d'erreur.

Je ne sais pas depuis quant tu fais des programmes en Panoramic. Tu es intervenu sur le forum après que Jack ait modifier son langage, pour qu'il traite une queux de file aux évènements. Avant lorsqu'on appuyait sur un objet, alors que le programme était dans une boucle, (si j'ai bonne mémoire Jack n'avait prévu que deux évènements dans une file), le sous programme était bien souvent interrompu pour partir sur le nouveau clic. On avait une erreur du genre ".. return" à un moment donné , mais le programme n'était pas bloqué. Celà veut surement dire que Jack a prévu quelque chose, et évidemment il ne nous dira rien.

Régulièrement maintenant j'interrompe un sous programme par END, pour pouvoir afficher par exemple un message, ou une liste sur lequel je dois répondre, et pouvoir continuer ensuite.

Je te montre une partie de code d'un programme qui est de côté pour l'instant, car il y avait urgence à faire autre chose:

Code:: if count(92)>1
if count(92)>2 :' 1="annulez" 2:1er choix ...
on_click 92,liste92 : end
liste92:
choix_item% = item_index(92)
else
choix_item% = 2 : ' 1=annulez et on l'évite vu que cette proposition va être re-proposée
end_if
' a revoir la ligne suivante .......

If choix_item% = 1 then goto cherche_non
a% = val( left$ (item_read$(92,choix_item%) , instr( item_read$(92,choix_item%),"- ")-1))
a$=item_read$(90,a%)
letr$=left$(a$,1):a$=mid$(a$,3,300):message "a$=" + a$ + " letr$:" + letr$
end_if

Comme tu vois j'ai:
on_click 92,liste92 : end
liste92:
j'interromps le programme pour afficher une liste pour faire un choix. Lorsque le choix est fait, en cliquant sur un item, je continu. De plus je peux encore cliquer sur d'autres objets pour modifier des paramètres, avant de cliquer sur le choix que je veux.

J'utilise même mon mode trace en arrière plan à chaque ligne pour le cas où il y aurait une erreur incompréhensible sur le numéro de ligne. Tout marche, partout où j’interrompe le programme par un END, et en plus avec mon débogueur.

As-tu un exemple où interrompre un programme, plante le programme. J'avoue ne pas réussir cela.

J'avais envie de dire à Séverin d'essayer d'installer mon débogueur pour voir, mais il faudrait une traduction en allemand, et je ne pense pas que tu as adopté mon programme. En plus j'avais mis des numéros d'objet qui vont de 9950 à 9970 en étant à peut près sûre que ces numéros ne serait pas pris dans un programme. Comme quoi il y a de l'imprévisible dans tout.

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 19:01

@Cosmos70:

Attention. Je ne dis pas qu'il est dangereux d'interrompre un sous-programme par END. Je le fais aussi. Ce qui pose problème, c'est de revenir dans un sous-programme par un évènement. Le cas de Severin:

Code:: BUTTONzuruek:
command_target_is Form_Nr%
Button 8001
top 8001,INT(screen_y-screen_y + (screen_y/35)*29)
left 8001,INT(screen_x-screen_x + 30)
width 8001,85
height 8001,25
SCHRIFTART = 8001
Gosub Schriftart11F
caption 8001,"zurück"
hint 8001,"beenden und zum Hauptmenü zurück"
on_click 8001, WEITER981
end
WEITER981:
command_target_is Form_Nr%
delete 8001
return

Comme tu vois, il interrompt son sousprogramme BUTTONzuruek par END, en activant une routine on_click WEITER981 sur le bouton 8001 qui doit reprendre la main dans le sous-programme quitté par END. Il y détruit entre autres le bouton 8001 (sans d'ailleurs avoir fait un off_click, mais espérons que Panoramic le fait pour lui...). D'ailleurs, sous XP aussi, on a une violation de mémoire, dès qu'un clique sur ce fameux bouton. Fais-en l'essai: dans son source, ligne 28, il faut enlever "label Info" car pas encore défini. Puis lance-le, et clique sur le menu de droite nommé "Einstellungen". Un menu se déroule. Clique sur n'importe quelle ligne, et la couleur change, avec un bouton "Zurück" en bas (le fameux bouton 8001). Si tu cliques dessus, tu as une violation d'accès.

Pourquoi ? Justement à cause de ce conflit d'adresses de retour. Le click sur le menu active la fameuse routine qui est ensuite interrompue par END. Elle ne fait donc PAS le return de l'évènement qui l'a appelé. On appelle ensuite un évènement par le click sur le bouton 8001, Sa routine on_click se déroule bien, le crash se produit à son retour. J'ai placé un "message str$(form_nr%)" après chaque "gosub menueschliessen", et "message "Menueschliessen" " à l'entrée de ce sous-programme. On constate que:
1. le click sur me menu "Einstellungen" affiche le sous-menu
2. le click sur une des lignes affiche un fond de couleur avec le bouton 8001
3. le click sur le bouton "Retour" affiche le label "Menueschliessen" - on rentre donc bien dans ce sous-programme
4. le fond disparaît proprement - le sous-programme s'exécute bien
5. on a le message avec un chiffre représentant le numéro du menu appelé - normal
6. en validant ce message, on a une violation d'accès, et la seule commande exécutée ensuite est encore un END

De manière générale, en regardant son programme d'un peu plus près, on constate que beaucoup de ces routines évènements (si ce n'est pas toutes, je n'ai pas eu le courage d'aller si loin dans un module de 1800 lignes) se terminent par un END et non par un RETURN. Et je suis convaincu que le problème fondamental vient de là.

J'ai d'ailleurs fait un essai: j'ai remplacé tous les END (et il y en a beaucoup) par des RETURN, sauf le tout premier, bien sûr. Et la, miracle: plus de violation d'accès ! tout se déroule bien, la couleur apparaît, mais on n'a plus l'occasion de cliquer sur le bouton 8001 car la couleur est effacée de suite et le bouton disparaît. Cela montre bien qu'il y a un problème structurel dans le programme, car Severin n'a pas bien intégré le concept de programmation évènementielle avec Panoramic. Il croit pouvoir faire un programme séquentiel avec des "pauses" à certains endroits et qu'un clic sur un bouton peut relancer le programme mis en pause par la commande END. Or, ça ne marche pas comme ça, et le forum est plein de posts à ce sujet. Pour ma part, j'ai souvant décrit la technique à employer - il suffit de relire ces posts. Et si la recherche dans le forum ne permet pas de les trouver, qu'à cela ne tienne: mon ForumBrowser est capable de le faire !

Invité

Ok d'accord.
Je n'ai absolument pas regardé le code de Séverin, vraiment pas le temps. Sur son code, tel que tu le décris, je te donne raison.

On voit souvent les nouveau arrivants se lancer dans la programmation de Panoramic, mais sans vraiment comprendre comment ça marche.

Pour ma part j'ai pas eu trop de mal, vu que j'avais fait mes débuts avec Justbasic, et même si la programmation est différente, la base de l'orientation objet est assez proche, donc ça s'est bien passé.

Il faudrait vraiment que l'un d'entre nous se décide à faire un bon topo sur Panoramic, pour que l'évidence même du principe de programmation soit acquise avec la méthode objet de ce langage.

Il me reste 2 minutes. Maintenant (et oui!) je vais faire la femme, pour remplacer la mienne quelques jours.

Ne rigolez pas surtout

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 20:55

Rassure-toi: personne ne rigole ! Cela t'honore et devrait être normal pour nous tous ! Pardon si j' m'égare - aucun rapport avec Panoramic !

Jack a fait un topo, succinct, certes, mais parfaitement clair dans le guide utilisateur de Panoramic. Il y décrit très exactement comment Panoramic devrait être utilisé. Bien sûr, libre à tous d'inventer leurs propres normes de programmation, mais alors, attention: nous sommes souvent sollicités pour aider à débloquer ces situations, voir même à démystifier un soi-disant bug, alors que la simple lecture de la documentation pourrait éviter cela.

De plus, dans la distribution de Panoramic, il y a une série de programmes exemple qui sont forts instructifs et qui montrent PARFAITEMENT les principes d'écriture à respecter ! Je ne comprends tout simplement pas pourquoi on se lance, tête baissée, dans la réalisation de programmes énormes sans étudier la documentation, vérifier la faisabilité sur de petites maquettes, etc.

Pour Severin, par exemple, j'ai fait beaucoup d'efforts pour analyser son gros programme, et par respect poue les autres, à poster chaque message en allemand ET en français.

EDIT

D'ailleurs, pour bien montrer que la commande END n'est pas équivalente à RETURN, il sufffit de regarder et d'exécuter le programme suivant:

Code:: label l1
button 1
return

l1:
message "coucou"
return

Sujet: Re: Fehlermeldung von Windows7 Jeu 13 Jan 2011 - 21:09

Hallo Klaus, hallo Cosmos70,
bitte nicht streiten. Ich habe nach dem Fehler gesucht und das Unterprogramm so geändert,
die Fehlermeldung ist weg.
Meiner Meinung nach muss der Button "zurück" wenn er geklickt wurde, seine Errinnerung
verlieren. Da die Dokumentation sehr einfache Beispiele hat ist es schwer komplexere
Strukturen zuerstellen.

Es reicht nach meinen Test's nicht aus den Butten mit "delete" zu löschen, sondern auch seine
Informationen. Aber welche Befehle ?

Also der Button soll Message ersetzen.

Salut Klaus, Salut Cosmos70,
S'il vous plaît ne pas discuter. J'ai cherché l'erreur et a changé le sous-programme afin
Le message d'erreur a disparu.
Je crois que le bouton "retour" quand on clique dessus, son fard à joues
. Lose Parce que la documentation sont des exemples très simples, il est difficile complexe
Structures Ellen premier.

Il suffit pour mon test ne pas supprimer de le beurre avec le "supprimer", mais aussi sa
Information. Mais quelles commandes?

Donc le bouton remplacera message.

Code:: REM EINSTELLUNGEN 00. *********************************************************
REM ****************************************************************************
Zahl520:
Form_Nr% = 1520
'
gosub Einstellungen
'
command_target_is Form_Nr%
'
'
gosub BUTTONzuruek
'
'
message "Der Test 1520 ist fertig!"
'
' on_click 8001, WEITER981 :'
' end
'
' WEITER981:
' command_target_is Form_Nr%
'
'
delete 8001
'
gosub Menueschliessen
'
Gosub RAHMENAUFFORM03 :REM FARBE ..... GRÜN 000,255,000
'
Gosub RAHMENAUFFORM01 :REM FARBE ...SCHWARZ 000,000,000
'
end
REM ****************************************************************************