Programm2 Severin

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

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

Invité

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.

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

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