FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Return vergessen Emptypar JL35 Aujourd'hui à 17:28

» Petit passage furtif
Return vergessen Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Return vergessen Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Return vergessen Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Return vergessen Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Return vergessen Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Return vergessen Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Return vergessen Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Return vergessen Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Return vergessen Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Return vergessen Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Return vergessen Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Return vergessen Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Return vergessen Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Return vergessen Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le Deal du moment : -34%
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 ...
Voir le deal
919 €

 

 Return vergessen

Aller en bas 
5 participants
AuteurMessage
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Return vergessen   Return vergessen EmptyMar 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
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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.
Revenir en haut Aller en bas
http://nardo26.lescigales.org
Klaus

Klaus


Nombre de messages : 12274
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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.
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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.
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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 ????????
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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
Revenir en haut Aller en bas
Jack
Admin
Jack


Nombre de messages : 2381
Date d'inscription : 28/05/2007

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 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.

Laughing Laughing Laughing
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. Laughing Laughing Laughing
Revenir en haut Aller en bas
https://panoramic.1fr1.net
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMar 12 Juin 2012 - 22:07

Tu m'as pris de court Jack, j'avais trouvé aussi Wink Mais bon c'est cool que tu ais le temps de débugger un peu, ça te change les idées Wink
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 Wink )
Revenir en haut Aller en bas
Severin




Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen EmptyMer 13 Juin 2012 - 0:09

@ Jack
@Klaus
@Nardo

Entschuldigung, Entschuldigung,Entschuldigung Embarassed

Ich wurde unterbrochen beim Erweitern.
Komme später zurück, restliche Variablen, Labels fertig.

Speichern, RUN und BOOOM. affraid

Mein Computer ist dumm, er wuste doch was ich wollte.


@ Jack
@ Klaus
@ Nardo

Désolé, désolé, désolé Embarassed

J'ai été interrompu lors de l'expansion.
Revenez plus tard, toutes les autres variables, étiquettes prêtes.

Enregistrer, Exécuter et BOOOM. affraid

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.
Revenir en haut Aller en bas
Contenu sponsorisé





Return vergessen Empty
MessageSujet: Re: Return vergessen   Return vergessen Empty

Revenir en haut Aller en bas
 
Return vergessen
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» EDIT accepté par return et clic
» réflexion sur return dans un memo
» Problème avec la commande 'return'.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Un problème avec PANORAMIC?-
Sauter vers: