Ich auch eigentlich nicht, ist aber sehr angenehm und halt auch schön zu arbeiten.
mfg
Hauke
Ich auch eigentlich nicht, ist aber sehr angenehm und halt auch schön zu arbeiten.
mfg
Hauke
@GTA:
Hab jetzt ne normale HDD halt und mit meinem Hexacore ist das auch sofort da, deswegen, brauch ich ne SSD für Windows net ( Ubuntu: JEEAA )
mfg
Hauke
Also ich hab bei mir ne SSD drin ( also net im Laptop, sondern im festrechner ) und hatte da Win7 drauf und ich finde, dass es keinen sooooo großen Unterschied IM BETRIEB macht. Beim Hochfahren merkt man, dass da was anderes als ne HDD drin ist, aber für den normalen betrieb ist es fast nicht zu spüren.
Die SSD verbraucht auch nicht soo weniger Strom wie die HDD, das sind eh nur ein paar watt, die die Festplatte zieht, also der akku wird denke ich net viel länger halten ( villeicht 10 min länger ).
mfg
Hauke
//Edit: Wenn du ne SSD haben willst, dann warte noch, die werden immer billiger, aber mit UNI und so, hat das natürlich nicht endlos zeit
Cool danke, werd mich mal mit befassen
mfg
Hauke
Hallo, ich hab da mal ne Frage:
Gibt es in AutoIt ne Möglichkeit einen Service zu starten oder zu beenden?
mfg
Hauke
achsooo, ja jetzt gehts auch, gut danke!
mfg
Hauke
geniales programm, macht echt süchtig. einen bug hab ich allerdings noch:
Die umstellung von SPACE auf ENTER geht nicht ( bei mir jedenfalls net ). wäre gut, wenn du das fixen könntest, aber ansonsten 1A
mfg
Hauke
Nur ich befürchte, dass es mit einem 20x30 Bild ( also kien Quadrat ) nicht gehen wird, weil ich halt in dem Array die x und y Variablen vertauscht habe. Musst das einfach andesrum speichern:
Y als Sektion und
X als Key
GUICreate("Paint.DE", 210, 210 + 20)
$Color = GUICtrlCreateInput("0x000000", 0, 210, 210, 20)
HotKeySet("^s", "_Save")
HotKeySet("^o", "_Open")
Dim $Pixel[21][21]
Dim $Colors[21][21]
Dim $PixelColor[21][21]
GUISetState()
For $x = 0 To 20
For $y = 0 To 20
$Pixel[$x][$y] = GUICtrlCreateLabel("", $x * 10, $y * 10, 10, 10)
GUICtrlSetBkColor(-1, 0xffffff)
$PixelColor[$x][$y] = "0xffffff"
Next
Next
While 1
$msg = GUIGetMsg()
Select
Case $msg <= $Pixel[20][20] And $msg >= $Pixel[0][0]
GUICtrlSetBkColor($msg, GUICtrlRead($Color))
For $x = 0 To 20
For $y = 0 To 20
if $msg = $Pixel[$y][$x] Then
$PixelColor[$x][$y] = GUICtrlRead($Color)
ExitLoop
EndIf
Next
Next
Case $msg = -3
Exit
EndSelect
WEnd
Func _Save()
Local $File = InputBox("Paint.DE", "Dateiname (Relativ zum aktuellen Ordner)")
For $x = 0 To 20
For $y = 0 To 20
IniWrite($File, $y, $x, $PixelColor[$x][$y]) ; x unf y getauscht
;IniWrite($File, $x, $y, $PixelColor[$x][$y]) ; alt
Next
Next
MsgBox(0, "Paint.DE", "Datei wurde gespeichert!")
EndFunc ;==>_Save
Func _Open()
$File = InputBox("Paint.DE", "Dateiname (Relativ zum aktuellen Ordner)")
If FileExists($File) Then
For $x = 0 To 20
For $y = 0 To 20
$ReadColor = IniRead($File, $x, $y, 0xffffff)
GUICtrlSetBkColor($Pixel[$x][$y], $ReadColor)
$PixelColor[$x][$y] = $ReadColor
Next
Next
EndIf
EndFunc ;==>_Open
Siehe Zeile 42/43
mfg
Hauke
Ich habs mal getestet und finde es bis jetzt agnz gut.
Ich würde es mal mit einem 2 Dimensionalen Array versuchen, also so:
[autoit]$Array[$i][$ii]
[/autoit]
$i = wagerechtes Feld
$ii = senkrechtes Feld
Sprich du hast statt der direkten Position Felder ( hier wären es halt 20*20 ).
Ich hoffe du verstehst das so ungefähr
So funktionierts:
GUICreate("Paint.DE", 210, 210 + 20)
$Color = GUICtrlCreateInput("0x000000", 0, 210, 210, 20)
HotKeySet("^s", "_Save")
HotKeySet("^o", "_Open")
Dim $Pixel[21][21]
Dim $Colors[21][21]
Dim $PixelColor[21][21]
GUISetState()
For $x = 0 To 20
For $y = 0 To 20
$Pixel[$x][$y] = GUICtrlCreateLabel("", $x * 10, $y * 10, 10, 10)
GUICtrlSetBkColor(-1, 0xffffff)
$PixelColor[$x][$y] = "0xffffff"
Next
Next
While 1
$msg = GUIGetMsg()
Select
Case $msg <= $Pixel[20][20] And $msg >= $Pixel[0][0]
GUICtrlSetBkColor($msg, GUICtrlRead($Color))
For $x = 0 To 20
For $y = 0 To 20
if $msg = $Pixel[$y][$x] Then
$PixelColor[$x][$y] = GUICtrlRead($Color)
ExitLoop
EndIf
Next
Next
Case $msg = -3
Exit
EndSelect
WEnd
Func _Save()
Local $File = InputBox("Paint.DE", "Dateiname (Relativ zum aktuellen Ordner)")
For $x = 0 To 20
For $y = 0 To 20
IniWrite($File, $x, $y, $PixelColor[$y][$x])
Next
Next
MsgBox(0, "Paint.DE", "Datei wurde gespeichert!")
EndFunc ;==>_Save
Func _Open()
$File = InputBox("Paint.DE", "Dateiname (Relativ zum aktuellen Ordner)")
If FileExists($File) Then
For $x = 0 To 20
For $y = 0 To 20
$ReadColor = IniRead($File, $x, $y, 0xffffff)
GUICtrlSetBkColor($Pixel[$x][$y], $ReadColor)
$PixelColor[$x][$y] = $ReadColor
Next
Next
EndIf
EndFunc ;==>_Open
mfg
Hauke
wie gesagt keine ahnung obs dran liegen kann^^.
Aber wenn er sleep/while und so hätte müsste es doch auch gleich sein... oder versteh ich grad was nicht...
mfg
Hauke
Zu Testzwekcen beende???
Wie startest du es denn per F5 oder per doppelklick auf die *.au3? Ich weiß zwar nicht ob es daran liegen kann, aber musst ma gucken.
mfg
Hauke
Also wenn dus selber programmieren willst, dann solltest du mal in Shadowigor Signatur gucken
mfg
Hauke
Bin schon gespannt worauf das hinausläuft! Kannste nichtmal 2.0.1 als Download Posten? Wär Geil!
mfg
Hauke
ist jetzt nichts gegen dich persönlich ( kenn dich aj auch net ) aber ich HASSE solche Erbsenzähler. "Mein PC läuft mit Ubuntu" ist ja auch falsch und da sag ich auch nichts, weil ich weiß was gemeint ist.
mfg
Hauke
Jup, genau so meinte ich das, ist viel praktischer.
TIPP: Das "Step 1" kannste weglassen, standart ist immer 1
mfg
Hauke
Troll xDDD
naja...
Ich find ganz interessant: Metro und Unity. Beides neu und beies kommt net gut an, ist doch lustig^^
Hoch lebe Ubuntu ( bis 10.10 )
mfg
Hauke
Mittels einer Schleife. Hierzu gibt es verschiedene: For-, While-, und Doschleifen.
Ich würde dir die Forschleife enpfehlen, guck mal in der Hilfe nach, da findest du bestimmt was
mfg
Hauke
es kann ja auch sein, dass ich genau die Hardware hatte, die win8 eh unterstützt. Aber wie gesagt, kein Treiber und es ging alles. der Computer muss ja auch nix können, war nur zum testen für die Kunden da ( also er muss kein BF3 oder so können )
Aber da hat Marsi recht: ein Kaufgrund ist das nicht
mfg
Hauke