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
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Programm Severin

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: Programm Severin   Mar 31 Mai 2011 - 4:03

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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Programm Severin
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: