weil ich den ball ohne viel berechnungen etc. schon bewegen wollte^^
Beiträge von Alizame
-
-
geschwindigkeit kann bei $bewegung geändert werden (pixel)
-
dafür das ich das eig garnicht wollte ises gut geworden!
so sollte das nähmlich werden:
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.5.6 (beta)
[/autoit] [autoit][/autoit] [autoit]
Author: AlizameScript Function:
[/autoit] [autoit][/autoit] [autoit]
It make a kometenschweif#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>;###
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kometenschweif by Alizame", 800, 600)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;###$farbewei = 0xFFFFFFFF
[/autoit] [autoit][/autoit] [autoit]
$farbeschwar = 0xFFFFFFFF
$Ball = 40
$iX = 400
$iY = 300
$iXold = 400
$iYold = 300
$bewegung = 1_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Form1)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(800,600,$hGraphics)
$Buffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$bWei = _GDIPlus_BrushCreateSolid($farbewei)
$bSch = _GDIPlus_BrushCreateSolid($farbeschwar)
$smooth = _GDIPlus_GraphicsSetSmoothingMode($hGraphics,2)
_ReDraw ()While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_ImageDispose($Buffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_BrushDispose($bWei)
_GDIPlus_BrushDispose($bSch)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndSwitch
If _IsPressed("25") Then $iX -= $bewegung
If _IsPressed("26") Then $iY -= $bewegung
If _IsPressed("27") Then $iX += $bewegung
If _IsPressed("28") Then $iY += $bewegung
If $iX <> $iXold Or $iY <> $iYold Then _ReDraw ()
WEndFunc _ReDraw ()
[/autoit] [autoit][/autoit] [autoit]
_PosCorrect ()
_GDIPlus_GraphicsClear($Buffer,0xFF000000)
_GDIPlus_GraphicsFillEllipse($Buffer,$iX,$iY,$Ball,$Ball,$bWei)
_GDIPlus_GraphicsDrawImageRect($hGraphics,$hBitmap,0,0,800,600)
$iXold = $iX
$iYold = $iY
EndFuncFunc _PosCorrect()
[/autoit]
ToolTip("x="&$iX&@CRLF&"y="&$iY,0,0)
If $iX < 0 Then $iX = $iX * -1
If $iY < 0 Then $iY = $iY * -1
If $iX > 760 Then $iX = $iX * -1
If $iY > 560 Then $iY = $iY * -1
EndFunc -
man ey immer dieses disposen!
ich habs reineditiert! -
musst mit den pfeiltasten steuern!
Edit\\ ok jetzt musst du es mir nurnoch so erklären das ich das kapier xD -
Hier habe ich unbewusst einen "Kometenschweif" gemacht (dabei wollte ich doch Pong machen...)
Script:
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.5.6 (beta)
[/autoit] [autoit][/autoit] [autoit]
Author: AlizameScript Function:
[/autoit] [autoit][/autoit] [autoit]
It makes a kometenschweif#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>;###
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kometenschweif by Alizame", 800, 600)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;###$farbewei = 0xFFFFFFFF
[/autoit] [autoit][/autoit] [autoit]
$farbeschwar = 0xFFFFFFFF
$Ball = 40
$iX = 400
$iY = 300
$iXold = 400
$iYold = 300
$bewegung = 1_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Form1)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(800,600,$hGraphics)
$Buffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$bWei = _GDIPlus_BrushCreateSolid($farbewei)
$bSch = _GDIPlus_BrushCreateSolid($farbeschwar)
$smooth = _GDIPlus_GraphicsSetSmoothingMode($hGraphics,2)
_ReDraw ()While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_ImageDispose($Buffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_BrushDispose($bWei)
_GDIPlus_BrushDispose($bSch)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndSwitch
If _IsPressed("25") Then $iX -= $bewegung
If _IsPressed("26") Then $iY -= $bewegung
If _IsPressed("27") Then $iX += $bewegung
If _IsPressed("28") Then $iY += $bewegung
If $iX <> $iXold Or $iY <> $iYold Then _ReDraw ()
WEndFunc _ReDraw ()
[/autoit] [autoit][/autoit] [autoit]
_PosCorrect ()
_GDIPlus_GraphicsClear($Buffer,$bSch)
_GDIPlus_GraphicsFillEllipse($Buffer,$iX,$iY,$Ball,$Ball,$bWei)
_GDIPlus_GraphicsDrawImageRect($hGraphics,$hBitmap,0,0,800,600)
$iXold = $iX
$iYold = $iY
EndFuncFunc _PosCorrect()
[/autoit] [autoit][/autoit] [autoit][/autoit]
ToolTip("x="&$iX&@CRLF&"y="&$iY,0,0)
If $iX < 0 Then $iX = $iX * -1
If $iY < 0 Then $iY = $iY * -1
If $iX > 760 Then $iX = $iX * -1
If $iY > 560 Then $iY = $iY * -1
EndFunc
.... -
also meines bleibt Zelda bis ich kein bock mehr auf solche projekte habe!
oder ich sogut GDI+ kann das ich damit eine art PowerPoint mache
-
xD
ich würde ihm eher hilfe geben als ihn runter zu ziehen! -
xD
ich habe noch nie "Zelda" gespielt^^
O_o -
Alizame möchte helfen!!!
-
mit GuiCtrlCreateList ist das schwierig!
gibt aber nen Listview style der sieht genauso aus
weiß den aber gerade nicht sry^^ -
warum gibt es eigenltich einen decompiler für autoit und nicht für :
pascal,basic,basic.net,c#,c++ ....... etc:
? -
UEZ
hast du nicht noch ne idee wie man das ganze transparent machen kann?also das die zeit dann aufm desktop ist und man die dortrumwerfen kann? -
ist gut geworden^^
-
ich habe es mir nicht durchgelsen aber: --> Portable Document Format
vllt hilft dir das ja zum auslesen?kp -
bei mir kommt immer "ImageCrypt by name22 @autoit.de" raus, egal wie das bild ist
-
das projekt übersteigt zeimlich sicher meine fähigkeiten des programmieren (
)
aber ich helfe!(sofern die schule nicht sagt ich muss HA machen^^) -
icq --> taglich 5-10 russen
skype --> ich nutze keins^^ -
ich habe die regeln nicht gelesen
-
problem 3. versteh ich nicht
und zu 4.
[autoit]
[/autoit]
GuiCtrlRead()
GuiCtrlSetData()
IniWrite()
IniRead()