FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 23:07

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Développement du programme de base

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Severin



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

MessageSujet: Développement du programme de base   Dim 29 Avr 2012 - 19:56

Développement du programme de base

Hallo Panoramics,
ich möchte euch meinen Entwurf eines Grundprogramm mitteilen.
Es ist noch in der Entwicklung. Aber Vorschläge und Verbesserungen
sind ausdrücklich erwünscht.
Einige Fragen an euch habe ich noch:
Wie ist das Design ?
Ist es ergonomisch und übersichtlich ?

Lebhafte Diskusion
Severin


Hello Panoramics,
I wanted to share my design of a basic program.
It is still under development. But suggestions and improvements
are encouraged.
Some questions for you, I have:
How is the design?
Is it ergonomically and clearly?

animated Talkshow
Severin


Bonjour Panoramiques,
Je voulais partager ma conception d'un programme de base.
Il est encore en cours de développement. Mais les suggestions et améliorations
sont encouragés.
Quelques questions pour vous, j'ai:
Comment est la conception?
Est-il ergonomique et clairement?

Talk-show animé
Severin



Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
label attacher  :' Objekt anhängen
label detacher  :' Objekt abhängen
'
dim hnd0000%
dim hnd0100%
dim hnd0200%
dim hnd0300%
'
dim hnd0500%
dim ancien%
'
dim LEERMENUE$
dim LEERZEICHEN$
dim LEERLAENGE$
'
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL ZAHL0000
LABEL ZAHL0100
LABEL ZAHL0200
LABEL ZAHL0300
LABEL ZAHL0400
LABEL ZAHL0500
Label Zahl1900
'
'
'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
'
' *** SetCLOSEOff      :' Deaktivieren der Schließen-Schaltfläche der FORM
'
DIM FORM_BUTTON_Off13  :' =dll_call1("SetCLOSEOff",handle(0))
'
' *** SetMaximize      :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM

DIM FORM_BUTTON_Off14  :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
'
' *** SetMinimize      :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
'
DIM FORM_BUTTON_Off15  :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
'
'
dll_on "form.dll"
'
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))  :' Schließen deaktiviert
'
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off
'
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
ZAHL0000:
'
' FORM 0000
TOP          0000,0
LEFT          0000,0
WIDTH        0000,SCREEN_X
HEIGHT        0000,SCREEN_Y-44
COLOR        0000,000,000,000
CAPTION      0000,"          Multimomentstudien erstellen und auswerten "
' HINT          0000
' HINT_HIDE    0000
' BORDER_HIDE  0000
' BORDER_SMALL  0000
' BORDER_NORMAL 0000
' FULL_SPACE    0000
'
hnd0000% = handle(0000)
'
Gosub Zahl0100
Gosub Zahl0200
Gosub Zahl0300
Gosub Zahl0400
Gosub Zahl0500
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
' on_click 1100,Show 0200
' on_click 1200,Zahl1200:on_click 1300,Zahl1300
' on_click 1400,Zahl1400:on_click 1500,Zahl1500:on_click 1600,Zahl1600
' on_click 1700,Zahl1700:on_click 1800,Zahl1800:
on_click 1900,Zahl1900
end
'
' ******************************************************************************
Zahl1900:
'
terminate
end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU  ---> Schaltflächenleiste ********************
ZAHL0100:
'
COMMAND_TARGET_IS 0000
'
FORM          0100
TOP          0100,2
LEFT          0100,2
WIDTH        0100,SCREEN_X-12
HEIGHT        0100,70
COLOR        0100,229,229,229
' CAPTION    0100," Form 0100 "
' HINT        0100
' HINT_HIDE  0100
BORDER_HIDE 0100
' BORDER_SMALL  0100
' BORDER_NORMAL 0100
' FULL_SPACE    0100
'
hnd0100% = handle(0100)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0000%,0)
dll_off
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS  0100
'
' *** später durch Bild ersetzen
BUTTON      0101                        :' HIDE 101
TOP          0101,2                      : REM  HÖHE FENSTER
LEFT        0101,2                      : REM  BREITE FENSTER
WIDTH        0101,22                      : REM ......BREITE  1680
HEIGHT      0101,22                      : REM ......HÖHE    1050
CAPTION      0101,"|<--"
' FILE_LOAD    0101,Speicherplatz_Bild01$
' STRETCH_ON  0101                      : REM
' SHOW        0101                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0102                        :' HIDE 101
TOP          0102,26                      : REM  HÖHE FENSTER
LEFT        0102,2                      : REM  BREITE FENSTER
WIDTH        0102,22                      : REM ......BREITE  1680
HEIGHT      0102,22                      : REM ......HÖHE    1050
CAPTION      0102,"-->"
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0105                        :' HIDE 101
TOP          0105,2                      : REM  HÖHE FENSTER
LEFT        0105,26                      : REM  BREITE FENSTER
WIDTH        0105,22                      : REM ......BREITE  1680
HEIGHT      0105,22                      : REM ......HÖHE    1050
CAPTION      0105,"<--"
' FILE_LOAD    0105,Speicherplatz_Bild01$
' STRETCH_ON  0105                      : REM
' SHOW        0105                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0106                        :' HIDE 101
TOP          0106,26                      : REM  HÖHE FENSTER
LEFT        0106,26                      : REM  BREITE FENSTER
WIDTH        0106,22                      : REM ......BREITE  1680
HEIGHT      0106,22                      : REM ......HÖHE    1050
CAPTION      0106,"-->|"
' FILE_LOAD    0106,Speicherplatz_Bild01$
' STRETCH_ON  0106                      : REM
' SHOW        0106                      : REM
'


' *** später durch Bild ersetzen
BUTTON      0190                        :' HIDE 101
TOP          0190,4                      : REM  HÖHE FENSTER
LEFT        0190,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0190,44                      : REM ......BREITE  1680
HEIGHT      0190,44                      : REM ......HÖHE    1050
CAPTION      0190," HELP "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'




' *** später durch Bild ersetzen
BUTTON      0195                        :' HIDE 101
TOP          0195,4                      : REM  HÖHE FENSTER
LEFT        0195,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0195,44                      : REM ......BREITE  1680
HEIGHT      0195,44                      : REM ......HÖHE    1050
CAPTION      0195," LOGO "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
' end
Return
'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN IN GRÜN ---> Bearbeitungsfläche **********************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM          0200
TOP          0200,74
LEFT          0200,2
WIDTH        0200,SCREEN_X-12
HEIGHT        0200,SCREEN_Y-177
COLOR        0200,167,171,172
' CAPTION      0200," Form 0200 "
' HINT          0200
' HINT_HIDE    0200
BORDER_HIDE  0200
' BORDER_SMALL  0200
' BORDER_NORMAL 0200
' FULL_SPACE    0200
'
hnd0200% = handle(0200)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0200%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0500 ERSTELLEN IN ROT ---> Bearbeitungsfläche **********************
ZAHL0500:
'
COMMAND_TARGET_IS 0000
'
FORM          0500
TOP          0500,74
LEFT          0500,2
WIDTH        0500,SCREEN_X-12
HEIGHT        0500,SCREEN_Y-177
COLOR        0500,255,000,000
' CAPTION      0500," Form 0500 "
' HINT          0500
' HINT_HIDE    0500
BORDER_HIDE  0500
' BORDER_SMALL  0500
' BORDER_NORMAL 0500
' FULL_SPACE    0500
'
hnd0500% = handle(0500)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0500%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0300 ERSTELLEN IN BLAU ---> FUSSLEISTE ******************************
ZAHL0300:
'
COMMAND_TARGET_IS 0000
'
FORM          0300
TOP          0300,SCREEN_Y-101
LEFT          0300,2
WIDTH        0300,SCREEN_X-12
HEIGHT        0300,28
COLOR        0300,231,238,240
' CAPTION      0300," Form 0300 "
' HINT          0300
' HINT_HIDE    0300
BORDER_HIDE  0300
' BORDER_SMALL  0300
' BORDER_NORMAL 0300
' FULL_SPACE    0300
'
hnd0300% = handle(0300)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0300%,hnd0000%,0)
dll_off
'
return
'
'
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:CAPTION 1000,"MENUE 01 ":parent 1000,0001
sub_menu 2000:CAPTION 2000,"MENUE 02 ":parent 2000,0001
sub_menu 3000:CAPTION 3000,"MENUE 03 ":parent 3000,0001
sub_menu 4000:CAPTION 4000,"MENUE 04 ":parent 4000,0001
sub_menu 5000:CAPTION 5000,"MENUE 04 ":parent 5000,0001
sub_menu 6000:CAPTION 6000,"MENUE 05 ":parent 6000,0001
sub_menu 7000:CAPTION 7000,"MENUE 06 ":parent 7000,0001
'
' *** Berechnung von Länge des Leermenue ****

' LEERZEICHEN$ = CHR$(32)
'

LEERMENUE$= STRING$(120,CHR$(32))



' sub_menu 7500:CAPTION 7500,LEERLAENGE:parent 7500,0001
sub_menu 7500:CAPTION 7500,LEERMENUE$:parent 7500,0001
sub_menu 8000:CAPTION 8000,"HILFE":parent 8000,0001
sub_menu 9000:CAPTION 9000,"INFO ":parent 9000,0001
' ******************************************************************************
' *** ERSTELLEN UNTERMENÜ  1100 bis 1900 ***************************************
sub_menu 1100:CAPTION 1100," UNTERMENUE 0101 ":parent 1100,1000
sub_menu 1200:CAPTION 1200," UNTERMENUE 0102 ":parent 1200,1000
sub_menu 1300:CAPTION 1300," UNTERMENUE 0103 ":parent 1300,1000
sub_menu 1400:CAPTION 1400," UNTERMENUE 0104 ":parent 1400,1000
sub_menu 1500:CAPTION 1500," UNTERMENUE 0105 ":parent 1500,1000
sub_menu 1600:CAPTION 1600," UNTERMENUE 0106 ":parent 1600,1000
sub_menu 1700:CAPTION 1700," UNTERMENUE 0107 ":parent 1700,1000
sub_menu 1800:CAPTION 1800," UNTERMENUE 0108 ":parent 1800,1000
sub_menu 1900:CAPTION 1900," QUIT            ":parent 1900,1000
' ******************************************************************************
'
Return
'
end
'
' ******************************************************************************
'
'
'
' *** Objekt anhängen **********************************************************
attacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0100%,1)
dll_off
' inactive 1 : active 2
return
'
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
' active 1 : inactive 2
return
'
' ******************************************************************************


DIM Speicherplatz_BIN03$
    Speicherplatz_BIN03$ = DIR_A$ + "1PC-ZEIT\04_PC-ZEIT_BIN\form.dll"





dll_on Speicherplatz_BIN03$
'
FORm_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))  :' Schließen deaktiviert
'
FORm_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORm_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off


'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
' *** SetSize :    1-> ON - Ob eine FORm resize
DIM FORm_BUTTON_On01:' ...FORm_BUTTON_On01=dll_call2("SetSize",handle(0),1)

' *** SetCaption:  1-> ON - Aktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_On02:' ...FORm_BUTTON_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
'
DIM FORm_BUTTON_On03:' ...FORm_BUTTON_On03=
' *** SetMaximize : 1-> ON - Ob die Umsetzung einer Vollbild-FORm.

DIM FORm_BUTTON_On04:' ...FORm_BUTTON_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
' *** SetMinimize : 1-> ON - Ob die Einstellung Symbol eines FORmulars

DIM FORm_BUTTON_On05:' ...FORm_BUTTON_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
'

DIM FORm_BUTTON_On06:' ...FORm_BUTTON_On06=
'

DIM FORm_BUTTON_On07:' ...FORm_BUTTON_On07=
'

DIM FORm_BUTTON_On08:' ...FORm_BUTTON_On08=

' *** SetFORmActive :        Legen Sie die FORm in den Vordergrund.

DIM FORm_BUTTON_On09:' ...FORm_BUTTON_On09= dll_call1("SetFORmActive",handle(0))
'
' ******************************************************************************
' *** SetSize :        0-> OFF - Ob eine FORm resize

DIM FORm_BUTTON_Off11  :' ...FORm_BUTTON_Off11=dll_call2("SetSize",handle(0),0)
' *** SetCaption:      0-> OFF - Deaktivieren der Titelleiste (CAPTION) eines FORmulars

DIM FORm_BUTTON_Off12  :' ...FORm_BUTTON_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)

' *** SetCLOSEOff :              Deaktivieren Sie die Schließen-Schaltfläche des FORmulars.

DIM FORm_BUTTON_Off13  :' ...FORm_BUTTON_Off13=dll_call1("SetCLOSEOff",handle(0))

' *** SetMaximize :    0-> OFF - Ob die Umsetzung einer Vollbild-FORm.

DIM FORm_BUTTON_Off14  :' ...FORm_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)

' *** SetMinimize :    0-> OFF - Ob die Einstellung Symbol eines FORmulars.

DIM FORm_BUTTON_Off15  :' ...FORm_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
'

DIM FORm_BUTTON_Off16  :' ...FORm_BUTTON_Off16=
'

DIM FORm_BUTTON_Off17  :' ...FORm_BUTTON_Off17=
'

DIM FORm_BUTTON_Off18  :' ...FORm_BUTTON_Off18=
'

DIM FORm_BUTTON_Off19  :' ...FORm_BUTTON_Off19=dll_call1(

' *** CreateBox: Position ein paar Folk (erstellt für den persönlichen Bedarf).

DIM FORm_BUTTON_Off99  :' ...FORm_BUTTON_Off99=dll_call1("SetTOpMost",handle(0))
'
' ******************************************************************************


Entshuldigung, habe es Übersehen. Embarassed


Dernière édition par Severin le Dim 29 Avr 2012 - 21:01, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Dim 29 Avr 2012 - 20:53

Hallo Severin,

Kannst Du Dein Programm neu eingeben, zwischen CODE et /CODE, anstatt zwischen QUOTE et /CODE ? Im Moment kann man das Programm nicht mit Cut-and-Paste holen.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Lun 30 Avr 2012 - 0:46

Jetzt taucht ein Problem auf.

Ich will die Menueleiste gestalten.
Die Menuepunkte "Hilfe" und "Info" sollen rechrsbündig erscheinen.
Daher brauche ich einen PseudoButton.
Ich lese die Textlänge alle Menuetexte aus und berechne den Rest.
Frage ist bekannt um wieviele Pixel der Butten größer ist alls der Text.

Severin


Now there is a problem.

I want to make the menu bar.
The menu items "Help" and "info" will appear to the right.
Therefore I need a pseudo button.
I read from the text length of menu texts and calculate all the rest
Larger question is known how many pixels the text of the tubs is alls.

Severin


Maintenant, il ya un problème.

Je veux faire de la barre de menu.
Les éléments du menu "Aide" et "info" va apparaître à droite.
C'est pourquoi je besoin d'un bouton pseudo.
J'ai lu à partir de la longueur du texte des textes du menu et de calculer tout le reste
Agrandir question est connue de combien de pixels le texte des baignoires est alls.

Severin





Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
label attacher  :' Objekt anhängen
label detacher  :' Objekt abhängen
'
dim hnd0000%
dim hnd0100%
dim hnd0200%
dim hnd0300%
'
dim hnd0500%
dim ancien%
'
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
dim LEERMENUE01$: dim LEERZEICHEN01%: dim LEERLAENGE01%
dim LEERMENUE02$: dim LEERZEICHEN02$: dim LEERLAENGE02%
dim LEERMENUE03$: dim LEERZEICHEN03$: dim LEERLAENGE03%
dim LEERMENUE04$: dim LEERZEICHEN04%: dim LEERLAENGE04%
dim LEERMENUE05$: dim LEERZEICHEN05%: dim LEERLAENGE05%
dim LEERMENUE06$: dim LEERZEICHEN06%: dim LEERLAENGE06%
dim LEERMENUE07$: dim LEERZEICHEN07%: dim LEERLAENGE07%
dim LEERMENUE08$: dim LEERZEICHEN08%: dim LEERLAENGE08%
dim LEERMENUE09$: dim LEERZEICHEN09%: dim LEERLAENGE09%
dim LEERMENUE10$: dim LEERZEICHEN10%: dim LEERLAENGE10%
dim LEERMENUE11$: dim LEERZEICHEN11%: dim LEERLAENGE11%
dim LEERMENUE12$: dim LEERZEICHEN12%: dim LEERLAENGE12%
dim LEERMENUE13$: dim LEERZEICHEN13%: dim LEERLAENGE13%
dim LEERMENUE14$: dim LEERZEICHEN14%: dim LEERLAENGE14%
dim LEERMENUE15$: dim LEERZEICHEN15%: dim LEERLAENGE15%
dim LEERMENUE16$: dim LEERZEICHEN16%: dim LEERLAENGE16%
dim LEERMENUE17$: dim LEERZEICHEN17%: dim LEERLAENGE17%
dim LEERMENUE18$: dim LEERZEICHEN18%: dim LEERLAENGE18%
dim LEERMENUE19$: dim LEERZEICHEN19%: dim LEERLAENGE19%
dim LEERMENUE20$: dim LEERZEICHEN20%: dim LEERLAENGE20%
'
dim LEERSUMME%  :dim LEERSUMME1%
dim LEERSUMME2% :dim LEERSUMME3%
dim LEERSUMME4% :dim LEERSUMME5%
dim LEERSUMME6% :dim LEERSUMME7%
dim LEERSUMME8% :dim LEERSUMME9%

'
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL ZAHL0000
LABEL ZAHL0100
LABEL ZAHL0200
LABEL ZAHL0300
LABEL ZAHL0400
LABEL ZAHL0500
Label Zahl1900
'
'
'
' *** FORM 000 EIGENSCHAFTEN ERSTELLEN *****************************************
'
' *** SetCLOSEOff      :' Deaktivieren der Schließen-Schaltfläche der FORM
'
DIM FORM_BUTTON_Off13  :' =dll_call1("SetCLOSEOff",handle(0))
'
' *** SetMaximize      :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM

DIM FORM_BUTTON_Off14  :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
'
' *** SetMinimize      :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
'
DIM FORM_BUTTON_Off15  :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
'
'
dll_on "form.dll"
'
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))  :' Schließen deaktiviert
'
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
'
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
'
dll_off
'
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
ZAHL0000:
'
' FORM 0000
TOP          0000,0
LEFT          0000,0
WIDTH        0000,SCREEN_X
HEIGHT        0000,SCREEN_Y-44
COLOR        0000,000,000,000
CAPTION      0000,"          Multimomentstudien erstellen und auswerten "
' HINT          0000
' HINT_HIDE    0000
' BORDER_HIDE  0000
' BORDER_SMALL  0000
' BORDER_NORMAL 0000
' FULL_SPACE    0000
'
hnd0000% = handle(0000)
'
Gosub Zahl0100
Gosub Zahl0200
Gosub Zahl0300
Gosub Zahl0400
Gosub Zahl0500
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
' on_click 1100,Show 0200
' on_click 1200,Zahl1200:on_click 1300,Zahl1300
' on_click 1400,Zahl1400:on_click 1500,Zahl1500:on_click 1600,Zahl1600
' on_click 1700,Zahl1700:on_click 1800,Zahl1800:
on_click 1900,Zahl1900
end
'
' ******************************************************************************
Zahl1900:
'
terminate
end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU  ---> Schaltflächenleiste ********************
ZAHL0100:
'
COMMAND_TARGET_IS 0000
'
FORM          0100
TOP          0100,2
LEFT          0100,2
WIDTH        0100,SCREEN_X-12
HEIGHT        0100,70
COLOR        0100,229,229,229
' CAPTION    0100," Form 0100 "
' HINT        0100
' HINT_HIDE  0100
BORDER_HIDE 0100
' BORDER_SMALL  0100
' BORDER_NORMAL 0100
' FULL_SPACE    0100
'
hnd0100% = handle(0100)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0100%,hnd0000%,0)
dll_off
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS  0100
'
' *** später durch Bild ersetzen
BUTTON      0101                        :' HIDE 101
TOP          0101,2                      : REM  HÖHE FENSTER
LEFT        0101,2                      : REM  BREITE FENSTER
WIDTH        0101,22                      : REM ......BREITE  1680
HEIGHT      0101,22                      : REM ......HÖHE    1050
CAPTION      0101,"|<--"
' FILE_LOAD    0101,Speicherplatz_Bild01$
' STRETCH_ON  0101                      : REM
' SHOW        0101                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0102                        :' HIDE 101
TOP          0102,26                      : REM  HÖHE FENSTER
LEFT        0102,2                      : REM  BREITE FENSTER
WIDTH        0102,22                      : REM ......BREITE  1680
HEIGHT      0102,22                      : REM ......HÖHE    1050
CAPTION      0102,"-->"
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0105                        :' HIDE 101
TOP          0105,2                      : REM  HÖHE FENSTER
LEFT        0105,26                      : REM  BREITE FENSTER
WIDTH        0105,22                      : REM ......BREITE  1680
HEIGHT      0105,22                      : REM ......HÖHE    1050
CAPTION      0105,"<--"
' FILE_LOAD    0105,Speicherplatz_Bild01$
' STRETCH_ON  0105                      : REM
' SHOW        0105                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0106                        :' HIDE 101
TOP          0106,26                      : REM  HÖHE FENSTER
LEFT        0106,26                      : REM  BREITE FENSTER
WIDTH        0106,22                      : REM ......BREITE  1680
HEIGHT      0106,22                      : REM ......HÖHE    1050
CAPTION      0106,"-->|"
' FILE_LOAD    0106,Speicherplatz_Bild01$
' STRETCH_ON  0106                      : REM
' SHOW        0106                      : REM
'


' *** später durch Bild ersetzen
BUTTON      0190                        :' HIDE 101
TOP          0190,4                      : REM  HÖHE FENSTER
LEFT        0190,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0190,44                      : REM ......BREITE  1680
HEIGHT      0190,44                      : REM ......HÖHE    1050
CAPTION      0190," HELP "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'




' *** später durch Bild ersetzen
BUTTON      0195                        :' HIDE 101
TOP          0195,4                      : REM  HÖHE FENSTER
LEFT        0195,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0195,44                      : REM ......BREITE  1680
HEIGHT      0195,44                      : REM ......HÖHE    1050
CAPTION      0195," LOGO "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
' end
Return
'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN IN GRÜN ---> Bearbeitungsfläche **********************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM          0200
TOP          0200,74
LEFT          0200,2
WIDTH        0200,SCREEN_X-12
HEIGHT        0200,SCREEN_Y-177
COLOR        0200,167,171,172
' CAPTION      0200," Form 0200 "
' HINT          0200
' HINT_HIDE    0200
BORDER_HIDE  0200
' BORDER_SMALL  0200
' BORDER_NORMAL 0200
' FULL_SPACE    0200
'
hnd0200% = handle(0200)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0200%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0500 ERSTELLEN IN ROT ---> Bearbeitungsfläche **********************
ZAHL0500:
'
COMMAND_TARGET_IS 0000
'
FORM          0500
TOP          0500,74
LEFT          0500,2
WIDTH        0500,SCREEN_X-12
HEIGHT        0500,SCREEN_Y-177
COLOR        0500,255,000,000
' CAPTION      0500," Form 0500 "
' HINT          0500
' HINT_HIDE    0500
BORDER_HIDE  0500
' BORDER_SMALL  0500
' BORDER_NORMAL 0500
' FULL_SPACE    0500
'
hnd0500% = handle(0500)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0500%,hnd0000%,0)
dll_off
'
return
'
' *** FORM 0300 ERSTELLEN IN BLAU ---> FUSSLEISTE ******************************
ZAHL0300:
'
COMMAND_TARGET_IS 0000
'
FORM          0300
TOP          0300,SCREEN_Y-101
LEFT          0300,2
WIDTH        0300,SCREEN_X-12
HEIGHT        0300,28
COLOR        0300,231,238,240
' CAPTION      0300," Form 0300 "
' HINT          0300
' HINT_HIDE    0300
BORDER_HIDE  0300
' BORDER_SMALL  0300
' BORDER_NORMAL 0300
' FULL_SPACE    0300
'
hnd0300% = handle(0300)
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd0300%,hnd0000%,0)
dll_off
'
return
'
'
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
'
' *** Berechnung von Länge des Leermenue 18 ****
'
LEERMENUE01$ =  " MENUE 01 "
LEERMENUE02$ =  " MENUE 02 "
LEERMENUE03$ =  " MENUE 03 "
LEERMENUE04$ =  " MENUE 04 "
LEERMENUE05$ =  " MENUE 05 "
LEERMENUE06$ =  " MENUE 06 "
LEERMENUE07$ =  " MENUE 07 "
LEERMENUE08$ =  " MENUE 08 "
LEERMENUE09$ =  " MENUE 09 "
LEERMENUE10$ =  " MENUE 10 "
'
LEERMENUE11$ =  " MENUE 11 "
LEERMENUE12$ =  " MENUE 12 "
LEERMENUE13$ =  " MENUE 13 "
LEERMENUE14$ =  " MENUE 14 "
LEERMENUE15$ =  " MENUE 15 "
LEERMENUE16$ =  " MENUE 16 "
LEERMENUE17$ =  " MENUE 17 "
LEERMENUE18$ =  " "
LEERMENUE19$ =  " HILFE "
LEERMENUE20$ =  " INFO "
'
LEERLAENGE01% = TEXT_WIDTH(LEERMENUE01$,0100)+6
LEERLAENGE02% = TEXT_WIDTH(LEERMENUE02$,0100)+6
LEERLAENGE03% = TEXT_WIDTH(LEERMENUE03$,0100)+6
LEERLAENGE04% = TEXT_WIDTH(LEERMENUE04$,0100)+6
LEERLAENGE05% = TEXT_WIDTH(LEERMENUE05$,0100)+6
LEERLAENGE06% = TEXT_WIDTH(LEERMENUE06$,0100)+6
LEERLAENGE07% = TEXT_WIDTH(LEERMENUE07$,0100)+6
LEERLAENGE08% = TEXT_WIDTH(LEERMENUE08$,0100)+6
LEERLAENGE09% = TEXT_WIDTH(LEERMENUE09$,0100)+6
LEERLAENGE10% = TEXT_WIDTH(LEERMENUE10$,0100)+6
LEERLAENGE11% = TEXT_WIDTH(LEERMENUE11$,0100)+6
LEERLAENGE12% = TEXT_WIDTH(LEERMENUE12$,0100)+6
LEERLAENGE13% = TEXT_WIDTH(LEERMENUE13$,0100)+6
LEERLAENGE14% = TEXT_WIDTH(LEERMENUE14$,0100)+6
LEERLAENGE15% = TEXT_WIDTH(LEERMENUE15$,0100)+6
LEERLAENGE16% = TEXT_WIDTH(LEERMENUE16$,0100)+6
LEERLAENGE17% = TEXT_WIDTH(LEERMENUE17$,0100)+6
LEERLAENGE18% = TEXT_WIDTH(LEERMENUE18$,0100)+6
LEERLAENGE19% = TEXT_WIDTH(LEERMENUE19$,0100)+6
LEERLAENGE20% = TEXT_WIDTH(LEERMENUE20$,0100)+6
'
LEERSUMME1% = LEERLAENGE01% +  LEERLAENGE02% +  LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% +  LEERLAENGE05% +  LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% +  LEERLAENGE08% +  LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% +  LEERLAENGE11% +  LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% +  LEERLAENGE14% +  LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% +  LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% +  LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME%  = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 12 - LEERSUMME%
LEERMENUE18$ =  STRING$(INT(LEERLAENGE18%/7),CHR$(32))

'
sub_menu 9000:CAPTION 9000,LEERMENUE01$:parent 9000,0001
sub_menu 9020:CAPTION 9020,LEERMENUE02$:parent 9020,0001
sub_menu 9040:CAPTION 9040,LEERMENUE03$:parent 9040,0001
sub_menu 9060:CAPTION 9060,LEERMENUE04$:parent 9060,0001
sub_menu 9080:CAPTION 9080,LEERMENUE05$:parent 9080,0001
sub_menu 9100:CAPTION 9100,LEERMENUE06$:parent 9100,0001
sub_menu 9120:CAPTION 9120,LEERMENUE07$:parent 9120,0001
sub_menu 9140:CAPTION 9140,LEERMENUE08$:parent 9140,0001
sub_menu 9160:CAPTION 9160,LEERMENUE09$:parent 9160,0001
sub_menu 9180:CAPTION 9180,LEERMENUE10$:parent 9180,0001
sub_menu 9200:CAPTION 9200,LEERMENUE11$:parent 9200,0001
sub_menu 9220:CAPTION 9220,LEERMENUE12$:parent 9220,0001
sub_menu 9240:CAPTION 9240,LEERMENUE13$:parent 9240,0001
sub_menu 9260:CAPTION 9260,LEERMENUE14$:parent 9260,0001
sub_menu 9280:CAPTION 9280,LEERMENUE15$:parent 9280,0001
sub_menu 9300:CAPTION 9300,LEERMENUE16$:parent 9300,0001
sub_menu 9320:CAPTION 9320,LEERMENUE17$:parent 9320,0001
sub_menu 9340:CAPTION 9340,LEERMENUE18$:parent 9340,0001
sub_menu 9360:CAPTION 9360,LEERMENUE19$:parent 9360,0001
sub_menu 9380:CAPTION 9380,LEERMENUE20$:parent 9380,0001
'
' ******************************************************************************
' *** ERSTELLEN UNTERMENÜ  1100 bis 1900 ***************************************
' sub_menu 1100:CAPTION 1100," UNTERMENUE 0101 ":parent 1100,1000
' sub_menu 1200:CAPTION 1200," UNTERMENUE 0102 ":parent 1200,1000
' sub_menu 1300:CAPTION 1300," UNTERMENUE 0103 ":parent 1300,1000
' sub_menu 1400:CAPTION 1400," UNTERMENUE 0104 ":parent 1400,1000
' sub_menu 1500:CAPTION 1500," UNTERMENUE 0105 ":parent 1500,1000
' sub_menu 1600:CAPTION 1600," UNTERMENUE 0106 ":parent 1600,1000
' sub_menu 1700:CAPTION 1700," UNTERMENUE 0107 ":parent 1700,1000
' sub_menu 1800:CAPTION 1800," UNTERMENUE 0108 ":parent 1800,1000
sub_menu 1900:CAPTION 1900," QUIT ":parent 1900,9000
' ******************************************************************************
'
Return
'
end
'
' ******************************************************************************


Dernière édition par Severin le Lun 30 Avr 2012 - 23:47, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Lun 30 Avr 2012 - 23:46

So hier ist eine weitere Entwicklungsstufe.

Im Menue "INFO" ist der erste Punkt aktiv. Zum Testen.

Die Struktur ist überarbeitet. Kommentare hinzugefügt.

Severin


So here is another stage of development.

In the menu "Info", the first point is active. For testing.

The structure is revised. Comments added.

Severin

Donc, voici un autre stade de développement.

Dans le menu "Info", le premier point est actif. Pour les tests.

La structure est révisée. Les commentaires ajoutés.

Severin

Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'

' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
'
label OBJEKT_AN  :' Objekt anhängen
label detacher  :' Objekt abhängen
'
dim PARENTNUMMER1%
dim PARENTNUMMER2%
dim ancien%
'
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
dim LEERMENUE01$: dim LEERZEICHEN01%: dim LEERLAENGE01%
dim LEERMENUE02$: dim LEERZEICHEN02$: dim LEERLAENGE02%
dim LEERMENUE03$: dim LEERZEICHEN03$: dim LEERLAENGE03%
dim LEERMENUE04$: dim LEERZEICHEN04%: dim LEERLAENGE04%
dim LEERMENUE05$: dim LEERZEICHEN05%: dim LEERLAENGE05%
dim LEERMENUE06$: dim LEERZEICHEN06%: dim LEERLAENGE06%
dim LEERMENUE07$: dim LEERZEICHEN07%: dim LEERLAENGE07%
dim LEERMENUE08$: dim LEERZEICHEN08%: dim LEERLAENGE08%
dim LEERMENUE09$: dim LEERZEICHEN09%: dim LEERLAENGE09%
dim LEERMENUE10$: dim LEERZEICHEN10%: dim LEERLAENGE10%
dim LEERMENUE11$: dim LEERZEICHEN11%: dim LEERLAENGE11%
dim LEERMENUE12$: dim LEERZEICHEN12%: dim LEERLAENGE12%
dim LEERMENUE13$: dim LEERZEICHEN13%: dim LEERLAENGE13%
dim LEERMENUE14$: dim LEERZEICHEN14%: dim LEERLAENGE14%
dim LEERMENUE15$: dim LEERZEICHEN15%: dim LEERLAENGE15%
dim LEERMENUE16$: dim LEERZEICHEN16%: dim LEERLAENGE16%
dim LEERMENUE17$: dim LEERZEICHEN17%: dim LEERLAENGE17%
dim LEERMENUE18$: dim LEERZEICHEN18%: dim LEERLAENGE18%
dim LEERMENUE19$: dim LEERZEICHEN19%: dim LEERLAENGE19%
dim LEERMENUE20$: dim LEERZEICHEN20%: dim LEERLAENGE20%
'
dim LEERSUMME%  :dim LEERSUMME1%
dim LEERSUMME2% :dim LEERSUMME3%
dim LEERSUMME4% :dim LEERSUMME5%
dim LEERSUMME6% :dim LEERSUMME7%
dim LEERSUMME8% :dim LEERSUMME9%
'
dim Menuetext$
'
' ******************************************************************************
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
' ***  DEUTSCH              ENGLISCH          FRANZÖSISCH
' DATA






' ******************************************************************************
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREEN0000
LABEL SCREEN0100
LABEL ZAHL0110
LABEL ZAHL0200
LABEL ZAHL0400

LABEL ZAHL1000
LABEL ZAHL2000

Label ZAHL8600
Label ZAHL8620
Label ZAHL8640
Label ZAHL8660
Label ZAHL8680
Label ZAHL8700
Label ZAHL8720
Label ZAHL8740
Label ZAHL8760
Label ZAHL8780
Label ZAHL8800
Label ZAHL8820
Label ZAHL8840
Label ZAHL8860
Label ZAHL8880
Label ZAHL8900
Label ZAHL8920
Label ZAHL8940
Label ZAHL8960
Label ZAHL8980




Label PROGRAMM_ENDE
LABEL PROGRAMM_OEFFNEN
LABEL PROGRAMM_SPEICHER
'
' ******************************************************************************
' *** VARIABLE für Dateien *****************************************************
dim Datei_Name$



' ******************************************************************************
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
'
' *** SetSize :    1-> ON - Ob eine FORm resize
DIM FORm_BUTTON_On01:' ...FORm_BUTTON_On01=dll_call2("SetSize",handle(0),1)
' *** SetCaption:  1-> ON - Aktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_On02:' ...FORm_BUTTON_On02= DLL_CALL2("SetCaption",HANDLE(0),1)
'
DIM FORm_BUTTON_On03:' ...FORm_BUTTON_On03=
' *** SetMaximize : 1-> ON - Ob die Umsetzung einer Vollbild-FORm.
DIM FORm_BUTTON_On04:' ...FORm_BUTTON_On04=DLL_CALL2("SetMaximize",HANDLE(0),1)
' *** SetMinimize : 1-> ON - Ob die Einstellung Symbol eines FORmulars
DIM FORm_BUTTON_On05:' ...FORm_BUTTON_On05= DLL_CALL2("SetMinimize", HANDLE(0),1)
'
DIM FORm_BUTTON_On06:' ...FORm_BUTTON_On06=
'
DIM FORm_BUTTON_On07:' ...FORm_BUTTON_On07=
'
DIM FORm_BUTTON_On08:' ...FORm_BUTTON_On08=
' *** SetFORmActive :        Legen Sie die FORm in den Vordergrund.
DIM FORm_BUTTON_On09:' ...FORm_BUTTON_On09= dll_call1("SetFORmActive",handle(0))
'
DIM FORm_BUTTON_On10:' ...FORm_BUTTON_On10=
' *** SetSize :        0-> OFF - Ob eine FORm resize
DIM FORm_BUTTON_Off11  :' ...FORm_BUTTON_Off11=dll_call2("SetSize",handle(0),0)
' *** SetCaption:      0-> OFF - Deaktivieren der Titelleiste (CAPTION) eines FORmulars
DIM FORm_BUTTON_Off12  :' ...FORm_BUTTON_Off12= DLL_CALL2("SetCaption",HANDLE(0),0)
' *** SetCLOSEOff      :' Deaktivieren der Schließen-Schaltfläche der FORM
DIM FORM_BUTTON_Off13  :' =dll_call1("SetCLOSEOff",handle(0))
' *** SetMaximize      :' 0-> OFF - Ob die Umsetzung einer Vollbild-FORM
DIM FORM_BUTTON_Off14  :' =DLL_CALL2("SetMaximize",HANDLE(0),0)
' *** SetMinimize      :' 0-> OFF - Ob die Einstellung Symbol eines FORmulars.
DIM FORM_BUTTON_Off15  :' =DLL_CALL2("SetMinimize",HANDLE(0),0)
'
DIM FORm_BUTTON_Off16  :' ...FORm_BUTTON_Off16=
'
DIM FORm_BUTTON_Off17  :' ...FORm_BUTTON_Off17=
'
DIM FORm_BUTTON_Off18  :' ...FORm_BUTTON_Off18=
'
DIM FORm_BUTTON_Off19  :' ...FORm_BUTTON_Off19=dll_call1(
' *** CreateBox: Position ein paar Folk (erstellt für den persönlichen Bedarf).
DIM FORm_BUTTON_Off99  :' ...FORm_BUTTON_Off99=dll_call1("SetTOpMost",handle(0))
'
' ******************************************************************************
' *** FORM 0000 ERSTELLEN IN SCHWARZ *******************************************
SCREEN0000:
'
dll_on "form.dll"
FORM_BUTTON_Off13=dll_call1("SetCloseOff",handle(0))  :' Schließen deaktiviert
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0) :' Vergrößern deaktiviert
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0) :' Verkleinern deaktiviert
dll_off
'
' FORM 0000
TOP          0000,0
LEFT          0000,0
WIDTH        0000,SCREEN_X
HEIGHT        0000,SCREEN_Y-44
COLOR        0000,000,000,000
CAPTION      0000,"          Multimomentstudien erstellen und auswerten "
'
PARENTNUMMER2% = handle(0000)
'
' *** ALLE FORMEN ERSTELLEN ****************************************************
'
Gosub SCREEN0100  :' Form für Schaltflächenleiste -- oben
Gosub Zahl0200    :' Form für Fussleiste          -- unten
Gosub Zahl0400
Gosub Zahl1000    :' Form für Clientarena ---> 1000
' Gosub Zahl2000    :' Form für Clientarena ---> 2000
'
'
' ******************************************************************************
' on_click 1000,Zahl1000 *******************************************************
'
on_click 9001,PROGRAMM_ENDE
on_click 9002,PROGRAMM_OEFFNEN
on_click 9004,PROGRAMM_SPEICHER
' on_click 1200,Zahl1200:
' on_click 1300,Zahl1300
' on_click 1400,Zahl1400:
' on_click 1500,Zahl1500:
' on_click 1600,Zahl1600
' on_click 1700,Zahl1700:
' on_click 1800,Zahl1800:
on_click 9019,PROGRAMM_ENDE
' *** Menue 20 *****************************************************************
on_click 9381,Zahl8600
on_click 9382,Zahl8620
on_click 9383,Zahl8640






end
'
' ******************************************************************************
' *** FORM 0100 ERSTELLEN IN GRAU  ---> Schaltflächenleiste ********************
SCREEN0100:
'
COMMAND_TARGET_IS 0000
'
FORM          0100
TOP          0100,2
LEFT          0100,2
WIDTH        0100,SCREEN_X-12
HEIGHT        0100,70
COLOR        0100,229,229,229
BORDER_HIDE  0100
'
PARENTNUMMER1% = handle(0100)
GOSUB OBJEKT_AN
'
'
' ******************************************************************************
' *** BILD AUF FORM 0100 ANZEIGEN **********************************************
'
COMMAND_TARGET_IS  0100
'
' *** später durch Bild ersetzen
BUTTON      0101                        :' HIDE 101
TOP          0101,2                      : REM  HÖHE FENSTER
LEFT        0101,2                      : REM  BREITE FENSTER
WIDTH        0101,22                      : REM ......BREITE  1680
HEIGHT      0101,22                      : REM ......HÖHE    1050
CAPTION      0101,"|<--"
' FILE_LOAD    0101,Speicherplatz_Bild01$
' STRETCH_ON  0101                      : REM
' SHOW        0101                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0102                        :' HIDE 101
TOP          0102,26                      : REM  HÖHE FENSTER
LEFT        0102,2                      : REM  BREITE FENSTER
WIDTH        0102,22                      : REM ......BREITE  1680
HEIGHT      0102,22                      : REM ......HÖHE    1050
CAPTION      0102,"-->"
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0105                        :' HIDE 101
TOP          0105,2                      : REM  HÖHE FENSTER
LEFT        0105,26                      : REM  BREITE FENSTER
WIDTH        0105,22                      : REM ......BREITE  1680
HEIGHT      0105,22                      : REM ......HÖHE    1050
CAPTION      0105,"<--"
' FILE_LOAD    0105,Speicherplatz_Bild01$
' STRETCH_ON  0105                      : REM
' SHOW        0105                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0106                        :' HIDE 101
TOP          0106,26                      : REM  HÖHE FENSTER
LEFT        0106,26                      : REM  BREITE FENSTER
WIDTH        0106,22                      : REM ......BREITE  1680
HEIGHT      0106,22                      : REM ......HÖHE    1050
CAPTION      0106,"-->|"
' FILE_LOAD    0106,Speicherplatz_Bild01$
' STRETCH_ON  0106                      : REM
' SHOW        0106                      : REM
'



' *** später durch Bild ersetzen
BUTTON      0190                        :' HIDE 101
TOP          0190,4                      : REM  HÖHE FENSTER
LEFT        0190,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0190,44                      : REM ......BREITE  1680
HEIGHT      0190,44                      : REM ......HÖHE    1050
CAPTION      0190," HELP "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
parent 0190,0100
'



' *** später durch Bild ersetzen
BUTTON      0195                        :' HIDE 101
TOP          0195,4                      : REM  HÖHE FENSTER
LEFT        0195,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0195,44                      : REM ......BREITE  1680
HEIGHT      0195,44                      : REM ......HÖHE    1050
CAPTION      0195," LOGO "
' FILE_LOAD    0102,Speicherplatz_Bild01$
' STRETCH_ON  0102                      : REM
' SHOW        0102                      : REM
'
parent 0195,0100
'
' end
Return
'
' ******************************************************************************
ZAHL0110:

' COMMAND_TARGET_IS  0100
2d_target_is 0100
2d_pen_color 190,190,190
2d_pen_width 3
2d_line  100,4,100,160






' COMMAND_TARGET_IS  0100
2d_target_is 0100
2d_pen_color 190,190,190
2d_pen_width 3
2d_line  SCREEN_X-116,4,SCREEN_X-116,260

return

