Mars 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | Calendrier |
|
| | Return vergessen | |
| | Auteur | Message |
---|
Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Return vergessen Mar 12 Juin 2012 - 18:08 | |
| Hallo panoramic's
ihr werdet es nicht glauben, aber ich habe eine Fehlermeldung die nicht möglich ist.
Text: --> (35) Name alredy defined. Line 471
Das bedeutet ich hätte ein Variable doppelt definiert. Habe ich abe nicht. Mehrere Überprüfungen ist nicht doppelt definiert.
Mir ist bewusst das keiner so grosse Programme schreibt. Aber ich liebe das Maximum.
Ich habe mein Programm langsam auf gebohrt und Schritt für Schritt erweitert. Plötzlich kam dieser Fehler. Die genannte Variabele ist nicht doppelt definiert. Es ist ein Schlüsselvariable, die von Beginn an benutzt wird. Wenn ich sonst bei einem Programm zu viele Dimensionen (a%(10000,10000) bnutze erhalte ich ein Memory voll.
Ist es ein Fehler weil panoramic voll ausgenutzt ist ? Ich habe schon mehrfach gefragt wo die Grenzen von Panoramic liegen, schweigen. Es wird immer von Speichergrösse gesprochen. Alle meine Computer haben 8 gb Speicher. Weil ich demnächst einen neuen Laptop benötige, soll ich einen mit 32 gb kaufen. Ist dann garantiert das Panoramic diesen Speicher nutzt ?
Also Zusammenfassung. Fehlermeldung die nicht stimmt. Unbekannte Grenzen in Panoramic. Max. Labels, Formen, ect. Wird es in der neuen Verion besser ? Wieviel Speicher Kann Panoramic nutzen?
Leider bekomme ich keine Antwort. Danke für eure Aufmerksamkeit und die Zeit diese zu lesen Severin der Sonntagsprogrammierer
Bonjour panoramique de Vous n'allez pas le croire, mais j'ai un message d'erreur qui n'est pas possible. Texte: -> (35) Nom alredy défini. ligne 471 Cela signifie que je dois une variable définie deux fois. Je ne suis pas abe. Plusieurs contrôles n'est pas défini deux fois. Je suis conscient que personne n'écrit ces grands programmes. Mais j'aime le maximum. J'ai mon programme de forage lentement et progressivement élargi. Tout à coup, cette erreur. Ladite variable n'est pas définie à deux reprises. Il est une variable clé qui est utilisée depuis le début. Lorsque j'ai utilisé pour programmer un certain nombre de dimensions (en% (10000,10000) bnutze obtenir J'ai une mémoire pleine. Est-ce une erreur, car panoramique est pleinement utilisé? J'ai été demandé à plusieurs reprises où les frontières se trouvent le silence par Panoramic. Il est toujours parlé de la taille de la mémoire. Tous mes ordinateurs ont 8 Go de mémoire. Parce que je vais bientôt besoin d'un nouvel ordinateur portable, je veux acheter un 32 Go. est alors garantit les utilisations panoramiques cette mémoire? Donc, résumé. Message d'erreur qui n'est pas vrai. Limites inconnues dans Panoramique. Max étiquettes, des formulaires, ect. Vaut-il mieux dans la nouvelle Verion? Combien de mémoire peut utiliser panoramique? Malheureusement, je ne peux pas répondre. Je vous remercie de votre attention et le temps de lire ce Severin dimanche programmeur
Dernière édition par Severin le Mer 13 Juin 2012 - 0:08, édité 2 fois | |
| | | Nardo26
Nombre de messages : 2294 Age : 55 Localisation : Valence Date d'inscription : 02/07/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 19:34 | |
| Bonjour Severin, Il est difficile de t'aider sans voir ton programme. J'ai rencontré des erreurs aléatoires lorsque la mémoire est surchargée.
Guten Tag Severin, Es ist schwer, dir zu helfen, ohne dein Programm zu sehen. Ich habe unsichere Irrtümer getroffen, als das Gedächtnis(Speicher) überladen ist.
| |
| | | Klaus
Nombre de messages : 12274 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 19:42 | |
| Schiebe einfach unmittelbar vor der Zeile, die den Fehler hervorruft, folgende Zeile ein: Insère simplement la ligne suivante, immédiatement devant la ligne qui provoque l'erreur: - Code:
-
if variable("xxx")=1 then message "Die variable xxx ist schon definiert !" else message "Die variable xxx ist noch nicht definiert !" end_if Dann wirst Du sofort sehen, was passiert. Du verras alors immédiatement ce qui se passe. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:10 | |
| Hallo Nardo,
das Programm ist für das Forum zu gross. Es ist wirklich eine falsche Angabe des Fehlers.
Das ist so ein zufälliger Fehler. Ich habe keine Variable doppelt. Deshalb frage ich schon immer nach den Grenzen von Panoramic. Selbst im Excel 2010 sind die Grenzen angegeben.
Der Fehler trat auf, nach dem hinzufügen von 20 Label. Auch das zurück setzen der 20 Label hilft nicht weiter. Immer dieser Fehler.
Ich könnte alle Computer zertreten. Eine Woche Zeit kaputt. Und ein Programm das nicht mehr läuft. Noch einen Schritt zurück ? Und dann?
Keine Angaben von Jack, zu den Grenzen von Panoramic. Es ist eine Schande. Ich habe es jetzt auf zwei verschiedenen Computern getestet. 32 Bit und 64 Bit, es läuft nicht mehr.
Die Clientarea von Klaus ist das Optimale, keine Bildschirmgrenzen.
Ich hatte 400 eingerichtet mit je 7 Seiten. Absolut genial.
Und jetzt. Soll ich die Zeit investieren rückwärts programmieren, bis es läuft. Dann vorwärts programmieren bis es wieder explodiert.
Jack hüllt sich in schweigen. Keine technische Angabe zu Panoramic. Ich schreie: Jaaaaack gib Antwort.
Severin der Sontagsprogrammierer
Bonjour Nardo, le programme est trop grand pour le forum. C'est vraiment une fausse indication de l'erreur. Il s'agit d'une erreur aléatoire. Je ne suis pas une variable à deux reprises. C'est pourquoi j'ai toujours s'interroger sur les limites de panoramique. Même dans Excel 2010, les limites sont précisées. L'erreur s'est produite après l'ajout de 20 étiquettes. En outre, le dos ensemble de l'étiquette 20 ne permet pas. Toujours cette erreur. Je pourrais écraser tous les ordinateurs. Une semaine de relâche. Et un programme qui ne fonctionne plus. Un pas en arrière? Et alors? Aucun détail de Jack, aux limites par Panoramic. C'est une honte. J'ai maintenant testé sur deux ordinateurs différents. 32-bit et 64 bit, il cesse de fonctionner. La zone cliente de Klaus est le optimales, pas de bords de l'écran. J'avais mis en place 400 pages avec 7. Absolument génial. Et maintenant. Dois-je investir le temps de programmer en arrière afin qu'il s'exécute. Programme puis vers l'avant à nouveau jusqu'à ce qu'il explose. Jack lui-même enveloppé dans le silence. Aucune spécification technique d'panoramique. Je pleure: donner une réponse Jaaaaack. Severin dimanche programmeur
@ Klaus Jetzt kommt:
(5) More END_IF then IF
Wir stochern im Nebel. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:24 | |
| Nach dem ich dreimal mit dem Kopf auf den Computer geklopft habe, folgender Gedanke:
Ich verwende im Program drei DLL.
"LoadProgram.dll" von Klaus "region.dll" von Klaus "form.dll" von Nardo
Vertragen die drei sich ? Severin
Après avoir frappé trois fois avec sa tête sur l'ordinateur, l'idée suivante:
J'utilise le programme de trois DLL. "LoadProgram.dll" par Klaus "Region.dll" par Klaus "Form.dll" par Nardo
Bien toléré les trois d'entre eux? Severin | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:41 | |
| Wenn Jack mit seinem neuen Programm kommt, sind die DLL dann noch brauchbar ?????? Severin
Fragen über Fragen, wer antwortet ??????????
Quand Jack arrive avec son nouveau programme, dll sont encore utilisables ???????????? Severin
Questions, questions, réponses qui ???????? | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:56 | |
| Teil 1v3 Program - Code:
-
' *** Achtung die "LoadProgram.dll" von Klaus wird benötigt ' *** Note the "region.dll" Klaus is needed label labels gosub labels ' *** gosub constantes gosub variables gosub form0000 :' Grundform gosub form0001 :' Fussform gosub Hauptmenue :' Data für Hauptmenü einlesen gosub Untermenue :' DATA für Untermenüs gosub form0002 :' Menueform gosub form0003 :' Symbolform für die Zukunft gosub form0004 :' Clientform fix gosub CLIENTFORM :' Clientformen variabel gosub main ' CLICK AUF MENÜ FORM 0010 ***************************************************** ' 01 ON_CLICK 1000,area01:ON_CLICK 1001,area01:ON_CLICK 1002,area01:ON_CLICK 1003,area01 ' ON_CLICK 1004,area01 ON_CLICK 1005,area01:ON_CLICK 1006,area01:ON_CLICK 1007,area01:ON_CLICK 1008,area01 ON_CLICK 1009,area01:ON_CLICK 1010,area01:ON_CLICK 1011,area01:ON_CLICK 1012,area01 ON_CLICK 1013,area01:ON_CLICK 1014,area01:ON_CLICK 1015,area01:ON_CLICK 1016,area01 ' ON_CLICK 1017,area01 ON_CLICK 1018,PROGRAMM_ENDE:ON_CLICK 1019,PROGRAMM_ENDE ' 02 ON_CLICK 1020,area01 ON_CLICK 1021,area01 ON_CLICK 1022,area01 ON_CLICK 1023,area01 ON_CLICK 1024,area01 ON_CLICK 1025,area01 ON_CLICK 1026,area01 ON_CLICK 1027,area01 ON_CLICK 1028,area01 ON_CLICK 1029,area01 ON_CLICK 1030,area01 ON_CLICK 1031,area01 ON_CLICK 1032,area01 ON_CLICK 1033,area01 ON_CLICK 1034,area01 ON_CLICK 1035,area01 ON_CLICK 1036,area01 ON_CLICK 1037,area01 ON_CLICK 1038,area01 ON_CLICK 1039,area01 ' 03 ON_CLICK 1040,area01 ON_CLICK 1041,area01 ON_CLICK 1042,area01 ON_CLICK 1043,area01 ON_CLICK 1044,area01 ON_CLICK 1045,area01 ON_CLICK 1046,area01 ON_CLICK 1047,area01 ON_CLICK 1048,area01 ON_CLICK 1049,area01 ON_CLICK 1050,area01 ON_CLICK 1051,area01 ON_CLICK 1052,area01 ON_CLICK 1053,area01 ON_CLICK 1054,area01 ON_CLICK 1055,area01 ON_CLICK 1056,area01 ON_CLICK 1057,area01 ON_CLICK 1058,area01 ON_CLICK 1059,area01 ' 04 ON_CLICK 1060,area01 ON_CLICK 1061,area01 ON_CLICK 1062,area01 ON_CLICK 1063,area01 ON_CLICK 1064,area01 ON_CLICK 1065,area01 ON_CLICK 1066,area01 ON_CLICK 1067,area01 ON_CLICK 1068,area01 ON_CLICK 1069,area01 ON_CLICK 1070,area01 ON_CLICK 1071,area01 ON_CLICK 1072,area01 ON_CLICK 1073,area01 ON_CLICK 1074,area01 ON_CLICK 1075,area01 ON_CLICK 1076,area01 ON_CLICK 1077,area01 ON_CLICK 1078,area01 ON_CLICK 1079,area01 ' 05 ON_CLICK 1080,area01 ON_CLICK 1081,area01 ON_CLICK 1082,area01 ON_CLICK 1083,area01 ON_CLICK 1084,area01 ON_CLICK 1085,area01 ON_CLICK 1086,area01 ON_CLICK 1087,area01 ON_CLICK 1088,area01 ON_CLICK 1089,area01 ON_CLICK 1090,area01 ON_CLICK 1091,area01 ON_CLICK 1092,area01 ON_CLICK 1093,area01 ON_CLICK 1094,area01 ON_CLICK 1095,area01 ON_CLICK 1096,area01 ON_CLICK 1097,area01 ON_CLICK 1098,area01 ON_CLICK 1099,area01 ' 06 ON_CLICK 1100,area01 ON_CLICK 1101,area01 ON_CLICK 1102,area01 ON_CLICK 1103,area01 ON_CLICK 1104,area01 ON_CLICK 1105,area01 ON_CLICK 1106,area01 ON_CLICK 1107,area01 ON_CLICK 1108,area01 ON_CLICK 1109,area01 ON_CLICK 1110,area01 ON_CLICK 1111,area01 ON_CLICK 1112,area01 ON_CLICK 1113,area01 ON_CLICK 1114,area01 ON_CLICK 1115,area01 ON_CLICK 1116,area01 ON_CLICK 1117,area01 ON_CLICK 1118,area01 ON_CLICK 1119,area01 ' 07 ON_CLICK 1120,area01 ON_CLICK 1121,area01 ON_CLICK 1122,area01 ON_CLICK 1123,area01 ON_CLICK 1124,area01 ON_CLICK 1125,area01 ON_CLICK 1126,area01 ON_CLICK 1127,area01 ON_CLICK 1128,area01 ON_CLICK 1129,area01 ON_CLICK 1130,area01 ON_CLICK 1131,area01 ON_CLICK 1132,area01 ON_CLICK 1133,area01 ON_CLICK 1134,area01 ON_CLICK 1135,area01 ON_CLICK 1136,area01 ON_CLICK 1137,area01 ON_CLICK 1138,area01 ON_CLICK 1139,area01 ' 08 ON_CLICK 1140,area01 ON_CLICK 1141,area01 ON_CLICK 1142,area01 ON_CLICK 1143,area01 ON_CLICK 1144,area01 ON_CLICK 1145,area01 ON_CLICK 1146,area01 ON_CLICK 1147,area01 ON_CLICK 1148,area01 ON_CLICK 1149,area01 ON_CLICK 1150,area01 ON_CLICK 1151,area01 ON_CLICK 1152,area01 ON_CLICK 1153,area01 ON_CLICK 1154,area01 ON_CLICK 1155,area01 ON_CLICK 1156,area01 ON_CLICK 1157,area01 ON_CLICK 1158,area01 ON_CLICK 1159,area01 ' 09 ON_CLICK 1160,area01 ON_CLICK 1161,area01 ON_CLICK 1162,area01 ON_CLICK 1163,area01 ON_CLICK 1164,area01 ON_CLICK 1165,area01 ON_CLICK 1166,area01 ON_CLICK 1167,area01 ON_CLICK 1168,area01 ON_CLICK 1169,area01 ON_CLICK 1170,area01 ON_CLICK 1171,area01 ON_CLICK 1172,area01 ON_CLICK 1173,area01 ON_CLICK 1174,area01 ON_CLICK 1175,area01 ON_CLICK 1176,area01 ON_CLICK 1177,area01 ON_CLICK 1178,area01 ON_CLICK 1179,area01 ' 10 ON_CLICK 1180,area01 ON_CLICK 1181,area01 ON_CLICK 1182,area01 ON_CLICK 1183,area01 ON_CLICK 1184,area01 ON_CLICK 1185,area01 ON_CLICK 1186,area01 ON_CLICK 1187,area01 ON_CLICK 1188,area01 ON_CLICK 1189,area01 ON_CLICK 1190,area01 ON_CLICK 1191,area01 ON_CLICK 1192,area01 ON_CLICK 1193,area01 ON_CLICK 1194,area01 ON_CLICK 1195,area01 ON_CLICK 1196,area01 ON_CLICK 1197,area01 ON_CLICK 1198,area01 ON_CLICK 1199,area01 ' 11 ON_CLICK 1200,area01 ON_CLICK 1201,area01 ON_CLICK 1202,area01 ON_CLICK 1203,area01 ON_CLICK 1204,area01 ON_CLICK 1205,area01 ON_CLICK 1206,area01 ON_CLICK 1207,area01 ON_CLICK 1208,area01 ON_CLICK 1209,area01 ON_CLICK 1210,area01 ON_CLICK 1211,area01 ON_CLICK 1212,area01 ON_CLICK 1213,area01 ON_CLICK 1214,area01 ON_CLICK 1215,area01 ON_CLICK 1216,area01 ON_CLICK 1217,area01 ON_CLICK 1218,area01 ON_CLICK 1219,area01 ' 12 ON_CLICK 1220,area01 ON_CLICK 1221,area01 ON_CLICK 1222,area01 ON_CLICK 1223,area01 ON_CLICK 1224,area01 ON_CLICK 1225,area01 ON_CLICK 1226,area01 ON_CLICK 1227,area01 ON_CLICK 1228,area01 ON_CLICK 1229,area01 ON_CLICK 1230,area01 ON_CLICK 1231,area01 ON_CLICK 1232,area01 ON_CLICK 1233,area01 ON_CLICK 1234,area01 ON_CLICK 1235,area01 ON_CLICK 1236,area01 ON_CLICK 1237,area01 ON_CLICK 1238,area01 ON_CLICK 1239,area01 ' 13 ON_CLICK 1240,area01 ON_CLICK 1241,area01 ON_CLICK 1242,area01 ON_CLICK 1243,area01 ON_CLICK 1244,area01 ON_CLICK 1245,area01 ON_CLICK 1246,area01 ON_CLICK 1247,area01 ON_CLICK 1248,area01 ON_CLICK 1249,area01 ON_CLICK 1250,area01 ON_CLICK 1251,area01 ON_CLICK 1252,area01 ON_CLICK 1253,area01 ON_CLICK 1254,area01 ON_CLICK 1255,area01 ON_CLICK 1256,area01 ON_CLICK 1257,area01 ON_CLICK 1258,area01 ON_CLICK 1259,area01 ' 14 ON_CLICK 1260,area01 ON_CLICK 1261,area01 ON_CLICK 1262,area01 ON_CLICK 1263,area01 ON_CLICK 1264,area01 ON_CLICK 1265,area01 ON_CLICK 1266,area01 ON_CLICK 1267,area01 ON_CLICK 1268,area01 ON_CLICK 1269,area01 ON_CLICK 1270,area01 ON_CLICK 1271,area01 ON_CLICK 1272,area01 ON_CLICK 1273,area01 ON_CLICK 1274,area01 ON_CLICK 1275,area01 ON_CLICK 1276,area01 ON_CLICK 1277,area01 ON_CLICK 1278,area01 ON_CLICK 1279,area01 ' 15 ON_CLICK 1280,area01 ON_CLICK 1281,area01 ON_CLICK 1282,area01 ON_CLICK 1283,area01 ON_CLICK 1284,area01 ON_CLICK 1285,area01 ON_CLICK 1286,area01 ON_CLICK 1287,area01 ON_CLICK 1288,area01 ON_CLICK 1289,area01 ON_CLICK 1290,area01 ON_CLICK 1291,area01 ON_CLICK 1292,area01 ON_CLICK 1293,area01 ON_CLICK 1294,area01 ON_CLICK 1295,area01 ON_CLICK 1296,area01 ON_CLICK 1297,area01 ON_CLICK 1298,area01 ON_CLICK 1299,area01 ' 16 ON_CLICK 1300,area01 ON_CLICK 1301,area01 ON_CLICK 1302,area01 ON_CLICK 1303,area01 ON_CLICK 1304,area01 ON_CLICK 1305,area01 ON_CLICK 1306,area01 ON_CLICK 1307,area01 ON_CLICK 1308,area01 ON_CLICK 1309,area01 ON_CLICK 1310,area01 ON_CLICK 1311,area01 ON_CLICK 1312,area01 ON_CLICK 1313,area01 ON_CLICK 1314,area01 ON_CLICK 1315,area01 ON_CLICK 1316,area01 ON_CLICK 1317,area01 ON_CLICK 1318,area01 ON_CLICK 1319,area01 ' 17 ON_CLICK 1320,area01 ON_CLICK 1321,area01 ON_CLICK 1322,area01 ON_CLICK 1323,area01 ON_CLICK 1324,area01 ON_CLICK 1325,area01 ON_CLICK 1326,area01 ON_CLICK 1327,area01 ON_CLICK 1328,area01 ON_CLICK 1329,area01 ON_CLICK 1330,area01 ON_CLICK 1331,area01 ON_CLICK 1332,area01 ON_CLICK 1333,area01 ON_CLICK 1334,area01 ON_CLICK 1335,area01 ON_CLICK 1336,area01 ON_CLICK 1337,area01 ON_CLICK 1338,area01 ON_CLICK 1339,area01 ' 19 ON_CLICK 1340,area01 ON_CLICK 1341,area01 ON_CLICK 1342,area01 ON_CLICK 1343,area01 ON_CLICK 1344,area01 ON_CLICK 1345,area01 ON_CLICK 1346,area01 ON_CLICK 1347,area01 ON_CLICK 1348,area01 ON_CLICK 1349,area01 ON_CLICK 1350,area01 ON_CLICK 1351,area01 ON_CLICK 1352,area01 ON_CLICK 1353,area01 ON_CLICK 1354,area01 ON_CLICK 1355,area01 ON_CLICK 1356,area01 ON_CLICK 1357,area01 ON_CLICK 1358,area01 ON_CLICK 1359,area01 ' 20 ON_CLICK 1360,area01 ON_CLICK 1361,area01 ON_CLICK 1362,area01 ON_CLICK 1363,area01 ON_CLICK 1364,area01 ON_CLICK 1365,area01 ON_CLICK 1366,area01 ON_CLICK 1367,area01 ON_CLICK 1368,area01 ON_CLICK 1369,area01 ON_CLICK 1370,area01 ON_CLICK 1371,area01 ON_CLICK 1372,area01 ON_CLICK 1373,area01 ON_CLICK 1374,area01 ON_CLICK 1375,area01 ON_CLICK 1376,area01 ON_CLICK 1377,area01 ON_CLICK 1378,area01 ON_CLICK 1379,area01 ' end ' ****************************************************************************** labels: label form0000 :' Grundform label form0001 :' Fussform label form0002 :' Menueform label form0003 :' Symbolform für die Zukunft label form0004 :' Clientform fix label CLIENTFORM :' Clientformen Variabel ' *** Label für Fenster auf Form - "region.dll" - ***************************** LABEL FENSTER_AUF :' mode%,top%,left%,width%,height% LABEL FENSTER_ZU DIM FENSTER% DIM FENSTER_x1 :' top% DIM FENSTER_y1 :' left% DIM FENSTER_x2 :' width% DIM FENSTER_y2 :' height% ' *** Label für Objekte anhängen - "LoadProgram.dll" - ************************* LABEL OBJEKT_AN :' Objekt anhängen LABEL OBJEKT_AB :' Objekt abhängen DIM PARENTNUMMER1% DIM PARENTNUMMER2% :' Form 0000 DIM ancien% ' *** Weitere Labels *********************************************************** label Hauptmenue label Untermenue label PROGRAMM_ENDE label constantes label variables label main ' *** label BAR_HORIZONTAL_H :' BAR für horizontal und vertikal erstellen - Abmessung label BAR_VERTICAL_V :' BAR für horizontal und vertikal erstellen - Abmessung label BAR_HORIZONTAL_HE :' BAR für horizontal ohne vertikal erstellen - Abmessung label BAR_VERTICAL_VE :' BAR für vertikal ohne vertikal erstellen - Abmessung ' *** label add_object label add_hor_object label scroll_vertical label scroll_horizontal label add_client_area label area00 label area01 label SEITENTRENNER ' ****************************************************************************** DIM INI_WERT$ DIM SPRACHE% SPRACHE% = 1 :' Sprachauswahl ' SPRACHE% = 2 :' Sprachauswahl ' SPRACHE% = 3 :' Sprachauswahl DIM INI_DIR_A$ DIM INI_DATEI_WERTE0$ ' return ' ****************************************************************************** ' 19 ' Label FORM341:Label FORM342:Label FORM343:Label FORM344:Label FORM345 ' Label FORM346:Label FORM347:Label FORM348:Label FORM349:Label FORM350 ' Label FORM351:Label FORM352:Label FORM353:Label FORM354:Label FORM355 ' Label FORM356:Label FORM357:Label FORM358:Label FORM359:Label FORM360 ' 20 ' Label FORM361:Label FORM362:Label FORM363:Label FORM364:Label FORM365 ' Label FORM366:Label FORM367:Label FORM368:Label FORM369:Label FORM370 ' Label FORM371:Label FORM372:Label FORM373:Label FORM374:Label FORM375 ' Label FORM376:Label FORM377:Label FORM378:Label FORM379:Label FORM380 ' *** KONSTANTE FÜR CLIENTARENA ************************************************ constantes: ' if variable("max_client_area%")=1 then ' message "Die variable xxx ist schon definiert !" ' else ' message "Die variable xxx ist noch nicht definiert !" ' end_if dim max_client_area% max_client_area% = 430 :' Maximale Anzahl Clientarea dim max_height% max_height% = (SCREEN_Y-190) * 12 :' Maximale Seitenzahl 12 ' max_height% = 30000 :' Maximale Pixel für Höhe dim max_width% max_width% = 3000 :' Maximale Pixel für Breite dim option_left_hide%(max_client_area%) dim option_top_hide%(max_client_area%) return ' ****************************************************************************** variables: dim tab_hor_obj%(30,max_client_area%) :' Anzahl Objekte auf Clientform 30 dim tab_obj%(30,max_client_area%) :' Anzahl Objekte auf Clientform 30 dim no% dim n_client_area% dim client_area%(max_client_area%) dim no_name% dim no_memo% dim scroll_bar%(max_client_area%) dim scroll_bar_horizontal%(max_client_area%) dim scroll_pos%(max_client_area%) dim scroll_pos_horizontal%(max_client_area%) dim n_obj%(max_client_area%) dim scroll_bar_vertical%(max_client_area%) dim separator%(max_client_area%) dim n_hor_obj%(max_client_area%) dim SEITE% dim i%, j%, n% dim x_client_area% dim Form_nr% dim Form_Nr$ ' *** VARIABLE FÜR TABELLEN ERSTELLEN ****************************************** DIM Zeilennummer$ DIM Spaltennummer$ DIM Spalte% DIM Zeile% ' DIM TABWERTE%(Zeile%,Spalte%) DIM TABTEXTE$(Zeile%,Spalte%) DIM a, b ' *** VARIABLE FÜR MENÜS ERSTELLEN ********************************************* DIM Menuetext$ DIM TEXT_MENUE_00$(20,3) DIM TEXT_MENUE_01$(380,3) DIM TITEL$(99,3) return ' *** PROGRAMM BEENDEN ********************************************************* PROGRAMM_ENDE: Pause 10 terminate END
' ****************************************************************************** ' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ****************** form0000: DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",HANDLE(0)) Schließen deaktiviert DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)Vergrößern deaktiviert DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)Verkleinern deaktiviert ' ' *** FORM 0000 GRUNDFORM ERSTELLEN ******************************************** dll_on "form.dll" FORM_BUTTON_Off13=dll_call1("SetCloseOff",HANDLE(0)) FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) dll_off ' TITEL$(1,1) = " Programm für Industrial Engineering " TITEL$(1,2) = " Program for Industrial Engineering " TITEL$(1,3) = " Programme de Génie Industriel " ' ' ****************************************************************************** ' *** Grundform 0000 *********************************************************** TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-44 caption 0000,"REFA - Programme" color 0000,000,000,000 :' schwarz / black CAPTION 0000,TITEL$(1,SPRACHE%) PARENTNUMMER2% = HANDLE(0000) :' Form 0000 Return ' ****************************************************************************** ' ********** Fussform 0001 ***************************************************** form0001: COMMAND_TARGET_IS 0000 FORM 0001 TOP 0001,SCREEN_Y-101 LEFT 0001,2 WIDTH 0001,SCREEN_X-12 HEIGHT 0001,28 FONT_NAME 0001,"Courier NEW" FONT_SIZE 0001,08 COLOR 0001,000,255,000 :' grün / green PARENTNUMMER1% = HANDLE(0001) :' Form 0001 auf Form 0000 PARENTNUMMER2% = HANDLE(0000) :' Form 0000 no% = 1 GOSUB OBJEKT_AN BORDER_HIDE 0001 ' ' *** später durch Bild ersetzen *********************************************** COMMAND_TARGET_IS 0001 BUTTON 0091 parent 0091,0001 TOP 0091,3 LEFT 0091,2 WIDTH 0091,22 HEIGHT 0091,22 CAPTION 0091,"XX" ' ' *** ANZEIGE DER FORM-NUMMER IN DER FUSSLEISTE ******************************** COMMAND_TARGET_IS 0001 EDIT 0092 parent 0092,0001 TOP 0092,4 LEFT 0092,28 WIDTH 0092,40 HEIGHT 0092,24 FONT_COLOR 0092,255,000,000 TEXT 0092," 0000 " Menuetext$ = TEXT$(0092) PRINT Menuetext$ ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ******************************************************************************
Dernière édition par Severin le Mar 12 Juin 2012 - 21:22, édité 1 fois | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:58 | |
| Teil 2 - Code:
-
' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' *** ANZEIGE DER FORM-BESCHREIBUNG IN DER FUSSLEISTE ************************** COMMAND_TARGET_IS 0001 EDIT 0093 parent 0093,0001 TOP 0093,4 LEFT 0093,74 WIDTH 0093,370 HEIGHT 0093,24 ' TITEL$(2,1) = " Willkommen im Programm --- ZEITWIRTSCHAFT ---" TITEL$(2,2) = " Welcome to the program --- TIME ECONOMY ---" TITEL$(2,3) = " Bienvenue dans le programme --- économie de temps --- " ' FONT_COLOR 0093,255,000,000 TEXT 0093,TITEL$(2,SPRACHE%) Menuetext$ = TITEL$(2,SPRACHE%) PRINT Menuetext$ return ' ****************************************************************************** ' ********** Menueform 0002 **************************************************** form0002: COMMAND_TARGET_IS 0000 FORM 0002 TOP 0002,2 LEFT 0002,2 WIDTH 0002,SCREEN_X-12 HEIGHT 0002,0 :' SCREEN_Y-106 FONT_NAME 0002,"Courier NEW" FONT_SIZE 0002,01 Color 0002,000,000,000 :' schwarz / black BORDER_HIDE 0002 PARENTNUMMER1% = HANDLE(0002) :' Form 0002 auf Form 0000 PARENTNUMMER2% = HANDLE(0000) :' Form 0000 no% = 2 GOSUB OBJEKT_AN ' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************ COMMAND_TARGET_IS 0002 main_menu 0009 sub_menu 901:CAPTION 901,TEXT_MENUE_00$(01,SPRACHE%):parent 901,0009 sub_menu 902:CAPTION 902,TEXT_MENUE_00$(02,SPRACHE%):parent 902,0009 sub_menu 903:CAPTION 903,TEXT_MENUE_00$(03,SPRACHE%):parent 903,0009 sub_menu 904:CAPTION 904,TEXT_MENUE_00$(04,SPRACHE%):parent 904,0009 sub_menu 905:CAPTION 905,TEXT_MENUE_00$(05,SPRACHE%):parent 905,0009 sub_menu 906:CAPTION 906,TEXT_MENUE_00$(06,SPRACHE%):parent 906,0009 sub_menu 907:CAPTION 907,TEXT_MENUE_00$(07,SPRACHE%):parent 907,0009 sub_menu 908:CAPTION 908,TEXT_MENUE_00$(08,SPRACHE%):parent 908,0009 sub_menu 909:CAPTION 909,TEXT_MENUE_00$(09,SPRACHE%):parent 909,0009 sub_menu 910:CAPTION 910,TEXT_MENUE_00$(10,SPRACHE%):parent 910,0009 sub_menu 911:CAPTION 911,TEXT_MENUE_00$(11,SPRACHE%):parent 911,0009 sub_menu 912:CAPTION 912,TEXT_MENUE_00$(12,SPRACHE%):parent 912,0009 sub_menu 913:CAPTION 913,TEXT_MENUE_00$(13,SPRACHE%):parent 913,0009 sub_menu 914:CAPTION 914,TEXT_MENUE_00$(14,SPRACHE%):parent 914,0009 sub_menu 915:CAPTION 915,TEXT_MENUE_00$(15,SPRACHE%):parent 915,0009 sub_menu 916:CAPTION 916,TEXT_MENUE_00$(16,SPRACHE%):parent 916,0009 sub_menu 917:CAPTION 917,TEXT_MENUE_00$(17,SPRACHE%):parent 917,0009 sub_menu 918:CAPTION 918,TEXT_MENUE_00$(18,SPRACHE%):parent 918,0009 sub_menu 919:CAPTION 919,TEXT_MENUE_00$(19,SPRACHE%):parent 919,0009 sub_menu 920:CAPTION 920,TEXT_MENUE_00$(20,SPRACHE%):parent 920,0009 INACTIVE 918 ' *** SUBMENÜS ERSTELLEN ******************************************************* j% = 1 FOR i% = 1000 TO 1019 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,901 j% =J%+1 NEXT i% INACTIVE 1004:INACTIVE 1017:' Teilstriche im Submenü ' FOR i% = 1020 TO 1039 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,902 j% =J%+1 NEXT i% ' FOR i% = 1040 TO 1059 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,903 j% =J%+1 NEXT i% ' FOR i% = 1060 TO 1079 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,904 j% =J%+1 NEXT i% ' FOR i% = 1080 TO 1099 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,905 j% =J%+1 NEXT i% ' FOR i% = 1100 TO 1119 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,906 j% =J%+1 NEXT i% ' FOR i% = 1120 TO 1139 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,907 j% =J%+1 NEXT i% ' FOR i% = 1140 TO 1159 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,908 j% =J%+1 NEXT i% ' FOR i% = 1160 TO 1179 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,909 j% =J%+1 NEXT i% ' FOR i% = 1180 TO 1199 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,910 j% =J%+1 NEXT i% ' FOR i% = 1200 TO 1219 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,911 j% =J%+1 NEXT i% ' FOR i% = 1220 TO 1239 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,912 j% =J%+1 NEXT i% ' FOR i% = 1240 TO 1259 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,913 j% =J%+1 NEXT i% ' FOR i% = 1260 TO 1279 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,914 j% =J%+1 NEXT i% ' FOR i% = 1280 TO 1299 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,915 j% =J%+1 NEXT i% ' FOR i% = 1300 TO 1319 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,916 j% =J%+1 NEXT i% ' FOR i% = 1320 TO 1339 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,917 j% =J%+1 NEXT i% ' FOR i% = 1340 TO 1359 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,919 j% =J%+1 NEXT i% ' FOR i% = 1360 TO 1379 sub_menu i%:CAPTION i%,TEXT_MENUE_01$(j%,SPRACHE%):parent i%,920 j% =J%+1 NEXT i% ' return ' ****************************************************************************** ' ********** Symbolform 0003 für die Zukunft *********************************** form0003: COMMAND_TARGET_IS 0000 FORM 0003 TOP 0003,22 LEFT 0003,2 WIDTH 0003,SCREEN_X-12 HEIGHT 0003,50 FONT_NAME 0003,"Courier NEW" FONT_SIZE 0003,06 COLOR 0003,255,000,000 :' rot / red PARENTNUMMER1% = HANDLE(0003) :' Form 0003 auf Form 0000 PARENTNUMMER2% = HANDLE(0000) :' Form 0000 no% = 3 GOSUB OBJEKT_AN BORDER_HIDE 0003 return ' ****************************************************************************** ' *** Clientform fix 0004 für variablen Clientformen erstellen ***************** form0004: COMMAND_TARGET_IS 0000 FORM 0004 TOP 0004,74 LEFT 0004,2 WIDTH 0004,SCREEN_X-12 HEIGHT 0004,SCREEN_Y-177 FONT_NAME 0004,"Courier NEW" FONT_SIZE 0004,06 COLOR 0004,000,000,255 :' blau / blue PARENTNUMMER1% = HANDLE(0004) :' Form 0004 auf Form 0000 PARENTNUMMER2% = HANDLE(0000) :' Form 0000 no% = 4 GOSUB OBJEKT_AN BORDER_HIDE 0004 return ' ****************************************************************************** ' *** Clientformen variabel 1 bis 340 auf Clientform fix 0004 erstellen ******* CLIENTFORM: no% = 2000 For i% = 1 To 340 :' 380 Clientformen ' COMMAND_TARGET_IS 0004 no% = no%+1 Form_nr% = no% Form no% hide no% ' gosub add_client_area top no%,0 left no%,0 width no%,SCREEN_X-12 height no%,SCREEN_Y-177 FONT_NAME no%,"Courier NEW" FONT_SIZE no%,06 COLOR no%,222,222,222 BORDER_HIDE no% PARENTNUMMER1% = HANDLE(Form_nr%) :' Clientform no% auf Form 0004 befestigen PARENTNUMMER2% = HANDLE(0004) :' Clientform fix 0004 ' GOSUB OBJEKT_AN ' ****************************************************************************** COMMAND_TARGET_IS Form_nr% no% = no% + 1 alpha no% parent no%,client_area%(n_client_area%) font_size no%,20 font_color no%,255,0,0 top no%,500 left no%,10 font_bold no% caption no%,i% :' "My Tabelle" ' *** gosub add_object : ' ermöglicht vertikales Scrollen gosub add_hor_object : ' ermöglicht horizontales Scrollen ' ' *** gosub SEITENTRENNER :' Bildschirmabgrenzung
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen ' Next i% ' ' ****************************************************************************** ' *** Clientformen variabel 341 bis 380 auf Clientform fix 0004 erstellen ****** ' ****************************************************************************** ' *** NUR VERTILAL SCROLL OHNE HORITONTAL SCROLL ****************************** For i% = 341 To 380 :' 380 Clientformen ' COMMAND_TARGET_IS 0004 no% = no%+1 Form_nr% = no% Form no% hide no% ' gosub add_client_area top no%,0 left no%,0 width no%,SCREEN_X-12 height no%,SCREEN_Y-177 FONT_NAME no%,"Courier NEW" FONT_SIZE no%,06 COLOR no%,222,222,222 BORDER_HIDE no% PARENTNUMMER1% = HANDLE(Form_nr%) :' Clientform no% auf Form 0004 befestigen PARENTNUMMER2% = HANDLE(0004) :' Clientform fix 0004 ' GOSUB OBJEKT_AN ' ****************************************************************************** COMMAND_TARGET_IS Form_nr% no% = no% + 1 alpha no% parent no%,client_area%(n_client_area%) font_size no%,20 font_color no%,255,0,0 top no%,500 left no%,10 font_bold no% caption no%,i% :' "My Tabelle" ' *** gosub add_object : ' ermöglicht vertikales Scrollen gosub add_hor_object : ' ermöglicht horizontales Scrollen ' ' *** gosub SEITENTRENNER :' Bildschirmabgrenzung
' gosub BAR_HORIZONTAL_HE :' Bar Horizontal auf AREA erstellen gosub BAR_VERTICAL_VE :' Bar Vertical auf AREA erstellen ' Next i% ' RETURN ' ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** COMMAND_TARGET_IS 0004 no% = 0010 Form_nr% = no% Form no% hide no% gosub add_client_area top no%,0 left no%,0 width no%,SCREEN_X-12 height no%,SCREEN_Y-177 FONT_NAME no%,"Courier NEW" FONT_SIZE no%,06 COLOR no%,222,222,222 BORDER_HIDE no% PARENTNUMMER1% = HANDLE(0010) :' Clientform 0010 auf Form 0004 befestigen PARENTNUMMER2% = HANDLE(0004) :' Clientform fix 0004 ' GOSUB OBJEKT_AN show no% ' *** Tabelle auf Form erstellen *********************************************** Zeilennummer$ = "0000" Spaltennummer$ = "0000" Spalte% = 00030 Zeile% = 01415 ' *** no% = no% + 1 grid no% parent no%,client_area%(n_client_area%) hide no% top no%,050 :' Anzahl Pixel von oben left no%,049 :' Anzahl der Pixel von links width no%,1542 :' Tabellen Breite height no%,max_height%-250 :' Tabellen Höhe FONT_NAME no%,"Courier NEW" FONT_SIZE no%,08 grid_column no%,Spalte% :' Anzahl Spalten grid_row no%,Zeile% :' Anzahl Zeilen grid_column_width no%,50 :' Breite Spalten grid_row_height no%,20 :' Höhe Spalten grid_column_fixed no%,1 :' Anzahl fixierter Spalten grid_row_fixed no%,1 :' Anzahl fixierter Zeilen grid_one_column_width no%,1,50 :' Erste Spalte mit xx Pixel grid_one_row_height no%,1,20 :' Erste Zeile mit xx Pixel grid_column_sizing_off no% :' Spalten sind mit der Maus nicht verschiebbar grid_row_sizing_off no% :' Zeilen sind mit der Maus nicht verschiebbar show no% ' *** gosub add_object : ' ermöglicht vertikales Scrollen - allow vertical scrolling gosub add_hor_object : ' ermöglicht horizontales Scrollen - allow horizontal scrolling ' *** Programm - Tabelle 1. Spalte senkrecht erstellen ************************* Zeilennummer$ = "0000" Spaltennummer$ = "0000" Spalte% = 00001 Zeile% = 01410 ' *** no% = no% + 1 grid no% parent no%,client_area%(n_client_area%) hide no% top no%,050 :' Anzahl Pixel von oben left no%,049 :' Anzahl der Pixel von links width no%,51 :' Tabellen Breite height no%,max_height%-250 :' Tabellen Höhe FONT_NAME no%,"Courier NEW" FONT_SIZE no%,08 grid_column no%,Spalte% :' Anzahl Spalten grid_row no%,Zeile% :' Anzahl Zeilen grid_column_width no%,50 :' Breite Spalten grid_row_height no%,20 :' Höhe Spalten grid_one_column_width no%,1,50 :' Erste Spalte mit xx Pixel grid_one_row_height no%,1,20 :' Erste Zeile mit xx Pixel grid_column_sizing_off no% :' Spalten sind mit der Maus nicht verschiebbar grid_row_sizing_off no% :' Zeilen sind mit der Maus nicht verschiebbar show no% ' *** Beschriftung der 2. bis X. Zeile **************************************** For i% = 1 to Zeile% Zeilennummer$ = "0000" Zeilennummer$ = Zeilennummer$+STR$(i%) Zeilennummer$ = Right$(Zeilennummer$,4) Zeilennummer$ = " " + Zeilennummer$ grid_write no%,i%+1,1,Zeilennummer$ :' schreiben ab 2. Zeile, 1. Spalte next i% gosub add_object : ' allow vertical scrolling ' gosub add_hor_object : ' allow horizontal scrolling ' *** Programm - Tabellenkopf erstellen **************************************** Zeilennummer$ = "0000" Spaltennummer$ = "0000" Spalte% = 00030 Zeile% = 00001 ' ****************************************************************************** no% = no% + 1 grid no% parent no%,client_area%(n_client_area%) hide no% top no%,050 :' Anzahl Pixel von oben left no%,048 :' Anzahl der Pixel von links width no%,1542 :' Tabellen Breite height no%,22 :' Tabellen Höhe FONT_NAME no%,"Courier NEW" FONT_SIZE no%,08 grid_column no%,Spalte% :' Anzahl Spalten grid_row no%,Zeile% :' Anzahl Zeilen grid_column_width no%,50 :' Breite Spalten grid_row_height no%,22 :' Höhe Spalten grid_one_column_width no%,1,51 :' Erste Spalte mit xx Pixel grid_one_row_height no%,1,20 :' Erste Zeile mit xx Pixel grid_column_sizing_off no% :' Spalten sind mit der Maus nicht verschiebbar grid_row_sizing_off no% :' Zeilen sind mit der Maus nicht verschiebbar show no% For i% = 1 to Spalte% Spaltennummer$ = "0000" Spaltennummer$ = Spaltennummer$+STR$(i%) Spaltennummer$ = Right$(Spaltennummer$,4) Spaltennummer$ = " " + Spaltennummer$ grid_write no%,1,i%+1,Spaltennummer$ :' schreiben ab 2. Spalte, 1. Zeile next i% inactive no% gosub add_hor_object : ' allow horizontal scrolling ' gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' *** FORM MIT FENSTER 1 ******************************************************* COMMAND_TARGET_IS 0010 no% = 0016 Form no% hide no% ' gosub add_client_area top no%,0 left no%,0 width no%,SCREEN_X-30 height no%,SCREEN_Y-177-17 FONT_NAME no%,"Courier NEW" FONT_SIZE no%,06 COLOR no%,222,222,222 BORDER_HIDE no% PARENTNUMMER1% = HANDLE(0016) :' Form XXXX auf Form 0004 befestigen PARENTNUMMER2% = HANDLE(0010) GOSUB OBJEKT_AN ' *** Fenster erstellen ******************************************************** ' Form,mode%,top%,left%,width%,height% FENSTER_x1 = 50 FENSTER_y1 = 50 FENSTER_x2 = SCREEN_X-30 FENSTER_y2 = SCREEN_Y-177 Gosub FENSTER_auf show no% ' gosub add_object : ' allow vertical scrolling ' gosub add_hor_object : ' allow horizontal scrolling ' no% = no% + 1 alpha no% parent no%,client_area%(n_client_area%) font_size no%,20 font_color no%,255,0,0 top no%,10 left no%,100 font_bold no% caption no%,number_Click :' "My Tabelle" gosub add_object Return ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' *** SCROLL BAR wenn nur VERTICAL ********************************************* BAR_VERTICAL_VE: no% = no% + 1 scroll_bar no% scroll_bar_vertical%(n_client_area%) = no% parent no%,client_area%(n_client_area%) vertical no% top no%,0 left no%,SCREEN_X-30 height no%,SCREEN_Y-177 min no%,0 max no%, max_height% - height(client_area%(n_client_area%))-20 on_change no%,scroll_vertical Return ' *** SCROLL BAR HORIZONTAL wenn nur Horizontal ******************************** BAR_HORIZONTAL_HE: no% = no% + 1 scroll_bar no% scroll_bar_horizontal%(n_client_area%) = no% parent no%,client_area%(n_client_area%) horizontal no% top no%,SCREEN_Y-194 left no%,0 width no%,SCREEN_X-29 min no%,0 max no%, max_width% - width(client_area%(n_client_area%))-20 on_change no%,scroll_horizontal return ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' *** SCROLL BAR VERTICAL wenn auch Horizontal ********************************* BAR_VERTICAL_V: no% = no% + 1 scroll_bar no% scroll_bar_vertical%(n_client_area%) = no% parent no%,client_area%(n_client_area%) vertical no% top no%,0 left no%,SCREEN_X-30 height no%,SCREEN_Y-195 min no%,0 max no%, max_height% - height(client_area%(n_client_area%))-20 on_change no%,scroll_vertical Return ' *** SCROLL BAR HORIZONTAL wenn auch Vertikal ********************************* BAR_HORIZONTAL_H: no% = no% + 1 scroll_bar no% scroll_bar_horizontal%(n_client_area%) = no% parent no%,client_area%(n_client_area%) horizontal no% top no%,SCREEN_Y-194 left no%,0 width no%,SCREEN_X-29 min no%,0 max no%, max_width% - width(client_area%(n_client_area%))-20 on_change no%,scroll_horizontal return ' ****************************************************************************** ' ****************************************************************************** add_object: n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1 tab_obj%(n_obj%(n_client_area%),n_client_area%) = no% return ' ****************************************************************************** add_hor_object: n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1 tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no% return ' ****************************************************************************** add_client_area: n_client_area% = n_client_area% + 1 client_area%(n_client_area%) = no% return ' ****************************************************************************** scroll_vertical: n% = number_change for i%=1 to n_client_area% if scroll_bar_vertical%(i%)=n% x_client_area% = i% exit_for end_if next i% if n_obj%(x_client_area%)=0 then return n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%) scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%)) if x_client_area%<>1 caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1) end_if for i%=1 to n_obj%(x_client_area%) top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n% if option_top_hide%(x_client_area%)=1 if top(tab_obj%(i%,x_client_area%))<10 hide tab_obj%(i%,x_client_area%) else show tab_obj%(i%,x_client_area%) end_if end_if next i% return ' ****************************************************************************** scroll_horizontal: n% = number_change for i%=1 to n_client_area% if scroll_bar_horizontal%(i%)=n% x_client_area% = i% exit_for end_if next i% if n_hor_obj%(x_client_area%)=0 then return n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%) scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%)) for i%=1 to n_hor_obj%(x_client_area%) left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n% if option_left_hide%(x_client_area%)=1 if left(tab_hor_obj%(i%,x_client_area%))<10 hide tab_hor_obj%(i%,x_client_area%) else show tab_hor_obj%(i%,x_client_area%) end_if end_if next i% return ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 20:59 | |
| Teil 3 - Code:
-
' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** ' *** Seitentrenner ************************************************************ SEITENTRENNER: FOR SEITE% = 1 TO (max_height%+(SCREEN_Y-195))/(SCREEN_Y-195) no% = no% + 1 container no% parent no%,client_area%(n_client_area%) top no%,((SCREEN_Y-175) * (SEITE%-1)) left no%,2 width no%,max_width%-42 :' SCREEN_X-75 height no%,20 color no%,229,229,200 caption no%,"Seite "+STR$(seite%)+" Menü-Nr. "+STR$(Form_nr%) gosub add_object : ' allow vertical scrolling gosub add_hor_object : ' allow horizontal scrolling NEXT SEITE% Return ' ****************************************************************************** ' ****************************************************************************** area00: hide client_area%(x_client_area%) x_client_area% = 5 :' number_Click+1 show client_area%(x_client_area%) return ' ****************************************************************************** area01: hide client_area%(x_client_area%) x_client_area% = number_Click -995 ' ' ' ' ' show client_area%(x_client_area%) return ' ****************************************************************************** main: x_client_area% = 5 gosub area00 return ' *** DLL "LoadProgram.dll" von Klaus ****************************************** ' *** Objekt anhängen ********************************************************** OBJEKT_AN: gosub add_client_area dll_on "LoadProgram.dll" ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1) dll_off RETURN ' *** Objekt abhängen ********************************************************** OBJEKT_AB: dll_on "LoadProgram.dll" ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0) dll_off RETURN ' *** DLL "region.dll" von KLaus *********************************************** ' *** Fenster in Form erstellen ************************************************ FENSTER_AUF: dll_on "region.dll" ' mode%,top%,left%,width%,height% FENSTER% = dll_call6("WindowRectangleHole",handle(16),1,FENSTER_x1,FENSTER_y1,FENSTER_x2,FENSTER_y2) dll_off return ' **** Fenster in Form schliessen ********************************************** FENSTER_ZU: dll_on "region.dll" FENSTER% = dll_call6("WindowRectangleHole",handle(4),0,0,0,0,0) dll_off return ' ****************************************************************************** ' *** TEXT FÜR HAUPTMENÜ IN DATA ZELLEN ERSTELLEN ****************************** DATA "DATEI" ,"FILE" ,"DOSSIER" DATA "MENUE 02" ,"MENU 02 " ,"MENU 02" DATA "MENUE 03" ,"MENU 03 " ,"MENU 03 " DATA "MENUE 04" ,"MENU 04 " ,"MENU 04 " DATA "MENUE 05" ,"MENU 05 " ,"MENU 05 " DATA "MENUE 06" ,"MENU 06 " ,"MENU 06 " DATA "MENUE 07" ,"MENU 07 " ,"MENU 07 " DATA "MENUE 08" ,"MENU 08 " ,"MENU 08 " DATA "MENUE 09" ,"MENU 09 " ,"MENU 09 " DATA "MULTIMOMENTSTUDIE" ,"MULTI-DEGREE MOMENT " ,"PLUSIEURS DEGRÉS MOMENT " DATA "MENUE 11" ,"MENU 11 " ,"MENU 11 " DATA "FORMELBILDUNG" ,"EDUCATION FORMULA " ,"ÉDUCATION FORMULE " DATA "MENUE 13" ,"MENU 13 " ,"MENU 13 " DATA "MENUE 14" ,"MENU 14 " ,"MENU 14 " DATA "MENUE 15" ,"MENU 15 " ,"MENU 15 " DATA "Test-MENUE 16" ,"Test-MENU 16 " ,"Test-MENU 16 " DATA "EINSTELLUNG" ,"SETTING " ," MISE EN " DATA " "," "," " DATA "HILFE","HELP","AID" DATA "INFO" ,"INFO","INFO" ' *** Hauptmenue: FOR i% = 1 TO 20 :FOR j% = 1 TO 3 READ TEXT_MENUE_00$(i%,j%) NEXT j% :NEXT i% RETURN ' *** 01 DATA " 001 UNTERMENUE "," New "," Nouveau " DATA " 002 UNTERMENUE "," Open ... "," Ouvert ... " DATA " 003 UNTERMENUE "," Save "," Sauver " DATA " 004 UNTERMENUE "," Save under "," Enregistrer sous" DATA "====================","====================","====================" DATA " 006 UNTERMENUE "," SUB NENU 0106 "," SUB NENU 0106 " DATA " 007 UNTERMENUE "," SUB NENU 0107 "," SUB NENU 0107 " DATA " 008 UNTERMENUE "," SUB NENU 0108 "," SUB NENU 0108 " DATA " 009 UNTERMENUE "," SUB NENU 0109 "," SUB NENU 0109 " DATA " 010 UNTERMENUE "," SUB NENU 0110 "," SUB NENU 0110 " DATA " 011 UNTERMENUE "," SUB NENU 0111 "," SUB NENU 0111 " DATA " 012 UNTERMENUE "," SUB NENU 0112 "," SUB NENU 0112 " DATA " 013 UNTERMENUE "," SUB NENU 0113 "," SUB NENU 0113 " DATA " 014 UNTERMENUE "," SUB NENU 0114 "," SUB NENU 0114 " DATA " 015 UNTERMENUE "," SUB NENU 0115 "," SUB NENU 0115 " DATA " 016 UNTERMENUE "," SUB NENU 0116 "," SUB NENU 0116 " DATA " 017 UNTERMENUE "," SUB NENU 0117 "," SUB NENU 0117 " DATA "====================","====================","====================" DATA " 019 Schliessen mit Speichern "," SUB NENU 0106 "," SUB NENU 0106 " DATA " 020 Schliessen ohne Speichern "," QUIT "," QUIT " ' *** 02 DATA " UNTERMENUE 0121 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0122 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0123 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0124 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0125 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0126 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0127 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0128 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0129 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0130 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0131 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0132 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0133 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0134 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0135 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0136 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0137 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0138 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0139 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0140 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 03 DATA " UNTERMENUE 0141 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0142 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0143 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0144 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0145 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0146 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0147 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0148 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0149 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0150 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0151 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0152 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0153 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0154 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0155 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0156 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0157 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0158 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0159 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0160 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 04 DATA " UNTERMENUE 0161 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0162 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0163 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0164 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0165 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0166 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0167 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0168 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0169 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0170 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0171 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0172 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0173 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0174 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0175 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0176 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0177 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0178 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0179 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0180 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 05 DATA " UNTERMENUE 0181 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0182 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0183 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0184 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0185 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0186 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0187 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0188 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0189 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0190 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0191 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0192 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0193 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0194 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0195 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0196 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0197 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0198 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0199 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0200 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 06 DATA " UNTERMENUE 0201 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0202 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0203 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0204 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0205 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0206 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0207 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0208 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0209 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0210 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0211 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0212 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0213 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0214 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0215 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0216 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0217 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0218 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0219 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0220 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 07 DATA " UNTERMENUE 0221 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0222 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0223 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0224 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0225 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0226 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0227 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0228 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0229 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0230 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0231 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0232 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0233 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0234 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0235 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0236 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0237 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0238 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0239 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0240 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' *** 07 DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " ' DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' DATA " MM -- 0101 "," MM -- 0101 "," MM -- 0101 " DATA " MM -- 0102 "," MM -- 0102 "," MM -- 0102 " DATA " MM -- 0103 "," MM -- 0103 "," MM -- 0103 " DATA " MM -- 0104 "," MM -- 0104 "," MM -- 0104 " DATA " MM -- 0105 "," MM -- 0105 "," MM -- 0105 " DATA " MM -- 0106 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0107 "," MM -- 0107 "," MM -- 0107 " DATA " MM -- 0108 "," MM -- 0108 "," MM -- 0108 " DATA " MM -- 0109 "," MM -- 0109 "," MM -- 0109 " DATA " MM -- 0110 "," MM -- 0110 "," MM -- 0110 " DATA " MM -- 0111 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0112 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0113 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0114 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0115 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0116 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0117 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0118 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0119 "," MM -- 0106 "," MM -- 0106 " DATA " MM -- 0120 "," MM -- 0106 "," MM -- 0106 " :' INAKTIV ' DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' inaktiv ' DATA " UNTERMENUE 0101 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0102 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0103 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0104 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0105 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0107 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0108 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0109 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0110 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0111 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0112 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0113 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0114 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0115 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0116 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0117 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0118 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0119 "," SUB NENU 0106 "," SUB NENU 0106 " DATA " UNTERMENUE 0120 "," SUB NENU 0106 "," SUB NENU 0106 " :' INAKTIV ' DATA " area1 1601 "," area1 1601 "," area1 1601 " DATA " area2 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 " DATA " area3 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 " DATA " area4 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 " DATA " area4 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 " DATA " area4 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 " DATA " area4 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 " DATA " area4 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 " DATA " area4 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 " DATA " area4 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 " DATA " area4 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 " DATA " area4 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 " DATA " area4 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 " DATA " area4 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 " DATA " area4 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 " DATA " area4 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 " DATA " area4 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 " DATA " area4 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 " DATA " area4 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 " DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' INAKTIV ' DATA "321 Einstellungen "," Settings "," Paramètres " DATA "322 Sprache einstellen "," Language set "," Langue fixé " DATA "323 Verzeichnis einstellen ","directory Settings" ,"les paramètres du répertoire " DATA "324 ACTIV "," ACTIV 1704 "," ACTIV 1704 " DATA "325 ACTIV "," ACTIV 1705 "," ACTIV 1705 " DATA "326 ACTIV "," ACTIV 1706 "," ACTIV 1706 " DATA "327 ACTIV "," ACTIV 1707 "," ACTIV 1707 " DATA "328 ACTIV "," ACTIV 1708 "," ACTIV 1708 " DATA "329 ACTIV "," ACTIV 1709 "," ACTIV 1709 " DATA "330 Excel-Tabelle einlesen ","Reading data from Excel spreadsheet","La lecture des données de feuille de calcul Excel" DATA "331 Excel-Tabelle ausgeben ","Data as an Excel spreadsheet store ","Données d'un magasin feuille de calcul Excel " DATA "332 Daten aus Excel-Tabelle einlesen "," ACTIV 1712 "," ACTIV 1712 " DATA "333 ACTIV "," ACTIV 1713 "," ACTIV 1713 " DATA "334 ACTIV "," ACTIV 1714 "," ACTIV 1714 " DATA "335 ACTIV "," ACTIV 1715 "," ACTIV 1715 " DATA "336 ACTIV "," ACTIV 1716 "," ACTIV 1716 " DATA "337 ACTIV "," ACTIV 1717 "," ACTIV 1717 " DATA "338 Programmierer INFO ","Programmierer INFO ","Programmierer INFO " DATA "339 Menü ändern "," Menu change "," changement Menu " DATA "340 INACTIV "," INACTIV 1720 "," INACTIV 1720 " :' INAKTIV ' 18 LeerStelle im Hauptmenü ' ' 19 DATA " 341 DATEI" ,"FILE" ,"DOSSIER" DATA " 342 HILFE 02 " ," HELP 02 " ," AID 02 " DATA " 343 HILFE 03 " ," HELP 03 " ," AID 03 " DATA " 344 HILFE 04 " ," HELP 04 " ," AID 04 " DATA " 345 HILFE 05 " ," HELP 05 " ," AID 05 " DATA " 346 HILFE 06 " ," HELP 06 " ," AID 06 " DATA " 347 HILFE 07 " ," HELP 07 " ," AID 07 " DATA " 348 HILFE 08 " ," HELP 08 " ," AID 08 " DATA " 349 HILFE 09 " ," HELP 09 " ," AID 09 " DATA " 350 zur Multimomentstudie","zur Multimomentstudie","zur Multimomentstudie" DATA " 351 HILFE 11" ," HELP 11 " ," AID 11 " DATA " 352 zur Formelbildung" ,"zur Formelbildung" ,"zur Formelbildung" DATA " 353 HILFE 13 " ," HELP 13 " ," AID 13 " DATA " 354 HILFE 14 " ," HELP 14 " ," AID 14 " DATA " 355 HILFE 15 " ," HELP 15 " ," AID 15 " DATA " 356 HILFE 16 " ," HELP 16 " ," AID 16 " DATA " 357 zu Einstellungen" ,"zu Einstellungen" ,"zu Einstellungen" DATA " 358 HILFE 18 "," HILFE 18 "," HILFE 18 " DATA " 359 HILFE 19 "," HILFE 18 "," HILFE 18 " DATA " 360 HILFE 20 "," HILFE 18 "," HILFE 18 " ' 20 DATA " 361 über Programm "," about Program "," sur le Programme" DATA " 362 über Computer "," about Computer "," sur l'ordinateur" DATA " 363 über Netzwerk "," about Network "," sur le réseau " DATA " 364 UNTERMENUE "," SUB NENU 2004 "," SUB NENU 2006 " DATA " 365 UNTERMENUE "," SUB NENU 2004 "," SUB NENU 2006 " DATA " 366 UNTERMENUE "," SUB NENU 2005 "," SUB NENU 2006 " DATA " 367 UNTERMENUE "," SUB NENU 2006 "," SUB NENU 2006 " DATA " 368 UNTERMENUE "," SUB NENU 2007 "," SUB NENU 2006 " DATA " 369 UNTERMENUE "," SUB NENU 2008 "," SUB NENU 2006 " DATA " 370 UNTERMENUE "," SUB NENU 2009 "," SUB NENU 2006 " DATA " 371 UNTERMENUE "," SUB NENU 2010 "," SUB NENU 2006 " DATA " 372 UNTERMENUE "," SUB NENU 2011 "," SUB NENU 2006 " DATA " 373 UNTERMENUE "," SUB NENU 2012 "," SUB NENU 2006 " DATA " 374 UNTERMENUE "," SUB NENU 2013 "," SUB NENU 2006 " DATA " 375 UNTERMENUE "," SUB NENU 2014 "," SUB NENU 2006 " DATA " 376 UNTERMENUE "," SUB NENU 2015 "," SUB NENU 2006 " DATA " 377 UNTERMENUE "," SUB NENU 2017 "," SUB NENU 2006 " DATA " 378 UNTERMENUE "," SUB NENU 2018 "," SUB NENU 2006 " DATA " 379 Kalender "," Calendar " ," calendrier " DATA " 380 Rechner "," UNTERMENUE 2020 "," UNTERMENUE 2020 " ' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN Untermenue: FOR i% = 1 TO 380 :FOR j% = 1 TO 3 READ TEXT_MENUE_01$(i%,j%) NEXT j% :NEXT i% Return | |
| | | Jack Admin
Nombre de messages : 2381 Date d'inscription : 28/05/2007
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 21:55 | |
| Tu as "(5) More END_IF than IF" car tu as mis "then" en fin de ligne: if variable("max_client_area%")=1 then La syntaxe correcte est: if variable("max_client_area%")=1 La variable max_client_area% est bien définie deux fois. Ligne 6 : gosub constantes exécute "constantes:" puis exécute "variables:" car tu as mis en commentaire le RETURN à la ligne 457 Ligne 7 : gosub variables, la ligne dim max_client_area% est A NOUVEAU exécutée. Alors ça fait BOOOM: (35) Name already defined. Line 476. Tu as la bonne technique pour que je débugge tes programmes: tu mets "BUG" dans le titre, je crois que c'est un bug dans PANORAMIC, je cherche et je trouve ton erreur. | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: Return vergessen Mar 12 Juin 2012 - 22:07 | |
| Tu m'as pris de court Jack, j'avais trouvé aussi Mais bon c'est cool que tu ais le temps de débugger un peu, ça te change les idées Tiens je me permets de faire un petit aparté. Ca ne te dirais pas de temps en temps de publier des petits sources à toi pour montrer ta façon d'utiliser Panoramic et nous faire progresser du coup ou prendre des habitudes 'Panoramiciennes" ? Ou juste de nous montrer comment nous pourrions optimiser une façon de faire qui nous aurait échappé ? Bon, fin de l'apparté, je te laisse retourner sur Panoramic v1 (c'est plus important ) | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Return vergessen Mer 13 Juin 2012 - 0:09 | |
| @ Jack @Klaus @Nardo Entschuldigung, Entschuldigung,Entschuldigung Ich wurde unterbrochen beim Erweitern. Komme später zurück, restliche Variablen, Labels fertig. Speichern, RUN und BOOOM. Mein Computer ist dumm, er wuste doch was ich wollte. @ Jack @ Klaus @ Nardo Désolé, désolé, désolé J'ai été interrompu lors de l'expansion. Revenez plus tard, toutes les autres variables, étiquettes prêtes. Enregistrer, Exécuter et BOOOM. Mon ordinateur est stupide, mais il Wuste ce que je voulais. Jack, aber ein paar fragen solltes du uns doch beantworten. Jack, mais vous répondez à quelques questions nous solltes. | |
| | | Contenu sponsorisé
| Sujet: Re: Return vergessen | |
| |
| | | | Return vergessen | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |