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
» Compilateur FBPano
par jean_debord Aujourd'hui à 10:54

» demande pour recuperer un text speciale
par pascal10000 Hier à 22:04

» Casse-tête : Echanger les positions des cavaliers
par papydall Hier à 19:51

» KGF_dll - nouvelles versions
par Klaus Hier à 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

» Déterminer le Handle de l’objet ayant le focus
par papydall Dim 16 Juil 2017 - 3:15

» Déterminer le HANDLE du Bureau
par papydall Dim 16 Juil 2017 - 1:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
CalendrierCalendrier

Partagez | 
 

 Programm2 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: Programm2 Severin   Mar 31 Mai 2011 - 4:05

2. Teil

Code:
'
Command_Target_is Form_Nr%
show        9989
top          9989,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*9.0)
left        9989,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9989
Gosub Schriftart09N
caption  9989,TEXT_AUF_FORM$(9989)
'
Command_Target_is Form_Nr%
show        9990
top          9990,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*10.0)
left        9990,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9990
Gosub Schriftart09N
caption  9990,TEXT_AUF_FORM$(9990)
'
Command_Target_is Form_Nr%
show        9991
top          9991,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*11.0)
left        9991,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9991
Gosub Schriftart09N
caption  9991,TEXT_AUF_FORM$(9991)
'
Command_Target_is Form_Nr%
show        9992
top          9992,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*12.0)
left        9992,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9992
Gosub Schriftart09N
caption  9992,TEXT_AUF_FORM$(9992)
'
Command_Target_is Form_Nr%
show        9993
top          9993,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*13.0)
left        9993,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9993
Gosub Schriftart09N
caption  9993,TEXT_AUF_FORM$(9993)
'
Command_Target_is Form_Nr%
show        9994
top          9994,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*14.0)
left        9994,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9994
Gosub Schriftart09N
caption  9994,TEXT_AUF_FORM$(9994)
'
Command_Target_is Form_Nr%
show        9995
top          9995,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*15.0)
left        9995,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9995
Gosub Schriftart09N
caption  9995,TEXT_AUF_FORM$(9995)
'
Command_Target_is Form_Nr%
show        9996
top          9996,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*16.0)
left        9996,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9996
Gosub Schriftart09N
caption  9996,TEXT_AUF_FORM$(9996)
'
Command_Target_is Form_Nr%
show        9997
top          9997,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*17.0)
left        9997,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9997
Gosub Schriftart09N
caption  9997,TEXT_AUF_FORM$(9997)
'
Command_Target_is Form_Nr%
show        9998
top          9998,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*31.0)
left        9998,INT(SCREEN_X-(SCREEN_X/1.01))
SCHRIFTART = 9998
Gosub Schriftart09N
caption  9998,TEXT_AUF_FORM$(9998)
'
gosub BUTTON_01_zuruek
return
'
Zahl9900_01:
active 0
gosub Menueschliessen
return
' UNTERPROGRAMME FÜR GOSUB ROUTINEN MIT RÜCKSPRUNG
' GRAUEN HINTERGRUND AUF FORM - 000 - ERSTELLEN ********************************
Einstellungen01:
Command_Target_is 0000
Gosub RAHMENAUFFORM11
caption  000,FORM_TEXT$(0000)+FORM_TEXT$(Form_Nr%)
Command_Target_is Form_Nr%
show        Form_Nr%
Gosub RAHMENAUFFORM11
width      Form_Nr%,SCREEN_X -(links%+rechts%)
top        Form_Nr%,hoehe%
left        Form_Nr%,links%
border_hide Form_Nr%
Gosub RAHMENAUFFORM11
For i% = hoehe% TO Bildhoehe Step 1
'
height      Form_Nr%,i%
next i%
Command_Target_is 0000
Gosub RAHMENAUFFORM11
inactive 000
Gosub RAHMENAUFFORM13
return
' *** Unterprogramm EINEN Button >> zurück << auf allen Formen erstellen *******
BUTTON_01_zuruek:
command_target_is Form_Nr%
'
on_error_goto BUTTON_01_zuruek_X
'
Button Button01_Nr%
'
BUTTON_01_zuruek_X:
'
off_error_goto
'
top          Button01_Nr%,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*32)
left        Button01_Nr%,INT(SCREEN_X-SCREEN_X + 30)
width        Button01_Nr%,80
height      Button01_Nr%,20
SCHRIFTART = Button01_Nr%
Gosub Schriftart08N
caption      Button01_Nr%,"zurück"
hint        Button01_Nr%,"beenden und zum Hauptmenü zurück"
show        Button01_Nr%
on_click    Button01_Nr%, WEITER999
return
' WENN KLICK AUF BUTTON DANN HIER WEIER ****************************************
end
WEITER999:
'
Gosub RAHMENAUFFORM11
hide Button01_Nr%
select Form_Nr%
case 1901:goto Zahl1900_01
case 6101:goto Zahl6100_01:case 6201:goto Zahl6200_01:case 6301:goto Zahl6300_01
case 6401:goto Zahl6400_01:case 6501:goto Zahl6500_01:case 6601:goto Zahl6600_01
case 6701:goto Zahl6700_01:case 6801:goto Zahl6800_01:case 6901:goto Zahl6900_01
case 9801:goto Zahl9800_01:case 9901:goto Zahl9900_01
end_select
end
' *** UNTERMENÜS SCHLIESSEN RÜCKKEHR AUF FORM 000 ******************************
Menueschliessen:
active 000
For i% = Bildhoehe TO 0 Step -8
height  Form_Nr%,i%
next i%
hide    Form_Nr%
command_target_is 000
caption  000,FORM_TEXT$(0000)
Gosub RAHMENAUFFORM11
return
' SUBPROGRAMME FÜR RAHMEN AUF FORM 000 SCHWARZ *********************************
RAHMENAUFFORM11:
on_error_goto WEITER900
Command_Target_is 000
ALPHA 0011:hide 0011
For i11% = 100 to 500
ALPHA i11%:hide i11%
Next i11%
ALPHA 0090:hide 0090
WEITER900:
off_error_goto
Command_Target_is 0000
show        0011
top          0011,0 :' INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*8.00)
left        0011,0 :' INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = 0011
Gosub Schriftartsymbolschwarz
caption  0011,TEXT_AUF_FORM$(0011)
Command_Target_is 0000
for i11% = 101 to 219
show        i11%
top          i11%,(i11%-100)*8    :' INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*10.00)
left        i11%,0            :' INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = i11%
Gosub Schriftartsymbolschwarz
caption  i11%,TEXT_AUF_FORM$(i11%)
next i11%
Command_Target_is 0000
for i11% = 301 to 419
show        i11%
top          i11%,(i11%-300)*8    :' INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*10.00)
left        i11%,1668          :' INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = i11%
Gosub Schriftartsymbolschwarz
caption  i11%,TEXT_AUF_FORM$(i11%)
next i11%
Command_Target_is 0000
show        0090
top          0090,959 :' INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*36.00)
left        0090,0  :' INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = 0090
Gosub Schriftartsymbolschwarz
caption  0090,TEXT_AUF_FORM$(0090)
return
' LINIE OBEN ROT AUF GRAUE FORMEM **********************************************
RAHMENAUFFORM13:
on_error_goto WEITER902
Command_Target_is Form_Nr%
ALPHA 0012:hide 0012
WEITER902:
off_error_goto
Command_Target_is Form_Nr%
show        0012
top          0012,32    :' INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*10.00)
left        0012,10            :' INT(SCREEN_X-(SCREEN_X/1.1))
SCHRIFTART = 0012
Gosub Schriftartsymbolrot
caption  0012,TEXT_AUF_FORM$(0012)
return
' 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 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 Courier New GRÖSSE 08 Normal
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 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 "Courier New" GRÖSSE 11 Normal
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
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,"Arial"
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
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
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
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
' *** ERMITTLUNG BILDSCHIRMABMESSUNGEN IN PIXEL ********************************
BILDSCHIRMABMESSUNG:
TEXT_AUF_FORM$(9862) = STR$(screen_X)+"  "+"Pixel"
TEXT_AUF_FORM$(9863) = STR$(screen_Y)+"  "+"Pixel"
return
' *** ERMITTLUNG SYSTEMDATUM -- TAG UND WOCHENTAG ******************************
SYSTEMDATUM_TAG:
TEXT_AUF_FORM$(9865) = left$(Date$,3)
' Tag auswerten
TAG_Date01%= VAL(left$(Date$,2))
TAG_Date02$= Str$(TAG_Date01%)
' Monat auswerten und umrechnen
MONAT_Date01%= VAL(mid$(Date$,4,2))
iF MONAT_Date01% =  1 then MONAT_Date01% = MONAT_Date01% - 2+12 : goto Berechneter_Monat
iF MONAT_Date01% =  2 then MONAT_Date01% = MONAT_Date01% - 2+12 : goto Berechneter_Monat
iF MONAT_Date01% =  3 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  4 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  5 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  6 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  7 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  8 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% =  9 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% = 10 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% = 11 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
iF MONAT_Date01% = 12 then MONAT_Date01% = MONAT_Date01% - 2    : goto Berechneter_Monat
'
' Berechneter Monat
Berechneter_Monat:
MONAT_Date02$=Str$(MONAT_Date01%)
'
' Jahr 4-stellig
JAHR_xxxx_Date01%= VAL(right$(Date$,4))
iF MONAT_Date01% = 11 then JAHR_xxxx_Date01% = JAHR_xxxx_Date01% - 1 : goto Berechnetes_Jahr4
iF MONAT_Date01% = 12 then JAHR_xxxx_Date01% = JAHR_xxxx_Date01% - 1 : goto Berechnetes_Jahr4
'
Berechnetes_Jahr4:
JAHR_xxxx_Date02$=Str$(JAHR_xxxx_Date01%)
'
' Jahr 2-stellig
'
JAHR_xxZE_Date01%= VAL(right$(Date$,2))
iF MONAT_Date01% = 11 then JAHR_xxZE_Date01% = JAHR_xxZE_Date01% - 1 : goto Berechnetes_Jahr2
iF MONAT_Date01% = 12 then JAHR_xxZE_Date01% = JAHR_xxZE_Date01% - 1 : goto Berechnetes_Jahr2
'
Berechnetes_Jahr2:
JAHR_xxZE_Date02$=Str$(JAHR_xxZE_Date01%)
'
' Jahrhundert
JAHR_xx00_Date01%= VAL(mid$(Date$,7,2))
JAHR_xx00_Date02$=Str$(JAHR_xx00_Date01%)
'
' Zwischenergebnis
z3 = int(2.6 * MONAT_Date01% - 0.2) + TAG_Date01% + JAHR_xxZE_Date01% + int(JAHR_xxZE_Date01%/4) + int(JAHR_xx00_Date01%/4) - 2 * JAHR_xx00_Date01%
'
' Modulofunktion
z1 = z3-(7*(int(z3/7)))
z2$ = Str$(z1)
z6% = Val(z2$)
if z6% = 0 then  WOCHEN_TAG_TEXT$(0)="Sonntag    " : goto Wochentag
if z6% = 1 then  WOCHEN_TAG_TEXT$(0)="Montag    " : goto Wochentag
if z6% = 2 then  WOCHEN_TAG_TEXT$(0)="Dienstag  " : goto Wochentag
if z6% = 3 then  WOCHEN_TAG_TEXT$(0)="Mittwoch  " : goto Wochentag
if z6% = 4 then  WOCHEN_TAG_TEXT$(0)="Donnerstag " : goto Wochentag
if z6% = 5 then  WOCHEN_TAG_TEXT$(0)="Freitag    " : goto Wochentag
if z6% = 6 then  WOCHEN_TAG_TEXT$(0)="Samstag    " : goto Wochentag
Wochentag:
WOCHEN_TAG_TEXT$(1)=WOCHEN_TAG_TEXT$(0)
return
'  *** Kalenderwoche
SYSTEMDATUM_KALENDERWOCHE:
TEXT_AUF_FORM$(9866) = "99"
return
' *** ERMITTLUNG SYSTEMDATUM -- MONAT
SYSTEMDATUM_MONAT:
TEXT_AUF_FORM$(9867) = mid$(Date$,4,3)
if TEXT_AUF_FORM$(9867)= "01." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Januar  ":return
if TEXT_AUF_FORM$(9867)= "02." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Februar  ":return
if TEXT_AUF_FORM$(9867)= "03." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"März    ":return
if TEXT_AUF_FORM$(9867)= "04." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"April    ":return
if TEXT_AUF_FORM$(9867)= "05." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Mai      ":return
if TEXT_AUF_FORM$(9867)= "06." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Juni    ":return
if TEXT_AUF_FORM$(9867)= "07." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Juli    ":return
if TEXT_AUF_FORM$(9867)= "08." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"August  ":return
if TEXT_AUF_FORM$(9867)= "09." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"September":return
if TEXT_AUF_FORM$(9867)= "10." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Oktober  ":return
if TEXT_AUF_FORM$(9867)= "11." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"November ":return
if TEXT_AUF_FORM$(9867)= "12." then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Dezember ":return
end
' *** ERMITTLUNG SYSTEMDATUM -- JAHR
SYSTEMDATUM_JAHR:
TEXT_AUF_FORM$(9868) = right$(Date$,4)
return
' *** ERMITTLUNG SYSTEMZEIT
SYSTEMZEIT:
TEXT_AUF_FORM$(9870) = left$(TIME$,2)
TEXT_AUF_FORM$(9871) = mid$(TIME$,4,2)
TEXT_AUF_FORM$(9872) = right$(TIME$,2)
return
' *** ERMITTLUNG BETRIEBSSYSTEM
BETRIEBSSYSTEM:
TEXT_AUF_FORM$(9874) = "WINDOWS 7"
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5841
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Programm2 Severin   Mar 31 Mai 2011 - 10:16


Super comme structure de programme Smile

J'ai eu un petit problème sur la fonction Systemdatum_Monat, probalement à cause des paramètres de langues.

Pour la France, il faut la modifier par:
Code:
' *** ERMITTLUNG SYSTEMDATUM -- MONAT
SYSTEMDATUM_MONAT:
TEXT_AUF_FORM$(9867) = mid$(Date$,4,3)
if TEXT_AUF_FORM$(9867)= "01/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Januar  ":return
if TEXT_AUF_FORM$(9867)= "02/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Februar  ":return
if TEXT_AUF_FORM$(9867)= "03/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"März    ":return
if TEXT_AUF_FORM$(9867)= "04/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"April    ":return
if TEXT_AUF_FORM$(9867)= "05/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Mai      ":return
if TEXT_AUF_FORM$(9867)= "06/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Juni    ":return
if TEXT_AUF_FORM$(9867)= "07/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Juli    ":return
if TEXT_AUF_FORM$(9867)= "08/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"August  ":return
if TEXT_AUF_FORM$(9867)= "09/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"September":return
if TEXT_AUF_FORM$(9867)= "10/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Oktober  ":return
if TEXT_AUF_FORM$(9867)= "11/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"November ":return
if TEXT_AUF_FORM$(9867)= "12/" then TEXT_AUF_FORM$(9867)=TEXT_AUF_FORM$(9867)+"  "+"Dezember ":return
TEXT_AUF_FORM$(9867)= " TEXT_AUF_FORM$(9867)= "+ TEXT_AUF_FORM$(9867):return
end