'
' ******************************************************************************
' *** FORM 0200 ERSTELLEN ---> FUSSLEISTE **************************************
ZAHL0200:
'
COMMAND_TARGET_IS 0000
'
FORM          0200
TOP          0200,SCREEN_Y-101
LEFT          0200,2
WIDTH        0200,SCREEN_X-12
HEIGHT        0200,28
COLOR        0200,231,238,240
BORDER_HIDE  0200
'
PARENTNUMMER1% = handle(0200)
GOSUB OBJEKT_AN
'
return
'
' ******************************************************************************
' *** FORM 1000 ERSTELLEN ---> Bearbeitungsfläche 1000 *************************
ZAHL1000:
'
COMMAND_TARGET_IS 0000
'
FORM          1000
TOP          1000,74
LEFT          1000,2
WIDTH        1000,SCREEN_X-12
HEIGHT        1000,SCREEN_Y-177
COLOR        1000,167,171,172
BORDER_HIDE  1000
'
PARENTNUMMER1% = handle(1000)
GOSUB OBJEKT_AN
'
return
'
' ******************************************************************************
' *** FORM 2000 ERSTELLEN ---> Bearbeitungsfläche 2000 *************************
ZAHL2000:
'
COMMAND_TARGET_IS 0000
'
FORM          2000
TOP          2000,74
LEFT          2000,2
WIDTH        2000,SCREEN_X-12
HEIGHT        2000,SCREEN_Y-177
COLOR        2000,255,000,000
BORDER_HIDE  2000
'
PARENTNUMMER1% = handle(2000)
GOSUB OBJEKT_AN
'
return
' ******************************************************************************
' *** FORM 8600 ERSTELLEN ---> Bearbeitungsfläche 8600 *************************
ZAHL8600:
'
COMMAND_TARGET_IS 0000
'
FORM          8600
TOP          8600,74
LEFT          8600,2
WIDTH        8600,SCREEN_X-12
HEIGHT        8600,SCREEN_Y-177
COLOR        8600,229,229,229
BORDER_HIDE  8600
'
PARENTNUMMER1% = handle(8600)
GOSUB OBJEKT_AN
'
COMMAND_TARGET_IS 0200
'
' *** später durch Bild ersetzen
BUTTON        8601
TOP          8601,3
LEFT          8601,2
WIDTH        8601,22
HEIGHT        8601,22
CAPTION      8601,"ICON"
' FILE_LOAD    8601,Speicherplatz_Bild01$
' STRETCH_ON  8601
' SHOW        8601
'
edit          8602
TOP          8602,4
LEFT          8602,26
WIDTH        8602,300
HEIGHT        8602,24
FONT_COLOR    8602,000,000,255
TEXT          8602," INFO -- über Programm "
Menuetext$ = TEXT$(8602)
print Menuetext$
FONT_COLOR    8602,000,000,000
'
return
' ******************************************************************************
' *** FORM 8620 ERSTELLEN ---> Bearbeitungsfläche 8620 *************************
ZAHL8620:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8640:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8660:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8680:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8700:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8720:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8740:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8760:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8780:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8800:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8820:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8840:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8860:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8880:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8900:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8920:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8940:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8960:
'
return
' ******************************************************************************
' *** FORM 8640 ERSTELLEN ---> Bearbeitungsfläche 8640 *************************
ZAHL8980:
'
return




' ******************************************************************************
' ******************************************************************************
ZAHL0400:
'
COMMAND_TARGET_IS 0100
'
Font_name 0100,"arial"
Font_size 0100,07
font_bold 0100

'
' ******************************************************************************
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
'
' *** Berechnung von Länge des Leermenue 18 ****
'
LEERMENUE01$ =  " DATEI "
LEERMENUE02$ =  " MENUE 02 "
LEERMENUE03$ =  " MENUE 03 "
LEERMENUE04$ =  " MENUE 04 "
LEERMENUE05$ =  " MENUE 05 "
LEERMENUE06$ =  " MENUE 06 "
LEERMENUE07$ =  " MENUE 07 "
LEERMENUE08$ =  " MENUE 08 "
LEERMENUE09$ =  " MENUE 09 "
LEERMENUE10$ =  " MENUE 10 "
'
LEERMENUE11$ =  " MENUE 11 "
LEERMENUE12$ =  " MENUE 12 "
LEERMENUE13$ =  " MENUE 13 "
LEERMENUE14$ =  " MENUE 14 "
LEERMENUE15$ =  " MENUE 15 "
LEERMENUE16$ =  " MENUE 16 "
LEERMENUE17$ =  " OPTIONEN "
LEERMENUE18$ =  " "
LEERMENUE19$ =  " HILFE "
LEERMENUE20$ =  " INFO "
'
LEERLAENGE01% = TEXT_WIDTH(LEERMENUE01$,0100)+8
LEERLAENGE02% = TEXT_WIDTH(LEERMENUE02$,0100)+8
LEERLAENGE03% = TEXT_WIDTH(LEERMENUE03$,0100)+8
LEERLAENGE04% = TEXT_WIDTH(LEERMENUE04$,0100)+8
LEERLAENGE05% = TEXT_WIDTH(LEERMENUE05$,0100)+8
LEERLAENGE06% = TEXT_WIDTH(LEERMENUE06$,0100)+8
LEERLAENGE07% = TEXT_WIDTH(LEERMENUE07$,0100)+8
LEERLAENGE08% = TEXT_WIDTH(LEERMENUE08$,0100)+8
LEERLAENGE09% = TEXT_WIDTH(LEERMENUE09$,0100)+8
LEERLAENGE10% = TEXT_WIDTH(LEERMENUE10$,0100)+8
LEERLAENGE11% = TEXT_WIDTH(LEERMENUE11$,0100)+8
LEERLAENGE12% = TEXT_WIDTH(LEERMENUE12$,0100)+8
LEERLAENGE13% = TEXT_WIDTH(LEERMENUE13$,0100)+8
LEERLAENGE14% = TEXT_WIDTH(LEERMENUE14$,0100)+8
LEERLAENGE15% = TEXT_WIDTH(LEERMENUE15$,0100)+8
LEERLAENGE16% = TEXT_WIDTH(LEERMENUE16$,0100)+8
LEERLAENGE17% = TEXT_WIDTH(LEERMENUE17$,0100)+8
LEERLAENGE18% = TEXT_WIDTH(LEERMENUE18$,0100)+8
LEERLAENGE19% = TEXT_WIDTH(LEERMENUE19$,0100)+8
LEERLAENGE20% = TEXT_WIDTH(LEERMENUE20$,0100)+8
'
LEERSUMME1% = LEERLAENGE01% +  LEERLAENGE02% +  LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% +  LEERLAENGE05% +  LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% +  LEERLAENGE08% +  LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% +  LEERLAENGE11% +  LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% +  LEERLAENGE14% +  LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% +  LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% +  LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME%  = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 12 - LEERSUMME% -0
LEERMENUE18$ =  STRING$(INT(LEERLAENGE18%/7),CHR$(32))

'
sub_menu 9000:CAPTION 9000,LEERMENUE01$:parent 9000,0001
sub_menu 9020:CAPTION 9020,LEERMENUE02$:parent 9020,0001
sub_menu 9040:CAPTION 9040,LEERMENUE03$:parent 9040,0001
sub_menu 9060:CAPTION 9060,LEERMENUE04$:parent 9060,0001
sub_menu 9080:CAPTION 9080,LEERMENUE05$:parent 9080,0001
sub_menu 9100:CAPTION 9100,LEERMENUE06$:parent 9100,0001
sub_menu 9120:CAPTION 9120,LEERMENUE07$:parent 9120,0001
sub_menu 9140:CAPTION 9140,LEERMENUE08$:parent 9140,0001
sub_menu 9160:CAPTION 9160,LEERMENUE09$:parent 9160,0001
sub_menu 9180:CAPTION 9180,LEERMENUE10$:parent 9180,0001
sub_menu 9200:CAPTION 9200,LEERMENUE11$:parent 9200,0001
sub_menu 9220:CAPTION 9220,LEERMENUE12$:parent 9220,0001
sub_menu 9240:CAPTION 9240,LEERMENUE13$:parent 9240,0001
sub_menu 9260:CAPTION 9260,LEERMENUE14$:parent 9260,0001
sub_menu 9280:CAPTION 9280,LEERMENUE15$:parent 9280,0001
sub_menu 9300:CAPTION 9300,LEERMENUE16$:parent 9300,0001
sub_menu 9320:CAPTION 9320,LEERMENUE17$:parent 9320,0001
sub_menu 9340:CAPTION 9340,LEERMENUE18$:parent 9340,0001
sub_menu 9360:CAPTION 9360,LEERMENUE19$:parent 9360,0001
sub_menu 9380:CAPTION 9380,LEERMENUE20$:parent 9380,0001
'
' ******************************************************************************
' *** Hauptmenue 9000 --- ERSTELLEN UNTERMENÜ  9001 bis 9019 *******************
sub_menu 9001:CAPTION 9001," Neu            ":parent 9001,9000
sub_menu 9002:CAPTION 9002," Öffnen ...      ":parent 9002,9000
sub_menu 9003:CAPTION 9003," Speichern      ":parent 9003,9000
sub_menu 9004:CAPTION 9004," Speichern unter ":parent 9004,9000
sub_menu 9005:CAPTION 9005,"--------------------":parent 9005,9000
sub_menu 9006:CAPTION 9006," UNTERMENUE 0106 ":parent 9006,9000
sub_menu 9007:CAPTION 9007," UNTERMENUE 0107 ":parent 9007,9000
sub_menu 9008:CAPTION 9008," UNTERMENUE 0108 ":parent 9008,9000
sub_menu 9009:CAPTION 9009," UNTERMENUE 0109 ":parent 9009,9000
sub_menu 9010:CAPTION 9010," UNTERMENUE 0110 ":parent 9010,9000
sub_menu 9011:CAPTION 9011," UNTERMENUE 0111 ":parent 9011,9000
sub_menu 9012:CAPTION 9012," UNTERMENUE 0112 ":parent 9012,9000
sub_menu 9013:CAPTION 9013," UNTERMENUE 0113 ":parent 9013,9000
sub_menu 9014:CAPTION 9014," UNTERMENUE 0114 ":parent 9014,9000
sub_menu 9015:CAPTION 9015," UNTERMENUE 0115 ":parent 9015,9000
sub_menu 9016:CAPTION 9016," UNTERMENUE 0116 ":parent 9016,9000
sub_menu 9017:CAPTION 9017," UNTERMENUE 0117 ":parent 9017,9000
sub_menu 9018:CAPTION 9018,"--------------------":parent 9018,9000
sub_menu 9019:CAPTION 9019," QUIT ":parent 9019,9000
' ******************************************************************************
' *** Hauptmenue 9320 --- ERSTELLEN UNTERMENÜ  9321 bis 9339 *******************
sub_menu 9321:CAPTION 9321," Einstellung    ":parent 9321,9320
sub_menu 9322:CAPTION 9322," Sprache ...    ":parent 9322,9320
sub_menu 9323:CAPTION 9323," UNTERMENUE 1703 ":parent 9323,9320
sub_menu 9324:CAPTION 9324," UNTERMENUE 1704 ":parent 9324,9320
sub_menu 9325:CAPTION 9325," UNTERMENUE 1705 ":parent 9325,9320
sub_menu 9326:CAPTION 9326," UNTERMENUE 1706 ":parent 9326,9320
sub_menu 9327:CAPTION 9327," UNTERMENUE 1707 ":parent 9327,9320
sub_menu 9328:CAPTION 9328," UNTERMENUE 1708 ":parent 9328,9320
sub_menu 9329:CAPTION 9329," UNTERMENUE 1709 ":parent 9329,9320
sub_menu 9330:CAPTION 9330," UNTERMENUE 1710 ":parent 9330,9320
' ******************************************************************************
' *** Hauptmenue 9360 --- ERSTELLEN UNTERMENÜ  9361 bis 9379 *******************
sub_menu 9361:CAPTION 9361," HILFE 01        ":parent 9361,9360
sub_menu 9362:CAPTION 9362," HILFE 02        ":parent 9362,9360
sub_menu 9363:CAPTION 9363," HILFE 03        ":parent 9363,9360
sub_menu 9364:CAPTION 9364," HILFE 04        ":parent 9364,9360
sub_menu 9365:CAPTION 9365," HILFE 05        ":parent 9365,9360
sub_menu 9366:CAPTION 9366," HILFE 06        ":parent 9366,9360
sub_menu 9367:CAPTION 9367," HILFE 07        ":parent 9367,9360
sub_menu 9368:CAPTION 9368," HILFE 08        ":parent 9368,9360
sub_menu 9369:CAPTION 9369," HILFE 09        ":parent 9369,9360
sub_menu 9370:CAPTION 9370," HILFE 10        ":parent 9370,9360
' ******************************************************************************
' *** Hauptmenue 9380 --- ERSTELLEN UNTERMENÜ  9381 bis 9399 *******************
sub_menu 9381:CAPTION 9381," über Programm  ":parent 9381,9380
sub_menu 9382:CAPTION 9382," über Computer  ":parent 9382,9380
sub_menu 9383:CAPTION 9383," über Netzwerk  ":parent 9383,9380
sub_menu 9384:CAPTION 9384," UNTERMENUE 2004 ":parent 9384,9380
sub_menu 9385:CAPTION 9385," UNTERMENUE 2005 ":parent 9385,9380
sub_menu 9386:CAPTION 9386," UNTERMENUE 2006 ":parent 9386,9380
sub_menu 9387:CAPTION 9387," UNTERMENUE 2007 ":parent 9387,9380
sub_menu 9388:CAPTION 9388," UNTERMENUE 2008 ":parent 9388,9380
sub_menu 9389:CAPTION 9389," UNTERMENUE 2009 ":parent 9389,9360
sub_menu 9390:CAPTION 9390," UNTERMENUE 2010 ":parent 9390,9360

Return
'
' ******************************************************************************
PROGRAMM_OEFFNEN:



open_Dialog  22

Datei_Name$ = File_name$(22)

return

' ******************************************************************************
PROGRAMM_SPEICHER:

save_Dialog  23

Datei_Name$ = File_name$(23)

return


end
'
' ******************************************************************************
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
'
terminate
end
'
' ******************************************************************************
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
'
return
'
' ******************************************************************************
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
' active 1 : inactive 2
return
'
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Mer 2 Mai 2012 - 1:51

Hallo panoramic's,
hier ist der neuste Code. Ich werde alle Änderungen in diesem Bereich einstellen.
Da das Programm sehr lang ist, stelle ich es in zwei Teile. Hier ist der erste Teil.

Hello panoramic's,
Here is the latest code. I would take away all changes in this area.
Since the program is very long, I put it into two parts. Here is the first part.


Bonjour de panoramique,
Voici le dernier code. Je mettrai tous les changements dans ce domaine.
Parce que le programme est très long, je l'ai mis en deux parties. Voici la première partie.

Severin
Stand: 03.05.2012

Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
DIM SPRACHE%
SPRACHE% = 1  :' deutsch
' SPRACHE% = 2  :' englisch
' SPRACHE% = 3  :' französisch
LABEL SchriftartTerminal
DIM SCHRIFTART
'
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
'
LABEL OBJEKT_AN  :' Objekt anhängen
LABEL detacher    :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
'
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
'
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME%  :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
'
' ******************************************************************************
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
'
DIM TEXT_MENUE_00$(20,3)  :DIM i          :DIM j
DIM TITEL$(3,3)
'
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
'
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 " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
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 " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " "          ," "        ," "
DATA " HILFE "    ," HELP "    ," AID "
DATA " INFO "    ," INFO "    ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3 :read  TEXT_MENUE_00$(i,j):next j
next i
' ******************************************************************************
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
'
DIM TEXT_MENUE_01$(9000,3)
'
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu            "," New            "," Nouveau        "
DATA " Öffnen ...      "," Open ...        "," Ouvert ...      "
DATA " Speichern      "," Save            "," Sauver          "
DATA " Speichern unter "," Save under      "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU  0106 "," SUB NENU  0106 "
DATA " UNTERMENUE 0107 "," SUB NENU  0107 "," SUB NENU  0107 "
DATA " UNTERMENUE 0108 "," SUB NENU  0108 "," SUB NENU  0108 "
DATA " UNTERMENUE 0109 "," SUB NENU  0109 "," SUB NENU  0109 "
DATA " UNTERMENUE 0110 "," SUB NENU  0110 "," SUB NENU  0110 "
DATA " UNTERMENUE 0111 "," SUB NENU  0111 "," SUB NENU  0111 "
DATA " UNTERMENUE 0112 "," SUB NENU  0112 "," SUB NENU  0112 "
DATA " UNTERMENUE 0113 "," SUB NENU  0113 "," SUB NENU  0113 "
DATA " UNTERMENUE 0114 "," SUB NENU  0114 "," SUB NENU  0114 "
DATA " UNTERMENUE 0115 "," SUB NENU  0115 "," SUB NENU  0115 "
DATA " UNTERMENUE 0116 "," SUB NENU  0116 "," SUB NENU  0116 "
DATA " UNTERMENUE 0117 "," SUB NENU  0117 "," SUB NENU  0117 "
DATA "====================","====================","===================="
DATA " QUIT            "," QUIT            "," QUIT            "
DATA " UNTERMENUE 0120 "," SUB NENU  0106 "," SUB NENU  0106 " :' inktiv
' 02
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 " :' inktiv
' 03
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 "  :' inktiv
' 04
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 " :' inktiv
' 05
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 "  :' inktiv
' 06
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 " :' inktiv
' 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 "  :' inktiv
' 08
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 "  :' inktiv
' 09
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 "  :' inktiv
' 10
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 "  :' inktiv
' 11
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 "  :' inktiv
' 12
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 "  :' inktiv
' 13
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 " :' inktiv
' 14
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 "  :' inktiv
' 15
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 "  :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen  "," Settings        "," Paramètres      "
DATA " Sprache        "," Language        "," Langue          "
DATA " UNTERMENUE 1703 "," SUB NENU  1703 "," SUB NENU  1703 "
DATA " UNTERMENUE 1704 "," SUB NENU  1704 "," SUB NENU  1704 "
DATA " UNTERMENUE 1705 "," SUB NENU  1705 "," SUB NENU  1705 "
DATA " UNTERMENUE 1706 "," SUB NENU  1706 "," SUB NENU  1706 "
DATA " UNTERMENUE 1707 "," SUB NENU  1707 "," SUB NENU  1707 "
DATA " UNTERMENUE 1708 "," SUB NENU  1708 "," SUB NENU  1708 "
DATA " UNTERMENUE 1709 "," SUB NENU  1709 "," SUB NENU  1709 "
DATA " UNTERMENUE 1710 "," SUB NENU  1710 "," SUB NENU  1710 "
DATA " UNTERMENUE 1711 "," SUB NENU  1711 "," SUB NENU  1711 "
DATA " UNTERMENUE 1712 "," SUB NENU  1712 "," SUB NENU  1712 "
DATA " UNTERMENUE 1713 "," SUB NENU  1713 "," SUB NENU  1713 "
DATA " UNTERMENUE 1714 "," SUB NENU  1714 "," SUB NENU  1714 "
DATA " UNTERMENUE 1715 "," SUB NENU  1715 "," SUB NENU  1715 "
DATA " UNTERMENUE 1716 "," SUB NENU  1716 "," SUB NENU  1716 "
DATA " UNTERMENUE 1717 "," SUB NENU  1717 "," SUB NENU  1717 "
DATA " UNTERMENUE 1718 "," SUB NENU  1718 "," SUB NENU  1718 "
DATA " Menü ändern    "," Menu change    "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU  1720 "," SUB NENU  1720 "  :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
' 19
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "  :' inktiv
' 20
DATA " über Programm  "," about Program  "," sur le Programme"
DATA " über Computer  "," about Computer  "," sur l'ordinateur"
DATA " über Netzwerk  "," about Network  "," sur le réseau  "
DATA " UNTERMENUE 2004 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2019 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2020 "," SUB NENU  2006 "," SUB NENU  2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read  TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
'
DIM FORM_NUMMER%
'
' ******************************************************************************
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREEN0000
LABEL SCREEN0010
LABEL SCREEN0090
LABEL SCREENMENU
'
LABEL SCREEN0095
LABEL SCREENALL
'
LABEL SCREENSHOW
'
LABEL PROGRAMM_ENDE
'
LABEL CLIENTARENA  :' Hier werden die EINGABE getätigt
'
' ******************************************************************************
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
'
' ******************************************************************************
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
'
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 ********************************************
SCREEN0000:
'
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) = "          Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = "          Work sampling studies, and generate and evaluate "
TITEL$(1,3) = "          Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
'
' FORM 0000
TOP      0000,0
LEFT    0000,0
WIDTH    0000,SCREEN_X
HEIGHT  0000,SCREEN_Y-44
COLOR    0000,000,000,000
'
CAPTION  0000,TITEL$(1,SPRACHE%)
'
PARENTNUMMER2% = handle(0000)    :' Grundform auf der alle Formen fixiert sind
'
' *** ALLE FORMEN ERSTELLEN ****************************************************
'
Gosub SCREEN0010    :' Form für Schaltflächenleiste -- oben
Gosub SCREEN0090    :' Form für Fussleiste          -- unten
Gosub SCREENMENU    :' Menue auf Form 10 erstellen
Gosub SCREEN0095    :' Form für Clientarena ---> 1000
Gosub SCREENALL    :' ALLE FORMEN ERSTELLEN 1000 bis 8980 Clientarena
'
' ******************************************************************************
' on_click Schaltleiste ********************************************************
' 01
' on_click 0080,SCREENSHOW
'
'
' ******************************************************************************
' on_click 1000,SCREEN0095 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé


Dernière édition par Severin le Jeu 3 Mai 2012 - 22:11, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Mer 2 Mai 2012 - 23:05

Hier ist der zweite Teil.
Here is the second part.
Voici la deuxième partie.

Severin
Stand: 03.05.2012

