Beiträge von autoBert

[autoit]

#Include <String.au3>
#include <INet.au3>
#include <Array.au3>

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

$i = 0
$sArtist = InputBox("Interpret für YouTube Suche eingeben","")
do
$i += 1
$sSearch = "http://www.youtube.com/results?search_query=" & $sArtist & "&aq=f&page=" & $i
$sFound = BinaryToString(InetRead($sSearch),4)
$aResultItems = _StringBetween($sFound,'<h3 id=','</a></h3>')
;hier Routine einfügen um Titel, Interpret und Originallink einem Array hinzu zu fügen
;über den Originallink muss dann auch noch der versteckte Download-Link ermittelt werden
_ArrayDisplay($aResultItems)
until not StringInStr($sFound,$sArtist) or $i = 9

[/autoit]

[autoit]

#include <StaticConstants.au3>
#include <Date.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListviewConstants.au3>

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

;#Include <GuiStatusBar.au3> ;Schwierigkeiten beim Resizen 1 Linie + 1 Label tuns auch

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

Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)

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

Global $hlstvwHoly = 0
Global $sTitel = 'Beispiele zur Nutzung der func _Easter'

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

Local $hMainGui = GUICreate($sTitel, 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $hMainGui gespeichert
;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
;GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PDOWN')
;Verknüpft dem Event $Gui_Event_Close mit der Funktion _End

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

;Local $hedtYear = GUICtrlCreateInput("", 10, 10, 200, 25, $ES_NUMBER)
;Die Eingabe wird für das zuletzt erstellte Steuerelement auf 4 Zeichen begrenzt
;diese Schreibweise ist auch zulässig: GUICtrlSetLimit($hedtYear, 4)
;GUICtrlSetLimit(-1, 4)
;erzeugt ein Input Steuerelement die zurückgegebe ID wird in der Variablen $hedtYear gespeichert
;es sind nur Zahlen für die Eingabe zugelassen
Local $hedtYear = GUICtrlCreateDate(@YEAR, 110, 10, 90, 25, $DTS_UPDOWN)
;erzeugt ein Date Steuerelement die zurückgegebene ID wird in der Variablen $hedtYear gespeichert
GUICtrlSetFont(-1, 12)
Local $DTM_SETFORMAT_ = 0x1032
Local $style = "yyyy"
GUICtrlSendMsg($hedtYear, $DTM_SETFORMAT_, 0, $style)
;es werde nur Jahreszahlen für die Eingabe angezeigt zugelassen 1752 - 9999
;GUICtrlSetTip($hedtYear, "bitte Jahreszahl nach 1582 eingeben")
;setzt den Tooltip für das InputField
;_getHolyDay (eine vom Skript benutzte UserDefinedFunction funktioniert erst ab dem Jahr 1000
;ab 1583 sind die Rückgabe-Werte auch sinvoll (Kalenderreform in 1582)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
;verankert das Inputfield Links, rechts, oben und fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite

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

GUICtrlCreateButton('&zeigen (eigenes Fenster)', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
;verankert den Button "Zeigen" rechts und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUICtrlSetOnEvent(-1, '_CallEaster')
;Beim Klicken des Buttons wird die Funktion _CallEaster aufgerufen

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

Local $hlblErgebnis = GUICtrlCreateLabel("hier steht danach das Ergebnis", 12, 50, 200)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert das Label links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

GUICtrlCreateButton('&berechnen (Label links)', 220, 45, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
;verankert den Button "Zeigen" rechts oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUICtrlSetOnEvent(-1, '_CallEasterQ')

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

GUICtrlCreateButton('&in ListView', 220, 80, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
GUICtrlSetOnEvent(-1, '_CallEasterA')

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

GUICtrlCreateButton('Be&enden', 220, 115, 150, 25)
GUICtrlSetOnEvent(-1, '_END')
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)

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

$hlstvwHoly = GUICtrlCreateListView("Feiertag | Datum ", 12, 80, 200, 140, $LVS_REPORT, $LVS_EX_GRIDLINES)
GUICtrlSetResizing($hlstvwHoly, $GUI_DOCKBORDERS)
;verankert das Listview per Namen an allen Ecken, alle Größenänderungen
;der Abstand nach Links,rechts,oben und unten bleibt immer gleich
GUICtrlSetState($hlstvwHoly, $GUI_HIDE + $GUI_DISABLE)

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

GUICtrlCreateGraphic(0, 230, 400, 2, $SS_BLACKRECT)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
Global $hStatus = GUICtrlCreateLabel("", 5, 235, 400, 25)

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

GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
;verankert das Label Links, rechts und unten; fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite wird angepasst
GUISetState()

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

While 1
Sleep(120)
WEnd

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

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

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

Func _CallEaster()
Local $iYear, $iDay
GUICtrlSetState($hlstvwHoly, $GUI_HIDE + $GUI_DISABLE)
;if $hlstvwHoly<>0 Then
; GUICtrlDelete($hlstvwHoly)
; $hlstvwHoly=0
;EndIf
$iYear = GUICtrlRead($hedtYear)
If $iYear = "" Then $iYear = "0"
If $iYear < 1582 Then
GUICtrlSetData($hlblErgebnis, "")
GUICtrlSetData($hStatus, "Das Jahr muss größer als 1582 sein! (Kalenderreform)")
Return ;_getHolyDay liefert vorher immer den gleichen Wert , ab 1583 sind die Werte auch sinnvoll
EndIf
GUICtrlSetData($hStatus, "")
$iDay = _Easter($iYear, False, 'Osterberechnung für Jahr: ' & $iYear, $hMainGui, $WS_VSCROLL)
;zeigt die eingebaut GUI in :Easter
GUICtrlSetData($hlblErgebnis, "Ostersonntag ist der " & $iDay & ".Tag im Jahr " & $iYear)
;$hlblErgebnis wird upgedatet
Opt('GuiEventOptions', 1)
EndFunc ;==>_CallEaster

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

Func _CallEasterQ()
Local $iOS, $iYear
GUICtrlSetState($hlstvwHoly, $GUI_HIDE + $GUI_DISABLE)
;if $hlstvwHoly<>0 Then
; GUICtrlDelete($hlstvwHoly)
; $hlstvwHoly=0
;EndIf
$iYear = GUICtrlRead($hedtYear)
If $iYear = "" Then $iYear = "0"
If $iYear = "" Then $iYear = "0"
$iOS = _Easter($iYear, '' & $iYear, True)
;ruft nur die Anzahl der Tage (1.Jan =1) ab und speichert weist diese der Variablen $iOS zu
GUICtrlSetData($hlblErgebnis, "Ostersonntag ist der " & $iOS & ".Tag im Jahr " & $iYear)
;dem Steuerelement mit der ID:$hlblErgebnis wird der Wert der Variablen $iOS zugewiesen
If $iYear < 1582 Then GUICtrlSetData($hStatus, "Der Tag entspricht unserem heutigen Kalender!")
EndFunc ;==>_CallEasterQ

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

Func _CallEasterA()
Local $iOS, $iYear
$iYear = GUICtrlRead($hedtYear)
If $iYear = "" Then $iYear = "0"
If $iYear < 1582 Then
GUICtrlSetData($hlblErgebnis, "")
GUICtrlSetData($hStatus, "Das Jahr muss größer als 1582 sein! (Kalenderreform)")
Return ;_getHolyDay liefert vorher immer den gleichen Wert , ab 1583 sind die Werte auch sinnvoll
EndIf
GUICtrlSetData($hStatus, "")
;$hlstvwHoly=GUICtrlCreateListView("Feiertag | Datum ",5, 75, 200, 200)
;GUICtrlSetResizing($hlstvwHoly, $GUI_DOCKBORDERS)
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hlstvwHoly))
;alle Einträhe im ListView werden gelöscht
GUICtrlSetState($hlstvwHoly, $GUI_SHOW + $GUI_ENABLE)
$iOS = _Easter($iYear, 'Osterberechnung für Jahr: ' & $iYear, True)
;ruft nur die Tageszahl ab
GUICtrlSetData($hlblErgebnis, "Ostersonntag ist der " & $iOS & ".Tag im Jahr " & $iYear)
GUICtrlCreateListViewItem(_getHolyday("Karfreitag:|", $iOS - 2, $iYear), $hlstvwHoly)
;fügt der Listview di mit Hilfe der in $hlstvwHoly gesoeicherten ID angesprochen werden kann
;mit dem zurückgegbenen Wert von _getHolyday($sHT,$iDate,$iYear) einen Listeneintrag hinzu
;der Separator ist kann in $sHT entahlten sein, wenn nicht wird er angehängt
GUICtrlCreateListViewItem(_getHolyday("Ostersamstag:|", $iOS - 1, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Ostersontag:|", $iOS, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Ostermontag:|", $iOS + 1, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Christi Himmelfahrt:|", $iOS + 39, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Pfingstsonntag:|", $iOS + 49, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Pfingstmontag:|", $iOS + 50, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Fronleichnam:|", $iOS + 60, $iYear), $hlstvwHoly)
EndFunc ;==>_CallEasterA
#cs
Func _PDOWN()
MsgBox(0,"Klick auf ",@GUI_CtrlId)
EndFunc
#ce

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

;===============================================================================
;Function Name..: _Easter($iYear [,$bQuiet] [, $sTitle] [,$hParent] [, $sEditStyle] [, $iWidth] [, $iHeight] [, $iLeft] [, $iTop])
;Description....: errechnet das Datum von Ostern für jedes übergebene Jahr
;Parameter(s)...: $iYear = das Jahr für das Ostern errechnet werden soll
; $bQuiet = Schalter für "stumme Ausgabe" True es wird nur gerechnet aber nicht angezeigt
; $sTitle = Fenstertitel (optional)
; $hParent = ID des aufrufenden Fensters (optional, Stabdard = 0)
; wenn dieser Parameter übergeben wird verhält wird das Anzeigefenster
; Modal angezeigt, d.h. es ist automatisch im Vordergrund
; vor dem aufrufenden Fenster (verliert aber leider den Focus, beim Wechsel
; zu anderer Anwendung und wieder zurück, d.h man muß einmal in das Fenster klicken)
; $sEditStyle = Edit-Style für GUICtrl (optional)
; $iWidth = Breite des Fensters (optional, Standard = 400 Pixel)
; $iHeight = Höhe des Fensters (optional, Standard = 300 Pixel)
; $iLeft = Abstand von links (optional, Standard = zentriert)
; $iTop = Abstand von oben (optional, Standard = zentriert)
;Return Value...: Ostersonntag
;Author.........: (Auto)Bert Osterberechung Formel auf http://www.nabkal.de/gauss2.html gefunden
; " GUI-Darstellung Oscar's (http://www.autoit.de) _StringDisplay
; in Anfängerfragen zur GUI(Checkbox,Inputbox und welches Gui Konzept) Beitrag #5
;===============================================================================
Func _Easter($iYear, $bQuiet = False, $sTitle = 'Ostern ', $hParent = 0, $EditStyle = -1, $iWidth = 250, $iHeight = 200, $iLeft = -1, $iTop = -1)
Local $iDay, $iMonth, $sHT, $hGui
Local $iA = Mod($iYear, 19) ;Gausssche Zykluszahl
;a = Jahr mod 19
;;ConsoleWrite("A: " & $iYear & " mod 19 =" &$iA & @crlf) ;2009 mod 19 = 14 R
Local $iB = Mod($iYear, 4)
;b = Jahr mod 4
;;ConsoleWrite("B: " & $iYear & " mod 4 =" &$iB & @crlf) ;2009 mod 4 = 1 R
Local $iC = Mod($iYear, 7)
;c = Jahr mod 7
;;ConsoleWrite("C: " & $iYear & " mod 7 =" &$iC & @crlf) ;2009 mod 7 = 0 R
Local $iH1 = Floor(Int($iYear / 100))
;H1 = Jahr div 100
;;ConsoleWrite("H1 " & $iYear & " div 100 = " & $iH1 & @crlf) ;2009 div 100 = 20 R
Local $iH2 = Floor(Int($iYear / 400))
;H2 = Jahr div 400
;;ConsoleWrite("H2 " & $iYear & " div 400 = " & $iH2 & @crlf) ;2009 div 100 = 5 R
;Local $iAS = 15 + int($iYear/100) - int($iYear/400) -2 ;aequatio solaris
;Local $iAL = int($iYear/300) -2 ;aequtio lunaris
Local $iN = 4 + $iH1 - $iH2 ; 4+20-5 = 19
;N = 4 + H1 - H2
;;ConsoleWrite("N: 4 +" & $iH1 & "-" & $iH2 &"=" & $iN & @crlf)
Local $iM = 15 + $iH1 - $iH2 - (Floor(Int(8 * $iH1 + 13) / 25)) ;15+20-5-((8*20+13) div 25] = 24
;M = 15 + H1 - H2- [(8 * H1 + 13) div 25]
;;ConsoleWrite("M: 15 + " & $iH1 & "-" & $iH2 & "-[8*"& $iH1 & " + 13) div 25] =" &$iM & @crlf)
Local $iD = Mod((19 * $iA + $iM), 30) ;(19*14 +24) mod 30 = 20
;d = (19 * a + M) mod 30
;;ConsoleWrite("(D: 19 * " & $iA & " + " & $iM & ") mod 30 = " & $iD & @CRLF)
Local $iE = Mod(2 * $iB + 4 * $iC + 6 * $iD + $iN, 7)
;e = (2 * b + 4 * c + 6 * d + N) mod 7
;;ConsoleWrite("(E: 2*" & $ib & " + 4* " & $iC & " + 6*" & $iD & " + " & $iN & " Mod 7) = " & $iE & @CRLF)

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

Local $iOS = $iD + $iE ;das sind die Anzahl der Tage nach dem 22. März
;;ConsoleWrite(@CRLF & "OS: 22 + " & $iD & " + " & $iE & " = " & $iOS & "Tage nach dem 22. März" & @CRLF)
$iOS = $iOS + 22 ;22 Tage vom März
If $iOS = 57 Then $iOS = 50
If ($iD = 28) And ($iE = 6) And ($iA > 10) Then $iOS = 49
$iOS = $iOS + 59 ;jetzt noch 1. Januar bis 28. Februar hinzuzählen
If _DateIsLeapYear($iYear) Then $iOS = $iOS + 1 ;im Schaltjahr auch noch den 29. Februar
If $bQuiet Then Return $iOS
#cs
a = Jahr mod 19
b = Jahr mod 4
c = Jahr mod 7
H1 = Jahr div 100
H2 = Jahr div 400
N = 4 + H1 - H2
M = 15 + H1 - H2- [(8 * H1 + 13) div 25]
d = (19 * a + M) mod 30
e = (2 * b + 4 * c + 6 * d + N) mod 7z
Ostern = 22 + d + e Tage nach dem 2. März
wenn: (ostern = 57) dann: (ostern = 50)
wenn: (d = 28) und (e = 6) und (a > 10) dann: (ostern = 49)
ostern: Ostersonntag als Märzdatum
#ce
;ab hier aus Beispiel von Oskar
If Not IsDeclared('BS_DEFPUSHBUTTON') Then Local Const $BS_DEFPUSHBUTTON = 0x00000001
If Not IsDeclared('GUI_EVENT_CLOSE') Then Local Const $GUI_EVENT_CLOSE = 0xFFFFFFFD
If Not IsDeclared('WS_EX_COMPOSITED') Then Local Const $WS_EX_COMPOSITED = 0x02000000
If Not IsDeclared('WS_MAXIMIZEBOX') Then Local Const $WS_MAXIMIZEBOX = 0x00010000
If Not IsDeclared('WS_MINIMIZEBOX') Then Local Const $WS_MINIMIZEBOX = 0x00020000
If Not IsDeclared('WS_SIZEBOX') Then Local Const $WS_SIZEBOX = 0x00040000
Local $iEventMode = Opt('GUIOnEventMode', 0)
If $hParent = 0 Then ;Oscar's Beispiel
$hGui = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_COMPOSITED)
Else ;damit sich das Fenster wie ein Toolwindow verhält
$hGui = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($DS_MODALFRAME + $DS_SETFOREGROUND, $WS_CAPTION + $WS_SYSMENU + $WS_SIZEBOX), $WS_EX_TOOLWINDOW, $hParent)
GUISetState(@SW_DISABLE, $hParent)
EndIf
GUISwitch($hGui)
GUISetState(@SW_HIDE, $hGui)
;das war ich wieder
If $iYear < 1583 Then
Local $hlblHinweis = GUICtrlCreateLabel("für Jahre vor 1583 keine Berechnung möglich!", 5, 5, $iWidth - 10, $iHeight - 35);, $SS_CENTER)
GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT)
Else
Local $hlstvwHoly = GUICtrlCreateListView("Feiertag | Datum ", 5, 5, $iWidth - 10, $iHeight - 35);, BitOr($EditStyle,$LVS_EX_GRIDLINES))
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
;GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
GUICtrlCreateListViewItem(_getHolyday("Karfreitag:|", $iOS - 2, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Ostersamstag:|", $iOS - 1, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Ostersontag:|", $iOS, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Ostermontag:|", $iOS + 1, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Christi Himmelfahrt:|", $iOS + 39, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Pfingstsonntag:|", $iOS + 49, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Pfingstmontag:|", $iOS + 50, $iYear), $hlstvwHoly)
GUICtrlCreateListViewItem(_getHolyday("Fronleichnam:|", $iOS + 60, $iYear), $hlstvwHoly)
;Local $hEdit = GUICtrlCreateEdit($sText, 5, 5, $iWidth - 10, $iHeight - 65, $EditStyle)
EndIf
Local $hClose = GUICtrlCreateButton('&Schliessen', $iWidth / 2 - 35, $iHeight - 25, 70, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKRIGHT)
ControlFocus($hGui, '', $hClose)
GUISetState(@SW_SHOW, $hGui)
While True
Switch GUIGetMsg()
Case $hClose, $GUI_EVENT_CLOSE
ExitLoop
;Case $GUI_EVENT_RESTORE
;GuiSetState(@SW_RESTORE,$hGui)
;;ConsoleWrite("Bin wieder da")
EndSwitch
;Sleep(125)
WEnd
;ControlFocus($hGui, '', $hEdit)
ControlFocus($hGui, '', $hlstvwHoly)
;Local $sSelectedText = ControlCommand($hGui, '', $hEdit, 'GetSelected', '')
;If @error Then $sSelectedText = ''
If $hParent <> 0 Then
GUISetState(@SW_ENABLE, $hParent)
GUISetState(@SW_SHOWNORMAL, $hParent)
EndIf
GUIDelete($hGui)
Opt('GUIOnEventMode', $iEventMode)
Return $iOS
EndFunc ;==>_Easter

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

