gutne morgen FireFlyer!
Für mich als beispiel reichts alle mal!
Danke
gutne morgen FireFlyer!
Für mich als beispiel reichts alle mal!
Danke
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
Guten morgen FireFlyer !
Machmal sind Bewustsein erweiterne ....... :pinch: nicht schlecht !
LG Kleiner
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!
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <Date.au3>
#include <Misc.au3>
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
$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')
$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)
GUICtrlCreateInput('', 9, 79, 120, 19);--------------------Name
GUICtrlSetTip(-1, 'Name')
GUICtrlCreateInput('', 9, 101, 120, 19);-----------------------------Stellenbeschreibung
GUICtrlSetTip(-1, 'Stellenbezeichnung')
GUICtrlCreateGroup('', 9, 117, 120, 24);--------------------------Urlaub
GUICtrlCreateLabel('R=', 108, 125, 20, 12)
GUICtrlSetTip(-1, 'Urlaub')
$plusminuszteit = GUICtrlCreateInput('', 130, 79, 45, 21);------------------------------- + - Zeiten
GUICtrlSetTip(-1, '+ / - Zeiten')
$stundendiewoche = GUICtrlCreateInput('139,50', 130, 101, 45, 21);-------------------------------Stunden die woche
GUICtrlSetTip(-1, 'Stunden / Wochen')
$Urlaub = GUICtrlCreateInput('', 130, 123, 45, 18);------------------------------------Urlaub
GUICtrlSetTip(-1, 'Urlaub')
;-------------------------------------------------------------------Kaländer und Schichtsetzen --------------------------------------------------------------------
$tageins = GUICtrlCreateInput('01', 176, 20, 21, 20);----Tag1
$tage = GUICtrlCreateInput('', 176, 41, 21, 20)
GUICtrlCreateInput('', 176, 90, 21, 20)
GUICtrlCreateInput('', 176, 111, 21, 20)
$tagzwei = GUICtrlCreateInput('02', 198, 20, 21, 20);----Tag2
$tagz = GUICtrlCreateInput('', 198, 41, 21, 20)
GUICtrlCreateInput('', 198, 90, 21, 20)
GUICtrlCreateInput('', 198, 111, 21, 20)
$tagdrei = GUICtrlCreateInput('03', 220, 20, 21, 20);----Tag3
$tagd = GUICtrlCreateInput('', 220, 41, 21, 20)
GUICtrlCreateInput('', 220, 90, 21, 20)
GUICtrlCreateInput('', 220, 111, 21, 20)
$tagvier = GUICtrlCreateInput('04', 242, 20, 21, 20);----Tag4
$tagv = GUICtrlCreateInput('', 242, 41, 21, 20)
GUICtrlCreateInput('', 242, 90, 21, 20)
GUICtrlCreateInput('', 242, 111, 21, 20)
$tagfuenf = GUICtrlCreateInput('05', 264, 20, 21, 20);----Tag5
$tagf = GUICtrlCreateInput('', 264, 41, 21, 20)
GUICtrlCreateInput('', 264, 90, 21, 20)
GUICtrlCreateInput('', 264, 111, 21, 20)
$tagsechs = GUICtrlCreateInput('06', 286, 20, 21, 20);----Tag6
$tags = GUICtrlCreateInput('', 286, 41, 21, 20)
GUICtrlCreateInput('', 286, 90, 21, 20)
GUICtrlCreateInput('', 286, 111, 21, 20)
$tagsieben = GUICtrlCreateInput('07', 308, 20, 21, 20);----Tag7
$tagsie = GUICtrlCreateInput('', 308, 41, 21, 20)
GUICtrlCreateInput('', 308, 90, 21, 20)
GUICtrlCreateInput('', 308, 111, 21, 20)
$tagachtn = GUICtrlCreateInput('08', 330, 20, 21, 20);----Tag8
$taga = GUICtrlCreateInput('', 330, 41, 21, 20)
GUICtrlCreateInput('', 330, 90, 21, 20)
GUICtrlCreateInput('', 330, 111, 21, 20)
$tagneun = GUICtrlCreateInput('09', 352, 20, 21, 20);----Tag9
$tagn = GUICtrlCreateInput('', 352, 41, 21, 20)
GUICtrlCreateInput('', 352, 90, 21, 20)
GUICtrlCreateInput('', 352, 111, 21, 20)
$tagzehn = GUICtrlCreateInput('10', 374, 20, 21, 20);----Tag10
$tagzeh = GUICtrlCreateInput('', 374, 41, 21, 20)
GUICtrlCreateInput('', 374, 90, 21, 20)
GUICtrlCreateInput('', 374, 111, 21, 20)
$tagelf = GUICtrlCreateInput('11', 396, 20, 21, 20);----Tag11
$tagel = GUICtrlCreateInput('', 396, 41, 21, 20)
GUICtrlCreateInput('', 396, 90, 21, 20)
GUICtrlCreateInput('', 396, 111, 21, 20)
$tagzwoelf = GUICtrlCreateInput('12', 418, 20, 21, 20);----Tag12
$tagzwoe = GUICtrlCreateInput('', 418, 41, 21, 20)
GUICtrlCreateInput('', 418, 90, 21, 20)
GUICtrlCreateInput('', 418, 111, 21, 20)
$tagdreitzehn = GUICtrlCreateInput('13', 440, 20, 21, 20);----Tag13
$tagdreiz = GUICtrlCreateInput('', 440, 41, 21, 20)
GUICtrlCreateInput('', 440, 90, 21, 20)
GUICtrlCreateInput('', 440, 111, 21, 20)
$tagvierzehn = GUICtrlCreateInput('14', 462, 20, 21, 20);----Tag14
$tagvierz = GUICtrlCreateInput('', 462, 41, 21, 20)
GUICtrlCreateInput('', 462, 90, 21, 20)
GUICtrlCreateInput('', 462, 111, 21, 20)
$tagfuenfzehn = GUICtrlCreateInput('15', 484, 20, 21, 20);----Tag15
$tagfuenfz = GUICtrlCreateInput('', 484, 41, 21, 20)
GUICtrlCreateInput('', 484, 90, 21, 20)
GUICtrlCreateInput('', 484, 111, 21, 20)
$tagsechszehn = GUICtrlCreateInput('16', 506, 20, 21, 20);----Tag16
$tagsechsz = GUICtrlCreateInput('', 506, 41, 21, 20)
GUICtrlCreateInput('', 506, 90, 21, 20)
GUICtrlCreateInput('', 506, 111, 21, 20)
$tagsiebenzehn = GUICtrlCreateInput('17', 528, 20, 21, 20);----Tag17
$tagsiebenz = GUICtrlCreateInput('', 528, 41, 21, 20)
GUICtrlCreateInput('', 528, 90, 21, 20)
GUICtrlCreateInput('', 528, 111, 21, 20)
$tagachtzehn = GUICtrlCreateInput('18', 550, 20, 21, 20);----Tag18
$tagachtz = GUICtrlCreateInput('', 550, 41, 21, 20)
GUICtrlCreateInput('', 550, 90, 21, 20)
GUICtrlCreateInput('', 550, 111, 21, 20)
$tagneunzehn = GUICtrlCreateInput('19', 572, 20, 21, 20);----Tag19
$tagneunz = GUICtrlCreateInput('', 572, 41, 21, 20)
GUICtrlCreateInput('', 572, 90, 21, 20)
GUICtrlCreateInput('', 572, 111, 21, 20)
$tagzwanzig = GUICtrlCreateInput('20', 594, 20, 21, 20);----Tag20
$tagzw = GUICtrlCreateInput('', 594, 41, 21, 20)
GUICtrlCreateInput('', 594, 90, 21, 20)
GUICtrlCreateInput('', 594, 111, 21, 20)
$tageinzwanzig = GUICtrlCreateInput('21', 616, 20, 21, 20);----Tag21
$tageinzw = GUICtrlCreateInput('', 616, 41, 21, 20)
GUICtrlCreateInput('', 616, 90, 21, 20)
GUICtrlCreateInput('', 616, 111, 21, 20)
$tagzweizwanzig = GUICtrlCreateInput('22', 638, 20, 21, 20);----Tag22
$tagzweizw = GUICtrlCreateInput('', 638, 41, 21, 20)
GUICtrlCreateInput('', 638, 90, 21, 20)
GUICtrlCreateInput('', 638, 111, 21, 20)
$tagdreizwanzig = GUICtrlCreateInput('23', 660, 20, 21, 20);----Tag23
$tagdreizw = GUICtrlCreateInput('', 660, 41, 21, 20)
GUICtrlCreateInput('', 660, 90, 21, 20)
GUICtrlCreateInput('', 660, 111, 21, 20)
$tagvierzwanzig = GUICtrlCreateInput('24', 682, 20, 21, 20);----Tag24
$tagvierzw = GUICtrlCreateInput('', 682, 41, 21, 20)
GUICtrlCreateInput('', 682, 90, 21, 20)
GUICtrlCreateInput('', 682, 111, 21, 20)
$tagfuenfzwanzig = GUICtrlCreateInput('25', 704, 20, 21, 20);----Tag25
$tagfuenfzw = GUICtrlCreateInput('', 704, 41, 21, 20)
GUICtrlCreateInput('', 704, 90, 21, 20)
GUICtrlCreateInput('', 704, 111, 21, 20)
$tagsechszwanzig = GUICtrlCreateInput('26', 726, 20, 21, 20);----Tag26
$tagsechszw = GUICtrlCreateInput('', 726, 41, 21, 20)
GUICtrlCreateInput('', 726, 90, 21, 20)
GUICtrlCreateInput('', 726, 111, 21, 20)
$tagsiebenzwanzig = GUICtrlCreateInput('27', 748, 20, 21, 20);----Tag27
$tagsiebenzw = GUICtrlCreateInput('', 748, 41, 21, 20)
GUICtrlCreateInput('', 748, 90, 21, 20)
GUICtrlCreateInput('', 748, 111, 21, 20)
$tagachtzwanzig = GUICtrlCreateInput('28', 770, 20, 21, 20);----Tag28
$tagachtzw = GUICtrlCreateInput('', 770, 41, 21, 20)
GUICtrlCreateInput('', 770, 90, 21, 20)
GUICtrlCreateInput('', 770, 111, 21, 20)
$tagneunzwanzig = GUICtrlCreateInput('29', 792, 20, 21, 20);----Tag29
$tagneunzw = GUICtrlCreateInput('', 792, 41, 21, 20)
GUICtrlCreateInput('', 792, 90, 21, 20)
GUICtrlCreateInput('', 792, 111, 21, 20)
$tagdreizig = GUICtrlCreateInput('30', 814, 20, 21, 20);----Tag30
$tagdzig = GUICtrlCreateInput('', 814, 41, 21, 20)
GUICtrlCreateInput('', 814, 90, 21, 20)
GUICtrlCreateInput('', 814, 111, 21, 20)
$tageinzig = GUICtrlCreateInput('31', 836, 20, 21, 20);----Tag31
$tagezig = GUICtrlCreateInput('', 836, 41, 21, 20)
GUICtrlCreateInput('', 836, 90, 21, 20)
GUICtrlCreateInput('', 836, 111, 21, 20)
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
;-------------------------------------------------------------------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
Func Minus();------------------------------------------------------------------------------------------------------------------------Jahr
GUICtrlSetData($jahr, GUICtrlRead($jahr) - 1)
_aktualminus()
EndFunc ;==>Minus
Func Plus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) + 1)
_aktualplus()
EndFunc ;==>Plus
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
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
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
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
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
Func WM_COMMAND($hWnd, $iMsg,$iwParam,$ilParam)
$input2 = GUICtrlGetHandle($plusminuszteit)
Switch $ilParam
Case $plusminuszteit, $input2
makecol()
EndSwitch
EndFunc
Vielen dank schon mal!
LG Kleiner
_
Am besten du verwendest für $tageins usw ein array:
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
$tag[1][0] = GUICtrlCreateInput('01', 176, 20, 21, 20);----Tag2 entspricht: $tagzwei
$tag[1][1] = GUICtrlCreateInput('', 176, 41, 21, 20); entspricht: $tagz
Dann kannst du das ganze Zeugs per Schleife bearbeiten:
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
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
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
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.
$array[0] = "1"
$array[1] = "2"
$array[2] = "3"
$array[3] = "4"
$array[4] = "5"
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"
$array[1][0] = "Zeile 2 Spalte 1"
$array[1][1] = "Zeile 2 Spalte 2"
$array[2][0] = "Zeile 3 Spalte 1"
$array[2][1] = "Zeile 3 Spalte 2"
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:
;Deklaration des Arrays und mit Werten "füttern"
Dim $array[3]
$array[0] = 2
$array[1] = 4
$array[2] = 20
;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
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:
Dim $array[1]
$array[0] = "foo"
;oh da haben wir also was vergessen
ReDim $array[2]
$array[1] = "bar"
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
Ich hoffe dies Hilft dir ein bisschen weiter
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?
Sie ist gut verständlich!
Werde ich mir gleich mal als notiz speichern!
Lg Kleiner
Ähhm in diesem Fall ja^^
Bin davon ausgegangen das ein Monat auch ab und zu mal 31 Tage hat... hab ich mal gehört
Ist aber wohl ein genormter Dienstplan mit nur 30 Tagen ja?
Nein nein habe es schon geendert in 31
Also so!
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
Lg Kleiner
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!!
LG Kleiner