Ziemlich viele Rechtschreibfehler in dieser "seriösen" Mail.
2-3 Stunden an 5 Tagen die Woche arbeiten und dafür 1230€ Netto bekommen. ![]()
ZitatComputer-Grundkenntnisse (Email, Word, Drucken)
![]()
Ziemlich viele Rechtschreibfehler in dieser "seriösen" Mail.
2-3 Stunden an 5 Tagen die Woche arbeiten und dafür 1230€ Netto bekommen. ![]()
ZitatComputer-Grundkenntnisse (Email, Word, Drucken)
![]()
Einfach die Ergebnisse in einem Array speichern und dieses mit der Methode aus meinem Beispiel filtern. Das Array in eine txt oder listview zu bringen wirst du ja wohl noch schaffen. ![]()
Zitataber noch einen letzten tipp oder beispiel?
wie ich in der listview und in einem text file keine doppelten einträge habe?
Ich hab dir doch oben eins geschrieben. ![]()
Ein Beispiel für das Entfernen doppelter Einträge?
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $aTest[5]
$aTest[0] = "Test1"
$aTest[1] = "Test2"
$aTest[2] = "Test3"
$aTest[3] = "Test4"
$aTest[4] = "Test1"
_ArrayDisplay($aTest, "Vorher")
[/autoit] [autoit][/autoit] [autoit]Do
$bUnique = True
For $i = 0 To UBound($aTest) - 1
For $j = 0 To UBound($aTest) - 1
If $i <> $j And $aTest[$i] = $aTest[$j] Then
_ArrayDelete($aTest, $j)
$bUnique = False
ExitLoop 2
EndIf
Next
Next
Until $bUnique = True
_ArrayDisplay($aTest, "Nachher 1")
[/autoit] [autoit][/autoit] [autoit]Dim $aTest[5]
$aTest[0] = "Test1"
$aTest[1] = "Test2"
$aTest[2] = "Test3"
$aTest[3] = "Test4"
$aTest[4] = "Test1"
$aTest = _ArrayUnique($aTest)
[/autoit] [autoit][/autoit] [autoit]_ArrayDisplay($aTest, "Nachher 2")
[/autoit]Vielleicht mit einer Kombination von 2 For Schleifen.
Oder du nutzt einfach den _ArrayUnique Befehl.
@Sprenger
1. Hab ich schon den Link zu der AVI Writer UDF gepostet.
2. Würde ich das ganze niemals in eine Datei speichern, da es einfach viel Zeit in Anspruch nimmt.
Vielleicht könntest du dich mal für eine Rechtschreibung entscheiden...
1.Version: Programimier
2.Version: Programmier (korrekt)
3.Version: Programier
ZitatProgramimiersprachen außer AutoIt
Kein Komentar.... ![]()
Zitatkurze frage kann man auch das fenster weg machen ? wenn ja wie ?
Als Stil $WS_POPUP ;).
Zitatwenn ja wie lautet der befehl?
Glaubst du es gibt einen fertigen Befehl der dir ein Video vom Desktop aufnimmt?
Das hier kann eine avi Datei aus Bitmaps zusammenbasteln.
Du musst also nur noch ScreenShots in regelmäßigen Abständen machen und diese dann in eine avi packen.
Zitatalso wie kann ich bilder sich bewegen lassen oder geht das net??
.......
Doch, siehe z.B. Doodle Jump. ![]()
Zeichne statt einem Kreis o.Ä. einfach das mit _GDIPlus_ImageLoadFromFile geladene Bild. ![]()
Dann lad doch einfach mal beide Bilder hoch, so kann man besser testen. ![]()
Hier mal ein Beispiel für das drehen eines PNGs in einem anderen PNG.
#include <GUIConstants.au3>
#include <GDIPlus.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$hWnd = GUICreate("Test", 400, 400)
GUISetState()
_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(400, 400, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
$hImageBG = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\BG.png")
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Image.png")
$iX = 50
$iY = 50
$iWidth = 100
$iHeight = 100
$iAngle = 0
$iRotationSpeed = 2
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
[/autoit] [autoit][/autoit] [autoit]While Sleep(20)
$iAngle += $iRotationSpeed
_GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawImageRect($hBuffer, $hImageBG, 0, 0, 400, 400)
_GDIPlus_GraphicsTranslateTransform($hBuffer, $iX + $iWidth / 2, $iY + $iHeight / 2)
_GDIPlus_GraphicsRotateTransform($hBuffer, $iAngle)
_GDIPlus_GraphicsDrawImageRect($hBuffer, $hImage, -$iWidth / 2, -$iHeight/ 2, $iWidth, $iHeight)
_GDIPlus_GraphicsResetTransform($hBuffer)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 400, 400)
WEnd
Func _Exit()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($hImageBG)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Exit
EndFunc
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsRotateTransform
; Description ...: Updates the world transformation matrix of a Graphics object with the product of itself and a rotation matrix
; Syntax.........: _GDIPlus_GraphicsRotateTransform($hGraphics, $nAngle[, $iOrder = 0])
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $nAngle - The angle, in degrees, of rotation
; $iOrder - Order of matrices multiplication:
; |0 - The rotation matrix is on the left
; |1 - The rotation matrix is on the right
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: _GDIPlus_GraphicsMultiplyTransform
; Link ..........; @@MsdnLink@@ GdipRotateWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsRotateTransform($hGraphics, $nAngle, $iOrder = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipRotateWorldTransform", "hwnd", $hGraphics, "float", $nAngle, "int", $iOrder)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsRotateTransform
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsResetTransform
; Description ...: Sets the world transformation matrix of a Graphics object to the identity matrix
; Syntax.........: _GDIPlus_GraphicsResetTransform($hGraphics)
; Parameters ....: $hGraphics - Pointer to a Graphics object
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: None
; Link ..........; @@MsdnLink@@ GdipResetWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsResetTransform($hGraphics)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipResetWorldTransform", "hwnd", $hGraphics)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsResetTransform
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsTranslateTransform
; Description ...: Updates a Graphics object's world transformation matrix with the product of itself and a translation matrix
; Syntax.........: _GDIPlus_GraphicsTranslateTransform($hGraphics, $nDX, $nDY[, $iOrder = 0])
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $nDX - Horizontal component of the translation
; $nDY - Vertical component of the translation
; $iOrder - Order of matrices multiplication:
; |0 - The translation matrix is on the left
; |1 - The translation matrix is on the right
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: None
; Link ..........; @@MsdnLink@@ GdipTranslateWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsTranslateTransform($hGraphics, $nDX, $nDY, $iOrder = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipTranslateWorldTransform", "hwnd", $hGraphics, "float", $nDX, "float", $nDY, "int", $iOrder)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsTranslateTransform
Benötigte Bilder sind im Anhang. ![]()
Herzlichen Glückwunsch zum 18ten tince.
[Blockierte Grafik: http://www.ms-office-forum.net/forum/images/smilies/birthday.gif]
ZitatGeschwindigkeit der Endlosschleife ändern oder sowas?
Wie bitte? Wie sollte das gehen? Du kannst nur versuchen alles was in der Schleife steht auf Geschwindigkeit zu trimmen. ![]()
Ohne Script kann man dir dabei allerdings schlecht helfen...
Abgesehen davon würde ich das über Prozesse machen oder Fenstertitel. ![]()
Das hört sich einfach sehr nach Bot o.Ä. an. ![]()
Jetzt ist die "Engine" die ich für Pacman geschrieben habe so genau und erweiterbar, dass sie eigentlich viel zu schade für so ein einfach gestricktes Spiel ist.
Vielleicht mach ich auch was anderes... Es wird in jedem Fall ein cooles Spiel. ![]()
Sieht schonmal echt cool aus!
Ich arbeite gerade an meinem Pacman Spiel, kann ich das dann auch bei euch posten?
Das lässt sich zwar noch effizienter gestalten, aber so hast du dir das vorgestellt oder?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$gui = GUICreate("Passwort Creator", 600, 250, 300, 25)
$1 = GUICtrlCreateButton("3 Stelliges Kennwort", 8, 8, 120, 25, $WS_GROUP)
$2 = GUICtrlCreateButton("4 Stelliges Kennwort", 140, 8, 120, 25, $WS_GROUP)
$3 = GUICtrlCreateButton("5 Stelliges Kennwort", 268, 8, 120, 25, $WS_GROUP)
$4 = GUICtrlCreateButton("6 Stelliges Kennwort", 400, 8, 120, 25, $WS_GROUP)
$5 = GUICtrlCreateButton("Zufällige Zahl generieren", 8, 50, 200, 25, $WS_GROUP)
$6 = GUICtrlCreateButton("Züfälliges Datum generieren", 250, 50, 200, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
Do
$Msg = MsgBox(5, "Zahl", "Dein Kennwort lautet: " & Random(100, 999, 1))
Until $Msg = 2
Case $2
Do
$Msg = MsgBox(5, "Zahl", "Dein Kennwort lautet: " & Random(1000, 9999, 1))
Until $Msg = 2
Case $3
Do
$Msg = MsgBox(5, "Zahl", "Dein Kennwort lautet: " & Random(10000, 99999, 1))
Until $Msg = 2
Case $4
Do
$Msg = MsgBox(5, "Zahl", "Dein Kennwort lautet: " & Random(100000, 999999, 1))
Until $Msg = 2
Case $5
Do
$Msg = MsgBox(5, "Dein Passwort", "Deine Zufällige Zahl: " & Random(0, 999999, 1))
Until $Msg = 2
Case $6
Do
$Msg = MsgBox("5", "Dein Datum", "Dein Zufälliges Datum: " & Random(1, 30, 1) & Random(0, 0, 1) & Random(1, 9, 1) & Random(2010, 2011, 1))
Until $Msg = 2
EndSwitch
WEnd
Ich habe dir hier mal ein kleines Beispiel zu ColorMatrix gebastelt.
#include "GDIP.au3"
#include <GUIConstants.au3>
$hWnd = GUICreate("Example by name22", 400, 400)
GUISetState()
_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
[/autoit] [autoit][/autoit] [autoit]$hImage = _GDIPlus_ImageLoadFromFile(FileOpenDialog("Bild auswählen", @ScriptDir, "Bilder (*.jpg;*.jpeg;*.png;*.bmp;*.gif)"))
$iWidth = _GDIPlus_ImageGetWidth($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage)
$hIA = _GDIPlus_ImageAttributesCreate()
[/autoit] [autoit][/autoit] [autoit]$tMatrix = _GDIPlus_ColorMatrixCreateTranslate(0, 0, 0, -0.5) ;Werte von -1 bis 1 (!)
$pMatrix = DllStructGetPtr($tMatrix)
_GDIPlus_ImageAttributesSetColorMatrix($hIA, 0, True, $pMatrix)
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, 400, 200) ;Zeichnet das Originalbild
_GDIPlus_GraphicsDrawImageRectRectIA($hGraphic, $hImage, 0, 0, $iWidth, $iHeight, 0, 200, 400, 200, $hIA) ;Zeichnet das Bild mit veränderten Attributen
;Aufräumen...
_GDIPlus_ImageAttributesDispose($hIA)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Du benötigst dafür allerdings die GDIP.au3 (Alles zusammen im Anhang). ![]()
ZitatKeiner ne antwort ?
Ne, keiner Lust :P.
Meinst du das so?:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$iX = 5
$iY = 5
$iWidth = 100
$iHeight = 50
$hWnd = GUICreate("Beispiel", 400, 400)
$cPic = GUICtrlCreatePic(@ScriptDir & "\Test.jpg", $iX, $iY, $iWidth, $iHeight)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $cPic
MsgBox(0, "", "X=" & $iX & " Y=" & $iY & " Breite=" & $iWidth & " Höhe=" & $iHeight)
EndSwitch
WEnd
Es ist schwer zu verstehen was du eigentlich willst. ![]()