Code:
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREENSHOW :on_click 0742,SCREENSHOW :on_click 0744,SCREENSHOW
on_click 0746,SCREENSHOW :on_click 0748,SCREENSHOW :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREENSHOW
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
'
end
' ******************************************************************************
' *** FORM 0010 ERSTELLEN ---> Schaltflächenleiste *****************************
SCREEN0010:
'
COMMAND_TARGET_IS 0000
'
FORM          0010
TOP          0010,2
LEFT          0010,2
WIDTH        0010,SCREEN_X-12
HEIGHT        0010,70
COLOR        0010,229,229,229
BORDER_HIDE  0010
'
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
'
' ******************************************************************************
' *** BILDER AUF FORM 0010 ANZEIGEN ********************************************
'
COMMAND_TARGET_IS  0010
'
' *** später durch Bild ersetzen
BUTTON      0011                        :' HIDE 101
TOP          0011,2                      : REM  HÖHE FENSTER
LEFT        0011,2                      : REM  BREITE FENSTER
WIDTH        0011,22                      : REM ......BREITE  1680
HEIGHT      0011,22                      : REM ......HÖHE    1050
CAPTION      0011,"|<--"
' FILE_LOAD    0011,Speicherplatz_Bild01$
' STRETCH_ON  0011                      : REM
' SHOW        0011                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0012                        :' HIDE 101
TOP          0012,26                      : REM  HÖHE FENSTER
LEFT        0012,2                      : REM  BREITE FENSTER
WIDTH        0012,22                      : REM ......BREITE  1680
HEIGHT      0012,22                      : REM ......HÖHE    1050
CAPTION      0012,"-->"
' FILE_LOAD    0012,Speicherplatz_Bild01$
' STRETCH_ON  0012                      : REM
' SHOW        0012                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0015                        :' HIDE 101
TOP          0015,2                      : REM  HÖHE FENSTER
LEFT        0015,26                      : REM  BREITE FENSTER
WIDTH        0015,22                      : REM ......BREITE  1680
HEIGHT      0015,22                      : REM ......HÖHE    1050
CAPTION      0015,"<--"
' FILE_LOAD    0015,Speicherplatz_Bild01$
' STRETCH_ON  0015                      : REM
' SHOW        0015                      : REM
'
' *** später durch Bild ersetzen
BUTTON      0016                        :' HIDE 101
TOP          0016,26                      : REM  HÖHE FENSTER
LEFT        0016,26                      : REM  BREITE FENSTER
WIDTH        0016,22                      : REM ......BREITE  1680
HEIGHT      0016,22                      : REM ......HÖHE    1050
CAPTION      0016,"-->|"
' FILE_LOAD    0016,Speicherplatz_Bild01$
' STRETCH_ON  0016                      : REM
' SHOW        0016                      : REM
'
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0080                        :' HIDE 101
TOP          0080,4                      : REM  HÖHE FENSTER
LEFT        0080,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0080,44                      : REM ......BREITE  1680
HEIGHT      0080,44                      : REM ......HÖHE    1050
CAPTION      0080," HELP "
' FILE_LOAD    0080,Speicherplatz_Bild01$
' STRETCH_ON  0080                      : REM
' SHOW        0080                      : REM
'
parent 0080,0010
'
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0085                        :' HIDE 101
TOP          0085,4                      : REM  HÖHE FENSTER
LEFT        0085,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0085,44                      : REM ......BREITE  1680
HEIGHT      0085,44                      : REM ......HÖHE    1050
CAPTION      0085," LOGO "
' FILE_LOAD    0085,Speicherplatz_Bild01$
' STRETCH_ON  0085                      : REM
' SHOW        0085                      : REM
'
parent 0085,0010
'
RETURN
' ******************************************************************************
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
SCREEN0090:
'
COMMAND_TARGET_IS 0000
'
FORM          0090
TOP          0090,SCREEN_Y-101
LEFT          0090,2
WIDTH        0090,SCREEN_X-12
HEIGHT        0090,28
COLOR        0090,231,238,240
BORDER_HIDE  0090
'
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
'
COMMAND_TARGET_IS 0090
'
' *** später durch Bild ersetzen
BUTTON        0091
TOP          0091,3
LEFT          0091,2
WIDTH        0091,22
HEIGHT        0091,22
CAPTION      0091,"ICON"
' FILE_LOAD    0091,Speicherplatz_Bild01$
' STRETCH_ON  0091
' SHOW        0091
'
edit          0092
TOP          0092,4
LEFT          0092,28
WIDTH        0092,40
HEIGHT        0092,24
FONT_COLOR    0092,255,000,000
TEXT          0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit          0093
TOP          0093,4
LEFT          0093,74
WIDTH        0093,370
HEIGHT        0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome TO the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR    0093,255,000,000
TEXT          0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
'
RETURN
' ******************************************************************************
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
SCREEN0095:
'
COMMAND_TARGET_IS 0000
'
FORM          0095
TOP          0095,74
LEFT          0095,2
WIDTH        0095,SCREEN_X-12
HEIGHT        0095,SCREEN_Y-177
COLOR        0095,000,255,000
BORDER_HIDE  0095
'
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
'
Font_name 0095,"Terminal"
RETURN
' ******************************************************************************
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
SCREENALL:
'
COMMAND_TARGET_IS 0000
'
Screen_Beginn% = 1000 :Screen_End% = 8980
'
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
'
FORM          Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE          Screen_Nr%
TOP          Screen_Nr%,74
LEFT          Screen_Nr%,2
WIDTH        Screen_Nr%,SCREEN_X-12
HEIGHT        Screen_Nr%,SCREEN_Y-177
COLOR        Screen_Nr%,229,229,229
BORDER_HIDE  Screen_Nr%
'
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
'
Next Screen_Nr%
'
RETURN
' ******************************************************************************
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
'
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
'
FONT_COLOR    0092,000,000,255
TEXT          0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
'
FONT_COLOR    0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
'
gosub CLIENTARENA
'
RETURN
' ******************************************************************************
' ******************************************************************************
SCREENMENU:
'
COMMAND_TARGET_IS 0010
'
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
'
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% +  LEERLAENGE02% +  LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% +  LEERLAENGE05% +  LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% +  LEERLAENGE08% +  LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% +  LEERLAENGE11% +  LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% +  LEERLAENGE14% +  LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% +  LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% +  LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME%  = LEERSUMME8% + LEERSUMME9%

LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0  :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) =  STRING$(INT(LEERLAENGE18%/7),CHR$(32))
'
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
'
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
'
' ******************************************************************************
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ  1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
'
inactive 108:inactive 134
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
'
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
'
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
'
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
'
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
'
RETURN
' ******************************************************************************
' ******************************************************************************
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
'
SHOW FORM_NUMMER%
'
COMMAND_TARGET_IS FORM_NUMMER%
'
print_target_is FORM_NUMMER%
'
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
'
print
print
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
print
'
'
'
'
end
' ******************************************************************************
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
'
terminate
end
'
' ******************************************************************************
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
'
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
'
RETURN
' ******************************************************************************
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' ******************************************************************************
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
SchriftartTerminal:
SCHRIFTART = 0000
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' ******************************************************************************
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Jeu 3 Mai 2012 - 22:18

New Version 3.5.2012 affraid
Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 16:45

Teil 1


WAU, WAU
so hier ist eine überarbeitete Version.
Folgendes ist zubeachten:

Im Menü "OPTIONEN" sind sechs Untermenüs funktionsfähig.
1 bis 5 und 19.

Bei der Einstellung der Sprache gibt es zwei Möglichkeiten:
1. Im Programm einstellen.
2. In einer INI_Datei die bei Sprachwechsel erstellt wird. IN "TEMP" auf "C".

Das Programm ist sehr ausführlich dokumentiert, im CODE.
Der Code ist auch sehr einfach gehalten, also keine Progammiertricks.
Grösse fast 2000 Zeilen. Die Schaltleiste muss noch eingebunden werden.
Da ich nächste Woche wieder auf Dienstreise bin, wird die nächste Version noch etwas dauern.
Warten wir mal ab, was Jack in seiner neuen Version spannendes zu bieten hat.
Mir ist bewusst, das alle Texte noch in eine INI-Datei gehören.
Kritik negativ oder positiv ist willkommen. Ich bitte um Tests, wegen Fehler.
Wenn die Texte komisch sind, bitte Meldung. GOOOOOOOGLE

Schönes und erholsames Wochenende
Severin

PS.
Wenn ich ich die Verschlüsselung von Klaus begriffen habe, soll die INI_Datei verschlüsselt werden.
Dann können Anwender diese nur über das Programm verändern.

WAU WAU
Voici donc une version révisée.
Ce qui suit est, prenez note:

Dans "Options" six sous-menus sont fonctionnels.
1-5 et 19

Lors du réglage de la langue, il ya deux possibilités:
Première Dans l'ensemble du programme.
Deuxième Dans un INI_Datei qui est créé lorsque des changements linguistiques. IN "TEMP" à "C".

Le programme est documenté en détail dans le Code.
Le code est très simple, donc pas de trucs progammier.
Taille de près de 2000 lignes. Le bloc de raccordement doivent être inclus pour le moment.
Depuis que je suis de retour la semaine prochaine en voyage d'affaires, la prochaine version prendra un certain temps.
Attendons de voir ce que Jack a à offrir dans sa nouvelle version passionnante.
Je comprends que tous les textes sont encore dans un fichier INI.

La critique est positive ou négative de bienvenue. Je demande pour les tests, en raison d'erreurs.
Si les paroles sont drôles, s'il vous plaît message. Gooooooogle

Week-end agréable et relaxant
Severin

HP.
Si je l'avais-je compris le cryptage de Klaus, le INI_Datei doit être crypté.
Ensuite, les utilisateurs peuvent les modifier uniquement sur ​​le programme.


Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
' ******************************************************************************
' *** INI-Datei prüfen ob angelegt *********************************************
'
LABEL INIDATEI_YES  :LABEL INIDATEI_NO  : LABEL INIDATEI_WRITE
LABEL STARTPROGRAMM
'
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$        :INI_DIR_A$ = "c:\"
DIM INI_DATEI_WERTE0$ :INI_DATEI_WERTE0$ = INI_DIR_A$ + "temp\INI0_Text.TXT"
'
if file_exists(INI_DATEI_WERTE0$) = 0 then goto INIDATEI_NO
if file_exists(INI_DATEI_WERTE0$) = 1 then goto INIDATEI_YES
' ***INI-DATEI NICHT ANGELEGT, SPRACHE IST DEUTSCH *****************************
INIDATEI_NO:
'
SPRACHE% = 1    :' deutsch
' SPRACHE% = 2  :' englisch
' SPRACHE% = 3  :' französisch
GOTO STARTPROGRAMM
' ***INI-DATEI ANGELEGT, SPRACHE aus INI-DATEI ÜBERNEHMEN **********************
INIDATEI_YES:
'
FILE_OPEN_READ 1,INI_DATEI_WERTE0$
FILE_READLN    1,INI_WERT$
FILE_CLOSE    1
'
SPRACHE% =  VAL(INI_WERT$)
'
PRINT "gelesen ",SPRACHE%
PRINT DIR_A$
'
GOTO STARTPROGRAMM
' ******************************************************************************
STARTPROGRAMM:
' ******************************************************************************
DIM SCHRIFTART
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
LABEL SCHRIFTARTSYMBOLschwarz  :LABEL SCHRIFTARTSYMBOLrot
LABEL SCHRIFTARTSYMBOLschwarz12:LABEL SCHRIFTARTSYMBOLrot12
' *** ARIAL NORMAL            *************************************************
LABEL SCHRIFTART08N:LABEL SCHRIFTART09N:LABEL SCHRIFTART10N:LABEL SCHRIFTART11N
LABEL SCHRIFTART12N:LABEL SCHRIFTART15N:LABEL SCHRIFTART20N
' *** ARIAL FETT              *************************************************
LABEL SCHRIFTART08F:LABEL SCHRIFTART09F:LABEL SCHRIFTART10F:LABEL SCHRIFTART11F
LABEL SCHRIFTART12F:LABEL SCHRIFTART15F:LABEL Schriftart20F
' *** ARIAL FETT UNTERSTRICHEN *************************************************
LABEL SCHRIFTART08FU:LABEL SCHRIFTART09FU:LABEL SCHRIFTART10FU:LABEL SCHRIFTART11FU
LABEL SCHRIFTART12FU:LABEL SCHRIFTART15FU:LABEL Schriftart20FU
' *** ARIAL NORMAL ROT        *************************************************
LABEL Schriftart09NR:LABEL Schriftart11NR
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
LABEL OBJEKT_AN  :' Objekt anhängen
LABEL detacher    :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME%  :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM TEXT_MENUE_00$(20,3)  :DIM i          :DIM j
DIM TITEL$(99,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
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 " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
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 " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " "          ," "        ," "
DATA " HILFE "    ," HELP "    ," AID "
DATA " INFO "    ," INFO "    ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3
read  TEXT_MENUE_00$(i,j)
next j
next i
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
DIM TEXT_MENUE_01$(9000,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu            "," New            "," Nouveau        "
DATA " Öffnen ...      "," Open ...        "," Ouvert ...      "
DATA " Speichern      "," Save            "," Sauver          "
DATA " Speichern unter "," Save under      "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU  0106 "," SUB NENU  0106 "
DATA " UNTERMENUE 0107 "," SUB NENU  0107 "," SUB NENU  0107 "
DATA " UNTERMENUE 0108 "," SUB NENU  0108 "," SUB NENU  0108 "
DATA " UNTERMENUE 0109 "," SUB NENU  0109 "," SUB NENU  0109 "
DATA " UNTERMENUE 0110 "," SUB NENU  0110 "," SUB NENU  0110 "
DATA " UNTERMENUE 0111 "," SUB NENU  0111 "," SUB NENU  0111 "
DATA " UNTERMENUE 0112 "," SUB NENU  0112 "," SUB NENU  0112 "
DATA " UNTERMENUE 0113 "," SUB NENU  0113 "," SUB NENU  0113 "
DATA " UNTERMENUE 0114 "," SUB NENU  0114 "," SUB NENU  0114 "
DATA " UNTERMENUE 0115 "," SUB NENU  0115 "," SUB NENU  0115 "
DATA " UNTERMENUE 0116 "," SUB NENU  0116 "," SUB NENU  0116 "
DATA " UNTERMENUE 0117 "," SUB NENU  0117 "," SUB NENU  0117 "
DATA "====================","====================","===================="
DATA " QUIT            "," QUIT            "," QUIT            "
DATA " UNTERMENUE 0120 "," SUB NENU  0106 "," SUB NENU  0106 " :' inktiv
' 02
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 " :' inktiv
' 03
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 "  :' inktiv
' 04
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 " :' inktiv
' 05
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 "  :' inktiv
' 06
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 " :' inktiv
' 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 "  :' inktiv
' 08
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 "  :' inktiv
' 09
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 "  :' inktiv
' 10
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 "  :' inktiv
' 11
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 "  :' inktiv
' 12
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 "  :' inktiv
' 13
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 " :' inktiv
' 14
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 "  :' inktiv
' 15
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 "  :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen  "," Settings        "," Paramètres      "
DATA " Sprache einstellen "," Language set "," Langue fixé "
DATA " ACTIV 1703 "," ACTIV  1703 "," ACTIV  1703 "
DATA " ACTIV 1704 "," ACTIV  1704 "," ACTIV  1704 "
DATA " ACTIV 1705 "," ACTIV  1705 "," ACTIV  1705 "
DATA " UNTERMENUE 1706 "," SUB NENU  1706 "," SUB NENU  1706 "
DATA " UNTERMENUE 1707 "," SUB NENU  1707 "," SUB NENU  1707 "
DATA " UNTERMENUE 1708 "," SUB NENU  1708 "," SUB NENU  1708 "
DATA " UNTERMENUE 1709 "," SUB NENU  1709 "," SUB NENU  1709 "
DATA " UNTERMENUE 1710 "," SUB NENU  1710 "," SUB NENU  1710 "
DATA " UNTERMENUE 1711 "," SUB NENU  1711 "," SUB NENU  1711 "
DATA " UNTERMENUE 1712 "," SUB NENU  1712 "," SUB NENU  1712 "
DATA " UNTERMENUE 1713 "," SUB NENU  1713 "," SUB NENU  1713 "
DATA " UNTERMENUE 1714 "," SUB NENU  1714 "," SUB NENU  1714 "
DATA " UNTERMENUE 1715 "," SUB NENU  1715 "," SUB NENU  1715 "
DATA " UNTERMENUE 1716 "," SUB NENU  1716 "," SUB NENU  1716 "
DATA " UNTERMENUE 1717 "," SUB NENU  1717 "," SUB NENU  1717 "
DATA " UNTERMENUE 1718 "," SUB NENU  1718 "," SUB NENU  1718 "
DATA " Menü ändern    "," Menu change    "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU  1720 "," SUB NENU  1720 "  :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
' 19
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "  :' inktiv
' 20
DATA " über Programm  "," about Program  "," sur le Programme"
DATA " über Computer  "," about Computer  "," sur l'ordinateur"
DATA " über Netzwerk  "," about Network  "," sur le réseau  "
DATA " UNTERMENUE 2004 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2019 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2020 "," SUB NENU  2006 "," SUB NENU  2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read  TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
DIM FORM_NUMMER%
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREENSHOW
LABEL SCREENSHOW1
LABEL PROGRAMM_ENDE
LABEL CLIENTARENA  :' Hier werden die EINGABE getätigt
'
LABEL SCREEN7400:LABEL FORM_SCHLIESSEN7400
LABEL SCREEN7420:LABEL FORM_SCHLIESSEN7420:LABEL SCREEN7436:LABEL SCREEN7437:LABEL SCREEN7438:LABEL SCREEN7439
LABEL SCREEN7440:LABEL FORM_SCHLIESSEN7440
LABEL SCREEN7460:LABEL FORM_SCHLIESSEN7460
LABEL SCREEN7480:LABEL FORM_SCHLIESSEN7480
'
LABEL SCREEN7760:LABEL FORM_SCHLIESSEN7760
'
LABEL BUTTON_SCHLIESSEN
LABEL BUTTON_ERSTELLT
LABEL BUTTON_WEITER
LABEL Menueschliessen
' *** VARIABLE FÜR BUTTON -- FORM SCHLIESSEN ***********************************
DIM BUTTON_TOP%
DIM BUTTEN_LEFT%
DIM BUTTEN_WIDTH%
DIM BUTTON_HEIGHT%
DIM BUTTON_NR%
'
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
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) = "          Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = "          Work sampling studies, and generate and evaluate "
TITEL$(1,3) = "          Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
' FORM 0000
TOP      0000,0
LEFT    0000,0
WIDTH    0000,SCREEN_X
HEIGHT  0000,SCREEN_Y-44
COLOR    0000,000,000,000
CAPTION  0000,TITEL$(1,SPRACHE%)
PARENTNUMMER2% = handle(0000)    :' Grundform auf der alle Formen fixiert sind
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
COMMAND_TARGET_IS 0000
FORM          0090
TOP          0090,SCREEN_Y-101
LEFT          0090,2
WIDTH        0090,SCREEN_X-12
HEIGHT        0090,28
COLOR        0090,231,238,240
BORDER_HIDE  0090
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0090
' *** später durch Bild ersetzen
BUTTON        0091
TOP          0091,3
LEFT          0091,2
WIDTH        0091,22
HEIGHT        0091,22
CAPTION      0091,"ICON"
' FILE_LOAD    0091,Speicherplatz_Bild01$
' STRETCH_ON  0091
' SHOW        0091
edit          0092
TOP          0092,4
LEFT          0092,28
WIDTH        0092,40
HEIGHT        0092,24
FONT_COLOR    0092,255,000,000
TEXT          0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit          0093
TOP          0093,4
LEFT          0093,74
WIDTH        0093,370
HEIGHT        0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome to the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR    0093,255,000,000
TEXT          0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
' *** FORM 0010 ERSTELLEN ---> Menüleiste **************************************
COMMAND_TARGET_IS 0000
FORM          0010
TOP          0010,2
LEFT          0010,2
WIDTH        0010,SCREEN_X-12
HEIGHT        0010,SCREEN_Y-106
COLOR        0010,000,000,000
BORDER_HIDE  0010
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0010
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% +  LEERLAENGE02% +  LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% +  LEERLAENGE05% +  LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% +  LEERLAENGE08% +  LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% +  LEERLAENGE11% +  LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% +  LEERLAENGE14% +  LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% +  LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% +  LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME%  = LEERSUMME8% + LEERSUMME9%
'
LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0  :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) =  STRING$(INT(LEERLAENGE18%/7),CHR$(32))
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ  1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
inactive 108:inactive 134
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
' *** FORM 0020 ERSTELLEN ---> Schaltflächenleiste *****************************
COMMAND_TARGET_IS 0010
FORM          0020
TOP          0020,1
LEFT          0020,0
WIDTH        0020,SCREEN_X-12
HEIGHT        0020,50
COLOR        0020,229,229,229
BORDER_HIDE  0020
PARENTNUMMER2% = handle(0010)    :' Grundform auf der alle Formen fixiert sind
PARENTNUMMER1% = handle(0020)
GOSUB OBJEKT_AN
' *** BILDER AUF FORM 0020 ANZEIGEN ********************************************
COMMAND_TARGET_IS  0020
' *** später durch Bild ersetzen
BUTTON      0011                        :' HIDE 101
TOP          0011,2                      : REM  HÖHE FENSTER
LEFT        0011,2                      : REM  BREITE FENSTER
WIDTH        0011,22                      : REM ......BREITE  1680
HEIGHT      0011,22                      : REM ......HÖHE    1050
CAPTION      0011,"|<--"
' FILE_LOAD    0011,Speicherplatz_Bild01$
' STRETCH_ON  0011                      : REM
' SHOW        0011                      : REM
' *** später durch Bild ersetzen
BUTTON      0012
TOP          0012,26
LEFT        0012,2
WIDTH        0012,22
HEIGHT      0012,22
CAPTION      0012,"-->"
' FILE_LOAD    0012,Speicherplatz_Bild01$
' STRETCH_ON  0012                      : REM
' SHOW        0012                      : REM
' *** später durch Bild ersetzen
BUTTON      0015                        :' HIDE 101
TOP          0015,2                      : REM  HÖHE FENSTER
LEFT        0015,26                      : REM  BREITE FENSTER
WIDTH        0015,22                      : REM ......BREITE  1680
HEIGHT      0015,22                      : REM ......HÖHE    1050
CAPTION      0015,"<--"
' FILE_LOAD    0015,Speicherplatz_Bild01$
' STRETCH_ON  0015                      : REM
' SHOW        0015                      : REM
' *** später durch Bild ersetzen
BUTTON      0016                        :' HIDE 101
TOP          0016,26                      : REM  HÖHE FENSTER
LEFT        0016,26                      : REM  BREITE FENSTER
WIDTH        0016,22                      : REM ......BREITE  1680
HEIGHT      0016,22                      : REM ......HÖHE    1050
CAPTION      0016,"-->|"
' FILE_LOAD    0016,Speicherplatz_Bild01$
' STRETCH_ON  0016                      : REM
' SHOW        0016                      : REM
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0080                        :' HIDE 101
TOP          0080,4                      : REM  HÖHE FENSTER
LEFT        0080,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0080,44                      : REM ......BREITE  1680
HEIGHT      0080,44                      : REM ......HÖHE    1050
CAPTION      0080," HELP "
' FILE_LOAD    0080,Speicherplatz_Bild01$
' STRETCH_ON  0080                      : REM
' SHOW        0080                      : REM
parent 0080,0020
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0085                        :' HIDE 101
TOP          0085,4                      : REM  HÖHE FENSTER
LEFT        0085,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0085,44                      : REM ......BREITE  1680
HEIGHT      0085,44                      : REM ......HÖHE    1050
CAPTION      0085," LOGO "
' FILE_LOAD    0085,Speicherplatz_Bild01$
' STRETCH_ON  0085                      : REM
' SHOW        0085                      : REM
parent 0085,0020
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé


Dernière édition par Severin le Dim 6 Mai 2012 - 0:50, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 16:53

TEIL 2

WAU WAU
So here is a revised version.
The following is, take note:

In the "Options" six sub-menus are functional.
1-5 and 19

When setting the language, there are two possibilities:
First In the program set.
Second In a INI_Datei that is created when language changes. IN "TEMP" to "C".

The program is documented in great detail in the CODE.
The code is very simple, so no progammier tricks.
Size nearly 2000 lines. The connecting block must be included yet.
Since I'm back next week on a business trip, the next version will take some time.
Let's wait and see what Jack has to offer in his exciting new version.
I understand that all texts are still in an INI file.

Criticism is negative or positive welcome. I ask for tests, because of errors.
If the lyrics are funny, please message. Gooooooogle

Nice and relaxing weekend
Severin

HP.
If I had I understood the encryption of Klaus, the INI_Datei should be encrypted.
Then, users can change them only about the program.


Code:
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
COMMAND_TARGET_IS 0000
Screen_Beginn% = 1000 :Screen_End% = 8980
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
FORM          Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE          Screen_Nr%
TOP          Screen_Nr%,55
LEFT          Screen_Nr%,2
WIDTH        Screen_Nr%,SCREEN_X-16
HEIGHT        Screen_Nr%,SCREEN_Y-181
COLOR        Screen_Nr%,229,229,229
BORDER_HIDE  Screen_Nr%
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
Next Screen_Nr%
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
COMMAND_TARGET_IS 0010
FORM          0095
TOP          0095,54
LEFT          0095,0
WIDTH        0095,SCREEN_X-12
HEIGHT        0095,SCREEN_Y-169
COLOR        0095,000,000,000
BORDER_HIDE  0095
PARENTNUMMER2% = handle(0010)
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREEN7400 :on_click 0742,SCREEN7420 :on_click 0744,SCREEN7440
on_click 0746,SCREEN7460 :on_click 0748,SCREEN7480 :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREEN7760
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
end
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
FONT_COLOR    0092,000,000,255
TEXT          0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
FONT_COLOR    0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
RETURN
' *** ANZEIGE STARTDATEN DER FORM 0090 IN FUSSLEISTE ANZEIGEN ******************
SCREENSHOW1:
FONT_COLOR    0092,255,000,000
TEXT          0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
FONT_COLOR    0093,255,000,000
TEXT          0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
RETURN
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
IF FORM_NUMMER% = 7420 THEN GOSUB SCREEN7420
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
end
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
end
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
RETURN
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' *** 7400 MENÜ ÄNDERN *********************************************************
SCREEN7400:
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
'
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7400:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7420 MENÜ ÄNDERN *********************************************************
SCREEN7420:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
TITEL$(4,1) = " Spracheinstellung ändern "
TITEL$(4,2) = " Changing the language setting "
TITEL$(4,3) = " Modification du réglage de la langue "
TITEL$(5,1) = " Auswahl übernehmen und sichern "
TITEL$(5,2) = " Make selection and save "
TITEL$(5,3) = " Effectuer une sélection et économisez "
TITEL$(6,1) = " Abbrechen und Auswahl behalten  "
TITEL$(6,2) = " Cancel selection and retain "
TITEL$(6,3) = " Annuler la sélection et retenir "
TITEL$(7,1) = " Folgende Auswahl wurde getroffen: "
TITEL$(7,2) = " The following selections were made: "
TITEL$(7,3) = " Les sélections suivantes ont été faites: "
TITEL$(8,1) = "  deutsch  "
TITEL$(8,2) = "  english  "
TITEL$(8,3) = "  français  "
TITEL$(9,1) = "  Auswahl ändern  "
TITEL$(9,2) = "  selection change  "
TITEL$(9,3) = "  changement de sélection  "
TITEL$(10,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(10,2) = "  To accept the settings, restart  "
TITEL$(10,3) = "  Pour accepter les paramètres, redémarrez  "
ON_ERROR_GOTO SCREEN7438
ALPHA        7421:hide 7421
BUTTON      7422:hide 7422
BUTTON      7423:hide 7423
BUTTON      7424:hide 7424
BUTTON      7425:hide 7425
BUTTON      7426:hide 7426
ALPHA        7427:hide 7427
BUTTON      7428:hide 7428
BUTTON      7429:hide 7429
' *** TEXT AUF FORM -- Spracheinstellung ändern ********************************
' ALPHA        7421
TOP          7421,10
LEFT        7421,SCREEN_X/6 - 40
SCHRIFTART = 7421
GOSUB Schriftart12F
CAPTION      7421,TITEL$(4,SPRACHE%)
SHOW        7421
parent      7421,7420
' *** FLAGGE DEUTSCHLAND ERSTELLEN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
' BUTTON      7422
TOP          7422,54
LEFT        7422,SCREEN_X/6
WIDTH        7422,128
HEIGHT      7422,128
SCHRIFTART = 7422
GOSUB Schriftart12F
CAPTION      7422," deutsch "
' FILE_LOAD    7422,Speicherplatz_Bild01$
' STRETCH_ON  7422
SHOW        7422
parent      7422,7420
' *** FLAGGE ENGLAND ERSTELLEN *** 128 x 128 BIT *******************************
' *** später durch Bild ersetzen
' BUTTON      7423
TOP          7423,204
LEFT        7423,SCREEN_X/6
WIDTH        7423,128
HEIGHT      7423,128
SCHRIFTART = 7423
GOSUB Schriftart12F
CAPTION      7423," english "
' FILE_LOAD    7423,Speicherplatz_Bild01$
' STRETCH_ON  7423
 SHOW        7423
parent      7423,7420
' *** FLAGGE FRANKREICH ERSTELLEN *** 128 x 128 BIT ****************************
' *** später durch Bild ersetzen
' BUTTON      7424
TOP          7424,354
LEFT        7424,SCREEN_X/6
WIDTH        7424,128
HEIGHT      7424,128
SCHRIFTART = 7424
GOSUB Schriftart12F
CAPTION      7424," français "
' FILE_LOAD    7424,Speicherplatz_Bild01$
' STRETCH_ON  7424
SHOW        7424
parent      7424,7420
' *** TEXT AUF FORM -- Folgende Auswahl wurde getroffen: ***********************
' ALPHA        7427
TOP          7427,10
LEFT        7427,SCREEN_X/2
SCHRIFTART = 7427
GOSUB Schriftart12F
CAPTION      7427,TITEL$(7,SPRACHE%)
SHOW        7427
parent      7427,7420
' *** TEXT AUF FORM --  Einstellung - deutsch  ********************************
' BUTTON      7428
TOP          7428,104
LEFT        7428,SCREEN_X/2 + 86
WIDTH        7428,128
HEIGHT      7428,128
SCHRIFTART = 7428
GOSUB Schriftart12F
CAPTION      7428,TITEL$(8,SPRACHE%)
' FILE_LOAD    7428,Speicherplatz_Bild01$
' STRETCH_ON  7428
SHOW        7428
parent      7428,7420
inactive    7428
' *** TASTE ÄNDERN ERSTELLEN ** Auswahl übernehmen und sichern *****************
' BUTTON      7425
TOP          7425,344
LEFT        7425,SCREEN_X/2
WIDTH        7425,300
HEIGHT      7425,30
SCHRIFTART = 7425
GOSUB Schriftart11N
CAPTION      7425,TITEL$(5,SPRACHE%)
SHOW        7425
parent      7425,7420
' *** TASTE ABBRECHEN ERSTELLEN **Abbrechen und Auswahl behalten ***************
BUTTON_TOP%    = 388
BUTTEN_LEFT%  = SCREEN_X/2
BUTTEN_WIDTH%  = 300
BUTTON_HEIGHT% = 30
' BUTTON      7426
TOP          7426,388
LEFT        7426,SCREEN_X/2
WIDTH        7426,300
HEIGHT      7426,30
SCHRIFTART = 7426
GOSUB Schriftart11N
CAPTION      7426,TITEL$(6,SPRACHE%)
SHOW        7426
parent      7426,7420
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
' BUTTON      7429
TOP          7429,432
LEFT        7429,SCREEN_X/2
WIDTH        7429,300
HEIGHT      7429,30
SCHRIFTART = 7429
GOSUB Schriftart11N
CAPTION      7429,TITEL$(10,SPRACHE%)
SHOW        7429
parent      7429,7420
inactive    7429
' *** Einsprung wenn ERROR - Routine *******************************************
SCREEN7438:
OFF_ERROR_GOTO
SCREEN7436:
on_click 7422,SCREEN7437
on_click 7423,SCREEN7437
on_click 7424,SCREEN7437
on_click 7425,INIDATEI_WRITE
on_click 7426,SCREEN7439
end
' *** Ausgewählte FLAGGE anzeigenN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
SCREEN7437:
if number_click = 7422 then SPRACHE% = 1
if number_click = 7423 then SPRACHE% = 2
if number_click = 7424 then SPRACHE% = 3
ACTIVE  7428
CAPTION      7428,TITEL$(8,SPRACHE%)
' FILE_LOAD    7428,Speicherplatz_Bild01$
' STRETCH_ON  7428
SHOW        7428
CAPTION      7421,TITEL$(4,SPRACHE%)
SHOW        7421
CAPTION      7427,TITEL$(7,SPRACHE%)
SHOW        7427
CAPTION      7425,TITEL$(5,SPRACHE%)
SHOW        7425
CAPTION      7426,TITEL$(6,SPRACHE%)
SHOW        7426
RETURN
' *** RÜCKSPRUNG WENN SPRACHE NICHT VERÄNDERT **********************************
SCREEN7439:
' BUTTON ZURÜCK ERSTELLEN ******************************************************
INACTIVE  7422
INACTIVE  7423
INACTIVE  7424
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7420:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
END
' *** INI-Datei anlegen ===> lesen <=== ändern *********************************
INIDATEI_WRITE:
INI_WERT$ = STR$(SPRACHE%)
' Spracheinstellung in Datei INI0_Text.TXT schreiben ***************************
FILE_OPEN_WRITE 1,INI_DATEI_WERTE0$
FILE_WRITELN    1,INI_WERT$
FILE_CLOSE      1
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
INACTIVE  7422
INACTIVE  7423
INACTIVE  7424
INACTIVE  7425
INACTIVE  7426
INACTIVE  7428
TITEL$(8,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(8,2) = "  To accept the settings, restart  "
TITEL$(8,3) = "  Pour accepter les paramètres, redémarrez  "
ACTIVE      7429
CAPTION      7429,TITEL$(8,SPRACHE%)
SHOW        7429
on_click 7429,PROGRAMM_ENDE
end
' *** 7440 MENÜ ÄNDERN *********************************************************
SCREEN7440:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7440:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7460 MENÜ ÄNDERN *********************************************************
SCREEN7460:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7460:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7480 MENÜ ÄNDERN *********************************************************
SCREEN7480:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7480:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7760 MENÜ ÄNDERN *********************************************************
SCREEN7760:
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7760:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' ******************************************************************************
Menueschliessen:
active 0010
HIDE    FORM_NUMMER%
COMMAND_TARGET_IS 0010
RETURN
' *** Unterprogramm EINEN BUTTON AUF ALLEN FORMEN ERSTELLEN ********************
BUTTON_SCHLIESSEN:
COMMAND_TARGET_IS FORM_NUMMER%
BUTTON_NR% = FORM_NUMMER% + 39
ON_ERROR_GOTO BUTTON_ERSTELLT
BUTTON BUTTON_NR%
BUTTON_ERSTELLT:
OFF_ERROR_GOTO
COMMAND_TARGET_IS FORM_NUMMER%
TITEL$(99,1) = " FORM SCHLIESSEN "
TITEL$(99,2) = "  FORM CLOSE  "
TITEL$(99,3) = "  Forme proche  "
TOP          BUTTON_NR%,BUTTON_TOP%
LEFT        BUTTON_NR%,BUTTEN_LEFT%
WIDTH        BUTTON_NR%,BUTTEN_WIDTH%
HEIGHT      BUTTON_NR%,BUTTON_HEIGHT%
SCHRIFTART = BUTTON_NR%
GOSUB Schriftart08N
CAPTION      BUTTON_NR%,TITEL$(99,SPRACHE%)
hint        BUTTON_NR%,TITEL$(99,SPRACHE%)
SHOW        BUTTON_NR%
on_click    BUTTON_NR%,BUTTON_WEITER
RETURN
end
' RÜCKSPRUNG AUF FORM NACH KLICK AUF BUTTON 1 **********************************
BUTTON_WEITER:
select FORM_NUMMER%
' ******************************************************************************
case 7400:GOTO FORM_SCHLIESSEN7400
case 7420:GOTO FORM_SCHLIESSEN7420
case 7440:GOTO FORM_SCHLIESSEN7440
case 7460:GOTO FORM_SCHLIESSEN7460
case 7480:GOTO FORM_SCHLIESSEN7480
case 7760:GOTO FORM_SCHLIESSEN7760
' ******************************************************************************
end_select
end
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Schwarz
Schriftartsymbolschwarz12:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Rot
Schriftartsymbolrot12:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,225,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
Schriftart10F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,08
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett  Unterstrichen
Schriftart12FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett  Unterstrichen
Schriftart15FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett  Unterstrichen
Schriftart20FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN


Dernière édition par Severin le Dim 6 Mai 2012 - 0:49, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 22:26

Jetzt habe ich ein Verständnisproblem.

Wenn ich in meinem Programm eine Unterform aufrufe, finde ich den Weg zurück zum Hauptmenü.
Wenn ich eine weiter Unterform aufrufe, erscheint diese auch korrekt.
Wenn ich jetzt schließen will, gibt es Probleme.

Was muss ich tun, damit das fuktioniert.

Eventuell kann Klaus dolmetschen ?

Danke Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 22:35

Traduction:

Maintenant, j'ai un problème de compréhension.

Si j'appelle une FORM dépendante dans mon programme, je retrouve le chemin vers le menu principal. Si j'appele une autre FDORM dépendante, celle-ci apparaît aussi, correctement.
Maintenant, si je veux fermer, il y a des problèmes.

Que dois-je faire pour que cela marche ?

Peut-être Klaus peut-il traduire ?

Merci Severin

Note: ci-fait :

@Severin:
Die Beschreibung ist nicht exact genug. Gib uns bitte ein REDUZIERTES Programm, auf das eigentliche Problem beschränkt, die Bedienungsweise, um den Fehler zu provozieren, sowie die genaue Fehlermeldung. Dann wirst Du eine konkrete technische Antwort erhalte,


Severin:
La description n'est pas sufisamment exacte. Donne-nous stp on programme REDUIT, restraint au problème concret, le mode d'emploi pour provoquer l'erreur ainsi que le message d'erreur exact. Alors, tu recevras une réponse technique concrète.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 22:39

Gebt mir 15 Minuten, für die Beschreibung.
Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 23:03

Weiter oben ist das Programm akuell. STAND 5.5.2012 15:00 UHR

Wenn ich im Menü "Optionen" anklicke, und dann AKTIV 1705 anKlicke, bin ich auf Form 1705.
Mit einem Klick auf "Form schliessen" wir die Form verlassen.
DAS IST NORMAL. (Diesen Weg hattest du mir mal beigebracht, danke)


Wenn ich im Menü "Optionen" anklicke, und dann AKTIV 1705 anKlicke, bin ich auf Form 1705.
wenn ich jetzt im Menü "Optionen, AKTIV 1704 anklicke, bin ich auf Form 1704.
Wenn ich jetzt auf "Form schliessen" klicke, keine Reaktion.
Also keine Rückkehr und kein Verlassen. Irgend wie verliere ich den Return.


Form 0010 ist die Mutter.
Form 7460 ist die Tochter von 0010.
Form 7480 ist die Tochter von 0010.

Insgesamt hat Mutter 0010, 19 X 19 Töchter.

Das wäre wichtig, da ich innerhalb eines Haupmenü z.B. "OPTION" über die noch
inaktive SCHALTLEISTE von Unterform zu Unterform wechseln möchte.

Jedes Hauptmenü ist ein anderes Kapitel. Deshalb reicht es im Untermenü eine
Verbindung herzustellen.

Ich hoffe diese Erklärung ist verständlich.

Vielen Dank an alle Helfer im Voraus.

Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Sam 5 Mai 2012 - 23:43

Ich schaffe es einfach nicht, das Programm zu starten:
- viele labels nicht definiert
- was ist FORM.DLL ?

In solchen Fällen versuche ich immer, das Programm auf das Wesentliche zu reduzieren: lege eine Kopie des Programmes an, lösche alle nicht notwendigen Zeilen wie die vielen Optionen, Forms usw, lasse nur die zwei betroffenen Optionen und die zwei dazugehörigen Forms. Ich denke auch, nach Studium Deines Programms, dass die DLL-Aufrufe nicht notwendig sind, um Dein Problem einzukreisen. Also lösche sie auch. Das Ziel ist, ein kurzes und knappes Programm zu erstellen, dessen einzige Aufgabe es ist, auf den Fehler zuzusteuern. Dann kann man ihn genau festnageln und korrigieren.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Dim 6 Mai 2012 - 0:53

Hallo Klaus das Programm besteht aus 2 Teilen.
FORM.DLL ist von Nardo und entfernt die drei Button oben rechts.
Severin

Hello Klaus, the program consists of 2 parts.
FORM.DLL Nardo is removed and the three button upper right.
Severin


Bonjour Klaus, le programme se compose de 2 parties.
FORM.DLL Nardo est retiré et le droit à trois boutons supérieure.
Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Dim 6 Mai 2012 - 22:37

Ich möchte gern helfen. Aber die zwei Teile, die ich im Forum laden kann, passen offensichtlich nict zusammen, da mehrere Variablen und Labels nicht definiert sind. Es ist klar, dass zum Testen Deines Problem die DLL nicht notwendig ist, das Programm lässt sich aber trotzdem nicht starten.

Was hast Du an meinem voriegn Post nicht verstanden ? Es kann doch nicht so schwer sein, eine Kopie des Programms auf das Wesentliche zu reduzieren. Du kannst einfach keine geziehlte technische Hilfe erwarten mit einem Quellprogramm diesen Ausmasses.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 0:05

Hallo Klaus,
Ich verstehe nicht warum es nicht läuft.
Ich habe es gerade aus dem Forum geladen.
läuft.

Es ist nicht so einfach eine abgespeckt Version zu erstellen.
Irgend wie werde ich das Problem durch Versuch und Irrtum lösen.

Was mir mehr Sorge bereitet ist das es bei dir nicht läuft.
Wie ist es bei den anderen Panoramics ?

Bitte, bitte, Rückmeldung !!!

Die DLL -- Form ist nicht nötig.
Die DLL -- LoadProgramm ist wichtig, sonst kann man die Formen verschieben.

Nochmal vielen Dank
Severin

Bonjour Klaus,
Je ne comprends pas pourquoi il ne fonctionne pas.
Je viens de télécharger à partir du forum.
est exécuté.

Ce n'est pas seulement une version allégée de créer.
D'une certaine manière, je suis le problème par essais et erreurs à résoudre.

Qu'est-ce qui m'inquiète, c'est plus avec vous qu'il ne fonctionne pas.
Comme il est avec les autres Panoramiques?

S'il vous plaît, s'il vous plaît, répondez!

La DLL - forme n'est pas nécessaire.
La DLL - Charger le programme est important, sinon vous pouvez déplacer les formes.

Merci encore
Severin

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 1:27

Hier eine korrigierte Version. Meine Änderungen sind mit ' Start Klaus une ' End Klaus gekennzeichnet. Das Problem ? Beim zweiten geöffneten Fenster wurde das erste Fenster "vergessen" und liess sich also nicht mehr schliessen. Lösung: alle geöffneten Fensternummern in einen Stack eiintragen, und beim Löschen rückwärts sich durch den Stack surückarbeiten bis zurück zue Form 10.

Erster Teil:

Code:
' *** Eltern kind mit DLL nach klaus *******************************************
' *** MIT DLL LoadProgram ******************************************************
' *** Mit DLL FORM nach Nardo **************************************************
' *** Dank an Klaus und Nardo für "LoadProgram.dll und Form.dll" ***************
'
' ******************************************************************************
' *** INI-Datei prüfen ob angelegt *********************************************
'
LABEL INIDATEI_YES  :LABEL INIDATEI_NO  : LABEL INIDATEI_WRITE
LABEL STARTPROGRAMM
'
DIM INI_WERT$
DIM SPRACHE%
DIM INI_DIR_A$        :INI_DIR_A$ = "c:\"
DIM INI_DATEI_WERTE0$ :INI_DATEI_WERTE0$ = INI_DIR_A$ + "temp\INI0_Text.TXT"
' Start Klaus
DIM n_forms%, forms%(20), iklaus%, jklaus%
' End Klaus
'
if file_exists(INI_DATEI_WERTE0$) = 0 then goto INIDATEI_NO
if file_exists(INI_DATEI_WERTE0$) = 1 then goto INIDATEI_YES
' ***INI-DATEI NICHT ANGELEGT, SPRACHE IST DEUTSCH *****************************
INIDATEI_NO:
'
SPRACHE% = 1    :' deutsch
' SPRACHE% = 2  :' englisch
' SPRACHE% = 3  :' französisch
GOTO STARTPROGRAMM
' ***INI-DATEI ANGELEGT, SPRACHE aus INI-DATEI ÜBERNEHMEN **********************
INIDATEI_YES:
'
FILE_OPEN_READ 1,INI_DATEI_WERTE0$
FILE_READLN    1,INI_WERT$
FILE_CLOSE    1
'
SPRACHE% =  VAL(INI_WERT$)
'
PRINT "gelesen ",SPRACHE%
PRINT DIR_A$
'
GOTO STARTPROGRAMM
' ******************************************************************************
STARTPROGRAMM:
' ******************************************************************************
DIM SCHRIFTART
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
LABEL SCHRIFTARTSYMBOLschwarz  :LABEL SCHRIFTARTSYMBOLrot
LABEL SCHRIFTARTSYMBOLschwarz12:LABEL SCHRIFTARTSYMBOLrot12
' *** ARIAL NORMAL            *************************************************
LABEL SCHRIFTART08N:LABEL SCHRIFTART09N:LABEL SCHRIFTART10N:LABEL SCHRIFTART11N
LABEL SCHRIFTART12N:LABEL SCHRIFTART15N:LABEL SCHRIFTART20N
' *** ARIAL FETT              *************************************************
LABEL SCHRIFTART08F:LABEL SCHRIFTART09F:LABEL SCHRIFTART10F:LABEL SCHRIFTART11F
LABEL SCHRIFTART12F:LABEL SCHRIFTART15F:LABEL Schriftart20F
' *** ARIAL FETT UNTERSTRICHEN *************************************************
LABEL SCHRIFTART08FU:LABEL SCHRIFTART09FU:LABEL SCHRIFTART10FU:LABEL SCHRIFTART11FU
LABEL SCHRIFTART12FU:LABEL SCHRIFTART15FU:LABEL Schriftart20FU
' *** ARIAL NORMAL ROT        *************************************************
LABEL Schriftart09NR:LABEL Schriftart11NR
' ******************************************************************************
' *** VARIABLE FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL *******
LABEL OBJEKT_AN  :' Objekt anhängen
LABEL detacher    :' Objekt abhängen
'
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
' ******************************************************************************
' *** Variablen für Menue von Form 100, um Längen zuberechnen ******************
DIM LEERZEICHEN01%: DIM LEERLAENGE01%: DIM LEERZEICHEN02$: DIM LEERLAENGE02%
DIM LEERZEICHEN03$: DIM LEERLAENGE03%: DIM LEERZEICHEN04%: DIM LEERLAENGE04%
DIM LEERZEICHEN05%: DIM LEERLAENGE05%: DIM LEERZEICHEN06%: DIM LEERLAENGE06%
DIM LEERZEICHEN07%: DIM LEERLAENGE07%: DIM LEERZEICHEN08%: DIM LEERLAENGE08%
DIM LEERZEICHEN09%: DIM LEERLAENGE09%: DIM LEERZEICHEN10%: DIM LEERLAENGE10%
DIM LEERZEICHEN11%: DIM LEERLAENGE11%: DIM LEERZEICHEN12%: DIM LEERLAENGE12%
DIM LEERZEICHEN13%: DIM LEERLAENGE13%: DIM LEERZEICHEN14%: DIM LEERLAENGE14%
DIM LEERZEICHEN15%: DIM LEERLAENGE15%: DIM LEERZEICHEN16%: DIM LEERLAENGE16%
DIM LEERZEICHEN17%: DIM LEERLAENGE17%: DIM LEERZEICHEN18%: DIM LEERLAENGE18%
DIM LEERZEICHEN19%: DIM LEERLAENGE19%: DIM LEERZEICHEN20%: DIM LEERLAENGE20%
'
DIM LEERSUMME%  :DIM LEERSUMME1% :DIM LEERSUMME2% :DIM LEERSUMME3%
DIM LEERSUMME4% :DIM LEERSUMME5% :DIM LEERSUMME6% :DIM LEERSUMME7%
DIM LEERSUMME8% :DIM LEERSUMME9%
'
DIM Menuetext$
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM TEXT_MENUE_00$(20,3)  :DIM i          :DIM j
DIM TITEL$(99,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
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 " MENUE 10 " ," MENU 10 " ," MENU 10 "
DATA " MENUE 11 " ," MENU 11 " ," MENU 11 "
DATA " MENUE 12 " ," MENU 12 " ," MENU 12 "
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 " OPTIONEN " ," OPTIONS " ," OPTIONS "
DATA " "          ," "        ," "
DATA " HILFE "    ," HELP "    ," AID "
DATA " INFO "    ," INFO "    ," INFO "
'
FOR i = 1 TO 20
FOR j = 1 TO 3
read  TEXT_MENUE_00$(i,j)
next j
next i
' *** VARIABLE FÜR UNTERMENÜS ERSTELLEN ****************************************
DIM TEXT_MENUE_01$(9000,3)
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
' 01
DATA " Neu            "," New            "," Nouveau        "
DATA " Öffnen ...      "," Open ...        "," Ouvert ...      "
DATA " Speichern      "," Save            "," Sauver          "
DATA " Speichern unter "," Save under      "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU  0106 "," SUB NENU  0106 "
DATA " UNTERMENUE 0107 "," SUB NENU  0107 "," SUB NENU  0107 "
DATA " UNTERMENUE 0108 "," SUB NENU  0108 "," SUB NENU  0108 "
DATA " UNTERMENUE 0109 "," SUB NENU  0109 "," SUB NENU  0109 "
DATA " UNTERMENUE 0110 "," SUB NENU  0110 "," SUB NENU  0110 "
DATA " UNTERMENUE 0111 "," SUB NENU  0111 "," SUB NENU  0111 "
DATA " UNTERMENUE 0112 "," SUB NENU  0112 "," SUB NENU  0112 "
DATA " UNTERMENUE 0113 "," SUB NENU  0113 "," SUB NENU  0113 "
DATA " UNTERMENUE 0114 "," SUB NENU  0114 "," SUB NENU  0114 "
DATA " UNTERMENUE 0115 "," SUB NENU  0115 "," SUB NENU  0115 "
DATA " UNTERMENUE 0116 "," SUB NENU  0116 "," SUB NENU  0116 "
DATA " UNTERMENUE 0117 "," SUB NENU  0117 "," SUB NENU  0117 "
DATA "====================","====================","===================="
DATA " QUIT            "," QUIT            "," QUIT            "
DATA " UNTERMENUE 0120 "," SUB NENU  0106 "," SUB NENU  0106 " :' inktiv
' 02
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 " :' inktiv
' 03
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 "  :' inktiv
' 04
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 " :' inktiv
' 05
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 "  :' inktiv
' 06
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 " :' inktiv
' 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 "  :' inktiv
' 08
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 "  :' inktiv
' 09
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 "  :' inktiv
' 10
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 "  :' inktiv
' 11
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 "  :' inktiv
' 12
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 "  :' inktiv
' 13
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 " :' inktiv
' 14
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 "  :' inktiv
' 15
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 "  :' inktiv
' 16
DATA " TEST-U-Menü 1601 "," TEST-SUB MENU 1601 "," TEST-SUB MENU 1601 "
DATA " TEST-U-Menü 1602 "," TEST-SUB MENU 1602 "," TEST-SUB MENU 1602 "
DATA " TEST-U-Menü 1603 "," TEST-SUB MENU 1603 "," TEST-SUB MENU 1603 "
DATA " TEST-U-Menü 1604 "," TEST-SUB MENU 1604 "," TEST-SUB MENU 1604 "
DATA " TEST-U-Menü 1605 "," TEST-SUB MENU 1605 "," TEST-SUB MENU 1605 "
DATA " TEST-U-Menü 1606 "," TEST-SUB MENU 1606 "," TEST-SUB MENU 1606 "
DATA " TEST-U-Menü 1607 "," TEST-SUB MENU 1607 "," TEST-SUB MENU 1607 "
DATA " TEST-U-Menü 1608 "," TEST-SUB MENU 1608 "," TEST-SUB MENU 1608 "
DATA " TEST-U-Menü 1609 "," TEST-SUB MENU 1609 "," TEST-SUB MENU 1609 "
DATA " TEST-U-Menü 1610 "," TEST-SUB MENU 1610 "," TEST-SUB MENU 1610 "
DATA " TEST-U-Menü 1611 "," TEST-SUB MENU 1611 "," TEST-SUB MENU 1611 "
DATA " TEST-U-Menü 1612 "," TEST-SUB MENU 1612 "," TEST-SUB MENU 1612 "
DATA " TEST-U-Menü 1613 "," TEST-SUB MENU 1613 "," TEST-SUB MENU 1613 "
DATA " TEST-U-Menü 1614 "," TEST-SUB MENU 1614 "," TEST-SUB MENU 1614 "
DATA " TEST-U-Menü 1615 "," TEST-SUB MENU 1615 "," TEST-SUB MENU 1615 "
DATA " TEST-U-Menü 1616 "," TEST-SUB MENU 1616 "," TEST-SUB MENU 1616 "
DATA " TEST-U-Menü 1617 "," TEST-SUB MENU 1617 "," TEST-SUB MENU 1617 "
DATA " TEST-U-Menü 1618 "," TEST-SUB MENU 1618 "," TEST-SUB MENU 1618 "
DATA " TEST-U-Menü 1619 "," TEST-SUB MENU 1619 "," TEST-SUB MENU 1619 "
DATA " TEST-U-Menü 1620 "," TEST-SUB MENU 1620 "," TEST-SUB MENU 1620 ":' inktiv
' 17
DATA " Einstellungen  "," Settings        "," Paramètres      "
DATA " Sprache einstellen "," Language set "," Langue fixé "
DATA " ACTIV 1703 "," ACTIV  1703 "," ACTIV  1703 "
DATA " ACTIV 1704 "," ACTIV  1704 "," ACTIV  1704 "
DATA " ACTIV 1705 "," ACTIV  1705 "," ACTIV  1705 "
DATA " UNTERMENUE 1706 "," SUB NENU  1706 "," SUB NENU  1706 "
DATA " UNTERMENUE 1707 "," SUB NENU  1707 "," SUB NENU  1707 "
DATA " UNTERMENUE 1708 "," SUB NENU  1708 "," SUB NENU  1708 "
DATA " UNTERMENUE 1709 "," SUB NENU  1709 "," SUB NENU  1709 "
DATA " UNTERMENUE 1710 "," SUB NENU  1710 "," SUB NENU  1710 "
DATA " UNTERMENUE 1711 "," SUB NENU  1711 "," SUB NENU  1711 "
DATA " UNTERMENUE 1712 "," SUB NENU  1712 "," SUB NENU  1712 "
DATA " UNTERMENUE 1713 "," SUB NENU  1713 "," SUB NENU  1713 "
DATA " UNTERMENUE 1714 "," SUB NENU  1714 "," SUB NENU  1714 "
DATA " UNTERMENUE 1715 "," SUB NENU  1715 "," SUB NENU  1715 "
DATA " UNTERMENUE 1716 "," SUB NENU  1716 "," SUB NENU  1716 "
DATA " UNTERMENUE 1717 "," SUB NENU  1717 "," SUB NENU  1717 "
DATA " UNTERMENUE 1718 "," SUB NENU  1718 "," SUB NENU  1718 "
DATA " Menü ändern    "," Menu change    "," changement Menu "
DATA " UNTERMENUE 1720 "," SUB NENU  1720 "," SUB NENU  1720 "  :' inktiv
' 18
DATA " UNTERMENUE 1801 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1802 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1803 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1804 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1805 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1806 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1807 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1808 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1809 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1810 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1811 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1812 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1813 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1814 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1815 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1816 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1817 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1818 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1819 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
DATA " UNTERMENUE 1820 "," SUB NENU  1806 "," SUB NENU  1806 " :' inktiv
' 19
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "
DATA " HILFE 01 "    ," HELP 01 "    ," AID 01 "  :' inktiv
' 20
DATA " über Programm  "," about Program  "," sur le Programme"
DATA " über Computer  "," about Computer  "," sur l'ordinateur"
DATA " über Netzwerk  "," about Network  "," sur le réseau  "
DATA " UNTERMENUE 2004 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2005 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2006 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2007 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2008 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2009 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2010 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2011 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2012 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2013 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2014 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2015 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2016 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2017 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2018 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2019 "," SUB NENU  2006 "," SUB NENU  2006 "
DATA " UNTERMENUE 2020 "," SUB NENU  2006 "," SUB NENU  2006 " :' inktiv
'
FOR i = 100 TO 898 STEP 2
FOR j = 1 TO 3 :read  TEXT_MENUE_01$(i,j) :next j
next i
' ******************************************************************************
' *** Variable für alle Formen erstellen ***************************************
DIM Screen_Nr%
DIM Screen_Beginn%
DIM Screen_End%
DIM FORM_NUMMER%
' *** LABEL FÜR FORMEN ERSTELLEN ***********************************************
LABEL SCREENSHOW
LABEL SCREENSHOW1
LABEL PROGRAMM_ENDE
LABEL CLIENTARENA  :' Hier werden die EINGABE getätigt
'
LABEL SCREEN7400:LABEL FORM_SCHLIESSEN7400
LABEL SCREEN7420:LABEL FORM_SCHLIESSEN7420:LABEL SCREEN7436:LABEL SCREEN7437:LABEL SCREEN7438:LABEL SCREEN7439
LABEL SCREEN7440:LABEL FORM_SCHLIESSEN7440
LABEL SCREEN7460:LABEL FORM_SCHLIESSEN7460
LABEL SCREEN7480:LABEL FORM_SCHLIESSEN7480
'
LABEL SCREEN7760:LABEL FORM_SCHLIESSEN7760
'
LABEL BUTTON_SCHLIESSEN
LABEL BUTTON_ERSTELLT
LABEL BUTTON_WEITER
LABEL Menueschliessen
' *** VARIABLE FÜR BUTTON -- FORM SCHLIESSEN ***********************************
DIM BUTTON_TOP%
DIM BUTTEN_LEFT%
DIM BUTTEN_WIDTH%
DIM BUTTON_HEIGHT%
DIM BUTTON_NR%
'
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
' *** VARIABLE für Dateien *****************************************************
DIM Datei_Name$
'
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
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) = "          Multimomentstudien erstellen und auswerten "
TITEL$(1,2) = "          Work sampling studies, and generate and evaluate "
TITEL$(1,3) = "          Les travaux d'études d'échantillonnage, et de générer et d'évaluer "
' FORM 0000
TOP      0000,0
LEFT    0000,0
WIDTH    0000,SCREEN_X
HEIGHT  0000,SCREEN_Y-44
COLOR    0000,000,000,000
CAPTION  0000,TITEL$(1,SPRACHE%)
PARENTNUMMER2% = handle(0000)    :' Grundform auf der alle Formen fixiert sind
' *** FORM 0090 ERSTELLEN ---> FUSSLEISTE **************************************
COMMAND_TARGET_IS 0000
FORM          0090
TOP          0090,SCREEN_Y-101
LEFT          0090,2
WIDTH        0090,SCREEN_X-12
HEIGHT        0090,28
COLOR        0090,231,238,240
BORDER_HIDE  0090
PARENTNUMMER1% = handle(0090)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0090
' *** später durch Bild ersetzen
BUTTON        0091
TOP          0091,3
LEFT          0091,2
WIDTH        0091,22
HEIGHT        0091,22
CAPTION      0091,"ICON"
' FILE_LOAD    0091,Speicherplatz_Bild01$
' STRETCH_ON  0091
' SHOW        0091
edit          0092
TOP          0092,4
LEFT          0092,28
WIDTH        0092,40
HEIGHT        0092,24
FONT_COLOR    0092,255,000,000
TEXT          0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
'
edit          0093
TOP          0093,4
LEFT          0093,74
WIDTH        0093,370
HEIGHT        0093,24
'
TITEL$(2,1) = " Willkommen im Programm - Multimomentstudien "
TITEL$(2,2) = " Welcome to the program - work sampling studies "
TITEL$(2,3) = " Bienvenue dans le programme - les études d'échantillonnage de travail "
'
FONT_COLOR    0093,255,000,000
TEXT          0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
' *** FORM 0010 ERSTELLEN ---> Menüleiste **************************************
COMMAND_TARGET_IS 0000
FORM          0010
TOP          0010,2
LEFT          0010,2
WIDTH        0010,SCREEN_X-12
HEIGHT        0010,SCREEN_Y-106
COLOR        0010,000,000,000
BORDER_HIDE  0010
PARENTNUMMER1% = handle(0010)
GOSUB OBJEKT_AN
COMMAND_TARGET_IS 0010
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' *** Berechnung von Länge des Leermenue 18 ************************************
LEERLAENGE01% = TEXT_WIDTH(TEXT_MENUE_00$(01,SPRACHE%),0010)+8
LEERLAENGE02% = TEXT_WIDTH(TEXT_MENUE_00$(02,SPRACHE%),0010)+8
LEERLAENGE03% = TEXT_WIDTH(TEXT_MENUE_00$(03,SPRACHE%),0010)+8
LEERLAENGE04% = TEXT_WIDTH(TEXT_MENUE_00$(04,SPRACHE%),0010)+8
LEERLAENGE05% = TEXT_WIDTH(TEXT_MENUE_00$(05,SPRACHE%),0010)+8
LEERLAENGE06% = TEXT_WIDTH(TEXT_MENUE_00$(06,SPRACHE%),0010)+8
LEERLAENGE07% = TEXT_WIDTH(TEXT_MENUE_00$(07,SPRACHE%),0010)+8
LEERLAENGE08% = TEXT_WIDTH(TEXT_MENUE_00$(08,SPRACHE%),0010)+8
LEERLAENGE09% = TEXT_WIDTH(TEXT_MENUE_00$(09,SPRACHE%),0010)+8
LEERLAENGE10% = TEXT_WIDTH(TEXT_MENUE_00$(10,SPRACHE%),0010)+8
LEERLAENGE11% = TEXT_WIDTH(TEXT_MENUE_00$(11,SPRACHE%),0010)+8
LEERLAENGE12% = TEXT_WIDTH(TEXT_MENUE_00$(12,SPRACHE%),0010)+8
LEERLAENGE13% = TEXT_WIDTH(TEXT_MENUE_00$(13,SPRACHE%),0010)+8
LEERLAENGE14% = TEXT_WIDTH(TEXT_MENUE_00$(14,SPRACHE%),0010)+8
LEERLAENGE15% = TEXT_WIDTH(TEXT_MENUE_00$(15,SPRACHE%),0010)+8
LEERLAENGE16% = TEXT_WIDTH(TEXT_MENUE_00$(16,SPRACHE%),0010)+8
LEERLAENGE17% = TEXT_WIDTH(TEXT_MENUE_00$(17,SPRACHE%),0010)+8
LEERLAENGE18% = TEXT_WIDTH(TEXT_MENUE_00$(18,SPRACHE%),0010)+8
LEERLAENGE19% = TEXT_WIDTH(TEXT_MENUE_00$(19,SPRACHE%),0010)+8
LEERLAENGE20% = TEXT_WIDTH(TEXT_MENUE_00$(20,SPRACHE%),0010)+8
'
LEERSUMME1% = LEERLAENGE01% +  LEERLAENGE02% +  LEERLAENGE03%
LEERSUMME2% = LEERLAENGE04% +  LEERLAENGE05% +  LEERLAENGE06%
LEERSUMME3% = LEERLAENGE07% +  LEERLAENGE08% +  LEERLAENGE09%
LEERSUMME4% = LEERLAENGE10% +  LEERLAENGE11% +  LEERLAENGE12%
LEERSUMME5% = LEERLAENGE13% +  LEERLAENGE14% +  LEERLAENGE15%
LEERSUMME6% = LEERLAENGE16% +  LEERLAENGE17%
LEERSUMME7% = LEERLAENGE19% +  LEERLAENGE20%
'
LEERSUMME8% = LEERSUMME1% + LEERSUMME2% + LEERSUMME3% + LEERSUMME4%
LEERSUMME9% = LEERSUMME5% + LEERSUMME6% + LEERSUMME7%
LEERSUMME%  = LEERSUMME8% + LEERSUMME9%
'
LEERLAENGE18% = SCREEN_X - 00 - LEERSUMME% -0  :' ???? 12
TEXT_MENUE_00$(18,SPRACHE%) =  STRING$(INT(LEERLAENGE18%/7),CHR$(32))
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9020 ************************************
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0001
sub_menu 9002:CAPTION 9002,TEXT_MENUE_00$(02,SPRACHE%):parent 9002,0001
sub_menu 9003:CAPTION 9003,TEXT_MENUE_00$(03,SPRACHE%):parent 9003,0001
sub_menu 9004:CAPTION 9004,TEXT_MENUE_00$(04,SPRACHE%):parent 9004,0001
sub_menu 9005:CAPTION 9005,TEXT_MENUE_00$(05,SPRACHE%):parent 9005,0001
sub_menu 9006:CAPTION 9006,TEXT_MENUE_00$(06,SPRACHE%):parent 9006,0001
sub_menu 9007:CAPTION 9007,TEXT_MENUE_00$(07,SPRACHE%):parent 9007,0001
sub_menu 9008:CAPTION 9008,TEXT_MENUE_00$(08,SPRACHE%):parent 9008,0001
sub_menu 9009:CAPTION 9009,TEXT_MENUE_00$(09,SPRACHE%):parent 9009,0001
sub_menu 9010:CAPTION 9010,TEXT_MENUE_00$(10,SPRACHE%):parent 9010,0001
sub_menu 9011:CAPTION 9011,TEXT_MENUE_00$(11,SPRACHE%):parent 9011,0001
sub_menu 9012:CAPTION 9012,TEXT_MENUE_00$(12,SPRACHE%):parent 9012,0001
sub_menu 9013:CAPTION 9013,TEXT_MENUE_00$(13,SPRACHE%):parent 9013,0001
sub_menu 9014:CAPTION 9014,TEXT_MENUE_00$(14,SPRACHE%):parent 9014,0001
sub_menu 9015:CAPTION 9015,TEXT_MENUE_00$(15,SPRACHE%):parent 9015,0001
sub_menu 9016:CAPTION 9016,TEXT_MENUE_00$(16,SPRACHE%):parent 9016,0001
sub_menu 9017:CAPTION 9017,TEXT_MENUE_00$(17,SPRACHE%):parent 9017,0001
sub_menu 9018:CAPTION 9018,TEXT_MENUE_00$(18,SPRACHE%):parent 9018,0001
sub_menu 9019:CAPTION 9019,TEXT_MENUE_00$(19,SPRACHE%):parent 9019,0001
sub_menu 9020:CAPTION 9020,TEXT_MENUE_00$(20,SPRACHE%):parent 9020,0001
inactive 9018
' *** Hauptmenue 1000 --- ERSTELLEN UNTERMENÜ  1001 bis 1019 *******************
FOR i = 100 TO 136 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9001:next i
inactive 108:inactive 134
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 140 TO 176 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9002:next i
' *** Hauptmenue 3000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 180 TO 216 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9003:next i
' *** Hauptmenue 4000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 220 TO 256 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9004:next i
' *** Hauptmenue 5000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 260 TO 296 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9005:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 300 TO 336 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9006:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 340 TO 376 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9007:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 380 TO 416 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9008:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 420 TO 456 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9009:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 460 TO 496 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9010:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 500 TO 536 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9011:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 540 TO 576 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9012:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 580 TO 616 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9013:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 620 TO 656 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9014:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 660 TO 696 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9015:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 700 TO 736 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9016:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 740 TO 776 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9017:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
' FOR i = 780 TO 816 STEP 2
' sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9018:' next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 820 TO 856 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9019:next i
' *** Hauptmenue 2000 --- ERSTELLEN UNTERMENÜ  2001 bis 2019 *******************
FOR i = 860 TO 896 STEP 2
sub_menu i:CAPTION i,TEXT_MENUE_01$(i,SPRACHE%):parent i,9020:next i
' *** FORM 0020 ERSTELLEN ---> Schaltflächenleiste *****************************
COMMAND_TARGET_IS 0010
FORM          0020
TOP          0020,1
LEFT          0020,0
WIDTH        0020,SCREEN_X-12
HEIGHT        0020,50
COLOR        0020,229,229,229
BORDER_HIDE  0020
PARENTNUMMER2% = handle(0010)    :' Grundform auf der alle Formen fixiert sind
PARENTNUMMER1% = handle(0020)
GOSUB OBJEKT_AN
' *** BILDER AUF FORM 0020 ANZEIGEN ********************************************
COMMAND_TARGET_IS  0020
' *** später durch Bild ersetzen
BUTTON      0011                        :' HIDE 101
TOP          0011,2                      : REM  HÖHE FENSTER
LEFT        0011,2                      : REM  BREITE FENSTER
WIDTH        0011,22                      : REM ......BREITE  1680
HEIGHT      0011,22                      : REM ......HÖHE    1050
CAPTION      0011,"|<--"
' FILE_LOAD    0011,Speicherplatz_Bild01$
' STRETCH_ON  0011                      : REM
' SHOW        0011                      : REM
' *** später durch Bild ersetzen
BUTTON      0012
TOP          0012,26
LEFT        0012,2
WIDTH        0012,22
HEIGHT      0012,22
CAPTION      0012,"-->"
' FILE_LOAD    0012,Speicherplatz_Bild01$
' STRETCH_ON  0012                      : REM
' SHOW        0012                      : REM
' *** später durch Bild ersetzen
BUTTON      0015                        :' HIDE 101
TOP          0015,2                      : REM  HÖHE FENSTER
LEFT        0015,26                      : REM  BREITE FENSTER
WIDTH        0015,22                      : REM ......BREITE  1680
HEIGHT      0015,22                      : REM ......HÖHE    1050
CAPTION      0015,"<--"
' FILE_LOAD    0015,Speicherplatz_Bild01$
' STRETCH_ON  0015                      : REM
' SHOW        0015                      : REM
' *** später durch Bild ersetzen
BUTTON      0016                        :' HIDE 101
TOP          0016,26                      : REM  HÖHE FENSTER
LEFT        0016,26                      : REM  BREITE FENSTER
WIDTH        0016,22                      : REM ......BREITE  1680
HEIGHT      0016,22                      : REM ......HÖHE    1050
CAPTION      0016,"-->|"
' FILE_LOAD    0016,Speicherplatz_Bild01$
' STRETCH_ON  0016                      : REM
' SHOW        0016                      : REM
' *** HILE ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0080                        :' HIDE 101
TOP          0080,4                      : REM  HÖHE FENSTER
LEFT        0080,SCREEN_X-110            : REM  BREITE FENSTER
WIDTH        0080,44                      : REM ......BREITE  1680
HEIGHT      0080,44                      : REM ......HÖHE    1050
CAPTION      0080," HELP "
' FILE_LOAD    0080,Speicherplatz_Bild01$
' STRETCH_ON  0080                      : REM
' SHOW        0080                      : REM
parent 0080,0020
' *** INFO ICON ERSTELLEN ******************************************************
' *** später durch Bild ersetzen
BUTTON      0085                        :' HIDE 101
TOP          0085,4                      : REM  HÖHE FENSTER
LEFT        0085,SCREEN_X-60                      : REM  BREITE FENSTER
WIDTH        0085,44                      : REM ......BREITE  1680
HEIGHT      0085,44                      : REM ......HÖHE    1050
CAPTION      0085," LOGO "
' FILE_LOAD    0085,Speicherplatz_Bild01$
' STRETCH_ON  0085                      : REM
' SHOW        0085                      : REM
parent 0085,0020
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 1:27

Zweiter Teil:
Code:
' Programm-Trennung, kann gelöscht werden
' Program separation, can be deleted
' Programme de séparation, peut être supprimé
' *** Alle FORMEN ERSTELLEN ---> CLIENTARENA ***********************************
COMMAND_TARGET_IS 0000
Screen_Beginn% = 1000 :Screen_End% = 8980
FOR Screen_Nr% = Screen_Beginn% TO Screen_End% step 20
FORM          Screen_Nr%
' *** FORMEN VERSTECKEN
HIDE          Screen_Nr%
TOP          Screen_Nr%,55
LEFT          Screen_Nr%,2
WIDTH        Screen_Nr%,SCREEN_X-16
HEIGHT        Screen_Nr%,SCREEN_Y-181
COLOR        Screen_Nr%,229,229,229
BORDER_HIDE  Screen_Nr%
PARENTNUMMER1% = handle(Screen_Nr%)
GOSUB OBJEKT_AN
Next Screen_Nr%
' *** FORM 0095 ERSTELLEN ---> StartForm START *********************************
COMMAND_TARGET_IS 0010
FORM          0095
TOP          0095,54
LEFT          0095,0
WIDTH        0095,SCREEN_X-12
HEIGHT        0095,SCREEN_Y-169
COLOR        0095,000,000,000
BORDER_HIDE  0095
PARENTNUMMER2% = handle(0010)
PARENTNUMMER1% = handle(0095)
GOSUB OBJEKT_AN
' CLICK AUF MENÜ FORM 0010 *****************************************************
' 01
on_click 0100,SCREENSHOW
on_click 0102,SCREENSHOW
on_click 0104,SCREENSHOW
on_click 0106,SCREENSHOW
' on_click 0108,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0110,SCREENSHOW :on_click 0112,SCREENSHOW :on_click 0114,SCREENSHOW
on_click 0116,SCREENSHOW :on_click 0118,SCREENSHOW :on_click 0120,SCREENSHOW
on_click 0122,SCREENSHOW :on_click 0124,SCREENSHOW :on_click 0126,SCREENSHOW
on_click 0128,SCREENSHOW :on_click 0130,SCREENSHOW :on_click 0132,SCREENSHOW
' on_click 0134,SCREENSHOW    :' Teilungsstrich im Untermenü
on_click 0136,PROGRAMM_ENDE
' 02
on_click 0140,SCREENSHOW :on_click 0142,SCREENSHOW :on_click 0144,SCREENSHOW
on_click 0146,SCREENSHOW :on_click 0148,SCREENSHOW :on_click 0150,SCREENSHOW
on_click 0152,SCREENSHOW :on_click 0154,SCREENSHOW :on_click 0156,SCREENSHOW
on_click 0158,SCREENSHOW :on_click 0160,SCREENSHOW :on_click 0162,SCREENSHOW
on_click 0164,SCREENSHOW :on_click 0166,SCREENSHOW :on_click 0168,SCREENSHOW
on_click 0170,SCREENSHOW :on_click 0172,SCREENSHOW :on_click 0174,SCREENSHOW
on_click 0176,SCREENSHOW
' 03
on_click 0180,SCREENSHOW :on_click 0182,SCREENSHOW :on_click 0184,SCREENSHOW
on_click 0186,SCREENSHOW :on_click 0188,SCREENSHOW :on_click 0190,SCREENSHOW
on_click 0192,SCREENSHOW :on_click 0194,SCREENSHOW :on_click 0196,SCREENSHOW
on_click 0198,SCREENSHOW :on_click 0200,SCREENSHOW :on_click 0202,SCREENSHOW
on_click 0204,SCREENSHOW :on_click 0206,SCREENSHOW :on_click 0208,SCREENSHOW
on_click 0210,SCREENSHOW :on_click 0212,SCREENSHOW :on_click 0214,SCREENSHOW
on_click 0216,SCREENSHOW
' 04
on_click 0220,SCREENSHOW :on_click 0222,SCREENSHOW :on_click 0224,SCREENSHOW
on_click 0226,SCREENSHOW :on_click 0228,SCREENSHOW :on_click 0230,SCREENSHOW
on_click 0232,SCREENSHOW :on_click 0234,SCREENSHOW :on_click 0236,SCREENSHOW
on_click 0238,SCREENSHOW :on_click 0240,SCREENSHOW :on_click 0242,SCREENSHOW
on_click 0244,SCREENSHOW :on_click 0246,SCREENSHOW :on_click 0248,SCREENSHOW
on_click 0250,SCREENSHOW :on_click 0252,SCREENSHOW :on_click 0254,SCREENSHOW
on_click 0256,SCREENSHOW
' 05
on_click 0260,SCREENSHOW :on_click 0262,SCREENSHOW :on_click 0264,SCREENSHOW
on_click 0266,SCREENSHOW :on_click 0268,SCREENSHOW :on_click 0270,SCREENSHOW
on_click 0272,SCREENSHOW :on_click 0274,SCREENSHOW :on_click 0276,SCREENSHOW
on_click 0278,SCREENSHOW :on_click 0280,SCREENSHOW :on_click 0282,SCREENSHOW
on_click 0284,SCREENSHOW :on_click 0286,SCREENSHOW :on_click 0288,SCREENSHOW
on_click 0290,SCREENSHOW :on_click 0292,SCREENSHOW :on_click 0294,SCREENSHOW
on_click 0296,SCREENSHOW
' 06
on_click 0300,SCREENSHOW :on_click 0302,SCREENSHOW :on_click 0304,SCREENSHOW
on_click 0306,SCREENSHOW :on_click 0308,SCREENSHOW :on_click 0310,SCREENSHOW
on_click 0312,SCREENSHOW :on_click 0314,SCREENSHOW :on_click 0316,SCREENSHOW
on_click 0318,SCREENSHOW :on_click 0320,SCREENSHOW :on_click 0322,SCREENSHOW
on_click 0324,SCREENSHOW :on_click 0326,SCREENSHOW :on_click 0328,SCREENSHOW
on_click 0330,SCREENSHOW :on_click 0332,SCREENSHOW :on_click 0334,SCREENSHOW
on_click 0336,SCREENSHOW
' 07
on_click 0340,SCREENSHOW :on_click 0342,SCREENSHOW :on_click 0344,SCREENSHOW
on_click 0346,SCREENSHOW :on_click 0348,SCREENSHOW :on_click 0350,SCREENSHOW
on_click 0352,SCREENSHOW :on_click 0354,SCREENSHOW :on_click 0356,SCREENSHOW
on_click 0358,SCREENSHOW :on_click 0360,SCREENSHOW :on_click 0362,SCREENSHOW
on_click 0364,SCREENSHOW :on_click 0366,SCREENSHOW :on_click 0368,SCREENSHOW
on_click 0370,SCREENSHOW :on_click 0372,SCREENSHOW :on_click 0374,SCREENSHOW
on_click 0376,SCREENSHOW
' 08
on_click 0380,SCREENSHOW :on_click 0382,SCREENSHOW :on_click 0384,SCREENSHOW
on_click 0386,SCREENSHOW :on_click 0388,SCREENSHOW :on_click 0390,SCREENSHOW
on_click 0392,SCREENSHOW :on_click 0394,SCREENSHOW :on_click 0396,SCREENSHOW
on_click 0398,SCREENSHOW :on_click 0400,SCREENSHOW :on_click 0402,SCREENSHOW
on_click 0404,SCREENSHOW :on_click 0406,SCREENSHOW :on_click 0408,SCREENSHOW
on_click 0410,SCREENSHOW :on_click 0412,SCREENSHOW :on_click 0414,SCREENSHOW
on_click 0416,SCREENSHOW
' 09
on_click 0420,SCREENSHOW :on_click 0422,SCREENSHOW :on_click 0424,SCREENSHOW
on_click 0426,SCREENSHOW :on_click 0428,SCREENSHOW :on_click 0430,SCREENSHOW
on_click 0432,SCREENSHOW :on_click 0434,SCREENSHOW :on_click 0436,SCREENSHOW
on_click 0438,SCREENSHOW :on_click 0440,SCREENSHOW :on_click 0442,SCREENSHOW
on_click 0444,SCREENSHOW :on_click 0446,SCREENSHOW :on_click 0448,SCREENSHOW
on_click 0450,SCREENSHOW :on_click 0452,SCREENSHOW :on_click 0454,SCREENSHOW
on_click 0456,SCREENSHOW
' 10
on_click 0460,SCREENSHOW :on_click 0462,SCREENSHOW :on_click 0464,SCREENSHOW
on_click 0466,SCREENSHOW :on_click 0468,SCREENSHOW :on_click 0470,SCREENSHOW
on_click 0472,SCREENSHOW :on_click 0474,SCREENSHOW :on_click 0476,SCREENSHOW
on_click 0478,SCREENSHOW :on_click 0480,SCREENSHOW :on_click 0482,SCREENSHOW
on_click 0484,SCREENSHOW :on_click 0486,SCREENSHOW :on_click 0488,SCREENSHOW
on_click 0490,SCREENSHOW :on_click 0492,SCREENSHOW :on_click 0494,SCREENSHOW
on_click 0496,SCREENSHOW
' 11
on_click 0500,SCREENSHOW :on_click 0502,SCREENSHOW :on_click 0504,SCREENSHOW
on_click 0506,SCREENSHOW :on_click 0508,SCREENSHOW :on_click 0510,SCREENSHOW
on_click 0512,SCREENSHOW :on_click 0514,SCREENSHOW :on_click 0516,SCREENSHOW
on_click 0518,SCREENSHOW :on_click 0520,SCREENSHOW :on_click 0522,SCREENSHOW
on_click 0524,SCREENSHOW :on_click 0526,SCREENSHOW :on_click 0528,SCREENSHOW
on_click 0530,SCREENSHOW :on_click 0532,SCREENSHOW :on_click 0534,SCREENSHOW
on_click 0536,SCREENSHOW
' 12
on_click 0540,SCREENSHOW :on_click 0542,SCREENSHOW :on_click 0544,SCREENSHOW
on_click 0546,SCREENSHOW :on_click 0548,SCREENSHOW :on_click 0550,SCREENSHOW
on_click 0552,SCREENSHOW :on_click 0554,SCREENSHOW :on_click 0556,SCREENSHOW
on_click 0558,SCREENSHOW :on_click 0560,SCREENSHOW :on_click 0562,SCREENSHOW
on_click 0564,SCREENSHOW :on_click 0566,SCREENSHOW :on_click 0568,SCREENSHOW
on_click 0570,SCREENSHOW :on_click 0572,SCREENSHOW :on_click 0574,SCREENSHOW
on_click 0576,SCREENSHOW
' 13
on_click 0580,SCREENSHOW :on_click 0582,SCREENSHOW :on_click 0584,SCREENSHOW
on_click 0586,SCREENSHOW :on_click 0588,SCREENSHOW :on_click 0590,SCREENSHOW
on_click 0592,SCREENSHOW :on_click 0594,SCREENSHOW :on_click 0596,SCREENSHOW
on_click 0598,SCREENSHOW :on_click 0600,SCREENSHOW :on_click 0602,SCREENSHOW
on_click 0604,SCREENSHOW :on_click 0606,SCREENSHOW :on_click 0608,SCREENSHOW
on_click 0610,SCREENSHOW :on_click 0612,SCREENSHOW :on_click 0614,SCREENSHOW
on_click 0616,SCREENSHOW
' 14
on_click 0620,SCREENSHOW :on_click 0622,SCREENSHOW :on_click 0624,SCREENSHOW
on_click 0626,SCREENSHOW :on_click 0628,SCREENSHOW :on_click 0630,SCREENSHOW
on_click 0632,SCREENSHOW :on_click 0634,SCREENSHOW :on_click 0636,SCREENSHOW
on_click 0638,SCREENSHOW :on_click 0640,SCREENSHOW :on_click 0642,SCREENSHOW
on_click 0644,SCREENSHOW :on_click 0646,SCREENSHOW :on_click 0648,SCREENSHOW
on_click 0650,SCREENSHOW :on_click 0652,SCREENSHOW :on_click 0654,SCREENSHOW
on_click 0656,SCREENSHOW
' 15
on_click 0660,SCREENSHOW :on_click 0662,SCREENSHOW :on_click 0664,SCREENSHOW
on_click 0666,SCREENSHOW :on_click 0668,SCREENSHOW :on_click 0670,SCREENSHOW
on_click 0672,SCREENSHOW :on_click 0674,SCREENSHOW :on_click 0676,SCREENSHOW
on_click 0678,SCREENSHOW :on_click 0680,SCREENSHOW :on_click 0682,SCREENSHOW
on_click 0684,SCREENSHOW :on_click 0686,SCREENSHOW :on_click 0688,SCREENSHOW
on_click 0690,SCREENSHOW :on_click 0692,SCREENSHOW :on_click 0694,SCREENSHOW
on_click 0696,SCREENSHOW
' 16
on_click 0700,SCREENSHOW :on_click 0702,SCREENSHOW :on_click 0704,SCREENSHOW
on_click 0706,SCREENSHOW :on_click 0708,SCREENSHOW :on_click 0710,SCREENSHOW
on_click 0712,SCREENSHOW :on_click 0714,SCREENSHOW :on_click 0716,SCREENSHOW
on_click 0718,SCREENSHOW :on_click 0720,SCREENSHOW :on_click 0722,SCREENSHOW
on_click 0724,SCREENSHOW :on_click 0726,SCREENSHOW :on_click 0728,SCREENSHOW
on_click 0730,SCREENSHOW :on_click 0732,SCREENSHOW :on_click 0734,SCREENSHOW
on_click 0736,SCREENSHOW
' 17
on_click 0740,SCREEN7400 :on_click 0742,SCREEN7420 :on_click 0744,SCREEN7440
on_click 0746,SCREEN7460 :on_click 0748,SCREEN7480 :on_click 0750,SCREENSHOW
on_click 0752,SCREENSHOW :on_click 0754,SCREENSHOW :on_click 0756,SCREENSHOW
on_click 0758,SCREENSHOW :on_click 0760,SCREENSHOW :on_click 0762,SCREENSHOW
on_click 0764,SCREENSHOW :on_click 0766,SCREENSHOW :on_click 0768,SCREENSHOW
on_click 0770,SCREENSHOW :on_click 0772,SCREENSHOW :on_click 0774,SCREENSHOW
on_click 0776,SCREEN7760
' 18 inaktiv
' on_click 0780,SCREENSHOW :on_click 0782,SCREENSHOW :on_click 0784,SCREENSHOW
' on_click 0786,SCREENSHOW :on_click 0788,SCREENSHOW :on_click 0790,SCREENSHOW
' on_click 0792,SCREENSHOW :on_click 0794,SCREENSHOW :on_click 0796,SCREENSHOW
' on_click 0798,SCREENSHOW :on_click 0800,SCREENSHOW :on_click 0802,SCREENSHOW
' on_click 0804,SCREENSHOW :on_click 0806,SCREENSHOW :on_click 0808,SCREENSHOW
' on_click 0810,SCREENSHOW :on_click 0812,SCREENSHOW :on_click 0814,SCREENSHOW
' on_click 0816,SCREENSHOW
' 19
on_click 0820,SCREENSHOW :on_click 0822,SCREENSHOW :on_click 0824,SCREENSHOW
on_click 0826,SCREENSHOW :on_click 0828,SCREENSHOW :on_click 0830,SCREENSHOW
on_click 0832,SCREENSHOW :on_click 0834,SCREENSHOW :on_click 0836,SCREENSHOW
on_click 0838,SCREENSHOW :on_click 0840,SCREENSHOW :on_click 0842,SCREENSHOW
on_click 0844,SCREENSHOW :on_click 0846,SCREENSHOW :on_click 0848,SCREENSHOW
on_click 0850,SCREENSHOW :on_click 0852,SCREENSHOW :on_click 0854,SCREENSHOW
on_click 0856,SCREENSHOW
' 20*
on_click 0860,SCREENSHOW :on_click 0862,SCREENSHOW :on_click 0864,SCREENSHOW
on_click 0866,SCREENSHOW :on_click 0868,SCREENSHOW :on_click 0870,SCREENSHOW
on_click 0872,SCREENSHOW :on_click 0874,SCREENSHOW :on_click 0876,SCREENSHOW
on_click 0878,SCREENSHOW :on_click 0880,SCREENSHOW :on_click 0882,SCREENSHOW
on_click 0884,SCREENSHOW :on_click 0886,SCREENSHOW :on_click 0888,SCREENSHOW
on_click 0890,SCREENSHOW :on_click 0892,SCREENSHOW :on_click 0894,SCREENSHOW
on_click 0896,SCREENSHOW
end
' *** DATEN DER AUSGEWÄHLTEN FORM IN FUSSLEISTE ANZEIGEN ***********************
SCREENSHOW:
FORM_NUMMER% = number_click
FORM_NUMMER% = FORM_NUMMER% * 10
' Start Klaus
jklaus% = 1
if n_forms%>0
  for iklaus%=1 to n_forms%
    if forms%(iklaus%)=form_nummer%
      jklaus% = 0
      exit_for
    end_if
  next iklaus%
end_if
if jklaus%=1
  n_forms% = n_forms% + 1
  forms%(n_forms%) = form_nummer%
end_if
' End Klaus
FONT_COLOR    0092,000,000,255
TEXT          0092," "+Str$(FORM_NUMMER%)
Menuetext$ = TEXT$(0092)
FONT_COLOR    0093,000,000,255
if number_click > 099 then Text 0093,TEXT_MENUE_00$(01,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 139 then Text 0093,TEXT_MENUE_00$(02,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 179 then Text 0093,TEXT_MENUE_00$(03,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 219 then Text 0093,TEXT_MENUE_00$(04,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 259 then Text 0093,TEXT_MENUE_00$(05,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 299 then Text 0093,TEXT_MENUE_00$(06,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 339 then Text 0093,TEXT_MENUE_00$(07,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 379 then Text 0093,TEXT_MENUE_00$(08,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 419 then Text 0093,TEXT_MENUE_00$(09,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 459 then Text 0093,TEXT_MENUE_00$(10,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 499 then Text 0093,TEXT_MENUE_00$(11,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 539 then Text 0093,TEXT_MENUE_00$(12,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 579 then Text 0093,TEXT_MENUE_00$(13,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 619 then Text 0093,TEXT_MENUE_00$(14,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 659 then Text 0093,TEXT_MENUE_00$(15,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 699 then Text 0093,TEXT_MENUE_00$(16,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 739 then Text 0093,TEXT_MENUE_00$(17,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
' if number_click > 779 then Text 0093,TEXT_MENUE_00$(18,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 819 then Text 0093,TEXT_MENUE_00$(19,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
if number_click > 859 then Text 0093,TEXT_MENUE_00$(20,SPRACHE%)+" --- "+TEXT_MENUE_01$(number_click,SPRACHE%)
RETURN
' *** ANZEIGE STARTDATEN DER FORM 0090 IN FUSSLEISTE ANZEIGEN ******************
SCREENSHOW1:
FONT_COLOR    0092,255,000,000
TEXT          0092," 0090 "
Menuetext$ = TEXT$(0092)
print Menuetext$
FONT_COLOR    0093,255,000,000
TEXT          0093,TITEL$(2,SPRACHE%)
Menuetext$ = TITEL$(2,SPRACHE%)
print Menuetext$
RETURN
' *** CLIENTARENA FÜR ALLE FORMEN **********************************************
CLIENTARENA:
IF FORM_NUMMER% = 7420 THEN GOSUB SCREEN7420
SHOW FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is FORM_NUMMER%
TITEL$(3,1) = " Hier ist die CLIENTARENA "
TITEL$(3,2) = " Here is the CLIENTARENA "
TITEL$(3,3) = " Voici le CLIENTARENA "
print TITEL$(3,SPRACHE%)+" ",FORM_NUMMER%
end
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
end
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
RETURN
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' *** 7400 MENÜ ÄNDERN *********************************************************
SCREEN7400:
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
'
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7400:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7420 MENÜ ÄNDERN *********************************************************
SCREEN7420:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
TITEL$(4,1) = " Spracheinstellung ändern "
TITEL$(4,2) = " Changing the language setting "
TITEL$(4,3) = " Modification du réglage de la langue "
TITEL$(5,1) = " Auswahl übernehmen und sichern "
TITEL$(5,2) = " Make selection and save "
TITEL$(5,3) = " Effectuer une sélection et économisez "
TITEL$(6,1) = " Abbrechen und Auswahl behalten  "
TITEL$(6,2) = " Cancel selection and retain "
TITEL$(6,3) = " Annuler la sélection et retenir "
TITEL$(7,1) = " Folgende Auswahl wurde getroffen: "
TITEL$(7,2) = " The following selections were made: "
TITEL$(7,3) = " Les sélections suivantes ont été faites: "
TITEL$(8,1) = "  deutsch  "
TITEL$(8,2) = "  english  "
TITEL$(8,3) = "  français  "
TITEL$(9,1) = "  Auswahl ändern  "
TITEL$(9,2) = "  selection change  "
TITEL$(9,3) = "  changement de sélection  "
TITEL$(10,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(10,2) = "  To accept the settings, restart  "
TITEL$(10,3) = "  Pour accepter les paramètres, redémarrez  "
ON_ERROR_GOTO SCREEN7438
ALPHA        7421:hide 7421
BUTTON      7422:hide 7422
BUTTON      7423:hide 7423
BUTTON      7424:hide 7424
BUTTON      7425:hide 7425
BUTTON      7426:hide 7426
ALPHA        7427:hide 7427
BUTTON      7428:hide 7428
BUTTON      7429:hide 7429
' *** TEXT AUF FORM -- Spracheinstellung ändern ********************************
' ALPHA        7421
TOP          7421,10
LEFT        7421,SCREEN_X/6 - 40
SCHRIFTART = 7421
GOSUB Schriftart12F
CAPTION      7421,TITEL$(4,SPRACHE%)
SHOW        7421
parent      7421,7420
' *** FLAGGE DEUTSCHLAND ERSTELLEN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
' BUTTON      7422
TOP          7422,54
LEFT        7422,SCREEN_X/6
WIDTH        7422,128
HEIGHT      7422,128
SCHRIFTART = 7422
GOSUB Schriftart12F
CAPTION      7422," deutsch "
' FILE_LOAD    7422,Speicherplatz_Bild01$
' STRETCH_ON  7422
SHOW        7422
parent      7422,7420
' *** FLAGGE ENGLAND ERSTELLEN *** 128 x 128 BIT *******************************
' *** später durch Bild ersetzen
' BUTTON      7423
TOP          7423,204
LEFT        7423,SCREEN_X/6
WIDTH        7423,128
HEIGHT      7423,128
SCHRIFTART = 7423
GOSUB Schriftart12F
CAPTION      7423," english "
' FILE_LOAD    7423,Speicherplatz_Bild01$
' STRETCH_ON  7423
 SHOW        7423
parent      7423,7420
' *** FLAGGE FRANKREICH ERSTELLEN *** 128 x 128 BIT ****************************
' *** später durch Bild ersetzen
' BUTTON      7424
TOP          7424,354
LEFT        7424,SCREEN_X/6
WIDTH        7424,128
HEIGHT      7424,128
SCHRIFTART = 7424
GOSUB Schriftart12F
CAPTION      7424," français "
' FILE_LOAD    7424,Speicherplatz_Bild01$
' STRETCH_ON  7424
SHOW        7424
parent      7424,7420
' *** TEXT AUF FORM -- Folgende Auswahl wurde getroffen: ***********************
' ALPHA        7427
TOP          7427,10
LEFT        7427,SCREEN_X/2
SCHRIFTART = 7427
GOSUB Schriftart12F
CAPTION      7427,TITEL$(7,SPRACHE%)
SHOW        7427
parent      7427,7420
' *** TEXT AUF FORM --  Einstellung - deutsch  ********************************
' BUTTON      7428
TOP          7428,104
LEFT        7428,SCREEN_X/2 + 86
WIDTH        7428,128
HEIGHT      7428,128
SCHRIFTART = 7428
GOSUB Schriftart12F
CAPTION      7428,TITEL$(8,SPRACHE%)
' FILE_LOAD    7428,Speicherplatz_Bild01$
' STRETCH_ON  7428
SHOW        7428
parent      7428,7420
inactive    7428
' *** TASTE ÄNDERN ERSTELLEN ** Auswahl übernehmen und sichern *****************
' BUTTON      7425
TOP          7425,344
LEFT        7425,SCREEN_X/2
WIDTH        7425,300
HEIGHT      7425,30
SCHRIFTART = 7425
GOSUB Schriftart11N
CAPTION      7425,TITEL$(5,SPRACHE%)
SHOW        7425
parent      7425,7420
' *** TASTE ABBRECHEN ERSTELLEN **Abbrechen und Auswahl behalten ***************
BUTTON_TOP%    = 388
BUTTEN_LEFT%  = SCREEN_X/2
BUTTEN_WIDTH%  = 300
BUTTON_HEIGHT% = 30
' BUTTON      7426
TOP          7426,388
LEFT        7426,SCREEN_X/2
WIDTH        7426,300
HEIGHT      7426,30
SCHRIFTART = 7426
GOSUB Schriftart11N
CAPTION      7426,TITEL$(6,SPRACHE%)
SHOW        7426
parent      7426,7420
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
' BUTTON      7429
TOP          7429,432
LEFT        7429,SCREEN_X/2
WIDTH        7429,300
HEIGHT      7429,30
SCHRIFTART = 7429
GOSUB Schriftart11N
CAPTION      7429,TITEL$(10,SPRACHE%)
SHOW        7429
parent      7429,7420
inactive    7429
' *** Einsprung wenn ERROR - Routine *******************************************
SCREEN7438:
OFF_ERROR_GOTO
SCREEN7436:
on_click 7422,SCREEN7437
on_click 7423,SCREEN7437
on_click 7424,SCREEN7437
on_click 7425,INIDATEI_WRITE
on_click 7426,SCREEN7439
end
' *** Ausgewählte FLAGGE anzeigenN *** 128 x 128 BIT ***************************
' *** später durch Bild ersetzen
SCREEN7437:
if number_click = 7422 then SPRACHE% = 1
if number_click = 7423 then SPRACHE% = 2
if number_click = 7424 then SPRACHE% = 3
ACTIVE  7428
CAPTION      7428,TITEL$(8,SPRACHE%)
' FILE_LOAD    7428,Speicherplatz_Bild01$
' STRETCH_ON  7428
SHOW        7428
CAPTION      7421,TITEL$(4,SPRACHE%)
SHOW        7421
CAPTION      7427,TITEL$(7,SPRACHE%)
SHOW        7427
CAPTION      7425,TITEL$(5,SPRACHE%)
SHOW        7425
CAPTION      7426,TITEL$(6,SPRACHE%)
SHOW        7426
RETURN
' *** RÜCKSPRUNG WENN SPRACHE NICHT VERÄNDERT **********************************
SCREEN7439:
' BUTTON ZURÜCK ERSTELLEN ******************************************************
INACTIVE  7422
INACTIVE  7423
INACTIVE  7424
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7420:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
END
' *** INI-Datei anlegen ===> lesen <=== ändern *********************************
INIDATEI_WRITE:
INI_WERT$ = STR$(SPRACHE%)
' Spracheinstellung in Datei INI0_Text.TXT schreiben ***************************
FILE_OPEN_WRITE 1,INI_DATEI_WERTE0$
FILE_WRITELN    1,INI_WERT$
FILE_CLOSE      1
' *** TASTE ABBRECHEN ERSTELLEN ************************************************
INACTIVE  7422
INACTIVE  7423
INACTIVE  7424
INACTIVE  7425
INACTIVE  7426
INACTIVE  7428
TITEL$(8,1) = " Zur Übernahme der Einstellung, neu starten "
TITEL$(8,2) = "  To accept the settings, restart  "
TITEL$(8,3) = "  Pour accepter les paramètres, redémarrez  "
ACTIVE      7429
CAPTION      7429,TITEL$(8,SPRACHE%)
SHOW        7429
on_click 7429,PROGRAMM_ENDE
end
' *** 7440 MENÜ ÄNDERN *********************************************************
SCREEN7440:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7440:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7460 MENÜ ÄNDERN *********************************************************
SCREEN7460:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7460:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7480 MENÜ ÄNDERN *********************************************************
SCREEN7480:
BUTTON_TOP%    = (SCREEN_Y - 181) - 30
BUTTEN_LEFT%  = (SCREEN_X -  16) - 160
BUTTEN_WIDTH%  = 120
BUTTON_HEIGHT% = 20
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7480:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' *** 7760 MENÜ ÄNDERN *********************************************************
SCREEN7760:
GOSUB SCREENSHOW
SHOW              FORM_NUMMER%
COMMAND_TARGET_IS FORM_NUMMER%
print_target_is  FORM_NUMMER%
color            FORM_NUMMER%,000,255,000
' HIER Programm-Teil
' HIER Programm-Teil
' BUTTON ZURÜCK ERSTELLEN ******************************************************
GOSUB BUTTON_SCHLIESSEN
RETURN
FORM_SCHLIESSEN7760:
gosub SCREENSHOW1
gosub Menueschliessen
RETURN
end
' ******************************************************************************
Menueschliessen:
' Start Klaus
if n_forms%>0
  HIDE    FORM_NUMMER%
  n_forms% = n_forms% - 1
  if n_forms%>0
    form_nummer% = forms%(n_forms%)
    command_target_is form_nummer%
    show form_nummer%
  else
    active 0010
    HIDE    FORM_NUMMER%
    COMMAND_TARGET_IS 0010
  end_if
end_if
' End Klaus
' active 0010
' HIDE    FORM_NUMMER%
' COMMAND_TARGET_IS 0010
RETURN
' *** Unterprogramm EINEN BUTTON AUF ALLEN FORMEN ERSTELLEN ********************
BUTTON_SCHLIESSEN:
COMMAND_TARGET_IS FORM_NUMMER%
BUTTON_NR% = FORM_NUMMER% + 39
ON_ERROR_GOTO BUTTON_ERSTELLT
BUTTON BUTTON_NR%
BUTTON_ERSTELLT:
OFF_ERROR_GOTO
COMMAND_TARGET_IS FORM_NUMMER%
TITEL$(99,1) = " FORM SCHLIESSEN "
TITEL$(99,2) = "  FORM CLOSE  "
TITEL$(99,3) = "  Forme proche  "
TOP          BUTTON_NR%,BUTTON_TOP%
LEFT        BUTTON_NR%,BUTTEN_LEFT%
WIDTH        BUTTON_NR%,BUTTEN_WIDTH%
HEIGHT      BUTTON_NR%,BUTTON_HEIGHT%
SCHRIFTART = BUTTON_NR%
GOSUB Schriftart08N
CAPTION      BUTTON_NR%,TITEL$(99,SPRACHE%)
hint        BUTTON_NR%,TITEL$(99,SPRACHE%)
SHOW        BUTTON_NR%
on_click    BUTTON_NR%,BUTTON_WEITER
RETURN
end
' RÜCKSPRUNG AUF FORM NACH KLICK AUF BUTTON 1 **********************************
BUTTON_WEITER:
select FORM_NUMMER%
' ******************************************************************************
case 7400:GOTO FORM_SCHLIESSEN7400
case 7420:GOTO FORM_SCHLIESSEN7420
case 7440:GOTO FORM_SCHLIESSEN7440
case 7460:GOTO FORM_SCHLIESSEN7460
case 7480:GOTO FORM_SCHLIESSEN7480
case 7760:GOTO FORM_SCHLIESSEN7760
' ******************************************************************************
end_select
end
' SUBPROGRAMME FÜR SCHRIFTARTEN ************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Schwarz
Schriftartsymbolschwarz12:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART Terminal GRÖSSE 12 Normal Rot
Schriftartsymbolrot12:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART ARIAL 08 Normal Schwarz
Schriftart08N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,08
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,225,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,255,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold_off      SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,08
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
Schriftart10F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,08
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,09
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,10
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,11
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett  Unterstrichen
Schriftart12FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,12
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett  Unterstrichen
Schriftart15FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett  Unterstrichen
Schriftart20FU:
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold          SCHRIFTART
font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 1:35

Wie habe ich es gefunden ? An stratégischen Stellen, durch Trial and Error gefunden, wurden MESSAGE Kommandos eingefügt, um Durchgangsmeldungen zu erhalten, in Verbund mit der Anzeige des Werte verschiedener Variablen (FURM_NUMMER%, etc). Die Diagnose führte dann zur Lösungsidee.

Es wäre schneller gegangen, wenn Du ALLE Forms geloscht hättest bis auf das Hauptform und die beiden Unter-Forms 7489 und 7460. Alls Andere, wie Du wohl wusstest, xar belanglos, hat aber das Testen beträchtlich verlängert wegen des grossen Quellkodevolumens.

Meine Lösung korrigiert nur das von Dir beschriebene Problem. Bei anderer Inanspruchnahme des Routinen SCREENSHOW und Menueschliessen kann ich das nicht garantieren - dann muss ein dem Sinn entsprechender ähnlicher Mechanismus eingebaut werden.

Pour tous les autres Panoramiciens:

Pardon pour cette discussion exclusivement en allemand. C'était trop volumineux pour être traduit intégralement en français, à chaque étape. Mais je vous livre ici le descriptif du problème, le diagnostic et la solution proposée.

Le problème:
dans son programme, Severin permet, via des lignes dans un menu "options", d'ouvrir sélectivement des fenêtres. Elles sont toutes construites sur le même modèle et contiennent un bouton de fermeture. Or, il n'utilise pas de dispositif pour forcer l'ouverture en mode modal, et ces fenêtres sont donc en mode non-modal, défaut en Panoramic. Tant qu'il ouvre une fenêtre, puis la ferme, puis ouvre une autre etc, tout marche bien. Mais dès qu'il ouvre deux fenêtres successivement, il peut fermer la deuxième, la première apparaît bien mais in ne peut plus la fermer.

Le diagnostic: sa variable contenant le numéro de la form active ne contient plus que le numéro de la deuxième form.

La solution: créer une pile avec les numéros de forms ouverts successivement. A la fermeture, fermer la form en cours et reprendre le numéro de la form précédente de la pile. Lorsque la pile est vide, repasser sur la form initiale, celle qui doit s'afficher lorsque aucune form auxiliaire n'est ouverte.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 2:03

DANKE, DANKE KLAUS

Hatte schon gedacht das der Rücksprung vergessen wird.
Hatte aber keine Lösung.

Wenn ich nichts übersehen habe sind es drei neue Teile von Dir.
Jetzt weisst du, wofür ich die Clientarena brauch.

Letzte Frage für dieses Programm.
Den für das Forum wirds zulang.

Wenn ich den Stack erhöhe, kann ich dann auch andere
Hauptmen punkt in die Stackliste aufnehmen.


Egal werde es morgen im Hotel ausprobieren.
04:00 Uhr gehts auf Dienstreise.

Nochmals vielen Dank.
MERCI, MERCI KLAUS

Avait pensé que le retour ne sera oublié.
Mais n'avait pas de solution.

Si j'ai raté quelque chose, il ya trois nouvelles pièces de vous-même
Maintenant, vous savez ce dont j'ai besoin sur la scène du client.

Dernière question pour ce programme.
Le forum sera là pour trop longtemps.

Si j'augmente la pile, je peux alors aussi d'autres
Le point du menu principal d'inclure dans la liste de la pile.


Peu importe, il va essayer demain à l'hôtel.
04:00 horloge allons en mission.

Merci encore.
Severin der Sonntagsprogrammierer

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Lun 7 Mai 2012 - 2:08

Richtig. Die Stack-Tiefe habe ich willkürlich festgelegt - Du kannst sie selbstverständlich Deinem Programm anpassen und allgemein für alle Fenster verwenden. Ich habe nur ein Lösungsprinzip vorgeschlagen.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



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

MessageSujet: Re: Développement du programme de base   Mar 8 Mai 2012 - 22:35

Hallo Panoramics,
wenn ihr die weitere Entwicklung haben wollt,
bitte Nachfrage.
Severin

Hello Panoramics,
if you want the development,
Please demand.
Severin

Bonjour Panoramiques,
si vous voulez le développement,
S'il vous plaît la demande.
Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Développement du programme de base   Mar 8 Mai 2012 - 23:44

Traduction:
Hallo, Panoramiciens,
Si vous êtes intéressés par la suite du développement, faites-le-moi savoir...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Développement du programme de base   

Revenir en haut Aller en bas
 
Développement du programme de base
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Gong Base sur Bbox TV ?
» Saisie des locomotives / edition sous tableur?
» acces et base de donnée works
» [Obsolète] Une autre programme d'animation gratuit.
» Intégrer une page HTML dans son programme ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: