Naja, das hängt natürlich von den Daten ab und wie Du sie darstellen willst.
Soll die Y-Achse nur positive Werte anzeigen oder auch Negative? Wie groß sind die Werte? Wie sieht die Zeitachse aus? Wie viele Werte sollen dargestellt werden? Und so weiter...
Aber hier mal ein Beispiel mit GDI+
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <WindowsConstants.au3>
Global $aCoord = StringSplit('0,10,-5,23,-56,44,78,-35,-88,65,-43,77,-23,-16,-20,32,-45,5,-80,56', ',')
_GDIPlus_Startup()
Global Const $iW = 640, $iH = 480
Global $hGui = GUICreate('Liniendiagramm', $iW, $iH)
Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
Global $hBuffer = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
Global $hBmpCtxt = _GDIPlus_ImageGetGraphicsContext($hBuffer)
_GDIPlus_GraphicsSetSmoothingMode($hBmpCtxt, $GDIP_SMOOTHINGMODE_HIGHQUALITY)
_GDIPlus_GraphicsClear($hBmpCtxt, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine($hBmpCtxt, 0, $iH / 2, $iW, $iH / 2)
GUISetState(@SW_SHOW, $hGui)
GUIRegisterMsg($WM_PAINT, '_WM_PAINT')
Global $iX = 0, $iY = $iH / 2, $iXStep = 10
_GDIPlus_GraphicsDrawLine($hBmpCtxt, 0, 0, $iX, $iY)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
For $i = 1 To $aCoord[0]
_GDIPlus_GraphicsDrawLine($hBmpCtxt, $iX, $iY, $i * $iXStep, $iY - $aCoord[$i])
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
$iX = $i * $iXStep
$iY -= $aCoord[$i]
Next
Do
Until GUIGetMsg() = -3
_GDIPlus_BitmapDispose($hBuffer)
_GDIPlus_GraphicsDispose($hBmpCtxt)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Func _WM_PAINT($hWnd, $iMsg, $wParam, $lParam)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
EndFuncDann musst Du halt den Bereich entsprechend skalieren, sodass die Werte in das Diagramm passen.
Hier mal ein Beispiel:
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>
#include <WindowsConstants.au3>
Global $aCoord = StringSplit('2940,2895,2895,2410,2510,2710,2910,2910,2955,2405,2535,2678,2598,2622,2410,2999', ',')
_GDIPlus_Startup()
Global Const $iW = 640, $iH = 480
Global $hGui = GUICreate('Liniendiagramm', $iW, $iH)
Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
Global $hBuffer = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
Global $hBmpCtxt = _GDIPlus_ImageGetGraphicsContext($hBuffer)
_GDIPlus_GraphicsSetSmoothingMode($hBmpCtxt, $GDIP_SMOOTHINGMODE_HIGHQUALITY)
_GDIPlus_GraphicsSetCompositingQuality($hBmpCtxt, 3)
_GDIPlus_GraphicsClear($hBmpCtxt, 0xFFFFFFFF)
GUISetState(@SW_SHOW, $hGui)
GUIRegisterMsg($WM_PAINT, '_WM_PAINT')
Global $iX = 0, $iY = $iH, $iXStep = $iW / ($aCoord[0] - 1), $iScaleFactor = $iH / 3500
_GDIPlus_GraphicsDrawLine($hBmpCtxt, 0, 0, $iX, $iY)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
For $i = 1 To $aCoord[0]
_GDIPlus_GraphicsDrawLine($hBmpCtxt, $iX, $iY, ($i - 1) * $iXStep, $iH - $aCoord[$i] * $iScaleFactor)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
$iX = ($i - 1) * $iXStep
$iY = $iH - $aCoord[$i] * $iScaleFactor
Next
Do
Until GUIGetMsg() = -3
_GDIPlus_BitmapDispose($hBuffer)
_GDIPlus_GraphicsDispose($hBmpCtxt)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Func _WM_PAINT($hWnd, $iMsg, $wParam, $lParam)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBuffer, 0, 0)
EndFuncwenn ich sie mir in eine Excel Tabelle umkopiere
Dann kannst du auch gleich die internen Grafikfunktionen von Excel nutzen um dein Diagramm darzustellen. Ist auch weniger aufwändig als per GDI+ zu zeichnen.
Hmm also so ganz gefällt mir das Script leider nicht.
Das ist ja auch kein fertiges Script! Das war als Beispiel gedacht.
Wir sind hier in "Hilfe und Unterstützung". Wenn Du etwas fertiges haben willst, dann "Programmieranfragen".
Ein bißchen Eigenleistung ist hier schon gefordert.
ja das sag ich ja, ich möchte in Excel die Tabelle erstellen und dann als Bilddatei in meinem gui anzeigen.
Verwende doch ExcelEmbedded. Dazu findest du hier im Forum Bsp.
Ist doch Quatsch, die Grafik in Excel zu erstellen und dann ein Bild davon!! in die GUI einzubinden.
Dann kannst du auch mit GDI+ die Grafik zeichnen.
Möglichkeiten wurden dir aufgezeigt. Umsetzen solltest du dann auch mal selber was. Wenn du dabei auf Probleme stößt, kannst du dich gerne wieder melden.
NB: Es gibt sowohl hier, als auch im EN-Forum fertige UDF für derartige Probleme.
Hier ein paar Links zur Anregung:
Bsp: Diagramm in Excel mit AutoIt
Statistics.au3
Balkendiagramme
Living Graph
Funktionsplotter