Hallo Leute,
ich beschäftige mich gerade mit GDI+ und versuche einen kleinen blauen Farbverlauf mit PenSetColor und GraphicsDrawLine zu zeichnen. Mann nannte das früher mal eine CopperBar.
Leider bekomme ich nur einen schwarzen Balken der zwar genau so breit ist wie ich möchte aber eben nur schwarz.
Ich habe das und viele anderes graphisches Zeug schon in anderen Sprachen geproggt und dachte ich code das mal schnell nach zum lernen eben, aber es klappt nicht und ich suche schon seit Stunden den Fehler!
So sollte es aussehen (Bild_1):
http://picload.org/view/daoodgia/copper_1.png.html
Aber so sieht es aus (Bild_2):
http://picload.org/view/daoodddl/copper_2.png.html
Die Sinuswerte aus Bild_1 lasse ich mir zur Kontrolle in eine Textdatei schreiben und in AutoIT nicht auf das Fenster ausgeben (weiß nicht wie).
Hier mein Code:
#Include<GDIPlus.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>
$hGUI = GUICreate("Einfacher Copper", 500, 500)
GUISetState(@SW_SHOW)
Global $sinColor[360]
Dim $Werte[100]
Global $color, $red = 0, $green = 0, $blue = 0
Global $i, $j, $k, $sinWert
$datei = FileOpen("TEST.txt", 1)
$k = 0
For $i = 0 to 360
$sinWert = sin($i)*250
$sinColor[$k] = $sinWert
;~ FileWriteLine($datei, $sinColor[$k] & @CRLF)
$k += $k
Next
_GDIPlus_Startup()
$Graphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Local $hPen = _GDIPlus_PenCreate(0,1)
$k = 0
For $j = 0 to 180 Step 5
$color =("0xCF" & Hex($red, 2) & Hex($green, 2) & Hex($blue + $sinColor[$j], 2))
_GDIPlus_PenSetColor($hPen, $color)
_GDIPlus_GraphicsDrawLine($Graphics, 0, 50 + $k, 500, 50 + $k, $hPen)
;~ FileWriteLine($datei, $sinColor[$k] & @CRLF)
$k += 1
Next
_GDIPlus_Shutdown()
Sleep(3000)
FileClose($datei)
Alles anzeigen
Wäre klasse wenn Ihr mir da helfen könntet. Bin halt noch relativ neu bei AutoIT und ein Bloody Noob bei GDI+!
Vielen Dank vorab für Eure Mühe.
Grüße,
Snake