Farbe von text ändern und wenn - dann auch - Rechnen

  • Kein Problem...
    Ich kann mich zwar nicht mehr wirklich erinnern wie ich das geschrieben habe aber es schaut irgendwie ganz gut aus...
    Und funktionieren tuts auch noch! LOL :rofl:

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

  • Das was ich gerade mache soll ein dienstplan werden!

    Hat jemand eine ide wie ich diese dick markierten bereich verkleinern könnte!
    Ich meine damit das ich nicht so viel schreiben muß für jede aktualiesierung eine zeile und das würde mir weiterhelfen denn sowas in der art muß ich mit der berchnung der tage auch noch machen!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>
    #include <Date.au3>
    #include <Misc.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt('GUIOnEventMode', 1)
    Global $pichinetgo = @ScriptDir & '\5-r.gif'
    Local $miusB, $plusB,$base = ''
    $Gui = GUICreate('', 1003, 600, -1, -1)
    GUISetBkColor(0xFFFACD, $Gui)
    GUISetOnEvent(-3, '_Exit')
    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
    GUICtrlCreatePic($pichinetgo, 0, 0, 1000, 10)
    GUICtrlCreatePic($pichinetgo, 175, 79, 690, 5)
    GUICtrlCreatePic($pichinetgo, 175, 138, 682, 5)
    $Menu = GUICtrlCreateMenu(' M&enü ')
    GUICtrlCreateLabel('Monat :', 12, 20, 40, 20)
    GUICtrlSetFont(-1, 9, 400, 2)
    GUICtrlCreateLabel('Soll', 868, 65, 20, 20)
    GUICtrlSetTip(-1, 'Gesamter Monats Zeitraum ')
    GUICtrlCreateLabel('Ist', 920, 65, 20, 20)
    GUICtrlSetTip(-1, 'Wieviel im Monat geleistet')
    GUICtrlCreateLabel('Übertrag', 950, 65, 42, 20)
    GUICtrlSetTip(-1, 'Plus Minus Stunden Übertragen')
    GUICtrlCreateLabel('Jahr :', 17, 44, 40, 20)
    GUICtrlSetFont(-1, 9, 400, 2)
    $monataus = GUICtrlCreateLabel('Bitte wählen', 60, 20, 75);--------------Monats Wahl

    [/autoit] [autoit][/autoit] [autoit]

    $monatzahl = GUICtrlCreateLabel('0', -100, 0, 0, 0);-----------------------------------------Versteckt zahl für monats wahl
    $miusB = GUICtrlCreateButton('-', 135, 20, 15, 15)
    GUICtrlSetOnEvent(-1, 'Minuse')
    $plusB = GUICtrlCreateButton('+', 150, 20, 15, 15)
    GUICtrlSetOnEvent(-1, 'Pluse')

    [/autoit] [autoit][/autoit] [autoit]

    $jahr = GUICtrlCreateLabel(@YEAR, 60, 44, 40, 19);-----------------------Jahres Wahl
    GUICtrlCreateButton('-', 135, 44, 15, 15)
    GUICtrlSetOnEvent(-1, 'Minus')
    GUICtrlCreateButton('+', 150, 44, 15, 15)
    GUICtrlSetOnEvent(-1, 'Plus')
    $Schalt = GUICtrlCreateLabel('',860,35,100,25)
    GUICtrlSetColor(-1, 0x0000FF)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 9, 79, 120, 19);--------------------Name
    GUICtrlSetTip(-1, 'Name')

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 9, 101, 120, 19);-----------------------------Stellenbeschreibung
    GUICtrlSetTip(-1, 'Stellenbezeichnung')

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup('', 9, 117, 120, 24);--------------------------Urlaub
    GUICtrlCreateLabel('R=', 108, 125, 20, 12)
    GUICtrlSetTip(-1, 'Urlaub')

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $plusminuszteit = GUICtrlCreateInput('', 130, 79, 45, 21);------------------------------- + - Zeiten
    GUICtrlSetTip(-1, '+ / - Zeiten')

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $stundendiewoche = GUICtrlCreateInput('139,50', 130, 101, 45, 21);-------------------------------Stunden die woche
    GUICtrlSetTip(-1, 'Stunden / Wochen')

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $Urlaub = GUICtrlCreateInput('', 130, 123, 45, 18);------------------------------------Urlaub
    GUICtrlSetTip(-1, 'Urlaub')

    [/autoit] [autoit][/autoit] [autoit]

    ;-------------------------------------------------------------------Kaländer und Schichtsetzen --------------------------------------------------------------------
    $tageins = GUICtrlCreateInput('01', 176, 20, 21, 20);----Tag1
    $tage = GUICtrlCreateInput('', 176, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 176, 90, 21, 20)
    GUICtrlCreateInput('', 176, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagzwei = GUICtrlCreateInput('02', 198, 20, 21, 20);----Tag2
    $tagz = GUICtrlCreateInput('', 198, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 198, 90, 21, 20)
    GUICtrlCreateInput('', 198, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagdrei = GUICtrlCreateInput('03', 220, 20, 21, 20);----Tag3
    $tagd = GUICtrlCreateInput('', 220, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 220, 90, 21, 20)
    GUICtrlCreateInput('', 220, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    $tagvier = GUICtrlCreateInput('04', 242, 20, 21, 20);----Tag4
    $tagv = GUICtrlCreateInput('', 242, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 242, 90, 21, 20)
    GUICtrlCreateInput('', 242, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    $tagfuenf = GUICtrlCreateInput('05', 264, 20, 21, 20);----Tag5
    $tagf = GUICtrlCreateInput('', 264, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 264, 90, 21, 20)
    GUICtrlCreateInput('', 264, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagsechs = GUICtrlCreateInput('06', 286, 20, 21, 20);----Tag6
    $tags = GUICtrlCreateInput('', 286, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 286, 90, 21, 20)
    GUICtrlCreateInput('', 286, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagsieben = GUICtrlCreateInput('07', 308, 20, 21, 20);----Tag7
    $tagsie = GUICtrlCreateInput('', 308, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 308, 90, 21, 20)
    GUICtrlCreateInput('', 308, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagachtn = GUICtrlCreateInput('08', 330, 20, 21, 20);----Tag8
    $taga = GUICtrlCreateInput('', 330, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 330, 90, 21, 20)
    GUICtrlCreateInput('', 330, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagneun = GUICtrlCreateInput('09', 352, 20, 21, 20);----Tag9
    $tagn = GUICtrlCreateInput('', 352, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 352, 90, 21, 20)
    GUICtrlCreateInput('', 352, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagzehn = GUICtrlCreateInput('10', 374, 20, 21, 20);----Tag10
    $tagzeh = GUICtrlCreateInput('', 374, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 374, 90, 21, 20)
    GUICtrlCreateInput('', 374, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagelf = GUICtrlCreateInput('11', 396, 20, 21, 20);----Tag11
    $tagel = GUICtrlCreateInput('', 396, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 396, 90, 21, 20)
    GUICtrlCreateInput('', 396, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagzwoelf = GUICtrlCreateInput('12', 418, 20, 21, 20);----Tag12
    $tagzwoe = GUICtrlCreateInput('', 418, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 418, 90, 21, 20)
    GUICtrlCreateInput('', 418, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagdreitzehn = GUICtrlCreateInput('13', 440, 20, 21, 20);----Tag13
    $tagdreiz = GUICtrlCreateInput('', 440, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 440, 90, 21, 20)
    GUICtrlCreateInput('', 440, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagvierzehn = GUICtrlCreateInput('14', 462, 20, 21, 20);----Tag14
    $tagvierz = GUICtrlCreateInput('', 462, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 462, 90, 21, 20)
    GUICtrlCreateInput('', 462, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagfuenfzehn = GUICtrlCreateInput('15', 484, 20, 21, 20);----Tag15
    $tagfuenfz = GUICtrlCreateInput('', 484, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 484, 90, 21, 20)
    GUICtrlCreateInput('', 484, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagsechszehn = GUICtrlCreateInput('16', 506, 20, 21, 20);----Tag16
    $tagsechsz = GUICtrlCreateInput('', 506, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 506, 90, 21, 20)
    GUICtrlCreateInput('', 506, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagsiebenzehn = GUICtrlCreateInput('17', 528, 20, 21, 20);----Tag17
    $tagsiebenz = GUICtrlCreateInput('', 528, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 528, 90, 21, 20)
    GUICtrlCreateInput('', 528, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagachtzehn = GUICtrlCreateInput('18', 550, 20, 21, 20);----Tag18
    $tagachtz = GUICtrlCreateInput('', 550, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 550, 90, 21, 20)
    GUICtrlCreateInput('', 550, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagneunzehn = GUICtrlCreateInput('19', 572, 20, 21, 20);----Tag19
    $tagneunz = GUICtrlCreateInput('', 572, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 572, 90, 21, 20)
    GUICtrlCreateInput('', 572, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagzwanzig = GUICtrlCreateInput('20', 594, 20, 21, 20);----Tag20
    $tagzw = GUICtrlCreateInput('', 594, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 594, 90, 21, 20)
    GUICtrlCreateInput('', 594, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tageinzwanzig = GUICtrlCreateInput('21', 616, 20, 21, 20);----Tag21
    $tageinzw = GUICtrlCreateInput('', 616, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 616, 90, 21, 20)
    GUICtrlCreateInput('', 616, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagzweizwanzig = GUICtrlCreateInput('22', 638, 20, 21, 20);----Tag22
    $tagzweizw = GUICtrlCreateInput('', 638, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 638, 90, 21, 20)
    GUICtrlCreateInput('', 638, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagdreizwanzig = GUICtrlCreateInput('23', 660, 20, 21, 20);----Tag23
    $tagdreizw = GUICtrlCreateInput('', 660, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 660, 90, 21, 20)
    GUICtrlCreateInput('', 660, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagvierzwanzig = GUICtrlCreateInput('24', 682, 20, 21, 20);----Tag24
    $tagvierzw = GUICtrlCreateInput('', 682, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 682, 90, 21, 20)
    GUICtrlCreateInput('', 682, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagfuenfzwanzig = GUICtrlCreateInput('25', 704, 20, 21, 20);----Tag25
    $tagfuenfzw = GUICtrlCreateInput('', 704, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 704, 90, 21, 20)
    GUICtrlCreateInput('', 704, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    $tagsechszwanzig = GUICtrlCreateInput('26', 726, 20, 21, 20);----Tag26
    $tagsechszw = GUICtrlCreateInput('', 726, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 726, 90, 21, 20)
    GUICtrlCreateInput('', 726, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagsiebenzwanzig = GUICtrlCreateInput('27', 748, 20, 21, 20);----Tag27
    $tagsiebenzw = GUICtrlCreateInput('', 748, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 748, 90, 21, 20)
    GUICtrlCreateInput('', 748, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagachtzwanzig = GUICtrlCreateInput('28', 770, 20, 21, 20);----Tag28
    $tagachtzw = GUICtrlCreateInput('', 770, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 770, 90, 21, 20)
    GUICtrlCreateInput('', 770, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagneunzwanzig = GUICtrlCreateInput('29', 792, 20, 21, 20);----Tag29
    $tagneunzw = GUICtrlCreateInput('', 792, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 792, 90, 21, 20)
    GUICtrlCreateInput('', 792, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tagdreizig = GUICtrlCreateInput('30', 814, 20, 21, 20);----Tag30
    $tagdzig = GUICtrlCreateInput('', 814, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 814, 90, 21, 20)
    GUICtrlCreateInput('', 814, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $tageinzig = GUICtrlCreateInput('31', 836, 20, 21, 20);----Tag31
    $tagezig = GUICtrlCreateInput('', 836, 41, 21, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 836, 90, 21, 20)
    GUICtrlCreateInput('', 836, 111, 21, 20)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 858, 79, 45, 21);--------------------Arbeitzeit SOLL

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $soll = GUICtrlCreateInput('', 904, 79, 45, 21);-------------------Arbeitzeit IST

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 950, 79, 45, 21);-------------------Arbeitzeit ÜBERTRAGEN

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateInput('', 904, 120, 45, 21);------------------Rest URLAUB
    GUICtrlCreateGroup('', 858, 116, 45, 25)
    GUICtrlCreateLabel('R=', 880, 125, 20, 12)
    GUICtrlCreateInput('', 950, 120, 45, 21);------------------SOLL EREICHT

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;-------------------------------------------------------------------Kaländer und Schichtsetzen --------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()
    Func _Exit()
    Exit
    EndFunc ;==>_Exit
    $Color = 0x000000
    While 1
    Sleep(10)
    If StringLeft(GUICtrlRead($plusminuszteit), 1) = "-" Then
    If $Color <> 0xff0000 Then
    $Color = 0xff0000
    GUICtrlSetColor($plusminuszteit, $Color)
    EndIf
    ElseIf $Color <> 0x000000 Then
    $Color = 0x000000
    GUICtrlSetColor($plusminuszteit, $Color)
    EndIf
    WEnd
    ;########################################################################################## DIESEN BEREICH ###########################################################
    Func Minuse();-----------------------------------------------------------------------------------------------------------------------Monat
    GUICtrlSetData($monatzahl, GUICtrlRead($monatzahl) - 1)
    _aktualminus()
    EndFunc ;==>Minuse
    Func Pluse()
    GUICtrlSetData($monatzahl, GUICtrlRead($monatzahl) + 1)
    _aktualplus()
    EndFunc ;==>Pluse

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Minus();------------------------------------------------------------------------------------------------------------------------Jahr
    GUICtrlSetData($jahr, GUICtrlRead($jahr) - 1)
    _aktualminus()
    EndFunc ;==>Minus
    Func Plus()
    GUICtrlSetData($jahr, GUICtrlRead($jahr) + 1)
    _aktualplus()
    EndFunc ;==>Plus

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _aktualplus();-----------------------------------------------------------------------------------------------------------------aktualisieren Plus
    GUICtrlSetData($monataus, _getmonatwahl(GUICtrlRead($monatzahl)))
    GUICtrlSetData($tage, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageins))))
    GUICtrlSetData($tagz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwei))))
    GUICtrlSetData($tagd, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdrei))))
    GUICtrlSetData($tagv, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvier))))
    GUICtrlSetData($tagf, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenf))))
    GUICtrlSetData($tags, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechs))))
    GUICtrlSetData($tagsie, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsieben))))
    GUICtrlSetData($taga, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtn))))
    GUICtrlSetData($tagn, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneun))))
    GUICtrlSetData($tagzeh, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzehn))))
    GUICtrlSetData($tagel, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagelf))))
    GUICtrlSetData($tagzwoe, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwoelf))))
    GUICtrlSetData($tagdreiz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreitzehn))))
    GUICtrlSetData($tagvierz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvierzehn))))
    GUICtrlSetData($tagfuenfz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenfzehn))))
    GUICtrlSetData($tagsechsz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechszehn))))
    GUICtrlSetData($tagsiebenz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsiebenzehn))))
    GUICtrlSetData($tagachtz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtzehn))))
    GUICtrlSetData($tagneunz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneunzehn))))
    GUICtrlSetData($tagzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwanzig))))
    GUICtrlSetData($tageinzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageinzwanzig))))
    GUICtrlSetData($tagzweizw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzweizwanzig))))
    GUICtrlSetData($tagdreizw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreizwanzig))))
    GUICtrlSetData($tagvierzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvierzwanzig))))
    GUICtrlSetData($tagfuenfzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenfzwanzig))))
    GUICtrlSetData($tagsechszw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechszwanzig))))
    GUICtrlSetData($tagsiebenzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsiebenzwanzig))))
    GUICtrlSetData($tagachtzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtzwanzig))))
    GUICtrlSetData($tagneunzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneunzwanzig))))
    GUICtrlSetData($tagdzig, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreizig))))
    GUICtrlSetData($tagezig, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageinzig))))
    _Schaltjahr()
    EndFunc ;==>_aktualplus

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _aktualminus();-----------------------------------------------------------------------------------------------------------------aktualisieren Minus
    GUICtrlSetData($monataus, _getmonatwahl(GUICtrlRead($monatzahl)))
    GUICtrlSetData($tage, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageins))))
    GUICtrlSetData($tagz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwei))))
    GUICtrlSetData($tagd, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdrei))))
    GUICtrlSetData($tagv, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvier))))
    GUICtrlSetData($tagf, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenf))))
    GUICtrlSetData($tags, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechs))))
    GUICtrlSetData($tagsie, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsieben))))
    GUICtrlSetData($taga, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtn))))
    GUICtrlSetData($tagn, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneun))))
    GUICtrlSetData($tagzeh, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzehn))))
    GUICtrlSetData($tagel, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagelf))))
    GUICtrlSetData($tagzwoe, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwoelf))))
    GUICtrlSetData($tagdreiz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreitzehn))))
    GUICtrlSetData($tagvierz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvierzehn))))
    GUICtrlSetData($tagfuenfz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenfzehn))))
    GUICtrlSetData($tagsechsz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechszehn))))
    GUICtrlSetData($tagsiebenz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsiebenzehn))))
    GUICtrlSetData($tagachtz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtzehn))))
    GUICtrlSetData($tagneunz, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneunzehn))))
    GUICtrlSetData($tagzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzwanzig))))
    GUICtrlSetData($tageinzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageinzwanzig))))
    GUICtrlSetData($tagzweizw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagzweizwanzig))))
    GUICtrlSetData($tagdreizw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreizwanzig))))
    GUICtrlSetData($tagvierzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagvierzwanzig))))
    GUICtrlSetData($tagfuenfzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagfuenfzwanzig))))
    GUICtrlSetData($tagsechszw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsechszwanzig))))
    GUICtrlSetData($tagsiebenzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagsiebenzwanzig))))
    GUICtrlSetData($tagachtzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagachtzwanzig))))
    GUICtrlSetData($tagneunzw, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagneunzwanzig))))
    GUICtrlSetData($tagdzig, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tagdreizig))))
    GUICtrlSetData($tagezig, _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tageinzig))))
    _Schaltjahr()
    EndFunc ;==>_aktualminus
    ;#####################################################################################################################################################################
    Func _Schaltjahr();--------------------------------------------Schaltjahr
    If _DateIsLeapYear(GUICtrlRead($jahr)) Then
    GUICtrlSetData($Schalt, 'Schaltjahr')
    Else
    GUICtrlSetData($Schalt, '')
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _getwochwntag($wtag);---------------------------------Wochentag wandler
    Switch $wtag
    Case 1
    Return 'So'
    Case 2
    Return 'Mo'
    Case 3
    Return 'Di'
    Case 4
    Return 'Mi'
    Case 5
    Return 'Do'
    Case 6
    Return 'Fr'
    Case 7
    Return 'Sa'
    EndSwitch
    EndFunc ;==>_getwochwntag

    [/autoit] [autoit][/autoit] [autoit]

    Func _getmonatwahl($monatw);------------------------------Monats wandler
    If $monatw = 0 Then
    _GUICtrlButton_Enable($miusB, False)
    ElseIf $monatw = 1 Then
    _GUICtrlButton_Enable($miusB, True)
    ElseIf $monatw = 13 Then
    _GUICtrlButton_Enable($plusB, False)
    ElseIf $monatw = 12 Then
    _GUICtrlButton_Enable($plusB, True)
    EndIf
    Switch $monatw
    Case 0
    Return 'Bitte wählen'
    Case 1
    Return 'Januar'
    Case 2
    Return 'Februar'
    Case 3
    Return 'März'
    Case 4
    Return 'April'
    Case 5
    Return 'Mai'
    Case 6
    Return 'Juni'
    Case 7
    Return 'Juli'
    Case 8
    Return 'August'
    Case 9
    Return 'September'
    Case 10
    Return 'Oktober'
    Case 11
    Return 'November'
    Case 12
    Return 'Dezember'
    Case 13
    Return 'Bitte wählen'
    EndSwitch
    EndFunc ;==>_getmonatwahl

    [/autoit] [autoit][/autoit] [autoit]

    Func makecol()
    $read = GUICtrlRead($plusminuszteit)
    If StringInStr($read, '') Then
    GUICtrlSetData($soll,Execute(GUICtrlRead($Urlaub)&$read))
    ElseIf StringInStr($read, '-') Then
    GUICtrlSetData($soll,Execute(GUICtrlRead($Urlaub)&$read))
    ElseIf StringInStr($read, '+') Then
    GUICtrlSetData($soll,Execute(GUICtrlRead($Urlaub)&$read))
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func WM_COMMAND($hWnd, $iMsg,$iwParam,$ilParam)
    $input2 = GUICtrlGetHandle($plusminuszteit)
    Switch $ilParam
    Case $plusminuszteit, $input2
    makecol()
    EndSwitch
    EndFunc

    [/autoit]

    Vielen dank schon mal!

    LG Kleiner

    _

  • Am besten du verwendest für $tageins usw ein array:

    Spoiler anzeigen
    [autoit]

    Dim $tag[32][2]
    $tag[0][0] = GUICtrlCreateInput('01', 176, 20, 21, 20);----Tag1 entspricht: $tageins
    $tag[0][1] = GUICtrlCreateInput('', 176, 41, 21, 20); entspricht: $tage

    [/autoit] [autoit][/autoit] [autoit]

    $tag[1][0] = GUICtrlCreateInput('01', 176, 20, 21, 20);----Tag2 entspricht: $tagzwei
    $tag[1][1] = GUICtrlCreateInput('', 176, 41, 21, 20); entspricht: $tagz

    [/autoit]

    Dann kannst du das ganze Zeugs per Schleife bearbeiten:

    Spoiler anzeigen
    [autoit]

    Func _aktualplus();-----------------------------------------------------------------------------------------------------------------aktualisieren Plus
    GUICtrlSetData($monataus, _getmonatwahl(GUICtrlRead($monatzahl)))
    For $i = 0 To Ubound($tag)-1
    GUICtrlSetData($tag[$i][1], _getwochwntag(_DateToDayOfWeek(GUICtrlRead($jahr), GUICtrlRead($monatzahl), GUICtrlRead($tag[$i][0]))))
    Next
    _Schaltjahr()
    EndFunc ;==>_aktualplus

    [/autoit]

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

  • Ich versuch gerade array zu verstehen!

    Miene fage

    [autoit][/autoit][autoit][/autoit][autoit]

    ; ,------>Tag eins
    ; |
    ; | ,----Tag eins keine ausgabe
    $tag[0][0] = GUICtrlCreateInput('01', 176, 20, 21, 20)
    $tag[0][1] = GUICtrlCreateInput('', 176, 41, 21, 20)
    ; | |
    ; '------->Tag eins erkenung der ausgabe
    ; |
    ; '--- >Tag eins ausgabe
    ;
    ;
    ; und weiter bei jedem andern tag, ist mein verständniss soweit richtig??????
    ;
    ;
    ;
    ;Meine frage!
    Dim $tag[32][2]
    ; | |________warum 2
    ; |
    ; '----warum 32

    [/autoit]
  • Also ein Array ist ein reservierter Platz im Speicher. Nimm das jetzt einfach mal so hin^^
    Stell dir das Array als Liste vor.
    Mit Dim machst du diesen Platz im Speicher quasi frei.

    Ein Array fängt immer bei 0 (dieser Wert nennt sich Index) an. Um ein Array mit einem Element zu deklarieren musst du aber immer die größe angeben d.h. +1
    Also wenn du

    [autoit]

    Dim $array[1]

    [/autoit]

    machst kannst du nur $array[0] verwenden.
    Wenn du nun also irgendwo in deinem Script $array[1] = "blabla" machst wird das Script abstürzen.

    *Einschub*
    Mit der Funktion Ubound erhältst du die größe des Arrays zurück in unserm Fall ist die größe also einfach nur 1

    Also erstellen wir mal ein Array für 5 Elemente.

    [autoit]

    Dim $array[5]

    [/autoit]


    Wieso jetzt doch nur 5, müssen es nicht 6 sein?
    Nein, denn wir können ja bei 0 anfangen.

    [autoit]

    $array[0] = "1"
    $array[1] = "2"
    $array[2] = "3"
    $array[3] = "4"
    $array[4] = "5"

    [/autoit]


    Nun erweitern wir das Array um eine Dimension das sieht im Code beim deklarieren so aus:
    Dim $array[1][1]

    Stelle dir ein solches array als Tabelle vor. Also mit Zeilen & Spalten.
    Es gelten die gleichen Regeln wie für ein eindimensionales Array.

    Das oben deklarierte Array ist zugegebener Maßen ziemlich sinnlos also erstellen wir als Beispiel ein neues:

    [autoit]

    Dim $array[3][2] ;Ein Array mit 3 Zeilen und 2 Spalten
    $array[0][0] = "Zeile 1 Spalte 1"
    $array[0][1] = "Zeile 1 Spalte 2"

    [/autoit][autoit][/autoit][autoit]

    $array[1][0] = "Zeile 2 Spalte 1"
    $array[1][1] = "Zeile 2 Spalte 2"

    [/autoit][autoit][/autoit][autoit]

    $array[2][0] = "Zeile 3 Spalte 1"
    $array[2][1] = "Zeile 3 Spalte 2"

    [/autoit]

    Man kann das Array auch auf noch mehr Dimensionen erweitern, dies ist jedoch nur bedingt sinnvoll und wird auch dann schwierig zu verstehen
    3 Dimensionen ($array[1][1][1]) gleich Würfel also nicht nur nach unten bzw. nach rechts sondern auch noch nach hinten erweiterbar.
    Man braucht es eher selten.

    Der Vorteil eines Arrays liegt natürlich klar auf der Hand.
    Mit einer Schleife lassen sich so sehr leicht informationen ändern. Zum beispiel:

    [autoit]

    ;Deklaration des Arrays und mit Werten "füttern"
    Dim $array[3]
    $array[0] = 2
    $array[1] = 4
    $array[2] = 20

    [/autoit][autoit][/autoit][autoit]

    ;Per Schleife alle Werte +5 rechnen
    For $i = 0 To Ubound($array)-1 ;Ubound gibt den Wert 3 zurück. Wenn nun aber $i = 3 werden würde, würde unser Script abstürzen; Deswegen Ubound($array) - 1
    $array[$i] += 5
    MsgBox(0, "$array["&$i&"]", "Der Wert bei $array["&$i&"] ist nun: "&$array[$i])
    Next

    [/autoit]

    Hier wird nun einfach überall plus 5 dazu gerechnet.

    Man kann ein Array auch neu Deklarieren um es beispielsweise zu vergrößern. Ich weise aber schon mal darauf hin dass dies "relativ" lange dauert und wenn es in einer Schleife oft genutzt wird verlangsamt sich dadurch dein Script.
    Ein Beispiel:

    [autoit]

    Dim $array[1]
    $array[0] = "foo"
    ;oh da haben wir also was vergessen
    ReDim $array[2]
    $array[1] = "bar"

    [/autoit]


    Warum können wir jetzt nicht einfach noch einmal Dim verwenden?
    Wenn man Dim nochmal verwenden würde, würden alle vorherigen Werte gelöscht werden. Unser Array wäre also wieder leer.
    Mit ReDim bleiben die alten Werte erhalten.

    Natürlich kann man ReDim auch in die andere Richtung verwenden.

    [autoit]

    Dim $array[2]
    $array[0] = "Ein Beispiel"
    $array[1] = "das brauchen wir eigentlich garnicht"
    ReDim $array[1]
    ;nun wurde das Array verkleinert und der Wert aus $array[1] logischerweise gelöscht

    [/autoit]


    Ich hoffe dies Hilft dir ein bisschen weiter :)

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    5 Mal editiert, zuletzt von FireFlyer (28. September 2009 um 20:48)

  • Danke schön für deine erkärung!


    also

    [autoit]

    Dim $tag[31][2]
    ; |
    ; |
    ; '----Also brauch ich nur 31 weil 0 bis 30 = 31 sind Richtig?

    [/autoit]


    Sie ist gut verständlich!

    Werde ich mir gleich mal als notiz speichern!

    Lg Kleiner

    2 Mal editiert, zuletzt von kleiner27 (28. September 2009 um 21:06)

  • Ähhm in diesem Fall ja^^
    Bin davon ausgegangen das ein Monat auch ab und zu mal 31 Tage hat... hab ich mal gehört 8|

    Ist aber wohl ein genormter Dienstplan mit nur 30 Tagen ja? :D

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

  • Also so!


    [autoit]

    Dim $tag[31][2]
    ; |
    ; | ,----weil 0 schon als die erste zeile gesehen wird
    ; '----Also brauch ich nur 31 weil 0 bis 30 = 31 sind Richtig?
    ; |
    ; `--0,1,2,3,4,5,6,7,8,9 ,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30
    ; 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31

    [/autoit]


    Lg Kleiner

    Einmal editiert, zuletzt von kleiner27 (28. September 2009 um 21:16)

  • Versteht mich nicht falsch ich will nur alles richtig verstehen!
    Darum nim ich alles auseinander und stell zu alles eine frage!
    Nicht alles ist auf anhip verstentlich und wenn ich gut arbeiten will brauche ich mehr wissen ^^

    Ich sehe die hilfe wie eine Schulstunde, und alle dir mir helfen sind meine lehrer!! :thumbup:

    LG Kleiner