Kalender Creator

[autoit]

#Region - TimeStamp
; 2013-11-15 12:22:51
#EndRegion - TimeStamp

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

#include <Date.au3>

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

; Anzahl Zeichen in jeder Zeile, Minimum ist 20 - ein Monat.
Global $iPrintSize = 80

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

; Anzahl Monate, die nebeneinander gedruckt werden sollen. Mit "0" wird das automatisch errechnet.
; Die Zahl wird korrigiert, wenn damit kein rechteckiger Ausdruck möglich ist.
; Wenn der Druckbereich zu schmal ist für die gegebene Anzahl Monate, wird diese automatisch errechnet.
Global $iSideBySide = 3

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

; Anzahl Leerzeichen zwischen den Monaten.
Global $iSpace = 4

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

; Titel festlegen
Global $sTitle = '[ MEIN KALENDER ]'

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

; Ausgabe in Konsole und/oder Terminalsimulation (GUI)
Global Const $_CONSOLE = 1
Global Const $_TERMINAL = 2
Global Const $_BOTH = BitOR($_CONSOLE, $_TERMINAL)

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

; Array mit Zellen-Labeln für Terminalsimulation
Global $aRawCol[1][2]

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

_CreateCalendar( 2013, $_BOTH )

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

Func _CreateCalendar($_iYear, $_iOutput)
Local $aMon[12] = [' Januar ', ' Februar ', ' März ', _
' April ', ' Mai ', ' Juni ', _
' Juli ', ' August ', ' September ', _
' Oktober ', ' November ', ' Dezember ']
Local $sHead = 'Mo Di Mi Do Fr Sa So'
Local $aDaysInMonth[12] = [31,28,31,30,31,30,31,31,30,31,30,31]
If _DateIsLeapYear($_iYear) Then $aDaysInMonth[1] = 29

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

; == Datum mit in Wochentagstabelle für das gesamte Jahr verknüpfen
Local $aAllDaysInMonth[6][7][12] ; [ Zeilen ][ Wochentage ][ Monate ]
Local $iDay = 1, $iShift
For $i = 1 To 12
$iShift = _DateToDayOfWeekISO($_iYear, $i, 1) -1
For $j = 0 To 5
For $k = $iShift To 6
$aAllDaysInMonth[$j][$k][$i-1] = $iDay
$iDay += 1
If $iDay > $aDaysInMonth[$i-1] Then ExitLoop(2)
Next
$iShift = 0
Next
$iDay = 1
Next

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

; == Prüfe Anzahl Monate nebeneinander, berechnen wenn erforderlich
If $iSideBySide > 0 Then
If $iPrintSize < ($iSideBySide *(20 +$iSpace) -$iSpace) Then $iSideBySide = 0
EndIf
Switch $iSideBySide
Case 0
$iSideBySide = Int($iPrintSize /(20 +$iSpace))
If $iPrintSize < 20 Then Return _PrintLine($_iOutput, 'Escape: Size Error')
If $iPrintSize < (20 +$iSpace) Then $iSideBySide = 1
Case 5
$iSideBySide = 4
Case 7 To 11
$iSideBySide = 6
EndSwitch

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

; == Ausgabe auch in simuliertes Terminal
If BitAND($_iOutput, $_TERMINAL) Then
Local $iLines = 12 /$iSideBySide *8 + 6
ReDim $aRawCol[$iLines][$iPrintSize]
GUICreate('Simulated Printer', $iPrintSize*8, $iLines*16) ; Größe jeder Zelle: 8 px * 16 px
GUISetBkColor(0x00008E)
GUISetFont(9, 400, Default, 'Courier New')

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

For $i = 0 To $iLines -1
For $j = 0 To $iPrintSize -1
$aRawCol[$i][$j] = GUICtrlCreateLabel('', $j*8, $i*16, 8, 16, 2) ; $ES_RIGHT = 2
GUICtrlSetColor(-1, 0xFFFF22)
Next
Next

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

GUISetState()
EndIf

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

; == Leerzeichenstring erstellen
Local $sSpace = ''
For $i = 1 To $iSpace
$sSpace &= ' '
Next

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

; == Header drucken
_PrintLine($_iOutput, @LF)
_PrintLine($_iOutput, $sTitle, @LF)
_PrintLine($_iOutput, StringRegExpReplace($_iYear, '(\d)(\d)(\d)(\d)', '$1 $2 $3 $4'), @LF)

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

; == Daten für jede Zeile zusammenstellen/drucken in Abhängigkeit zur Anzahl Monate nebeneinander
Local $sLine, $iRight, $sTmp1, $sTmp2
For $n = 0 To 12 /$iSideBySide -1
$sTmp1 = ''
$sTmp2 = ''
For $z = 0 To $iSideBySide -1
$sTmp1 &= $aMon[$iSideBySide *$n+$z] & $sSpace
$sTmp2 &= $sHead & $sSpace
Next
_PrintLine($_iOutput, StringTrimRight($sTmp1, $iSpace))
_PrintLine($_iOutput, StringTrimRight($sTmp2, $iSpace))
For $j = 0 To 5
$sLine = ''
For $i = 1 To $iSideBySide
For $k = 0 To 6
$iRight = 3
If $k = 0 Then $iRight = 2
$sLine &= StringRight(' ' & $aAllDaysInMonth[$j][$k][$iSideBySide*$n+$i-1], $iRight)
Next
If $i < $iSideBySide Then $sLine &= $sSpace
Next
_PrintLine($_iOutput, $sLine)
Next
Next

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

If BitAND($_iOutput, $_TERMINAL) Then
Do
Until GUIGetMsg() = -3
EndIf
EndFunc ;==>_CreateCalendar

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

Func _PrintLine($_iOutput, $_sLine, $_sLF='')
Local Static $iLine = 0
If BitAND($_iOutput, $_CONSOLE) Then
Local $iLen = StringLen($_sLine)
Local $sSpace = '', $sLeft = ''
For $i = 1 To $iPrintSize-1
$sSpace &= ' '
Next
If $iLen < $iPrintSize Then $sLeft = StringLeft($sSpace, Int(($iPrintSize-$iLen)/2))
ConsoleWrite($sLeft & $_sLine & $_sLF & @LF)
EndIf
If BitAND($_iOutput, $_TERMINAL) Then
Local $aLine = StringSplit($_sLine, ''), $iIndexStart = 0
If $aLine[0] < $iPrintSize Then $iIndexStart = Int(($iPrintSize-$aLine[0])/2)
For $i = 1 To $aLine[0]
GUICtrlSetData($aRawCol[$iLine][$i+$iIndexStart], $aLine[$i])
Next
EndIf
$iLine += 1
If $_sLF <> '' Then $iLine += 1
EndFunc ;==>_PrintLine

[/autoit]