Die Variante zum Befüllen war mir noch zu lang. 
Hier die ganz kurze Variante:
[autoit]Local $hh = 8
For $i = 0 To 32
GUICtrlSetData(-1, StringReplace(StringFormat('%02d:%02d-%02d:%02d', $hh, Mod($i,2)*30, $hh+Mod($i,2), Mod($i+1,2)*30), '24', '00'))
$hh += Mod($i,2)
Next
Damit die ergebnisse ordentlich in einer tabelle aufgelistet werden
Dann verwende ein Listview, wozu extra ein Excel-Dokument erstellen. 
Übrigens: Verwende kein Koda, kommt eh nur Mist bei raus: Deine Combo hat den Variablennamen "$Label1" :wacko:
Und schau dir mal Schleifen an. Hier zeig ich dir, wie du mit wesentlich weniger Aufwand die Combo befüllen kannst (Übrigens gibt es keine Uhrzeit "24 Uhr" - Das ist dann "0 Uhr" ;)):
Local $hh = 8, $mm = 0, $sTime1, $sTime2
For $i = 1 To 33
$sTime1 = StringFormat('%02d:%02d', $hh, $mm)
If $mm = 30 Then
$mm = 0
$hh += 1
If $hh = 24 Then $hh = 0
Else
$mm = 30
EndIf
$sTime2 = StringFormat('%02d:%02d', $hh, $mm)
GUICtrlSetData (-1, $sTime1 & '-' & $sTime2)
Next
Bin kein Spezialist in dem Bereich. Soweit ich das gelesen habe, ist es eine "Overridable ReadOnly Property". Überschreibbar in Kombination mit Nur-Lesen läßt vermuten, dass das Überschreiben an gewisse Sicherheitsbedingungen geknüpft ist.
EdgeTraversal
Laut Microsoft ist dieses eine "ReadOnly-Property" - das sollte klären, weshalb du keinen Wert setzen kannst.
Mit Koda zu arbeiten ist vielleicht für den Anfang hilfreich, aber trotzdem nicht zu empfehlen. Dabei lernst du nichts und hast auch keine reale Vorstellung von den einzelnen Komponenten - also: selber machen.
Zumal hier kaum jemand Koda nutzt und somit diesbezügliche Fragen kaum eine keine Klärung finden werden.
Das kommt bei DEINEM Add Beispiel Raus ( hab auch ein eigenes mal gemacht, das ging auch nicht )
Woran liegt das? Geht das nur mit der neusten AutoIt Version? Oder nicht unter Win7?
WAS hast du denn genau gemacht? Ich habe unter Win 7 die Dll's erstellt - funktioniert tadellos.
Schau z.B. meinen editierten ersten Post hier an - dort habe ich ein eigenes Bsp. erstellt.
Ist es wirklich so, dass wenn ich hier UDFS oder nützliche Skripts(Ich hätte welche, eins auf jeden Fall) präsentieren möchte, ich dazu verpflichtet bin, diesen Standardstiel zu verwenden?
Nein, wenn du UDF erstellst und meinst diese sollten in die AutoIt-Includes übernommen werden, dann hast du dich an die Vorgaben zu halten, die du genau auf autoitscript.com nachlesen kannst.
Für das Posten hier besteht keine Pflicht zur Notation. Wichtig ist, dass der Code in sich schlüssig und für jeden nachvollziehbar ist.
Prima Sache, ist gebookmarked. 
Nun brauch ich mich nicht mehr mit C++ quälen. Das Prozedere ist hier doch wesentlich einfacher.
EDIT
Also das geht ja wirklich super!
Dank eukalyptus als Tutor habe ich nun meine erste DLL erstellt.
- Damit wird geprüft ob ein Punkt (absolute Koordinate) innerhalb eines RECT (relative Koordinate auf GUI) auf einer GUI liegt, die GUI muß dabei aktiv sein.
- Statt der Punkt-Koordinaten kann "-1" übergeben werden - dann wird die aktuelle Cursor-Position verwendet.
#Include Once "windows.bi"
Extern "Windows-MS"
Function _PtInRectRelative(hGui As HWND, iX As Integer, iY As Integer, iL As Integer, iT As Integer, iW As Integer, iH As Integer)As Integer Export
Dim aMetrics(5) As Single
Dim iMTop As Integer
Dim iMLeft As Integer
Dim As RECT tRect
Dim As RECT tRectW
Dim As Point tPoint
If iX = -1 Or iY = -1 Then
GetCursorPos(@tPoint)
Else
tPoint.X = iX
tPoint.Y = iY
EndIf
If GetActiveWindow() <> hGui Then Return FALSE
GetWindowRect(hGui, @tRectW)
' $SM_CYCAPTION = 4, $SM_CYEDGE = 46, $SM_CYBORDER = 6, $SM_CXBORDER = 5, $SM_CXEDGE = 45
aMetrics(0) = GetSystemMetrics(4)
aMetrics(1) = GetSystemMetrics(46)
aMetrics(2) = GetSystemMetrics(6)
aMetrics(3) = GetSystemMetrics(5)
aMetrics(4) = GetSystemMetrics(45)
iMTop = aMetrics(0) + aMetrics(1) + aMetrics(2)
iMLeft = aMetrics(3) + aMetrics(4)
tRect.Left = tRectW.Left + iL + iMLeft
tRect.Top = tRectW.Top + iT + iMTop
tRect.Right = tRectW.Left + iL + iW + iMLeft
tRect.Bottom = tRectW.Top + iT + iH + iMTop
If PtInRect(@tRect, tPoint) Then
Return TRUE
Else
Return FALSE
EndIf
End Function
End Extern$hDll = DllOpen("PFAD_zur_DLL")
[/autoit] [autoit][/autoit] [autoit]$gui = GUICreate('Test')
GUICtrlCreateLabel('', 25, 20, 250, 200)
GUICtrlSetBkColor(-1, 0x006400)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
DllClose($hDll)
Exit
Case $GUI_EVENT_PRIMARYDOWN
;~ $aMouse = MouseGetPos()
;~ $ret = DllCall($hDll, 'int', '_PtInRectRelative', 'hwnd', $gui, 'int', $aMouse[0], 'int', $aMouse[1], 'int', 25, 'int', 20, 'int', 250, 'int', 200)
$ret = DllCall($hDll, 'int', '_PtInRectRelative', 'hwnd', $gui, 'int', -1, 'int', -1, 'int', 25, 'int', 20, 'int', 250, 'int', 200)
ConsoleWrite($ret[0] & @CRLF)
EndSwitch
WEnd
Für reale Controls, wie im Bsp. das Label, gibt es auch andere Möglicgkeiten für diesen Check. Aber wenn man gezeichnete Flächen prüfen will ist diese Variante optimal.
Eine (deutlich größere) Variante mit Graphics gibt es im engl. Forum.
Kannst du mal den Link posten? Habe bei meiner Suche nichts entdeckt, bin mir aber auch nicht sicher unter welchen Begriffen Vergleichbares dort gepostet sein könnte.
Der King des Array's erweitert sein Königreich
Da gebührt der meiste Dank dem Lehrmeister UEZ 
. Ohne seine Beispiele und tatkräftige Hilfe hätte sich mir diese Thematik wohl nicht erschlossen.
Wenn man beim erstem Control die Strichstärke auf 2 oder mehr erhöht, dann sieht man auch beim zweiten Control eine Veränderung.
Außerdem wollte ich fragen wofür man denn die Density braucht? Kann man die nicht aus Größe des Controls und Laufzeit (EpochTime) errechnen?
OK, das mit der Pinselstärke muss ich nochmal nachschauen.
Zur Density: Ich hatte das aus einem Bsp. von UEZ nachgebaut und diesen Parameter übernommen. Muß ich tatsächlich nochmal unter die Lupe nehmen, inwiefern das erforderlich ist. War auch schon reichlich spät (oder früh ;)) als ich damit fertig wurde.
Zumal man "um die Ecke" denken muss.
Das ist wohl wahr :D. Aber wenn man es ein paar mal gemacht hat, kennt man die Fallstricke.
Es gibt ja so einige Lösungen, die durchaus als einzelne Controls existiren könnten - wenn sie diese Basis-Funktionalität aufweisen würden:
- ansprechbar über ID mit GuiGetMsg und GuiCtrlSetOnEvent
- keine extra StartUps/ShutDowns und Nachrichtenverwaltung
Auch die GDIPlus-UDF weist ja unnütze Funktionen auf. So ließen sich .._StartUp() und .._ShutDown() problemlos einsparen, indem man diese Funktionen ausschließlich intern nutzt und über die Kontrolle der (nicht)gestarteten GDIPlus Dll ..StartUp und bei AutoItExit ..ShutDown ausführt.
Genau das habe ich hier im Control auch getan. 
Ansonsten freut es mich natürlich, wenn ihr damit was anfangen könnt. Bei mir ist es eigentlich als "Abfall" in einem Projekt entstanden. Ich wollte die Lösung nicht nur projektbezogen und habe deshalb ein allein "lebensfähiges" Control erstellt.
Raupi
Keine Ahnung, wie du den Fehler produzierst.
Wenn das Control erstellt wird, passiert folgendes:
- wenn GDI nicht gestartet, wird es gestartet
- es wird geprüft, ob für die angegebene GUI bereits ein Buffer erstellt wurde, wenn nicht wird dieser erstellt
Das passiert hier:
Local $oBuffer = ObjCreate('Scripting.Dictionary')
__GraphCreateBuffer($_hGui, $oBuffer) ; <== $oBuffer wird ByRef übergeben und dann befüllt
Beim 'Befüllen' tritt bei dir der Fehler auf.
Das ist aber eigentlich schlichtweg unmöglich, mir ist kein Zustand bekannt, indem einem Dictionary kein Wert zugewiesen werden kann, wenn der Schlüssel valid ist. Werte können Handle sein - nur als Schlüssel lassen sie sich nicht verwenden.
Also: es ist sachlich alles richtig, aber dein AutoIt sieht das wohl anders...
Dieses GDIPlus basierte Control erlaubt die zeitliche grafische Darstellung von Werten.
Beim Erstellen wird eine ID zurückgegeben, die wie üblich mit GuiGetMsg oder GuiCtrlSetOnEvent genutzt werden kann.
Relevante Parameter sind:
• Koordinaten auf der GUI, Breite und Höhe des Controls
• Epochendauer in Sekunden (Zeit für einen kompletten Durchlauf des Controls), unterhalb 10 s ist dieser Wert jedoch nicht genau erreichbar
• Darstellungsdichte (auf wieviel Pixel wird ein Wert abgebildet)
• Farben der einzelnen Controlelemente
Verfügbare Funktionen und Events:
• _GraphCtrl_Create
Erstellen des Controls
• _GraphCtrl_VScaleSet
Vertikale Skalierung od. deaktivieren
• _GraphCtrl_HScaleSet
Horizontale Skalierung od. deaktivieren
• _GraphCtrl_SetColor
Farben ändern für einzelnes Control-Element
• _GraphCtrl_SetDensity
Darstellungsdichte ändern
• _GraphCtrl_SetHelpline
Hilfslinien setzen od. deaktivieren
Mit Mausklick (links, mitte, rechts) auf das Control sind mit GuiCtrlRead(ID) folgende Ereignisse auswertbar:
• $WM_LBUTTONDOWN
• $WM_LBUTTONUP
• $WM_RBUTTONDOWN
• $WM_RBUTTONUP
• $WM_MBUTTONDOWN
• $WM_MBUTTONUP
#Region - TimeStamp
; 2012-08-20 01:01:16 v 0.2
#EndRegion - TimeStamp
#cs
[/autoit] [autoit][/autoit] [autoit]- Grafische Darstellung eines sich ändernden (Meß)Wertes
- "Aktualisierungsfenster" läuft von links nach rechts über den Darstellungsbereich und überschreibt alte Werte mit den neuen
Funktionsübersicht:
_GraphCtrl_Create
_GraphCtrl_VScaleSet
_GraphCtrl_HScaleSet
_GraphCtrl_SetColor
_GraphCtrl_SetDensity
_GraphCtrl_SetHelpline
Events:
ID ist mit GuiGetMsg oder GuiCtrlSetOnEvent zu verwenden.
Mit GuiCtrlRead(ID) sind folgende Ereignisse auswertbar:
$WM_LBUTTONDOWN
$WM_LBUTTONUP
$WM_RBUTTONDOWN
$WM_RBUTTONUP
$WM_MBUTTONDOWN
$WM_MBUTTONUP
#ce
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include-once
#Include <GDIPlus.au3>
#include <WinAPI.au3>
#include <Timers.au3>
#Include <WindowsConstants.au3>
OnAutoItExitRegister('__GraphCtrlDispose')
Global $__aDC[1][2] = [[0]] ; == Manage Buffers
Global $__aGraphCtrl[1][5] = [[0]] ; == Manage Controls
Global Const $__HC_ACTION = 0
Global $__MOUSEPROC_ACTIVE = 0
Global $__hSTUB__MouseProcGraph, $__hMOD_GRAPH, $__hHOOK_MOUSE_GRAPH
Global $__iTop, $__iLeft
_SystemGetWindowBorder($__iTop, $__iLeft)
;===============================================================================
; Function Name....: _GraphCtrl_Create
; Description......: Creates an Graph Control, starts mouse procedure and GDIplus, if required
; Parameter(s).....: $_hGui GUI-Handle there control will create
; .................: $_iX x-Position on GUI
; .................: $_iY y-Position on GUI
; .................: $_iW Control width
; .................: $_iH Control heighth
; .................: $_iEpochTime Time in seconds to draw graph over full width (default=10s)
; .................: $_iDensity Count of value points by pixel (default=0.25)
; .................: $_iPenWidth Width of pen (takes effect for graph and axes)
; .................: $_iARGB_BG Color background
; .................: $_iARGB_Graph Color graph
; .................: $_iARGB_Axes Color axes
; .................: $_iARGB_PreDraw Color
; .................: $_iARGB_Help
; Return Value(s)..: Control ID, to use with GuiGetMsg or GuiCtrlSetOnEvent
; .................: With GuiCtrlRead(ID) you can get events: $WM_LBUTTONDOWN, $WM_LBUTTONUP, $WM_RBUTTONDOWN, $WM_RBUTTONUP, $WM_MBUTTONDOWN, $WM_MBUTTONUP
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_Create($_hGui, $_iX, $_iY, $_iW, $_iH, $_iEpochTime=10, $_iDensity=0.25, $_iPenWidth=1, $_iARGB_BG=0xFF006400, $_iARGB_Graph=0xFFFFD700, $_iARGB_Axes=0xFFFFFFFF, $_iARGB_PreDraw=0xFFFFFFFF, $_iARGB_Help=0xFF22AA22)
If $__MOUSEPROC_ACTIVE = 0 Then __GraphCtrl_Startup()
If $_iDensity = -1 Then $_iDensity = 0.25
If $_iPenWidth = -1 Then $_iPenWidth = 1
__ObjBufferRegister($_hGui)
Local $oCtrl = ObjCreate('Scripting.Dictionary')
With $oCtrl
.Add('X' , $_iX)
.Add('Y' , $_iY)
.Add('W' , $_iW)
.Add('H' , $_iH)
.Add('EpochTime' , $_iEpochTime)
.Add('Intervall' , $_iEpochTime * 1000 / $oCtrl.Item('W') / $_iDensity)
.Add('TimeStamp' , 0)
.Add('Density' , $_iDensity)
.Add('PenWidth' , $_iPenWidth)
.Add('BrushBG' , _GDIPlus_BrushCreateSolid($_iARGB_BG))
.Add('PenGraph' , _GDIPlus_PenCreate($_iARGB_Graph, $_iPenWidth))
.Add('PenPredraw' , _GDIPlus_PenCreate($_iARGB_PreDraw))
.Add('PenHelp' , _GDIPlus_PenCreate($_iARGB_Help))
.Add('PenAxes' , _GDIPlus_PenCreate($_iARGB_Axes, $_iPenWidth))
.Add('First' , True)
.Add('CoordIndex' , 1)
.Add('UB' , 1)
EndWith
Local $aCoord[Int($oCtrl.Item('W') * $oCtrl.Item('Density'))][2]
$oCtrl.Item('UB') = UBound($aCoord)
Local $aHelpLine[1] = [0]
Local $aCtrl[3] = [$oCtrl, $aCoord, $aHelpLine]
Local $aVScale[1] = [0]
Local $aHScale[1] = [0]
Local $iDummy = GUICtrlCreateDummy()
$__aGraphCtrl[0][0] += 1
ReDim $__aGraphCtrl[$__aGraphCtrl[0][0] +1][5]
$__aGraphCtrl[$__aGraphCtrl[0][0]][0] = $iDummy
$__aGraphCtrl[$__aGraphCtrl[0][0]][1] = $aCtrl
$__aGraphCtrl[$__aGraphCtrl[0][0]][2] = $_hGui
$__aGraphCtrl[$__aGraphCtrl[0][0]][3] = $aVScale
$__aGraphCtrl[$__aGraphCtrl[0][0]][4] = $aHScale
Return $iDummy
EndFunc ;==>_GraphCtrl_Create
;===============================================================================
; Function Name....: _GraphCtrl_VScaleSet
; Description......: Sets vertical scale for graph control or deactivate scaling
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_fActive Scaling vertical is active (default=1)
; .................: $_vVal String or Array with pixel values to set as scale, -1 (default) ignores this param
; .................: $_iStepPercent Value in percent for every step in scale, -1 (default) sets it to 10
; Return Value(s)..: Nothing
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_VScaleSet($_iID, $_fActive=1, $_vVal=-1, $_iStepPercent=-1)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $aVScale = $__aGraphCtrl[$iIndexCtrl][3]
Local $oCtrl = $aCtrl[0]
Local $sVal, $iCount, $iStep
If $_fActive = 0 Then
Local $aTmp[1] = [0]
$__aGraphCtrl[$iIndexCtrl][3] = $aTmp
Return
EndIf
If $_vVal = -1 Then
If $_iStepPercent = -1 Then $_iStepPercent = 10
If $_iStepPercent > 50 Then $_iStepPercent = 50
$iCount = Int(100 / $_iStepPercent)
$iStep = $oCtrl.Item('H') / $iCount
ReDim $aVScale[$iCount +1]
$aVScale[0] = $iCount
For $i = 1 To $aVScale[0]
$aVScale[$i] = $i * $iStep
Next
$__aGraphCtrl[$iIndexCtrl][3] = $aVScale
Else
If IsArray($_vVal) Then
ReDim $aVScale[UBound($_vVal) +1]
$aVScale[0] = UBound($_vVal)
For $i = 0 To $aVScale[0] -1
$aVScale[$i +1] = $_vVal[$i]
Next
$__aGraphCtrl[$iIndexCtrl][3] = $aVScale
Else
$__aGraphCtrl[$iIndexCtrl][3] = StringSplit($_vVal, ',')
EndIf
EndIf
EndFunc ;==>_GraphCtrl_VScaleSet
;===============================================================================
; Function Name....: _GraphCtrl_HScaleSet
; Description......: Sets horizontal scale for graph control or deactivate scaling
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_fActive Scaling horizontal is active (default=1)
; .................: $_fSeconds Use count of epoche time for scaling (default=1), ignore with 0
; .................: $_vVal String or Array with pixel values to set as scale, -1 (default) ignores this param
; .................: $_iStepPercent Value in percent for every step in scale, -1 (default) sets it to 10
; Return Value(s)..: Nothing
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_HScaleSet($_iID, $_fActive=1, $_fSeconds=1, $_vVal=-1, $_iStepPercent=-1)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $aHScale = $__aGraphCtrl[$iIndexCtrl][4]
Local $oCtrl = $aCtrl[0]
Local $sVal, $iCount, $iStep
If $_fActive = 0 Then
Local $aTmp[1] = [0]
$__aGraphCtrl[$iIndexCtrl][4] = $aTmp
Return
EndIf
If $_fSeconds = 1 Then
$iCount = $oCtrl.Item('EpochTime')
$iStep = $oCtrl.Item('W') / $iCount
ReDim $aHScale[$iCount +1]
$aHScale[0] = $iCount
For $i = 1 To $aHScale[0]
$aHScale[$i] = $i * $iStep
Next
$__aGraphCtrl[$iIndexCtrl][4] = $aHScale
ElseIf $_vVal = -1 Then
If $_iStepPercent = -1 Then $_iStepPercent = 10
If $_iStepPercent > 50 Then $_iStepPercent = 50
$iCount = Int(100 / $_iStepPercent)
$iStep = $oCtrl.Item('W') / $iCount
ReDim $aHScale[$iCount +1]
$aHScale[0] = $iCount
For $i = 1 To $aHScale[0]
$aHScale[$i] = $i * $iStep
Next
$__aGraphCtrl[$iIndexCtrl][4] = $aHScale
Else
If IsArray($_vVal) Then
ReDim $aHScale[UBound($_vVal) +1]
$aHScale[0] = UBound($_vVal)
For $i = 0 To $aHScale[0] -1
$aHScale[$i +1] = $_vVal[$i]
Next
$__aGraphCtrl[$iIndexCtrl][4] = $aHScale
Else
$__aGraphCtrl[$iIndexCtrl][4] = StringSplit($_vVal, ',')
EndIf
EndIf
EndFunc ;==>_GraphCtrl_HScaleSet
;===============================================================================
; Function Name....: _GraphCtrl_SetColor
; Description......: Sets horizontal scale for graph control or deactivate scaling
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_sParam Parameter, whose value are to be changed, may be:
; .................: BrushBG
; .................: PenGraph
; .................: PenPredraw
; .................: PenHelp
; .................: PenAxes
; .................: $_iARGB Color (ARGB) for selected param
; Return Value(s)..: 0 and @error=1 if $_sParam not exists
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_SetColor($_iID, $_sParam, $_iARGB)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $oCtrl = $aCtrl[0]
If Not $oCtrl.Exists($_sParam) Then Return SetError(1,0,0)
If $_sParam = 'BrushBG' Then
_GDIPlus_BrushDispose($oCtrl.Item($_sParam))
$oCtrl.Item($_sParam) = _GDIPlus_BrushCreateSolid($_iARGB)
Else
_GDIPlus_PenDispose($oCtrl.Item($_sParam))
Local $iWidth = 1
If $_sParam = 'PenGraph' Or $_sParam = 'PenAxes' Then $iWidth = $oCtrl.Item('PenWidth')
$oCtrl.Item($_sParam) = _GDIPlus_PenCreate($_iARGB, $iWidth)
EndIf
$aCtrl[0] = $oCtrl
$__aGraphCtrl[$iIndexCtrl][1] = $aCtrl
EndFunc ;==>_GraphCtrl_SetColor
;===============================================================================
; Function Name....: _GraphCtrl_SetDensity
; Description......: Sets density of drawing as value points by pixel
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_iDensity Density of drawing (default=0.25)
; Return Value(s)..: Nothing
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_SetDensity($_iID, $_iDensity=0.25)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
Local $oBuffer = __GetBuffer($__aGraphCtrl[$iIndexCtrl][2])
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $oCtrl = $aCtrl[0]
$oCtrl.Item('Density') = $_iDensity
$oCtrl.Item('Intervall') = $oCtrl.Item('EpochTime') * 1000 / $oCtrl.Item('W') / $_iDensity
$oCtrl.Item('TimeStamp') = 0
Local $aCoord[Int($oCtrl.Item('W') * $_iDensity)][2]
$oCtrl.Item('UB') = UBound($aCoord)
$oCtrl.Item('First') = True
$oCtrl.Item('CoordIndex') = 1
_GDIPlus_GraphicsFillRect($oBuffer.Item('Context'), 0, 0, $oCtrl.Item('W'), $oCtrl.Item('H'), $oCtrl.Item('BrushBG'))
$aCtrl[0] = $oCtrl
$aCtrl[1] = $aCoord
$__aGraphCtrl[$iIndexCtrl][1] = $aCtrl
EndFunc ;==>_GraphCtrl_SetColor
;===============================================================================
; Function Name....: _GraphCtrl_SetHelpline
; Description......: Sets or deactivates horizontal helplines
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_iCount Count of help lines (without closing line on top), 0 deactivates showing
; .................: $_vVal String or Array with pixel values to set
; Return Value(s)..: 0 and @error=1 if no valid value for $_iCount or $_vVal passed
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_SetHelpline($_iID, $_iCount=1, $_vVal='')
If $_iCount < 0 And $_vVal = '' Then Return SetError(1,0,0)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
If $iIndexCtrl = -1 Then Return SetError(2,0,0)
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $oCtrl = $aCtrl[0]
If $_vVal <> '' Then
If IsArray($_vVal) Then
Local $aPoints[UBound($_vVal)+1] = [UBound($_vVal)]
For $i = 1 To $aPoints[0]
$aPoints[$i] = $oCtrl.Item('H') - $_vVal[$i -1]
Next
Else
Local $aPos = StringSplit($_vVal, ','), $aPoints[$aPos[0]+1] = [$aPos[0]]
For $i = 1 To $aPos[0]
$aPoints[$aPos[0] +1 -$i] = $oCtrl.Item('H') - $aPos[$i]
Next
EndIf
Else
If $_iCount = 0 Then
Local $aPoints[1] = [0]
Else
Local $iStep = Int( $oCtrl.Item('H') / ($_iCount +1))
Local $aPoints[$_iCount +2] = [$_iCount +1]
For $i = 1 To $_iCount
$aPoints[$_iCount +1 -$i] = $oCtrl.Item('H') - ($i * $iStep)
Next
EndIf
EndIf
$aCtrl[2] = $aPoints
$__aGraphCtrl[$iIndexCtrl][1] = $aCtrl
EndFunc ;==_GraphCtrl_SetHelpline
;===============================================================================
; Function Name....: _GraphCtrl_Draw
; Description......: Draw the graph with parameters from creation by passed value.
; .................: Draws value by value from left to right and starts again from left if end is reached.
; .................: Older values will overwritten.
; Parameter(s).....: $_iID Control ID, you've gotten from _GraphCtrl_Create
; .................: $_iVal Current value to draw
; Return Value(s)..: Nothing
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _GraphCtrl_Draw($_iID, $_iVal)
Local $iIndexCtrl = __GraphCtrl_GetIndex($_iID)
Local $oBuffer = __GetBuffer($__aGraphCtrl[$iIndexCtrl][2])
Local $aCtrl = $__aGraphCtrl[$iIndexCtrl][1]
Local $aVScale = $__aGraphCtrl[$iIndexCtrl][3]
Local $aHScale = $__aGraphCtrl[$iIndexCtrl][4]
Local $oCtrl = $aCtrl[0]
Local $aCoord = $aCtrl[1]
Local $aHelpLine = $aCtrl[2]
Local $n = $oCtrl.Item('CoordIndex')
Local $iStamp = $oCtrl.Item('TimeStamp')
If $iStamp = 0 Or _Timer_Diff($iStamp) >= $oCtrl.Item('Intervall') Then
$oCtrl.Item('TimeStamp') = _Timer_Init()
_GDIPlus_GraphicsFillRect($oBuffer.Item('Context'), 0, 0, $oCtrl.Item('W'), $oCtrl.Item('H'), $oCtrl.Item('BrushBG')) ; == Background
If $aHelpLine[0] > 0 Then
For $i = 1 To $aHelpLine[0]
_GDIPlus_GraphicsDrawLine($oBuffer.Item('Context'), 0, $aHelpLine[$i], $oCtrl.Item('W'), $aHelpLine[$i], $oCtrl.Item('PenHelp')) ; == Help lines
Next
EndIf
If $aVScale[0] > 0 Then ; == vert. scaling
For $i = 1 To $aVScale[0]
_GDIPlus_GraphicsDrawLine($oBuffer.Item('Context'), 0, $oCtrl.Item('H') -$aVScale[$i], 5, $oCtrl.Item('H') -$aVScale[$i], $oCtrl.Item('PenAxes'))
Next
EndIf
If $aHScale[0] > 0 Then ; == horiz. scaling
For $i = 1 To $aHScale[0]
_GDIPlus_GraphicsDrawLine($oBuffer.Item('Context'), $aHScale[$i], $oCtrl.Item('H'), $aHScale[$i], $oCtrl.Item('H') -5, $oCtrl.Item('PenAxes'))
Next
EndIf
$aCoord[$n][0] = $n / $oCtrl.Item('Density')
$aCoord[$n][1] = $_iVal
_GDIPlus_GraphicsDrawLines($oBuffer.Item('Context'), $aCoord, $oCtrl.Item('PenGraph')) ; == Graph
_GDIPlus_GraphicsDrawLine ($oBuffer.Item('Context'), $aCoord[$n][0] -1, 0 , $aCoord[$n][0] , $oCtrl.Item('H'), $oCtrl.Item('PenPredraw')) ; == Pre drawed line
_GDIPlus_GraphicsDrawLine ($oBuffer.Item('Context'), 0 , $oCtrl.Item('H'), $oCtrl.Item('W'), $oCtrl.Item('H'), $oCtrl.Item('PenAxes')) ; == X-Axis
_GDIPlus_GraphicsDrawLine ($oBuffer.Item('Context'), 0 , 0 , 0 , $oCtrl.Item('H'), $oCtrl.Item('PenAxes')) ; == Y-Axis
_GDIPlus_GraphicsDrawImage($oBuffer.Item('Graphics'), $oBuffer.Item('Bitmap'), $oCtrl.Item('X'), $oCtrl.Item('Y')) ; == Backbuffer
[/autoit] [autoit][/autoit] [autoit]$n += 1
Select
Case $n < $oCtrl.Item('UB') And $oCtrl.Item('First')
$aCoord[0][0] = $n
Case $n = $oCtrl.Item('UB')
$n = 1
If $oCtrl.Item('First') Then $oCtrl.Item('First') = False
EndSelect
$oCtrl.Item('CoordIndex') = $n
$aCtrl[0] = $oCtrl
$aCtrl[1] = $aCoord
$aCtrl[2] = $aHelpLine
$__aGraphCtrl[$iIndexCtrl][1] = $aCtrl
EndIf
EndFunc ;==>_GraphCtrl_Draw
#region - Internal Functions
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func __GraphCtrl_Startup()
$__MOUSEPROC_ACTIVE = 1
If $ghGDIPDll = 0 Then _GDIPlus_Startup()
$__hSTUB__MouseProcGraph = DllCallbackRegister("__MouseProcGraph", "long", "int;wparam;lparam")
$__hMOD_GRAPH = _WinAPI_GetModuleHandle(0)
$__hHOOK_MOUSE_GRAPH = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($__hSTUB__MouseProcGraph), $__hMOD_GRAPH)
EndFunc
Func _GDIPlus_GraphicsDrawLines($hGraphics, $aPoints, $hPen) ; == by UEZ
Local $iI, $iCount, $pPoints, $tPoints, $aResult
$iCount = $aPoints[0][0]
$tPoints = DllStructCreate("float[" & $iCount * 2 & "]")
$pPoints = DllStructGetPtr($tPoints)
For $iI = 1 To $iCount
DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1)
DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2)
Next
$aResult = DllCall($ghGDIPDll, "uint", "GdipDrawLines", "handle", $hGraphics, "handle", $hPen, "ptr", $pPoints, "int", $iCount)
Return 1
EndFunc ;==>_GDIPlus_GraphicsDrawLines
Func __GraphCtrlDispose()
_WinAPI_UnhookWindowsHookEx($__hHOOK_MOUSE_GRAPH)
DllCallbackFree($__hSTUB__MouseProcGraph)
If $ghGDIPDll = 0 Then Return
; == Dispose by Ctrl
Local $aTmp, $oTmp
For $i = 1 To $__aGraphCtrl[0][0]
$aTmp = $__aGraphCtrl[$i][1]
$oTmp = $aTmp[0]
_GDIPlus_BrushDispose($oTmp.Item('BrushBG'))
_GDIPlus_PenDispose ($oTmp.Item('PenGraph'))
_GDIPlus_PenDispose ($oTmp.Item('PenPredraw'))
_GDIPlus_PenDispose ($oTmp.Item('PenAxes'))
Next
; == Dispose by Buffer
For $i = 1 To $__aDC[0][0]
$oTmp = $__aDC[$i][1]
_GDIPlus_BitmapDispose ($oTmp.Item('Bitmap'))
_GDIPlus_GraphicsDispose($oTmp.Item('Graphics'))
_GDIPlus_GraphicsDispose($oTmp.Item('Context'))
Next
_GDIPlus_Shutdown()
EndFunc ;==>__GraphCtrlDispose
Func __ObjBufferRegister($_hGui)
If $__aDC[0][0] > 0 Then
For $i = 1 To $__aDC[0][0]
If $__aDC[$i][0] = $_hGui Then Return
Next
EndIf
Local $oBuffer = ObjCreate('Scripting.Dictionary')
__GraphCreateBuffer($_hGui, $oBuffer)
$__aDC[0][0] += 1
ReDim $__aDC[$__aDC[0][0] +1][2]
$__aDC[$__aDC[0][0]][0] = $_hGui
$__aDC[$__aDC[0][0]][1] = $oBuffer
EndFunc ;==>__ObjBufferRegister
Func __GetBuffer($_hGui)
For $i = 1 To $__aDC[0][0]
If $__aDC[$i][0] = $_hGui Then Return $__aDC[$i][1]
Next
Return SetError(1,0,0)
EndFunc ;==>__GetBuffer
Func __GraphCreateBuffer($_hGui, ByRef $_oBuffer)
Local $iW, $iH
$iW = _WinAPI_GetClientWidth($_hGui)
$iH = _WinAPI_GetClientHeight($_hGui)
$_oBuffer.Add('Graphics', _GDIPlus_GraphicsCreateFromHWND($_hGui))
$_oBuffer.Add('Bitmap' , _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $_oBuffer.Item('Graphics')))
$_oBuffer.Add('Context' , _GDIPlus_ImageGetGraphicsContext($_oBuffer.Item('Bitmap')))
_GDIPlus_GraphicsSetSmoothingMode($_oBuffer.Item('Context'), 2)
EndFunc ;==>__GraphCreateBuffer
Func __GraphCtrl_GetIndex($_iID)
For $i = 1 To $__aGraphCtrl[0][0]
If $__aGraphCtrl[$i][0] = $_iID Then Return $i
Next
Return -1
EndFunc ;==>__GraphCtrl_GetIndex
Func __MouseProcGraph($nCode, $wParam, $lParam)
If $nCode <> $__HC_ACTION Then Return _WinAPI_CallNextHookEx($__hHOOK_MOUSE_GRAPH, $nCode, $wParam, $lParam)
Local $iX, $iY, $hGui, $aCtrl, $oCtrl, $tRect, $iTop, $iLeft
Local $tMSLLHOOKSTRUCT = DllStructCreate("int X;int Y;dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo", $lParam)
Local $tPoint = DllStructCreate('int;int')
$iX = DllStructGetData($tMSLLHOOKSTRUCT, 1)
$iY = DllStructGetData($tMSLLHOOKSTRUCT, 2)
DllStructSetData($tPoint, 1, $iX)
DllStructSetData($tPoint, 2, $iY)
Switch $wParam
Case $WM_LBUTTONDOWN, $WM_LBUTTONUP, $WM_RBUTTONDOWN, $WM_RBUTTONUP, $WM_MBUTTONDOWN, $WM_MBUTTONUP
For $i = 1 To $__aGraphCtrl[0][0]
$hGui = $__aGraphCtrl[$i][2]
If Not WinActive($hGui) Then ContinueLoop
$tRect = _WinAPI_GetWindowRect($hGui)
If _WinAPI_PtInRect($tRect, $tPoint) Then
$aCtrl = $__aGraphCtrl[$i][1]
$oCtrl = $aCtrl[0]
_SystemGetWindowBorder($iTop, $iLeft)
Local $x1 = DllStructGetData($tRect,1) +$iLeft +$oCtrl.Item('X')
Local $x2 = $x1 +$oCtrl.Item('W')
Local $y1 = DllStructGetData($tRect,2) +$iTop +$oCtrl.Item('Y')
Local $y2 = $y1 +$oCtrl.Item('H')
DllCall("user32", 'long', 'SetRect', 'ptr', DllStructGetPtr($tRect), 'long', $x1, 'long', $y1, 'long', $x2, 'long', $y2)
If _WinAPI_PtInRect($tRect, $tPoint) Then
GUICtrlSendToDummy($__aGraphCtrl[$i][0], $wParam)
ExitLoop
EndIf
EndIf
Next
EndSwitch
Return _WinAPI_CallNextHookEx($__hHOOK_MOUSE_GRAPH, $nCode, $wParam, $lParam)
EndFunc ;==>__MouseProcGraph
;===============================================================================
; Function Name....: __SystemGetWindowBorder
; Description......: Calculates side and top border of window
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _SystemGetWindowBorder(ByRef $_iTopBorder, ByRef $_iSideBorder)
Local Const $SM_CYCAPTION = 4, $SM_CYEDGE = 46, $SM_CYBORDER = 6, $SM_CXBORDER = 5, $SM_CXEDGE = 45
Local $aMetrics[5][2] = [[$SM_CYCAPTION], [$SM_CYEDGE], [$SM_CYBORDER], [$SM_CXBORDER], [$SM_CXEDGE]]
Local $dll = DllOpen("user32.dll"), $aRet
For $i = 0 To 4
$aRet = DllCall($dll, "int", "GetSystemMetrics", "int", $aMetrics[$i][0])
If IsArray($aRet) Then $aMetrics[$i][1] = $aRet[0]
Next
DllClose($dll)
$_iTopBorder = $aMetrics[0][1] + $aMetrics[1][1] + $aMetrics[2][1]
$_iSideBorder = $aMetrics[3][1] + $aMetrics[4][1]
EndFunc ;==>__SystemGetWindowBorder
#endregion
[/autoit]#Region - TimeStamp
; 2012-08-20 01:03:19 v 0.2
#EndRegion - TimeStamp
#include 'LivingGraph.au3'
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Global $Gui = GUICreate('Test', 800, 400)
GUISetBkColor(0x000000)
GUISetOnEvent(-3, "_Exit")
GUISetState()
; == Controls erstellen
$iCtrlID1 = _GraphCtrl_Create($Gui, 20, 20, 760, 170, 20, -1, 1, 0xFFFFFFFF, 0xFF0000FF, 0xFFFF0000, 0xFF000000, 0xFFE0E0E0) ; == 20 s Epochendauer
GUICtrlSetOnEvent($iCtrlID1, '_GraphEvent')
; == 10 s Epochendauer:
$iCtrlID2 = _GraphCtrl_Create($Gui, 20, 210, 760, 170, 10)
GUICtrlSetOnEvent($iCtrlID2, '_GraphEvent')
; == Hilfslinien erstellen
_GraphCtrl_SetHelpline($iCtrlID1, -1, '54,108') ; == Position über X-Achse
; == alternativ mit Arrayübergabe
Local $aHelp[6] = [25,50,75,100,125,150]
_GraphCtrl_SetHelpline($iCtrlID2, -1, $aHelp)
; == oder per Angabe Anzahl Linien (zählen ohne abschließende Hilfslinie an der Control-Oberseite)
;~ _GraphCtrl_SetHelpline($iCtrlID1, 2)
; == Skalierung
_GraphCtrl_VScaleSet($iCtrlID1) ; == vertikal, standardmäßig in 10%-Schritten
; == alternativ mit Wertangabe (Pixel ab X-Achse) über String oder Array
_GraphCtrl_VScaleSet($iCtrlID2, 1, '85,170')
;~ Local $aV[2] = [85,170]
;~ _GraphCtrl_VScaleSet($iCtrlID1, 1, $aV)
_GraphCtrl_HScaleSet($iCtrlID1) ; == horizontal, standarmäßig in Sekundenabstand
_GraphCtrl_HScaleSet($iCtrlID2)
$timer = TimerInit()
$done = 0
$iVal = 85
$iVal1 = 50
Do
$iRnd = Random(-2,2,1)
While $iVal +($iRnd) > 170 Or $iVal +($iRnd) < 0
$iRnd = Random(-2,2,1)
WEnd
$iVal += ($iRnd)
_GraphCtrl_Draw($iCtrlID1, $iVal)
$iRnd = Random(-2,2,1)
While $iVal1 +($iRnd) > 170 Or $iVal1 +($iRnd) < 0
$iRnd = Random(-2,2,1)
WEnd
$iVal1 += ($iRnd)
_GraphCtrl_Draw($iCtrlID2, $iVal1)
If TimerDiff($timer) >= 3000 And $done = 0 Then
$done = 1
_GraphCtrl_HScaleSet($iCtrlID1, 0) ; == Skalierung deaktivieren
_GraphCtrl_VScaleSet($iCtrlID1, 0)
_GraphCtrl_SetHelpline($iCtrlID2, 0) ; == Helpline deaktivieren
EndIf
Sleep(5)
Until False
Func _Exit()
Exit
EndFunc
Func _GraphEvent()
Local $sCtrl = '$iCtrlID1'
If @GUI_CtrlId = $iCtrlID2 Then $sCtrl = '$iCtrlID2'
Switch GUICtrlRead(@GUI_CtrlId)
Case $WM_LBUTTONDOWN
ConsoleWrite($sCtrl & ' $WM_LBUTTONDOWN' & @CRLF)
Case $WM_LBUTTONUP
ConsoleWrite($sCtrl & ' $WM_LBUTTONUP' & @CRLF)
Case $WM_RBUTTONDOWN
ConsoleWrite($sCtrl & ' $WM_RBUTTONDOWN' & @CRLF)
Case $WM_RBUTTONUP
ConsoleWrite($sCtrl & ' $WM_RBUTTONUP' & @CRLF)
Case $WM_MBUTTONDOWN
ConsoleWrite($sCtrl & ' $WM_MBUTTONDOWN' & @CRLF)
Case $WM_MBUTTONUP
ConsoleWrite($sCtrl & ' $WM_MBUTTONUP' & @CRLF)
EndSwitch
EndFunc
Danke an UEZ für die Funktion "_GDIPlus_GraphicsDrawLines" und die Beseitigung einer Unklarheiten.
Du liest den Wert mit
[autoit]$Variable = _GUICtrlIpAddress_Get($hIPAddress)
[/autoit]in eine Variable.
Schau dir das Bsp. dazu einfach mal in der Hilfe an.
..und BugFix setzt dem ein Ende.
Wir hatten bereits vor längerer Zeit mehrfach solche unwahrscheinlich gehaltvollen Spielereien. Da die meisten von uns sich nicht in solch hohen Sphären bewegen haben wir beschlossen in Zukunft derartige Kindereien zu unterlassen.
In diesem Sinne:
[CLOSED]
@Acanis
Ich gebs zu, es juckt mir in den Fingern, dir eine Verwarnung reinzudrücken. Aber ich nehme im Moment nochmal davon Abstand.
Umgangsformen sind uns schon wichtig. Und wie man an deinem Bsp. sieht trifft der Spruch zu: Getroffene Hunde bellen.
Also nimm ein bischen die Luft raus und überlege, ob vielleicht auch jemand anders als du hier richtig liegt.
Ich betrachte das Thema als erledigt.
[CLOSED]
Ich benutze seit 9 Jahren Dyndns und mußte mich noch nie per Hand dort einloggen.
Wie hast du das hinbekommen?
In den letzten 3 oder 4 Jahren fanden 2 Änderungen der AGB statt wenn ich mich recht erinnere, die mit einem manuellen Login bestätigt werden mussten. Hatte ich auch erst verpennt und nachdem ich dann nicht mehr erreichbar war mußte ich das nachholen.
Die tägliche Anmeldung nimmt mein Router auch vor. Aber ist das tatsächlich gleichzusetzen mit dem Aktivieren des Hosts? Welchen Sinn hätte dann die Expiration Time?
Ich habe zumindest festgestellt, dass mein DynDNS-Account nicht mehr existiert. (wie gesagt: Anmeldung erfolgte täglich per Fritz.Box)
@CyRoX
Sorry, aber das ist nicht korrekt. Die Statusabfrage eines Radio (oder auch Checkbox) kann eine Kombination mehrerer Statuswerte enthalten. Deshalb sollte man zur Fehlervermeidung IMMER mit BitAND abfragen:
If BitAND(GuiCtrlRead($ID_Ctrl), $GUI_CHECKED) Then ; == Status ist checked
[/autoit]Hi,
nachdem DynDNS seinen freien Dienst (mehr oder weniger) eingestellt hat, habe ich mal ein wenig gesucht, ob überhaupt noch ein wirklich freier Dienst in der Richtung angeboten wird.
Aber alle, die ich fand haben einen Ablauf für den Host von 30 Tagen, heisst - man muss sich alle 30 Tage auf dem Konto einloggen und den Host für die nächsten 30 Tage aktivieren. 
Ist euch ein Dienstanbieter bekannt, der nach wie vor einen freien Zugang gewährt und auch über das Eintragen der Anmeldedaten im Router aktualisiert wird? (einige Anbieter haben dafür eine eigene Software, die täglich angeschubst werden muss oder man muss auf die Site einloggen - alles sinnfrei)
Wenn kein Radiobutton checked ist
Liest du auch, was du schreibst? Kein Radio-Button gecheckt? - Dieser Zustand ist aufgrund der Funktion von Radio-Button nicht möglich und kann nur dann auftreten, wenn du nach dem Erstellen der Button vergißt einem Button den Status 'checked' zu verpassen - also Programmierfehler. Aber das sollte dir spätestens beim ersten Start der GUI auffallen, dass alle Radio unchecked sind. Da brauchst du keine extra Abfrage für.
ausgelesen Spalten sollen mit 12 addiert
Du meinst sicher: Alle Zellen dieser Spalte sollen ausgelesen und mit 12 addiert werden.
Schau dir mal die Excel-UDF an in der Hilfe. Da findest du alles, was du brauchst.
[autoit]_ExcelReadCell
_ExcelWriteCell
_ExcelBookNew
_ExcelBookSaveAs
Hmm, also um die Grundrechenarten (Addition, Subtraktion, Multiplikation und Division) abzubilden brauchst du doch nicht diesen Wust an Funktionen. Da ist doch dann auch kein Reiz bei.
Lege doch z.B. fest: Einzig erlaubte Operation ist eine (vorzeichenbehaftete) Addition in Verbindung mit Schleifen. Dann muss man sich etwas anstrengen.
