Hi,Ich versteh deine Lösung jetzt auch nicht so recht...
Aus Deiner Schleife kommst Du nie raus, weil der Wert von $prozess1 nie geändert wird.
Ist ja eine For-Schleife, dh. er müsste sofort wieder raus kommen, weil $process von 0 bis 1 höchzählt und die Schleife dann fertig ist... Ist meiner Meinung nach ne sinnlose Schleife 
Naja, wenn dir geholfen ist, ist es ja gut... 
RapIt
Ob den +1 Button schon jemand benutzt hat!?
Die Diskussion gabs schon aber es prügeln sich dann wahrscheinlich wirklich alle um die meisten "Danke" 's Ansonsten wäre die Idee nicht so schlecht, aber was solls, so wichtig ist es ja nun nicht und die meisten können sich auch so bedanken...
General Kaboom: Wegen pees Wunschliste? Die Musik der Primzahlen ist gar nicht schlecht :d Aber es gibt wesentlich bessere Schachbücher! 
Aber ich versteh nicht wie man Fifa 11 und 12 gleichzeitig haben will
Hey,
schön, dass es dir gefällt.
nur ein paar mehr Datei Formate müsste es unterstützen
Das ist ja eigentlich kein Problem, solange die Formate von GdiPlus unterstützt werden...
Im Anhang noch eine Version, die jpg, png und bmp unterstützt. Ich habs nur einmal ausprobiert, sollte aber gehen...
Viele Grüße,
RapIt
Das steht doch in dem Wikipedia Artikel drin...Du öffnest den Editor und schreibst
-------------------------------------
[AutoRun]
open=DeinProgramm.exe
-------------------------------------
mit deinem compilierten AutoIt Script als 'DeinProgramm.exe' und speichserst diese als 'autorun.inf' auf die DVD ab. Die Datei soll glaub ich im Hauptverzeichnis liegen. Fertig.
RapIt
Hallo,
du solltest dir angewöhnen aussagekräftige Titel zu verwenden!
IniReadSection()
und
_ArraySearch()
sind wohl die Befehle, die du suchst.
z.B. so:
#include <GUIConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 489, 280, 193, 125)
$Speichern = GUICtrlCreateTab(0, 0, 481, 265)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Suchen")
$Kundennummer = GUICtrlCreateLabel("Kundennummer", 16, 40, 78, 17)
$Input1 = GUICtrlCreateInput("", 16, 72, 129, 21)
$Button1 = GUICtrlCreateButton("Suchen", 16, 128, 129, 33, 0)
$TabSheet2 = GUICtrlCreateTabItem("Speichern")
$Accountnummer = GUICtrlCreateLabel("Accountnummer", 16, 40, 81, 17)
$Input2 = GUICtrlCreateInput("", 16, 72, 105, 21)
$Emailadresse = GUICtrlCreateLabel("Emailadresse", 16, 120, 66, 17)
$Input3 = GUICtrlCreateInput("", 16, 160, 281, 21)
$Button2 = GUICtrlCreateButton("Speichern", 232, 48, 193, 41, 0)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Names
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
$Names = IniReadSection(@ScriptDir & "\base.ini", "Name")
If _ArraySearch($Names, GUICtrlRead($Input2)) = -1 Then
IniWrite(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input2), GUICtrlRead($Input3))
MsgBox(0, "Kundendaten", "Gespeichert")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
Else
MsgBox(0, "Account", "Der account ist bereits vorhanden")
GUICtrlSetData($Input2, "")
EndIf
Case $Button1
$name2 = IniRead(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input1), "0")
MsgBox(0, "Dein Name", $name2)
GUICtrlSetData($Input1, "")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Viele Grüße,
RapIt
Hi,
ich habe jetzt (soweit es meine Fantasie zugeassen hat :D) die Fälle noch mal versucht nachzusetllen. Es tritt kein einziger der obigen Fehler noch auf!
Das Poket wird immer richtig angezeigt, es gibt keine Verbindungsfehler, es ist immer der "richtige" Spieler dran und alle Figuren (auch eingeusetzte) ziehen, schlagen und wandeln richtig um!!
Das einzige, was ich jetzt reproduzieren konnte, war der "Doppelzugfehler" Eine Figur (oder Bauer9 zieht immer zweimal, wenn man ganz kurtzt zieht, bevor der Zug des Gegners "ankommt..."
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Bug1.png]
Mit der Zufolge:
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Bug2.png]
Und noch eins:
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Bug3.png]
Das ist aber im Prinzip nicht sehr schlimm dann das muss man ja schon fast provozieren
Na, dann kommt jetzt wohl Tandem!? 
Viele Grüße,
RapIt
EDIT: Ich habe gerade nochmal die Rochade (mit dem neusten Commit!) getestet, wobei mir ein Bug aufgefallen ist:
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Bug04.png]
Das passierte, nachdem ich kurz rochiert habe.
Na dann ist es ja gut
Mach dir wegen diesem "Doppelzug" keine Gedanken, dass ist einfach nur ein kleiner Darstellungsfehler, der sehr selten auftritt, wenn man im falschen Moment zieht oder so...Ist ja kein Fehler im Spiel, denn nach dem Refreshen ist wieder alles richtig!
Bei mir unten fehlte noch ein Screenshot, den füg ich noch nach...
RapIt
Hi,
klasse, dass du schon so weit bist Jetzt ist es wahrscheinlich kein großer Schritt zum Tandem mehr...!? Das wär natürlich echt cool...
Es wird noch nicht geprüft, ob man Matt/Schach einsetzt, das will ich schon noch als Option haben
Ja das stimmt ich hab aber beim Spielen eine komische Sache bemerkt...
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/jazz.png]
Hier konnte ich die Dame zwar auf d7 einsetzen, nicht aber auf c8...Das ist eigentlich unlogisch.
Bauern können noch nicht durchfallen, das wäre auch nett als Auswahlmöglichkeit
Was ist das? Entweder wir meinen was anderes oder ich kenn das nicht!?
man kann Bauern, die man eingesetzt hat, danach nicht wieder ziehen (auch nicht schlagen), alle anderen Figuren aber schon (kannst du das so bestätigen, RapIt?)
Also ich hab recht viel getestet und kann das nur teilweise bestätigen...Manchmal konnte ich eingesetzte Bauern ziehen, mit ihnen andere Figuren schlagen und diese sogar umwandeln, aber manchmal hat auch gar nichts davon geklappt! Eingesetzte Figuren kann man immer wieder ziehen und auch schlagen, bzw. mit ihnen schlagen! Auf der Grundreihe kann man sie schon mal nicht einsetzen!
Wenn man versucht mit ihnen zu ziehen und e snicht geht, läuft dies übrigens oft darauf hinaus, dass man gar nichts mehr machen kann, da immer die Fehlermeldung "Not your turn" kommt - obwohl man eigentlich ja dran ist. Wie hier:
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Auswahl_005.png]
Ich wollte den eingesetzten Bauern schlagen, aber das ging nicht, also hab ich dann mit einer anderen Figur gezogen, woraufhin die Fehlermeldung kann. Refresh hilft nicht und das habe ich mehrmals ausprobiert...
Ansonsten passiert es auch leider oft, dass die Verbindung abstürtzt und /oder das Inventar nicht mehr angezeigt wird. Refresh hilft nicht und man muss neustarten. Hier ein Beispiel von dem Fehlerhaften Inventar: Schwarz hat keine Dame meh, sie taucht aber nicht auf!
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Auswahl_002.png]
Ansonsten hab ich noch 2 Bugs gefunden, die ich aber nicht reproduzieren / einordnen konnte:
1) Man kann mit dem König nicht aus dem Schach einer eingesetzten Dame laufen!
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/Auswahl_004.png]
(Der Versuch nach b3 zu laufen, scheitert!!)
2)
Hier hab ich kein Bild von und Refresh hat das Problem geklärt. Denke, dass war eher ein Anzeigeproblem, ist mir schonmal passiert...
Beschreibung: Dame steht auf g4 und soll einen Springer auf f5 schlagen. Nach dem Zug steht die Dame aber auf e6, und der Springer ist trotzdem weg.
Am meisten nerven aber die häufigen Verbindungsabbrüche, die ich mir nicht erklären kann, aber du kriegst das schon hin
Super, dass das realisiert ist, bald können wir dann Tandem zocken...Brauchen wir nur noch ein paar Leute
Wenn ich noch mal etwas mehr Zeit habe, dann teste ich das noch mal ausführlich!
Bis dahin: 
RapIt
Ah, ok ich dachte nur, dass der User die .less Dateien selber in CSS umwandeln muss und hab mich gefragt, wie das ohne die Installation geht...Aber wenn das schon beim Git Commit passiert, ist das ja klar.
Hi,
es scheint alles wunderbar zu funktionieren.. Allerdings würde ich noch unterbinden, dass man bei jedem Zug Remis bieten darf...(Ich mein, das gibts so ne Grenze von höchstens 3 mal, dann muss man darauf warten, dass der Gegner Remis bietet.)
Ansonsten wäre es noch cool, wenn der Button "Neues Spiel" eine Funktion bekommen könnte. Auch der Bug mit der Rochade ist gefixed...
Bezüglich Less hab ich jetzt noch nicht so ganz verstanden, was das jetzt für einen Unterschied macht...!? Ich habe da zwar keine Ahnung von, aber die Installation von Less hat jetzt irgendwie keinen Unterschied bewirkt...Hätte da was passieren sollen? 
Auf jeden Fall schön, dass es noch regelmäßig Updates gibt!
RapIt
Hey,
vielen Dank für all die Glückwünsche!
Ich hoffe, du hast dich reich beschenken lassen .
Hab ich Mein neuer Rechner rennt super...
Endlich legal Bier und Wein kaufen - wa?
Jaja, 16 zu sein hat schon so seine Vorteile...
genieß die Jugendzeit
Ich geb mir Mühe^^
Auf ein neues Jahr voller Erfolg, Gesundheit und Glück, hau rein!
Darauf hoffe ich auch!
Vielen Dank euch allen!
RapIt
Ich denke auch, dass Teufel die beste Wahl ist...Ich hab ein 2.1. System von denen und bin damit sehr zufrieden
Ich kenne jemanden, der sich jetzt gebraucht / so gut wie neu ein 5.1 System für ca 400€ gekauft hat und er ist begeistert von dem Ding.
Wlan haben die allerdings nicht, kann mir auch schwer vorstellen, dass es sowas in dieser Preisklasse gibt...
Aber du kannst dir natürlich z.B. mit sowas aushelfen, das kostet allerdings alleine (original von Teufel) schon fast 300 Euronen... :D:D
Ich weiß ja nicht genau, was du machen willst, aber wozu brauchst du diesen Animator. Irgendwie stimmt bei dem ja auch die Kamerarichtung hinten und vorne nicht...
Ich glaub auch nicht, dass du den unbedingt brauchst, das sollte mit ner einfachen Schleife gehen, evtl. so:=
#include "au3Irrlicht2.au3"
#include<misc.au3>
#include<array.au3>
#include<file.au3>
Local $x = 20
Local $text[100]
Local $node[100]
_IrrStart($IRR_EDT_OPENGL, @DesktopWidth, @DesktopHeight, $IRR_BITS_PER_PIXEL_32, _
$IRR_WINDOWED, $IRR_SHADOWS, $IRR_capture_EVENTS, $IRR_VERTICAL_SYNC_ON)
$camera = _irraddcamera($x, 10, -50, $x, 0, -25)
_IrrSetWindowCaption("Mein neues Projekt ")
;$camera = _irraddfpscamera(0, 100, 1, -1, 0, 1, 0)
$path = 'C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\'
$pics = _FileListToArray($path, "*.jpg", 1)
For $i = 1 To 20
$node[$i] = _IrrAddTestSceneNode()
_irrsetnodeposition($node[$i], $i * 20, 0, 0)
$text[$i] = _irrgettexture($path & $pics[$i])
_IrrSetNodeMaterialTexture($node[$i], $text[$i], 0)
_IrrSetNodeMaterialFlag($node[$i], $IRR_EMF_LIGHTING, $IRR_Off)
Next
While _IrrRunning()
If _IsPressed(01) Then
For $i = 1 To 20
$x += 1
_IrrSetNodePosition($camera, $x, 10, -50)
_IrrSetCameraTarget($camera, $x, 0, -25)
_ActGui()
Sleep(50)
Next
EndIf
_ActGui()
WEnd
Func _ActGui()
_IrrBeginScene( 255, 255, 255 )
_IrrDrawScene()
_IrrEndScene()
EndFunc
Beschreib am Besten mal, was du haben willst!
RapIt
_IrrAddNodeShadow und dann die Farbe ändern mit _IrrSetShadowColor
Such mal in der Hilfe! Damit sollte die Spieglung doch zu realisieren sein!?
Edit: Ich seh gerade das Bsp. in der Hilfe und denke mal, dass hast du auch schon gefunden. Denke nicht, dass das so funktioniert oder es das ist, was du suchst... Dann musst du wohl alles manuell machen (Node verdoppeln, Rotation und Position verändern und dann i-wie mit dem Licht rumspielen...) Ne andere Möglichkeit kenn ich nicht, aber vielleicht, weiß sonst noch einer was!?
Hey! Schön, dass dich unser Script inspiriert hat :D:D
Ich find, es ist cool geworden, nur damit es eine praktische Anwendung hat, fänd ich es noch cool, wenn man mit der Maus einen Bereich auswählen kann, der am Bild verpixelt wird, denn meistens muss ja nicht, dass ganze Bild verpixelt werden... Ansonsten schönes Script!
Hi,
hier dann auf Wunsch noch eine Variante, in der der User als "Form" auch einen Buchstaben oder ein ASCII Zeichen benutzen kann! Ich find das zwar nicht so schön, aber es war keine große Veränderung und außerdem ist es lustig, ein Bild mit beliebigen Zeichen darzustellen!
Die neue Version:
#include <GDIPlus.au3>
#include <GuiConstants.au3>
#include <GDIP.au3>
#include <ComboConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiComboBox.au3>
Global $hBitmap, $Precision = 5, $hBrush, $hGraphic, $hBitmap2, $hBuffer, $Color,$Form,$Char,$hFont
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate("Bild-Wandler", 600, 100, 192, 124)
$hLoad = GUICtrlCreateButton("Lade Bild", 0, 0, 100, 50)
$hConvert = GUICtrlCreateButton("Konvertiere", 100, 0, 100, 50)
$hSave = GUICtrlCreateButton("Speichern", 200, 0, 100, 50)
GUICtrlCreateLabel("Präzision:", 300, 0, 100, 25)
$hPrecCombo = GuiCtrlCreateCombo("Mittel", 300, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Niedrig|Genau|Sehr Genau")
Global $ComboPrecData[4] = [12,18,8,5]
GUICtrlCreateLabel("Form:", 400, 0, 100, 25)
$hFormCombo = GuiCtrlCreateCombo("Kreis", 400, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Quadrat|Eigener Buchstabe|ASCII")
Global $hFormat = _GDIPlus_StringFormatCreate ()
Global $hFamily = _GDIPlus_FontFamilyCreate ("Arial")
GUICtrlCreateLabel("Farbe:", 500, 0, 100, 25)
$hColorCombo = GuiCtrlCreateCombo("Schwarz", 500, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Blau|Grün|Rot|Gelb")
Global $ComboColorData[5] = [0xFF000000,0xFF0000FF,0xFF00FF00,0xFFFF0000,0xFFFFFF00]
$hProgress = GuiCtrlCreateProgress(0, 50, 600, 50)
GUISetState(@SW_SHOW)
GuiCtrlSetState($hConvert, $GUI_DISABLE)
GuiCtrlSetState($hSave, $GUI_DISABLE)
$hGui2 = GuiCreate("Anzeige", 100, 100, -1, -1, $WS_BORDER, -1, $hGui)
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
While 1
$nMsg = GuiGetMsg($hGui)
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_BitmapDispose($hBitmap2)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
Exit
Case $hLoad
$sOpen = FileOpenDialog("Wähle Bild", @ScriptDir, "Bild (*.bmp)")
$hBitmap = _GDIPlus_BitmapCreateFromFile($sOpen)
GuiCtrlSetState($hSave, $GUI_DISABLE)
If $hBitmap = 0 Then
MsgBox(0, "Fehler", "Fehler beim Laden des Bilds")
GuiCtrlSetState($hConvert, $GUI_DISABLE)
Else
$iHeight = _GDIPlus_ImageGetHeight($hBitmap)
$iWidth = _GDIPlus_ImageGetWidth($hBitmap)
WinMove("Anzeige", "", Default, Default, $iWidth, $iHeight)
GuiSetState(@SW_SHOW, $hGui2)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui2)
_GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
GuiCtrlSetState($hConvert, $GUI_ENABLE)
EndIf
Case $hConvert
_GDIPlus_GraphicsClear($hGraphic, 0xFFFFFFFF)
$hBitmap2 = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap2)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
_GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)
GuiCtrlSetstate($hProgress, 0)
$Precision = $ComboPrecData[_GUICtrlComboBox_GetCurSel($hPrecCombo)]
_GDIPlus_BrushSetSolidColor($hBrush,$ComboColorData[_GUICtrlComboBox_GetCurSel($hColorCombo)])
$Form = _GUICtrlComboBox_GetCurSel($hFormCombo)
If $Form = 2 Then
$Char = StringLeft(InputBox("Eigener Buchstabe","Bitte geben Sie einen Buchstaben ein!"),1)
ElseIf $Form = 3 Then
$Char = Chr(InputBox("ASCII","Bitte geben Sie einen ASCII Code zwischen 0 und 255 ein!"))
EndIf
For $i = 0 to $iWidth/$Precision - 1
For $j = 0 to $iHeight/$Precision - 1
_Draw($Form,_GetGrey($i * $Precision, $j * $Precision, $Precision, $Precision))
Next
GuiCtrlSetData($hProgress, ($i+1) * 100 / ($iWidth/$Precision))
Next
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap2, 0, 0, $iWidth, $iHeight)
GuiCtrlSetData($hProgress, 100)
GuiCtrlSetState($hSave, $GUI_ENABLE)
Case $hSave
$sSave = FileSaveDialog("Speichern", @ScriptDir, "Bild (*.bmp)")
If Not $sSave = "" Then
If StringRight($sSave, 4) <> ".bmp" Then $sSave &= ".bmp"
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap2, 0, 0, $iWidth, $iHeight)
If _GDIPlus_ImageSaveToFile($hBitmap2, $sSave) Then
MsgBox(0, "Speichern", "Erfolgreich gespeichert!")
Else
MsgBox(0, "Speichern", "Speichern fehlgeschlagen!")
Endif
EndIf
EndSwitch
WEnd
Func _GetGrey($iX, $iY, $Width, $Height)
Local $PixCol, $Count = 0
For $i = $iX to $Width + $iX - 1
For $j = $iY to $Height + $iY - 1
$PixCol = StringTrimLeft(Hex(_GDIPlus_BitmapGetPixel($hBitmap, $i, $j)), 2)
$Count += Dec(StringLeft($PixCol, 2)) + Dec(StringMid($PixCol, 3, 2)) + Dec(StringRight($PixCol, 2))
Next
Next
Return $Count / ($Width*$Height) / 3
EndFunc
Func _Draw($Form,$Grey)
Switch $Form
Case 0
_GDIPlus_GraphicsFillEllipse($hBuffer, $i * $Precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), $j * $precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), (255 - $Grey) / (255 / $Precision), (255 - $Grey) / (255 / $Precision), $hBrush)
Case 1
_GDIPlus_GraphicsFillRect($hBuffer, $i * $Precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), $j * $precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), (255 - $Grey) / (255 / $Precision), (255 - $Grey) / (255 / $Precision), $hBrush)
Case 2 or 3
$hFont = _GDIPlus_FontCreate ($hFamily,(255 - $Grey) / (255 / $Precision), 0,2)
$tLayout = _GDIPlus_RectFCreate ($i * $Precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), $j * $precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), (255 - $Grey) / (255 / $Precision), (255 - $Grey) / (255 / $Precision))
_GDIPlus_GraphicsDrawStringEx ($hBuffer, $Char, $hFont, $tLayout, $hFormat, $hBrush)
EndSwitch
EndFunc
Hallo nochmal!
Ich habe gerade noch eingebaut, dass man zwischen verschiedenen Farben sowie zwischen Quadrat oder Kreis wählen kann. Das war im Prinzip nur eine winzige Änderung, aber wen es interessiert:
#include <GDIPlus.au3>
#include <GuiConstants.au3>
#include <GDIP.au3>
#include <ComboConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiComboBox.au3>
Global $hBitmap, $Precision = 5, $hBrush, $hGraphic, $hBitmap2, $hBuffer, $Color,$Form
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate("Bild-Wandler", 600, 100, 192, 124)
$hLoad = GUICtrlCreateButton("Lade Bild", 0, 0, 100, 50)
$hConvert = GUICtrlCreateButton("Konvertiere", 100, 0, 100, 50)
$hSave = GUICtrlCreateButton("Speichern", 200, 0, 100, 50)
GUICtrlCreateLabel("Präzision:", 300, 0, 100, 25)
$hPrecCombo = GuiCtrlCreateCombo("Mittel", 300, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Niedrig|Genau|Sehr Genau")
Global $ComboPrecData[4] = [12,18,8,5]
GUICtrlCreateLabel("Form:", 400, 0, 100, 25)
$hFormCombo = GuiCtrlCreateCombo("Kreis", 400, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Quadrat")
GUICtrlCreateLabel("Farbe:", 500, 0, 100, 25)
$hColorCombo = GuiCtrlCreateCombo("Schwarz", 500, 25, 100, 25, $CBS_DROPDOWNLIST)
GuiCtrlSetData(-1, "Blau|Grün|Rot|Gelb")
Global $ComboColorData[5] = [0xFF000000,0xFF0000FF,0xFF00FF00,0xFFFF0000,0xFFFFFF00]
$hProgress = GuiCtrlCreateProgress(0, 50, 600, 50)
GUISetState(@SW_SHOW)
GuiCtrlSetState($hConvert, $GUI_DISABLE)
GuiCtrlSetState($hSave, $GUI_DISABLE)
$hGui2 = GuiCreate("Anzeige", 100, 100, -1, -1, $WS_BORDER, -1, $hGui)
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
While 1
$nMsg = GuiGetMsg($hGui)
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_BitmapDispose($hBitmap2)
_GDIPlus_BrushDispose($hBrush)
Exit
Case $hLoad
$sOpen = FileOpenDialog("Wähle Bild", @ScriptDir, "Bild (*.bmp)")
$hBitmap = _GDIPlus_BitmapCreateFromFile($sOpen)
GuiCtrlSetState($hSave, $GUI_DISABLE)
If $hBitmap = 0 Then
MsgBox(0, "Fehler", "Fehler beim Laden des Bilds")
GuiCtrlSetState($hConvert, $GUI_DISABLE)
Else
$iHeight = _GDIPlus_ImageGetHeight($hBitmap)
$iWidth = _GDIPlus_ImageGetWidth($hBitmap)
WinMove("Anzeige", "", Default, Default, $iWidth, $iHeight)
GuiSetState(@SW_SHOW, $hGui2)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui2)
_GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)
GuiCtrlSetState($hConvert, $GUI_ENABLE)
EndIf
Case $hConvert
_GDIPlus_GraphicsClear($hGraphic, 0xFFFFFFFF)
$hBitmap2 = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap2)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
_GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)
GuiCtrlSetstate($hProgress, 0)
$Precision = $ComboPrecData[_GUICtrlComboBox_GetCurSel($hPrecCombo)]
_GDIPlus_BrushSetSolidColor($hBrush,$ComboColorData[_GUICtrlComboBox_GetCurSel($hColorCombo)])
$Form = _GUICtrlComboBox_GetCurSel($hFormCombo)
For $i = 0 to $iWidth/$Precision - 1
For $j = 0 to $iHeight/$Precision - 1
_Draw($Form,_GetGrey($i * $Precision, $j * $Precision, $Precision, $Precision))
Next
GuiCtrlSetData($hProgress, ($i+1) * 100 / ($iWidth/$Precision))
Next
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap2, 0, 0, $iWidth, $iHeight)
GuiCtrlSetData($hProgress, 100)
GuiCtrlSetState($hSave, $GUI_ENABLE)
Case $hSave
$sSave = FileSaveDialog("Speichern", @ScriptDir, "Bild (*.bmp)")
If Not $sSave = "" Then
If StringRight($sSave, 4) <> ".bmp" Then $sSave &= ".bmp"
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap2, 0, 0, $iWidth, $iHeight)
If _GDIPlus_ImageSaveToFile($hBitmap2, $sSave) Then
MsgBox(0, "Speichern", "Erfolgreich gespeichert!")
Else
MsgBox(0, "Speichern", "Speichern fehlgeschlagen!")
Endif
EndIf
EndSwitch
WEnd
Func _GetGrey($iX, $iY, $Width, $Height)
Local $PixCol, $Count = 0
For $i = $iX to $Width + $iX - 1
For $j = $iY to $Height + $iY - 1
$PixCol = StringTrimLeft(Hex(_GDIPlus_BitmapGetPixel($hBitmap, $i, $j)), 2)
$Count += Dec(StringLeft($PixCol, 2)) + Dec(StringMid($PixCol, 3, 2)) + Dec(StringRight($PixCol, 2))
Next
Next
Return $Count / ($Width*$Height) / 3
EndFunc
Func _Draw($Form,$Grey)
Switch $Form
Case 0
_GDIPlus_GraphicsFillEllipse($hBuffer, $i * $Precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), $j * $precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), (255 - $Grey) / (255 / $Precision), (255 - $Grey) / (255 / $Precision), $hBrush)
Case 1
_GDIPlus_GraphicsFillRect($hBuffer, $i * $Precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), $j * $precision + 0.5 * ($precision - ((255 - $Grey) / (255 / $Precision))), (255 - $Grey) / (255 / $Precision), (255 - $Grey) / (255 / $Precision), $hBrush)
EndSwitch
EndFunc
Ich finde aber, dass es mit schwarzen Kreisen immer noch am Besten aussieht, da bekommt man halt eher einen Eindruck von richtigen "Grautönen" obwohl es ja nur die unterschiedliche Größe der Kreise ist...
RapIt
Hey, ich muss sagen, dass neue Design gefällt mir echt gut! Es wirkt echt frisch und professionell!
Die "Leiste" oben, wo man die Möglichkeit hat, ein neues Spiel zu machen, bzw Einstellungen vorzunehmen finde ich auch sehr gelungen. Auch cool ist natürlich, dass es jetzt eine Funktion zum Remis bieten, bzw. Aufgeben gibt, auch wenn das ja noch nicht funktioniert.
Leider sind mir zum ersten Mal Grafikfehler beim Scrollen oder Rezisen des Fensters aufgefallen, was nicht so toll wirkt. Das war vorher nicht so...
Beispiel:
[Blockierte Grafik: http://dl.dropbox.com/u/24291162/bspjazzchess.png]
Viele Grüße,
RapIt