;===============================================================================
;Function Name..: _getHolyday($sHT,$iHDay,$iYear)
;Description....: ermittelt das Datum des übergegenen x. Tages des Jahres und ertstellt
; daraus zusammen mit der Bez. einen String zum Eintragen in eine 2 Spaltige Listview
;Parameter(s)...: $sHT = der String mit der Bezeichnung ( Wenn kein Datensparatorzeichen am Schluß
; wird einer angehängt
; $bHDay = der x. Tag des Jahres (1. Januar = 1)
; $iYear = Jahresdatum, muß größer 1000 sein, da _DateDays in Month bei klieneren Zahlen keinen Wert zurückliefert
;Return Value...: String für Eintrag in ListView
;Author.........: (Auto)Bert
;===============================================================================
Func _getHolyday($sHT, $iHDay, $iYear)
Local $iDay, $iMonth, $i, $j, $sSep
$sSep = Opt('GUIDataSeparatorChar')
If StringRight($sHT, 1) <> $sSep Then $sHT = $sHT & $sSep
;ConsoleWrite("getHolyDay " & $iHDay & @CRLF)
For $i = 1 To 12
$j = _DateDaysInMonth($iYear, $i)
If $j >= $iHDay Then
$iDay = $iHDay
$iMonth = $i
EndIf
$iHDay = $iHDay - $j
If $iHDay <= 0 Then ExitLoop
;ConsoleWrite($i & " : " & $j & ": getHolyDay " & $sHT & " " & $iHDay & @CRLF)
Next
If $iDay < 10 Then $sHT = $sHT & '0'
$sHT = $sHT & $iDay
$sHT = $sHT & "."
If $iMonth < 10 Then $sHT = $sHT & '0'
$sHT = $sHT & $iMonth
$sHT = $sHT & "." & $iYear
;ConsoleWrite("Return getHolyDay " & $sHT & @CRLF)
Return $sHT
EndFunc ;==>_getHolyday

[/autoit]

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

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

Global $nMsg, $seconds, $seconds1 ;<======== $seconds1 war $seconds2

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

Global Const $hGUI = GUICreate("Timer", 720, 300)
GUISetBkColor(0xA6CAF0)

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

GUICtrlCreateGroup("Timer", 4, 4, 480, 150)

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

Global Const $idLableStd = GUICtrlCreateLabel("Std", 10, 18, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global $idInputStd = GUICtrlCreateInput("1", 8, 35, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownStd = GUICtrlCreateUpdown($idInputStd)
GUICtrlSetLimit(-1, 999, 0)
Global Const $idLableDP1 = GUICtrlCreateLabel(":", 58, 35, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idLableMin = GUICtrlCreateLabel("Min", 70, 18, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global $idInputMin = GUICtrlCreateInput("0", 68, 35, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownMin = GUICtrlCreateUpdown($idInputMin)
GUICtrlSetLimit(-1, 59, 0)
Global Const $idLableDP2 = GUICtrlCreateLabel(":", 118, 35, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idLableSec = GUICtrlCreateLabel("Sec", 130, 18, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global $idInputSek = GUICtrlCreateInput("0", 128, 35, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownSek = GUICtrlCreateUpdown($idInputSek)
GUICtrlSetLimit(-1, 59, 0)

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

; 2 Timer
Global $idInputStd1 = GUICtrlCreateInput("1", 8, 65, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownStd1 = GUICtrlCreateUpdown($idInputStd1)
GUICtrlSetLimit(-1, 999, 0)
Global Const $idLableDP11 = GUICtrlCreateLabel(":", 58, 65, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global $idInputMin1 = GUICtrlCreateInput("0", 68, 65, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownMin1 = GUICtrlCreateUpdown($idInputMin1)
GUICtrlSetLimit(-1, 59, 0)
Global Const $idLableDP21 = GUICtrlCreateLabel(":", 118, 65, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global $idInputSek1 = GUICtrlCreateInput("0", 128, 65, 40, 20, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idUpdownSek1 = GUICtrlCreateUpdown($idInputSek1)
GUICtrlSetLimit(-1, 59, 0)

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

Global Const $idButtonStart = GUICtrlCreateButton("Start", 178, 35, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idButtonStop = GUICtrlCreateButton("Stop", 228, 35, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
GUICtrlSetState(-1, $GUI_DISABLE)
Global Const $idButtonReset = GUICtrlCreateButton("Reset", 278, 35, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
GUICtrlSetState(-1, $GUI_DISABLE)

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

;2 Timer
Global Const $idButtonStart1 = GUICtrlCreateButton("Start", 178, 65, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
Global Const $idButtonStop1 = GUICtrlCreateButton("Stop", 228, 65, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
GUICtrlSetState(-1, $GUI_DISABLE)
Global Const $idButtonReset1 = GUICtrlCreateButton("Reset", 278, 65, 40, 20)
GUICtrlSetFont(-1, 10, 10, 0, "Times New Roman")
GUICtrlSetState(-1, $GUI_DISABLE)

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

;Inputfelder
Global $idTicket = GUICtrlCreateInput("Ticket-ID", 338, 35, 120, 20)
GUICtrlSetFont(-1, 10, 10, 1, "Times New Roman")
Global $idTicket1 = GUICtrlCreateInput("Ticket-ID", 338, 65, 120, 20)
GUICtrlSetFont(-1, 10, 10, 1, "Times New Roman")

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

GUISetState(@SW_SHOW)

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

ControlFocus("", "", $idButtonStart)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $idButtonStart
$seconds = GUICtrlRead($idInputStd) * 60 ^ 2 + GUICtrlRead($idInputMin) * 60 + GUICtrlRead($idInputSek) - 1
ConsoleWrite($seconds & @CRLF)
If $seconds > 0 Then
GUICtrlSetState($idButtonStart, $GUI_DISABLE)
GUICtrlSetState($idButtonStart, $GUI_DISABLE)
GUICtrlSetState($idUpdownStd, $GUI_DISABLE)
GUICtrlSetState($idUpdownMin, $GUI_DISABLE)
GUICtrlSetState($idUpdownSek, $GUI_DISABLE)
GUICtrlSetState($idButtonStop, $GUI_ENABLE)
AdlibRegister("Countdown1", 1000)
EndIf

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

Case $idButtonStart1 ; 2 Reihe
$seconds1 = GUICtrlRead($idInputStd1) * 60 ^ 2 + GUICtrlRead($idInputMin1) * 60 + GUICtrlRead($idInputSek1) - 1
ConsoleWrite($seconds1 & @CRLF)
If $seconds1 > 0 Then
GUICtrlSetState($idButtonStart1, $GUI_DISABLE)
GUICtrlSetState($idButtonStart1, $GUI_DISABLE)
GUICtrlSetState($idUpdownStd1, $GUI_DISABLE)
GUICtrlSetState($idUpdownMin1, $GUI_DISABLE)
GUICtrlSetState($idUpdownSek1, $GUI_DISABLE)
GUICtrlSetState($idButtonStop1, $GUI_ENABLE)
AdlibRegister("Countdown2", 1000)
EndIf

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

Case $idButtonStop
AdlibUnRegister("Countdown1")

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

GUICtrlSetState($idButtonStart, $GUI_ENABLE)
GUICtrlSetState($idButtonReset, $GUI_ENABLE)
GUICtrlSetState($idUpdownStd, $GUI_ENABLE)
GUICtrlSetState($idUpdownMin, $GUI_ENABLE)
GUICtrlSetState($idUpdownSek, $GUI_ENABLE)
GUICtrlSetState($idButtonStop, $GUI_DISABLE)

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

Case $idButtonStop1 ;2 Timer
AdlibUnRegister("Countdown2")
GUICtrlSetState($idButtonStart1, $GUI_ENABLE)
GUICtrlSetState($idButtonReset1, $GUI_ENABLE)
GUICtrlSetState($idUpdownStd1, $GUI_ENABLE)
GUICtrlSetState($idUpdownMin1, $GUI_ENABLE)
GUICtrlSetState($idUpdownSek1, $GUI_ENABLE)
GUICtrlSetState($idButtonStop1, $GUI_DISABLE)

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

Case $idButtonReset
GUICtrlSetData($idInputStd, 1)
GUICtrlSetData($idInputMin, 0)
GUICtrlSetData($idInputSek, 0)

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

Case $idButtonReset1 ; 2 Timer
GUICtrlSetData($idInputStd1, 1)
GUICtrlSetData($idInputMin1, 0)
GUICtrlSetData($idInputSek1, 0)

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

EndSwitch
WEnd

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

Func Countdown1()
Local $sec, $min, $hr
$sec = Mod($seconds, 60)
$min = Mod($seconds / 60, 60)
$hr = Floor($seconds / 60 ^ 2)
GUICtrlSetData($idInputStd, $hr)
GUICtrlSetData($idInputMin, $min)
GUICtrlSetData($idInputSek, $sec)
; GUICtrlSetData($idInputStd1, StringFormat("i", $hr))
; GUICtrlSetData($idInputMin1, StringFormat("i", $min))
; GUICtrlSetData($idInputSek1, StringFormat("i", $sec))
If $seconds <= 0 Then
AdlibUnRegister("Countdown1")
$Ticket = GUICtrlRead($idTicket)
MsgBox(0, "Timer", "Für das Ticket " & $Ticket & " muß eine Mail verschickt werden")
;Exit
EndIf
$seconds -= 1
EndFunc ;==>Countdown1

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

Func Countdown2()
Local $sec1, $min1, $hr1
$sec1 = Mod($seconds1, 60)
$min1 = Mod($seconds1 / 60, 60)
$hr1 = Floor($seconds1 / 60 ^ 2)
GUICtrlSetData($idInputStd1, $hr1)
GUICtrlSetData($idInputMin1, $min1)
GUICtrlSetData($idInputSek1, $sec1)
; GUICtrlSetData($idInputStd1, StringFormat("i", $hr1))
; GUICtrlSetData($idInputMin1, StringFormat("i", $min1))
; GUICtrlSetData($idInputSek1, StringFormat("i", $sec1))
If $seconds1 <= 0 Then
AdlibUnRegister("Countdown2")
$Ticket1 = GUICtrlRead($idTicket1)
MsgBox(0, "Timer2", "Für das Ticket " & $Ticket1 & " muß eine Mail verschickt werden")
;Exit
EndIf
$seconds1 -= 1
EndFunc ;==>Countdown2

[/autoit]

[autoit]

$rnd = random(1,5,1)
ConsoleWrite($rnd & @CRLF) ;nur zur Kontrolle

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

$sFunc = "_func" & $rnd
ConsoleWrite($sFunc & @CRLF) ;nur zur Kontrolle

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

Call($sFunc)

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

Func _func1()
MsgBox(0,"Func1","wurde aufgerufen")
EndFunc

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

Func _func2()
MsgBox(0,"Func2","wurde aufgerufen")
EndFunc

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

Func _func3()
MsgBox(0,"Func3","wurde aufgerufen")
EndFunc

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

Func _func4()
MsgBox(0,"Func4","wurde aufgerufen")
EndFunc

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

Func _func5()
MsgBox(0,"Func5","wurde aufgerufen")
EndFunc

[/autoit]

[autoit]

;Variante 4:

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

switch GuiCtrlRead($Input1)
Case "rot"
Funktion_1()
Case "gelb"
Funktion_2()
Case "grün"
Funktion_3()
Case Else
MsgBox(0, "Rückmeldung", "Auswertung kann nicht erfolgen. Bitte gebe eine der folgenden Farben ein: rot, gelb, grün.")
EndSwitch

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

func Funktion_1()
MsgBox(0, "Rückmeldung", "rot = anhalten.")
EndFunc

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

func Funktion_2()
MsgBox(0, "Rückmeldung", "gelb = gleich geht es los.")
EndFunc

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

func Funktion_3()
MsgBox(0, "Rückmeldung", "grün = los fahren bzw. schnell weiter fahren bevor ...")
EndFunc

[/autoit]

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=LV_ImageList.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ------------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: AutoBert: http://www.autoit.de/index.php?page…7402#post187402

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

Skriptbeispiel für den Umgang mit GUICtrlCreateListView, _GUICtrlListView_AddColumn, _GUICtrlListView_AddItem,
_GUICtrlListView_AddSubItem, _GUICtrlListView_SetImageList, _GUIImageList_AddIcon, _GUIImageList_GetImageCount
#ce -------------------------------------------------------------------------------------------------------------------------
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <File.au3>

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

#cs
[0]|10
[1]|c:\Dokumente und Einstellungen\Bert\Eigene Dateien\beetle.icl
[2]|c:\Dokumente und Einstellungen\Bert\Eigene Dateien\beetle3.icl
[3]|c:\Programme\AutoIt3\123\Lessons\IconSet.icl
[4]|c:\Programme\AutoIt3\Downloads\Eukalyptus\Recorder\Record.icl
[5]|c:\Programme\AutoIt3\Downloads\nuts\Icon-Prob\dll\Icons\IconLib.icl
[6]|c:\Programme\AutoIt3\Downloads\nuts\Icon-Prob\dll\Icons\Stop.icl
[7]|c:\Programme\AutoIt3\Downloads\nuts\Icon-Prob\dll\Icons\StopLib\Stop.icl
[8]|c:\Programme\AutoIt3\Downloads\Oscar\LoginBox\icons.icl
[9]|c:\Programme\AutoIt3\MyProjects\DB-ListView\Flaggs.icl
[10]|c:\Programme\AutoIt3\MyProjects\DB-ListView\Test.icl

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

compstui.dll|7 Licht aus|8 Licht ein|83 Telefon|95 Fax
cryptui.dll|
dot3ui.dll|1 Info
filemgmt.dll|1 Hinweis
msrating.dll.dll|10 OK(rund)11 abbrechen(rund)
mmcndmgr.dll|9 abbrechen|14 Uhr|44 Lupe
#ce
Opt('MustDeclareVars', 1)

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

Global $hGui, $listview, $hListview, $hImage, $b, $iCount,$iWidth = @DesktopWidth, $iHeight = @DesktopHeight -80
Global $Combo, $Progress, $Label,$aFile, $sDLLName, $Msg, $sTitel = "Icon-Übersicht "
Local $exStyles = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)
$hGui = GUICreate($sTitel & $sDLLName, $iWidth, $iHeight, 0, 0)
$Combo = GUICtrlCreateCombo("", 2, 2, 120)
$Progress = GUICtrlCreateProgress(125, 2, $iWidth -137,25)
;$Label = GUICtrlCreateLabel("TEST",330,2,200)
$aFile = _FileListToArray(@SystemDir, "*.DLL")

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

$listview = GUICtrlCreateListView("", 2, 42, $iWidth-4, $iHeight - 44, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
$hListview = ControlGetHandle($hGui, "", $listview)
_GUICtrlListView_SetExtendedListViewStyle($listview, $exStyles)
For $i = 1 To 8
; Fügt die Spalten hinzu
_GUICtrlListView_AddColumn($listview, "Spalte " & $i, 120)
Next
GUISetState()
For $i = 1 To $aFile[0]
If _LoadIcons($aFile[$i]) > 0 Then GUICtrlSetData($Combo, $aFile[$i])
GUICtrlSetData($Progress, 100- ($i / $aFile[0] * 100))
;GUICtrlSetData($Label,$i & " / " & $aFile[0])
Next
GUICtrlSetData($Combo, "shell32.dll", "shell32.dll")
_showIcons("shell32.dll")

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

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo
$sDLLName = GUICtrlRead($Combo)
_showIcons($sDLLName)
EndSwitch
WEnd

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

Func _showIcons($sDLLName)
Local $iSpalten, $iZeilen, $iBilder
_GUICtrlListView_DeleteAllItems($hListview)
$iCount = _LoadIcons($sDLLName)
WinSetTitle($hGui,"",$sTitel & $sDLLName)
;ConsoleWrite($sDLLName & " " & $iCount & @CRLF)
_GUICtrlListView_SetImageList($listview, $hImage, 1)

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

$iBilder = -1
For $iZeilen = 1 To Int(($iCount - 1) / + 1
$iBilder += 1
; Fügt die Items hinzu
_GUICtrlListView_AddItem($listview, "Bild: " & $iBilder, $iBilder)
For $iSpalten = 1 To 7
$iBilder += 1
; fügt die SubItems hinzu
_GUICtrlListView_AddSubItem($listview, $iZeilen - 1, "Bild: " & $iBilder, $iSpalten, $iBilder)
Next
Next
EndFunc ;==>_showIcons

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

Func _LoadIcons($sDLLName)
Local $iCount, $iBilder, $iError
Static $iGesamt
_GUIImageList_Destroy($hImage)

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

; Lädt die Bilder
$hImage = _GUIImageList_Create(32, 32, 5, 3, 128, 256)
_GUIImageList_AddIcon($hImage, @SystemDir & "\" & $sDLLName, 0,True)
$iBilder = 1
Do
$iError = _GUIImageList_AddIcon($hImage, @SystemDir & "\" & $sDLLName, $iBilder,True)
$iBilder += 1
Until $iError <= 0
$iCount = _GUIImageList_GetImageCount($hImage)
$iGesamt += $iCount
if $iCount <> 0 Then ConsoleWrite($sDLLName & " " & $iCount & " " & $iGesamt & @CRLF)
Return $iCount
EndFunc ;==>_LoadIcons

[/autoit]