De plus, comme sur mon écran j'ais une ligne verte en bas de la fenêtre, j'ai modifié la position du bouton Zuruck pour mieux le voir, j'ai mis la valeur:

BUTTON_01_zuruek_X:
'
off_error_goto
'
top Button01_Nr%,INT(SCREEN_Y-SCREEN_Y + (SCREEN_Y/37)*31)

J'adore la gestion des erreurs dans le programme Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Programm2 Severin   Mer 1 Juin 2011 - 1:38

Je suis certain que c'est un bon programme.

Mais je ne vois pas à quoi il sert. C'est certain que la langue n'aide pas.
Je suppose qu'il faut ajouter à la suite les programmes.

Mais à part afficher en vert, puis donner une info de l'ordi, je ne sais pas à quoi ça sert, et franchement j'ai pas le temps de rentrer dedans. J'ai déjà du mal de le faire pour les miens (j'en ai bien 4 de commencé). Si quelqu'un a compris, qu'il dise à quoi ça sert. J'ai seulement remarqué qu'il a pris mes n° d'objet que je réserve pour le débogueur.

C'est dommage qu'il soit tout seul dans son coin, Severin.
Revenir en haut Aller en bas
Severin



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

MessageSujet: Re: Programm2 Severin   Mer 1 Juin 2011 - 2:06

