Programm Severin

In Deutsch:

hallo an alle,

ich stelle mein Programm hier ein, es ist eine Entwicklungsversion,
in der ich neue Befehle und Abläufe teste.

Das originalprogramm ist größer und hat 10 Menüpunkte, mit je
10 Untermenüs.

Bei der erstellung sind mir einige Dinge aufgefallen, die ich hier
ansprechen möchte.

1. Eine Bitte an Jack:

Im Editor bitten den Menüpunkt "Optionen" richtig einrichten und das die Einstellungen
auch erhalten bleiben.

2. Eine Bitte an Jack:

Ich habe einen Bildschirm mit über 2000 Pixel. Da das Programm sich an die
Bildschirmabmessungen anpassen soll, kann ich es an diesem Bildschirm
nicht testen.

3. Für alle Panoramics:

Die Flüchtigkeit von 2D_Line habe ich mit der Schriftart "Symbol" gelöst,
die noch den alten Zeichensatz hat.

152 TEXT_AUF_FORM$(0090) = CHR$(200) + STRING$(277,CHR$(205)) + CHR$(188)
153 TEXT_AUF_FORM$(0061) = STRING$(275,CHR$(205))

Ist diese Methode gut ?
Hat jemand eine andere Methode entwickelt ?
Wäre für Antworten dankbar.

4. Für alle Panoramics:

Wenn ALPHA 006 = "123456" und auf Form 555 angezeigt wird,
kann ALPHA 006 = "123456" auch auf Forn 556 genutzt werden?

Ich danke alle für eure Zeit dies zu Lesen.

Severin

In Französisch:

bonjour à tous,

Je mets mon programme ici, il ya une version de développement,
Je teste dans les nouvelles instructions et des procédures.

Le programme original est plus grand et dispose de 10 éléments de menu, chacune avec
10 sous-menus.

Lors de l'établissement sont des choses que j'ai remarqué que je ici
voudrais aborder.

1. Une demande à Jack:

Dans l'éditeur, s'il vous plaît sélectionner le menu "Options" correctement configuré et les paramètres
resteront également.

2. Une demande à Jack:

J'ai un écran de plus de 2000 pixels. Depuis que le programme à la
devrait régler dimensions de l'écran, je peux à cet écran
pas de test.

3. Pour tous les Panoramiques:

La volatilité des 2D_Line j'ai résolu avec la police "symbole",
a encore le jeu de caractères anciens.

TEXT_AUF_FORM 152 $ (0090) = CHR $ (200) + STRING $ (277, CHR $ (205)) + CHR $ (188)
TEXT_AUF_FORM 153 $ (0061) = STRING $ (275, CHR $ (205))

Est-ce une bonne méthode?
Quelqu'un at-il mis au point une autre méthode?
Vous serions reconnaissants de réponses.

4. Pour tous les Panoramiques:

Si ALPHA est affiché 006 = "123456" et sur le formulaire 555,
ALPHA peut être 006 = "123456" est également utilisé pour Forn 556?

Je vous remercie tous pour votre temps pour lire ceci.

Severin

In Englisch:

hello to all,

I put my program in here, there is a development version,
I test in the new instructions and procedures.

The original program is larger and has 10 menu items, each with
10 sub-menus.

In drawing are some things I have noticed that I here
would like to address.

1. A request to Jack:

In the editor, please select the menu item "Options" set up properly and the settings
will also remain.

2. A request to Jack:

I have a screen of over 2000 pixels. Since the program at the
Should adjust screen dimensions, I can at this screen
not test.

3. For all Panoramics:

The volatility of 2D_Line I solved with the font "symbol",
has still the old character set.

TEXT_AUF_FORM $ 152 (0090) = CHR $ (200) + STRING $ (277, CHR $ (205)) + CHR $ (188)
TEXT_AUF_FORM $ 153 (0061) = STRING $ (275, CHR $ (205))

Is this method good?
Has anyone developed a different method?
Would be grateful for answers.

4. For all Panoramics:

If ALPHA is displayed 006 = "123456" and on Form 555,
ALPHA can be 006 = "123456"is also used to Forn 556?

I thank you all for your time to read this.

Severin

Code:: ' LABEL FÜR HAUPTMENÜ DEFINIEREN ***********************************************
' label Zahl1100:label Zahl1100_01 *********************************************
label Zahl1900:label Zahl1900_01
' label Zahl6000:label Zahl6000_01 *********************************************
label Zahl6100:label Zahl6100_01:label Zahl6200:label Zahl6200_01:label Zahl6300:label Zahl6300_01
label Zahl6400:label Zahl6400_01:label Zahl6500:label Zahl6500_01:label Zahl6600:label Zahl6600_01
label Zahl6700:label Zahl6700_01:label Zahl6800:label Zahl6800_01:label Zahl6900:label Zahl6900_01
' label Zahl9000:label Zahl9000_01 *********************************************
label Zahl9800:label Zahl9800_01:label Zahl9900:label Zahl9900_01
' ******************************************************************************
Label BUTTON_01_zuruek
label BUTTON_01_zuruek_X
' ** REM LABEL UND VARIABELE FÜR UNTERFORMEN ANLEGEN
DIM Form_Nr%
DIM Button01_Nr%:DIM Button02_Nr%:DIM Button03_Nr%
DIM Button04_Nr%:DIM Button05_Nr%:DIM Button06_Nr%
DIM Button07_Nr%:DIM Button08_Nr%:DIM Button09_Nr%
Label Einstellungen01
Label Menueschliessen
label RAHMENAUFFORM11
label RAHMENAUFFORM13
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
label SCHRIFTARTSYMBOLschwarz:label SCHRIFTARTSYMBOLrot
label SCHRIFTART08N:label SCHRIFTART09N:label SCHRIFTART10N:label SCHRIFTART11N
label SCHRIFTART12N:label SCHRIFTART15N:label SCHRIFTART20N
label SCHRIFTART08F:label SCHRIFTART09F:label SCHRIFTART10F:label SCHRIFTART11F
label SCHRIFTART12F:label SCHRIFTART15F:label Schriftart20F
label SCHRIFTART08FU:label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU
label SCHRIFTART12FU:label SCHRIFTART15FU:label Schriftart20FU
' *** LABEL FÜR SYSTEMVARIABLEN ANLEGEN ****************************************
label BILDSCHIRMABMESSUNG
label BILDHOEHE_ANFANG
label BILDHOEHE_END
label SYSTEMDATUM_TAG
label SYSTEMDATUM_KALENDERWOCHE
label SYSTEMDATUM_MONAT
label SYSTEMDATUM_JAHR
label BETRIEBSSYSTEM
label SYSTEMZEIT
label Berechneter_Monat
label Berechnetes_Jahr4
label Berechnetes_Jahr2
label Wochentag
' *** LABEL FÜR SPRÜNGE ANLEGEN ************************************************
label WEITER900:label WEITER902:label WEITER999
label WEITER1900
label WEITER6100:label WEITER6200:label WEITER6300
label WEITER6400:label WEITER6500:label WEITER6600
label WEITER6700:label WEITER6800:label WEITER6900
label WEITER9800:label WEITER9900
' Variable für BILDBREITE Definieren *******************************************
DIM links%
DIM links1%
DIM links2%
DIM links3%
DIM links4%
DIM rechts%
' *** Abmessungen BILDBREITE für LED - Bildschirme *****************************
if Screen_X > 2000 then SCREEN_X = 2000
if Screen_X = 1680 then links% = 08 : goto BILDHOEHE_ANFANG : ' ok
if Screen_X = 1440 then links% = 08 : goto BILDHOEHE_ANFANG
if Screen_X = 1280 then links% = 08 : goto BILDHOEHE_ANFANG
if Screen_X = 1176 then links% = 08 : goto BILDHOEHE_ANFANG
if Screen_X = 1024 then links% = 08 : goto BILDHOEHE_ANFANG
if Screen_X = 800 then links% = 08 : goto BILDHOEHE_ANFANG
end
' *** BILDBREITE EINSTELLEN ****************************************************
BILDHOEHE_ANFANG:
links1% = links%
links2% = links%+1
links3% = links%+2
links4% = links%+3
rechts% = links%+1
DIM hoehe%
' *** Abmessungen BILDHHÖHE für LED - Bildschirme ******************************
if Screen_Y > 2000 then BILD_HOEHEE% = 2000
if Screen_Y = 1050 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 1024 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 900 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 800 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 768 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 720 then hoehe% = 46 : goto BILDHOEHE_END
if Screen_Y = 664 then hoehe% = 46 : goto BILDHOEHE_END
'
BILDHOEHE_END:
'
DIM ZAEHLENi
DIM Bildbreite
DIM Bildhoehe
Bildhoehe = SCREEN_Y-(hoehe%+48)
' *** VARIABLE FÜR KALENDERBERECHNUNG ******************************************
DIM TAG_Date01% :DIM TAG_Date02$
DIM MONAT_Date01% :DIM MONAT_Date02$
Dim JAHR_xxxx_Date01% :DIM JAHR_xxxx_Date02$
Dim JAHR_xxZE_Date01% :DIM JAHR_xxZE_Date02$
Dim JAHR_xx00_Date01% :DIM JAHR_xx00_Date02$
Dim z3 :Dim z1 :Dim z5 :Dim z1% :Dim z2$ :Dim z4$ :Dim z6%
'
DIM WOCHEN_TAG_TEXT$(1) :DIM WOCHEN_TAG_NR%(1)
'
WOCHEN_TAG_TEXT$(0)="Montag ":WOCHEN_TAG_NR%(0)=0
WOCHEN_TAG_TEXT$(1)="Dienstag ":WOCHEN_TAG_NR%(1)=1
'
DIM MONAT_TEXT$(11) :DIM MONAT_NR%(11)
'
MONAT_TEXT$(00)="Januar ":MONAT_NR%(00)=0
MONAT_TEXT$(01)="Februar ":MONAT_NR%(01)=3
MONAT_TEXT$(02)="März ":MONAT_NR%(02)=3
MONAT_TEXT$(03)="April ":MONAT_NR%(03)=6
MONAT_TEXT$(04)="Mai ":MONAT_NR%(04)=1
MONAT_TEXT$(05)="Juni ":MONAT_NR%(05)=4
MONAT_TEXT$(06)="Juli ":MONAT_NR%(06)=6
MONAT_TEXT$(07)="August ":MONAT_NR%(07)=2
MONAT_TEXT$(08)="September":MONAT_NR%(08)=5
MONAT_TEXT$(09)="Oktober ":MONAT_NR%(09)=0
MONAT_TEXT$(10)="November ":MONAT_NR%(10)=3
MONAT_TEXT$(11)="Dezember ":MONAT_NR%(11)=5
' *** INTEGER % VARIABLEN DEFINIEREN *******************************************
DIM i%
DIM i11%
DIM SCHRIFTART
DIM Nachricht%
' *** FESTE TEXTVARIABLEN AUF FORMEN DEFINIEREN *******************************
DIM FORM_TEXT$(9999)
FORM_TEXT$(0000) = " - PC-Zeit für IE - Programme --> "
FORM_TEXT$(1000) = " Datei "
FORM_TEXT$(1900) = " Programm schließen ":FORM_TEXT$(1901) = FORM_TEXT$(1900)
FORM_TEXT$(6000) = " MM-Studie erstellen "
FORM_TEXT$(6100) = " 1. Ziel festlegen ":FORM_TEXT$(6101) = FORM_TEXT$(6100)
FORM_TEXT$(6200) = " 2. Ablaufarten Mitarbeiter festlegen ":FORM_TEXT$(6201) = FORM_TEXT$(6200)
FORM_TEXT$(6300) = " 3. Ablaufarten Betriebsmittel festlegen ":FORM_TEXT$(6301) = FORM_TEXT$(6300)
FORM_TEXT$(6400) = " 4. Ablaufarten Material festlegen ":FORM_TEXT$(6401) = FORM_TEXT$(6400)
FORM_TEXT$(6500) = " 5. Rundgangsplan festlegen ":FORM_TEXT$(6501) = FORM_TEXT$(6500)
FORM_TEXT$(6600) = " 6. Beobachtungsumfang bestimmen ":FORM_TEXT$(6601) = FORM_TEXT$(6600)
FORM_TEXT$(6700) = " 7. Rundgangszeitpunkte bestimmen ":FORM_TEXT$(6701) = FORM_TEXT$(6700)
FORM_TEXT$(6800) = " 8. Erläuterungen zur Multimomentstudie 1":FORM_TEXT$(6801) = FORM_TEXT$(6800)
FORM_TEXT$(6900) = " 9. Erläuterungen zur Multimomentstudie 2":FORM_TEXT$(6901) = FORM_TEXT$(6900)
FORM_TEXT$(9000) = " Info über System "
FORM_TEXT$(9800) = " Info über Systemdaten ":FORM_TEXT$(9801) = FORM_TEXT$(9800)
FORM_TEXT$(9900) = " Info über PC-Zeit für IE ":FORM_TEXT$(9901) = FORM_TEXT$(9900)
' *** FESTE TEXTVARIABLEN AUF FORMEN DEFINIEREN
DIM TEXT_AUF_FORM$(9999)
' *** TEXT VARIABLEN AUF FORM 0000
TEXT_AUF_FORM$(0000) = " - PC-Zeit für IE - Programme - "
TEXT_AUF_FORM$(0011) = CHR$(201) + STRING$(277,CHR$(205)) + CHR$(187)
TEXT_AUF_FORM$(0012) = STRING$(275,CHR$(205))
'
for i% = 100 to 500
TEXT_AUF_FORM$(i%) = CHR$(186)
next i%
'
TEXT_AUF_FORM$(0090) = CHR$(200) + STRING$(277,CHR$(205)) + CHR$(188)
TEXT_AUF_FORM$(0061) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0062) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0063) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0064) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0065) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0066) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0067) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0068) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0069) = STRING$(275,CHR$(205))
TEXT_AUF_FORM$(0091) = " XXXXX "
TEXT_AUF_FORM$(0092) = " XXXXX "
TEXT_AUF_FORM$(0093) = " Telefon: XXXX - XXXXXXX "
TEXT_AUF_FORM$(0094) = " E-Mail: xxxxxxxxx@xxxxxxxx.xx "
TEXT_AUF_FORM$(0095) = " - PC-Zeit für IE - Programme - "
TEXT_AUF_FORM$(0096) = " - PC-Zeit für IE - Programme - "
TEXT_AUF_FORM$(0097) = " Version: 0.800 "
TEXT_AUF_FORM$(0098) = " - PC - Zeit für Industrial Engineering - "
TEXT_AUF_FORM$(0089) = " Stand: 2011 "
' *** TEXT VARIABLEN AUF FORM 1100
TEXT_AUF_FORM$(1980) = " Programm schließen "
' *** TEXT VARIABLEN AUF FORM 6100
TEXT_AUF_FORM$(6180) = FORM_TEXT$(6100)
' *** TEXT VARIABLEN AUF FORM 6200
TEXT_AUF_FORM$(6280) = " 2. Ablaufarten Mitarbeiter festlegen "
' *** TEXT VARIABLEN AUF FORM 6300
TEXT_AUF_FORM$(6380) = " 3. Ablaufarten Betriebsmittel festlegen "
' *** TEXT VARIABLEN AUF FORM 6400
TEXT_AUF_FORM$(6480) = " 4. Ablaufarten Material festlegen "
' *** TEXT VARIABLEN AUF FORM 6500
TEXT_AUF_FORM$(6580) = " 5. Rundgangsplan festlegen "
' *** TEXT VARIABLEN AUF FORM 6600
TEXT_AUF_FORM$(6680) = " 6. Beobachtungsumfang bestimmen "
' *** TEXT VARIABLEN AUF FORM 6700
TEXT_AUF_FORM$(6780) = " 7. Rundgangszeitpunkte bestimmen "
' *** TEXT VARIABLEN AUF FORM 6800
TEXT_AUF_FORM$(6880) = " 8. Erläuterungen zur Multimomentstudie 1 "
' *** TEXT VARIABLEN AUF FORM 6900
TEXT_AUF_FORM$(6980) = " 8. Erläuterungen zur Multimomentstudie 2 "
' *** TEXT VARIABLEN AUF FORM 9800
TEXT_AUF_FORM$(9880) = " Info über dieses System "
TEXT_AUF_FORM$(9881) = "1. Bildschirmabmessungen "
TEXT_AUF_FORM$(9882) = " Bildschirmbreite in Pixel .: "
TEXT_AUF_FORM$(9883) = " Bildschirmhöhe in Pixel ...: "
TEXT_AUF_FORM$(9884) = "2. Systemdatum "
TEXT_AUF_FORM$(9885) = " Tag .......................: "
TEXT_AUF_FORM$(9886) = " Kalenderwoche..............: "
TEXT_AUF_FORM$(9887) = " Monat .....................: "
TEXT_AUF_FORM$(9888) = " Jahr ..................... : "
TEXT_AUF_FORM$(9889) = "3. Systemzeit "
TEXT_AUF_FORM$(9890) = " Stunden ...................: "
TEXT_AUF_FORM$(9891) = " Minuten ...................: "
TEXT_AUF_FORM$(9892) = " Sekunden ..................: "
TEXT_AUF_FORM$(9893) = "4. Betriebssystem "
TEXT_AUF_FORM$(9894) = " Windows Version ...........: "
TEXT_AUF_FORM$(9895) = " Frei ......................: "
TEXT_AUF_FORM$(9896) = " Frei ......................: "
TEXT_AUF_FORM$(9897) = " Frei ......................: "
TEXT_AUF_FORM$(9898) = " Frei ......................: "
' *** TEXT VARIABLEN AUF FORM 9900
TEXT_AUF_FORM$(9980) = " Copyright© 2010 - 2011 XXXXXX Industrial Engineering "
TEXT_AUF_FORM$(9981) = " Version: 0.800 "
TEXT_AUF_FORM$(9982) = " - PC-Zeit für Industrial Engineering - "
TEXT_AUF_FORM$(9983) = " Copyright© 2010 - 2011 XXXXXXX Industrial Engineering "
TEXT_AUF_FORM$(9984) = " XXXXX "
TEXT_AUF_FORM$(9985) = " XXXXX "
TEXT_AUF_FORM$(9986) = " Telefon: XXXX - XXXXX "
TEXT_AUF_FORM$(9987) = " E-Mail: xxxxxxxxxxx@xxxxxxxxxxxxx.xx "
TEXT_AUF_FORM$(9988) = " Internet: "
TEXT_AUF_FORM$(9989) = " "
TEXT_AUF_FORM$(9990) = " Version: 0.800 "
TEXT_AUF_FORM$(9991) = " "
TEXT_AUF_FORM$(9992) = " Wichtiger Hinweis ! "
TEXT_AUF_FORM$(9993) = " Dieses Programm ist noch in der Entwicklung, "
TEXT_AUF_FORM$(9994) = " daher können noch Fehler auftreten "
TEXT_AUF_FORM$(9995) = " "
TEXT_AUF_FORM$(9996) = " "
TEXT_AUF_FORM$(9997) = " "
TEXT_AUF_FORM$(9998) = " "
' *** ALLE UNTERFORMEN ERSTELLEN UND VERSTECKEN
Form 1901:hide 1901
Form 6101:hide 6101:Form 6201:hide 6201:Form 6301:hide 6301
Form 6401:hide 6401:Form 6501:hide 6501:Form 6601:hide 6601
Form 6701:hide 6701:Form 6801:hide 6801:Form 6901:hide 6901
Form 9801:hide 9801:Form 9901:hide 9901
' *** PROGRAMM STARTEN ********************************************************
' FORM 000 DEFINIEREN
color 000,0,255,0
width 000,INT(SCREEN_X-0)
height 000,INT(SCREEN_Y-0)
caption 000,FORM_TEXT$(0000)
border_normal 000
' *** HAUPTTEXT AUF FORM 000 ANZEIGEN ******************************************
Command_target_is 000
ALPHA 89:hide 89:ALPHA 91:hide 91:ALPHA 92:hide 92
ALPHA 93:hide 93:ALPHA 94:hide 94:ALPHA 95:hide 95
ALPHA 96:hide 96:ALPHA 97:hide 97:ALPHA 98:hide 98
show 98
top 98,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/35)*5)
left 98,INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = 98
Gosub Schriftart20F
caption 98,TEXT_AUF_FORM$(0098)
' *** BILD AUF FORM 000 ANZEIGEN ***********************************************
' Command_Target_is 000
' picture 99
' top 99,INT(screen_Y/2-225) :REM ......HÖHE FENSTER
' left 99,INT(screen_x/2-225) :REM ......BREITE FENSTER
' width 99,450 :REM ......BREITE 1680
' height 99,450 :REM ......HÖHE 1050
' file_load 99,"Startbild.jpg" :REM ......Bilddatei als jpg
' stretch_on 99 :REM
' show 99 :REM
' *** COPYRIGTHTEXT AUF FORM 000 ANZEIGEN **************************************
Command_target_is 000
show 97
top 97,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*30)
left 97,INT(SCREEN_X-(SCREEN_X/3))
SCHRIFTART = 97
Gosub Schriftart08N
caption 97,TEXT_AUF_FORM$(097)
Command_Target_is 000
show 89
top 89,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*31)
left 89,INT(SCREEN_X-(SCREEN_X/3))
SCHRIFTART = 89
Gosub Schriftart08N
caption 89,TEXT_AUF_FORM$(089)
Command_Target_is 000
' *** Hauptmenü erstellen ******************************************************
main_menu 001
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:caption 1000,FORM_TEXT$(1000) :parent 1000,001
sub_menu 6000:caption 6000,FORM_TEXT$(6000) :parent 6000,001
sub_menu 9000:caption 9000,FORM_TEXT$(9000) :parent 9000,001
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1900:caption 1900,FORM_TEXT$(1900) :parent 1900,1000
' *** ERSTELLEN UNTERMENÜ 6100 bis 6900 ***************************************
sub_menu 6100:caption 6100,FORM_TEXT$(6100) :parent 6100,6000
sub_menu 6200:caption 6200,FORM_TEXT$(6200) :parent 6200,6000
sub_menu 6300:caption 6300,FORM_TEXT$(6300) :parent 6300,6000
sub_menu 6400:caption 6400,FORM_TEXT$(6400) :parent 6400,6000
sub_menu 6500:caption 6500,FORM_TEXT$(6500) :parent 6500,6000
sub_menu 6600:caption 6600,FORM_TEXT$(6600) :parent 6600,6000
sub_menu 6700:caption 6700,FORM_TEXT$(6700) :parent 6700,6000
sub_menu 6800:caption 6800,FORM_TEXT$(6800) :parent 6800,6000
sub_menu 6900:caption 6900,FORM_TEXT$(6900) :parent 6900,6000
' *** ERSTELLEN UNTERMENÜ 9100 bis 9900 ***************************************
sub_menu 9800:caption 9800,FORM_TEXT$(9800) :parent 9800,9000
sub_menu 9900:caption 9900,FORM_TEXT$(9900) :parent 9900,9000
' *** SPRUNG NACH DEM KLICK
Gosub RAHMENAUFFORM11
on_click 1900,Zahl1900
on_click 6100,Zahl6100:on_click 6200,Zahl6200:on_click 6300,Zahl6300
on_click 6400,Zahl6400:on_click 6500,Zahl6500:on_click 6600,Zahl6600
on_click 6700,Zahl6700:on_click 6800,Zahl6800:on_click 6900,Zahl6900
on_click 9800,Zahl9800:on_click 9900,Zahl9900
end
' *** POGRAMM 1000 -- 9. MENÜPUNKT
Zahl1900:
Form_Nr% = 1901
Button01_Nr% = 1911
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER1900
Command_Target_is Form_Nr%
ALPHA 1910:hide 1910
WEITER1900:
Command_Target_is Form_Nr%
show 1910
top 1910,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 1910,INT(SCREEN_X-(SCREEN_X/1))
SCHRIFTART = 1910
Gosub Schriftart15F
caption 1910,TEXT_AUF_FORM$(1980)
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl1900_01:
active 000
gosub Menueschliessen
terminate
return
end
' *** MM-Studie 6100 ***********************************************************
Zahl6100:
Form_Nr% = 6101
Button01_Nr% = 6111
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6100
Command_Target_is Form_Nr%
ALPHA 0061:hide 0061
ALPHA 6110:hide 6110
WEITER6100:
off_error_goto
Command_Target_is Form_Nr%
show 6110
top 6110,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6110,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6110
Gosub Schriftart12F
caption 6110,TEXT_AUF_FORM$(6180)
' BUTTON ZURÜCK ERSTELLEN ******************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6100_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6200 ***********************************************************
Zahl6200:
Form_Nr% = 6201
Button01_Nr% = 6211
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6200
Command_Target_is Form_Nr%
ALPHA 6210:hide 6210
WEITER6200:
off_error_goto
Command_Target_is Form_Nr%
show 6210
top 6210,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6210,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6210
Gosub Schriftart12F
caption 6210,TEXT_AUF_FORM$(6280)
' BUTTON ZURÜCK ERSTELLEN ******************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6200_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6300 ***********************************************************
Zahl6300:
Form_Nr% = 6301
Button01_Nr% = 6311
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6300
Command_Target_is Form_Nr%
ALPHA 6310:hide 6310
WEITER6300:
off_error_goto
Command_Target_is Form_Nr%
show 6310
top 6310,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6310,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6310
Gosub Schriftart12F
caption 6310,TEXT_AUF_FORM$(6380)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6300_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6400 ***********************************************************
Zahl6400:
Form_Nr% = 6401
Button01_Nr% = 6411
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6400
Command_Target_is Form_Nr%
ALPHA 6410:hide 6410
WEITER6400:
off_error_goto
Command_Target_is Form_Nr%
show 6410
top 6410,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6410,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6410
Gosub Schriftart12F
caption 6410,TEXT_AUF_FORM$(6480)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6400_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6500 ***********************************************************
Zahl6500:
Form_Nr% = 6501
Button01_Nr% = 6511
gosub Einstellungen01
inactive 0
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6500
Command_Target_is Form_Nr%
ALPHA 6510:hide 6510
WEITER6500:
off_error_goto
Command_Target_is Form_Nr%
show 6510
top 6510,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6510,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6510
Gosub Schriftart12F
caption 6510,TEXT_AUF_FORM$(6580)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6500_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6600 ***********************************************************
Zahl6600:
Form_Nr% = 6601
Button01_Nr% = 6611
gosub Einstellungen01
inactive 0
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6600
Command_Target_is Form_Nr%
ALPHA 6610:hide 6610
WEITER6600:
off_error_goto
Command_Target_is Form_Nr%
show 6610
top 6610,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6610,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6610
Gosub Schriftart12F
caption 6610,TEXT_AUF_FORM$(6680)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6600_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6700 ***********************************************************
Zahl6700:
Form_Nr% = 6701
Button01_Nr% = 6711
gosub Einstellungen01
inactive 0
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6700
Command_Target_is Form_Nr%
ALPHA 6710:hide 6710
WEITER6700:
off_error_goto
Command_Target_is Form_Nr%
show 6710
top 6710,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6710,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6710
Gosub Schriftart12F
caption 6710,TEXT_AUF_FORM$(6780)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6700_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6800 ***********************************************************
Zahl6800:
Form_Nr% = 6801
Button01_Nr% = 6811
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6800
Command_Target_is Form_Nr%
ALPHA 6810:hide 6810
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6800
Command_Target_is Form_Nr%
ALPHA 6810:hide 6810
'
WEITER6800:
off_error_goto
Command_Target_is Form_Nr%
show 6810
top 6810,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6810,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6810
Gosub Schriftart12F
caption 6810,TEXT_AUF_FORM$(6880)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6800_01:
active 000
gosub Menueschliessen
return
' *** MM-Studie 6900 ***********************************************************
Zahl6900:
Form_Nr% = 6901
Button01_Nr% = 6911
gosub Einstellungen01
inactive 000
' ÜBERSCHRIFT AUF FORM *********************************************************
on_error_goto WEITER6900
Command_Target_is Form_Nr%
ALPHA 6910:hide 6910
WEITER6900:
off_error_goto
Command_Target_is Form_Nr%
show 6910
top 6910,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.33)
left 6910,INT(SCREEN_X-(SCREEN_X-10))
SCHRIFTART = 6910
Gosub Schriftart12F
caption 6910,TEXT_AUF_FORM$(6980)
' BUTTON ZURÜCK ERSTELLEN *****************************************************
command_target_is Form_Nr%
gosub BUTTON_01_zuruek
return
Zahl6900_01:
active 000
gosub Menueschliessen
return
' *** Einstellungen 08. --- Systemdaten ermitteln und anzeigen und speichern ***
Zahl9800:
Form_Nr% = 9801
Button01_Nr% = 9811
gosub Einstellungen01
command_target_is Form_Nr%
on_error_goto WEITER9800
ALPHA 9880:hide 9880:ALPHA 9881:hide 9881:ALPHA 9882:hide 9882:ALPHA 9883:hide 9883
ALPHA 9884:hide 9884:ALPHA 9885:hide 9885:ALPHA 9886:hide 9886:ALPHA 9887:hide 9887
ALPHA 9888:hide 9888:ALPHA 9889:hide 9889:ALPHA 9890:hide 9890:ALPHA 9891:hide 9891
ALPHA 9892:hide 9892:ALPHA 9893:hide 9893:ALPHA 9894:hide 9894:ALPHA 9895:hide 9895
ALPHA 9896:hide 9896:ALPHA 9897:hide 9897:ALPHA 9898:hide 9898
WEITER9800:
' *** Haupttext AUF FORM 9800 ANZEIGEN
Command_Target_is Form_Nr%
show 9880
top 9880,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.5)
left 9880,INT(SCREEN_X-(SCREEN_X/1))
SCHRIFTART = 9880
Gosub Schriftart20F
caption 9880,TEXT_AUF_FORM$(9880)
' *** Bildschirmabmessung ÜBERSCHRIFT
Command_Target_is Form_Nr%
show 9881
top 9881,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*3.0)
left 9881,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9881
Gosub Schriftart15FU
caption 9881,TEXT_AUF_FORM$(9881)
' *** Bildschirm Breite TEXT UND WERT
Gosub BILDSCHIRMABMESSUNG
Command_Target_is Form_Nr%
show 9882
top 9882,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*5.0)
left 9882,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9882
Gosub Schriftart10N
caption 9882,TEXT_AUF_FORM$(9882)+" "+TEXT_AUF_FORM$(9862)
' *** Bildschirm Höhe TEXT UND WERTE
Gosub BILDSCHIRMABMESSUNG
Command_Target_is Form_Nr%
show 9883
top 9883,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*6.0)
left 9883,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9883
Gosub Schriftart10N
caption 9883,TEXT_AUF_FORM$(9883)+" "+TEXT_AUF_FORM$(9863)
' *** System DATUM TEXT ÜBERSCHRIFT
Command_Target_is Form_Nr%
show 9884
top 9884,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*8.0)
left 9884,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9884
Gosub Schriftart15FU
caption 9884,TEXT_AUF_FORM$(9884)
' *** System DATUM TAG TEXT UND Wert UND WOCHENTAG
gosub SYSTEMDATUM_TAG
Command_Target_is Form_Nr%
show 9885
top 9885,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*10.0)
left 9885,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9885
Gosub Schriftart10N
caption 9885,TEXT_AUF_FORM$(9885)+" "+TEXT_AUF_FORM$(9865)+" "+WOCHEN_TAG_TEXT$(1)
' *** System DATUM KALENDERWOCH TEXT UND WERT
gosub SYSTEMDATUM_KALENDERWOCHE
Command_Target_is Form_Nr%
show 9886
top 9886,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*11.0)
left 9886,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9886
Gosub Schriftart10N
caption 9886,TEXT_AUF_FORM$(9886)+" "+TEXT_AUF_FORM$(9866)
' *** System DATUM MONAT TEXT UND WERT UND MONAT
gosub SYSTEMDATUM_MONAT
Command_Target_is Form_Nr%
show 9887
top 9887,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*12.0)
left 9887,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9887
Gosub Schriftart10N
caption 9887,TEXT_AUF_FORM$(9887)+" "+TEXT_AUF_FORM$(9867)
' *** System DATUM JAHR TEXT UND WERT
gosub SYSTEMDATUM_JAHR
Command_Target_is Form_Nr%
show 9888
top 9888,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*13.0)
left 9888,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9888
Gosub Schriftart10N
caption 9888,TEXT_AUF_FORM$(9888)+" "+TEXT_AUF_FORM$(9868)
' *** System ZEIT TEXT ÜBERSCHRIFT
Command_Target_is Form_Nr%
show 9889
top 9889,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*15.0)
left 9889,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9889
Gosub Schriftart15FU
caption 9889,TEXT_AUF_FORM$(9889)
' *** System ZEIT STUNDE TEXT UND WERT
gosub SYSTEMZEIT
Command_Target_is Form_Nr%
show 9890
top 9890,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*17.0)
left 9890,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9890
Gosub Schriftart10N
caption 9890,TEXT_AUF_FORM$(9890)+" "+TEXT_AUF_FORM$(9870)
' *** System ZEIT MINUTE TEXT UND WERT
gosub SYSTEMZEIT
Command_Target_is Form_Nr%
show 9891
top 9891,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*18.0)
left 9891,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9891
Gosub Schriftart10N
caption 9891,TEXT_AUF_FORM$(9891)+" "+TEXT_AUF_FORM$(9871)
' *** System ZEIT SEKUNDE TEXT UND WERT
gosub SYSTEMZEIT
Command_Target_is Form_Nr%
show 9892
top 9892,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*19.0)
left 9892,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9892
Gosub Schriftart10N
caption 9892,TEXT_AUF_FORM$(9892)+" "+TEXT_AUF_FORM$(9872)
' *** System Windows Version ÜBERSCHRIFT
Command_Target_is Form_Nr%
show 9893
top 9893,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*21.0)
left 9893,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9893
Gosub Schriftart15FU
caption 9893,TEXT_AUF_FORM$(9893)
' *** BETRIBSSYSTEM ****
gosub BETRIEBSSYSTEM
Command_Target_is Form_Nr%
show 9894
top 9894,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*23.0)
left 9894,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9894
Gosub Schriftart10N
caption 9894,TEXT_AUF_FORM$(9894)+" "+TEXT_AUF_FORM$(9874)
' *** FREI ****
Command_Target_is Form_Nr%
show 9895
top 9895,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*24.0)
left 9895,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9895
Gosub Schriftart10N
caption 9895,TEXT_AUF_FORM$(9895)
' *** FREI ****
Command_Target_is Form_Nr%
show 9896
top 9896,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*25.0)
left 9896,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9896
Gosub Schriftart10N
caption 9896,TEXT_AUF_FORM$(9896)
' *** FREI ****
Command_Target_is Form_Nr%
show 9897
top 9897,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*26.0)
left 9897,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9897
Gosub Schriftart10N
caption 9897,TEXT_AUF_FORM$(9897)
' *** FREI ****
Command_Target_is Form_Nr%
show 9898
top 9898,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*27.0)
left 9898,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9898
Gosub Schriftart10N
caption 9898,TEXT_AUF_FORM$(9898)
'
gosub BUTTON_01_zuruek
return
Zahl9800_01:
gosub Menueschliessen
return
' ********************* Einstellungen 099. --- INFO ÜBER PC-ZEIT ***************
Zahl9900:
Form_Nr% = 9901
Button01_Nr% = 9911
gosub Einstellungen01
command_target_is Form_Nr%
on_error_goto WEITER9900
' Picture 9999
ALPHA 9980:hide 9980:ALPHA 9981:hide 9981:ALPHA 9982:hide 9982:ALPHA 9983:hide 9983
ALPHA 9984:hide 9984:ALPHA 9985:hide 9985:ALPHA 9986:hide 9986:ALPHA 9987:hide 9987
ALPHA 9988:hide 9988:ALPHA 9989:hide 9989:ALPHA 9990:hide 9990:ALPHA 9991:hide 9991
ALPHA 9992:hide 9992:ALPHA 9993:hide 9993:ALPHA 9994:hide 9994:ALPHA 9995:hide 9995
ALPHA 9996:hide 9996:ALPHA 9997:hide 9997:ALPHA 9998:hide 9998
' COPYRIGTBILD AUF FORM 9900 ANZEIGEN *****************************************
WEITER9900:
' top 9999,screen_Y/2-225 :REM ......HÖHE FENSTER
' left 9999,screen_x/2- 60 :REM ......BREITE FENSTER
' width 9999,450 :REM ......BREITE 1680
' height 9999,410 :REM ......HÖHE 1050
' file_load 9999,"Startbild.jpg"
' stretch_on 9999
' show 9999
' ***************************************** COPYRIGTHTEXT AUF FORM 9900 ANZEIGEN
Command_target_is Form_Nr%
show 9980
top 9980,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*30)
left 9980,INT(SCREEN_X-(SCREEN_X/3))
SCHRIFTART = 9980
Gosub Schriftart08N
caption 9980,TEXT_AUF_FORM$(9980)
Command_Target_is Form_Nr%
show 9981
top 9981,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*31)
left 9981,INT(SCREEN_X-(SCREEN_X/3))
SCHRIFTART = 9981
Gosub Schriftart08N
caption 9981,TEXT_AUF_FORM$(9981)
' ********************************************* Haupttext AUF FORM 9900 ANZEIGEN
Command_Target_is Form_Nr%
show 9982
top 9982,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*0.4)
left 9982,INT(SCREEN_X-(SCREEN_X/1))
SCHRIFTART = 9982
Gosub Schriftart20F
caption 9982,TEXT_AUF_FORM$(9982)
'
Command_Target_is Form_Nr%
show 9983
top 9983,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*3.0)
left 9983,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9983
Gosub Schriftart10N
caption 9983,TEXT_AUF_FORM$(9983)
'
Command_Target_is Form_Nr%
show 9984
top 9984,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*4.0)
left 9984,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9984
Gosub Schriftart09N
caption 9984,TEXT_AUF_FORM$(9984)
'
Command_Target_is Form_Nr%
show 9985
top 9985,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*5.0)
left 9985,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9985
Gosub Schriftart09N
caption 9985,TEXT_AUF_FORM$(9985)
'
Command_Target_is Form_Nr%
show 9986
top 9986,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*6.0)
left 9986,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9986
Gosub Schriftart09N
caption 9986,TEXT_AUF_FORM$(9986)
'
Command_Target_is Form_Nr%
show 9987
top 9987,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*7.0)
left 9987,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9987
Gosub Schriftart09N
caption 9987,TEXT_AUF_FORM$(9987)
'
Command_Target_is Form_Nr%
show 9988
top 9988,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*8.0)
left 9988,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9988
Gosub Schriftart09N
caption 9988,TEXT_AUF_FORM$(9988)

» Programm Struktur
» Programm2 Severin
» Bienvenue à Severin, 133° adhérant
» Zone client selon l'idée de Severin