Hallo an alle,

hier Info zum Programm:

Es ist mein Testprogram um Befehl zutesten.

Die grüne Seite ist die Grundstellung. Nach Klick auf Menü, öffnet die graue Seite.
Hier werden dann die Daten eingegeben. Dies muss noch programmiert werden.
Als ist das nur das Grundprogramm.

Deshalb auch meine Fragen nach 2D-Line und nach ALPHA.

Ich bin auch an Vorschlägen zu Verbesserungen interessiert.

Severin


Hello everyone,

Info here about the program:

It is my test program zutesten to command.

The green side is the basic position. After clicking on the menu, open the gray side.
Here the data is entered. This must be programmed before.
As this is only the basic program.

That is why my questions after 2D-line and to ALPHA.

I am also interested in suggestions for improvements.

Severin


Bonjour à tous,

Info ici sur le programme:

Il est de mon programme d'essais à commande zutesten.

Le côté vert est la position de base. Après avoir cliqué sur le menu, ouvrez le côté gris.
Voici les données sont saisies. Ce doit être programmé avant.
Comme ce n'est que le programme de base.

C'est pourquoi mes questions après 2D en ligne et ALPHA.

Je suis également intéressé par des suggestions d'amélioration.

Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Programm2 Severin   

Revenir en haut Aller en bas
 
Programm2 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: