Beiträge von DFPWare

DFPWare

Ich denke Hans Peters Version ist wohl die einfachste
Danke trotzdem an alle und sorry, wenn das eine zu leichte frage war
DFPWare
€DIT:
Ich komm irgendwie doch nich ganz klar damit:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $obenlinks = False
Local $mittelinks = False
Local $untenlinks = False
Local $obenmitte = False
Local $mittemitte = False
Local $untenmitte = False
Local $obenrechts = False
Local $mitterechts = False
Local $untenrechts = False

[/autoit] [autoit][/autoit] [autoit]

$hWnd = GUICreate("Tic Tac Toe",315,315)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(315, 315, $hGraphics)
Global $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)

[/autoit] [autoit][/autoit] [autoit]

$hBgBrush = _GDIPlus_BrushCreateSolid(0xFF79ABFF)
Global $hStrichBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
$hXOPen = _GDIPlus_PenCreate(0xFF112233,10)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case _IsPressed(01)
$Pos = GUIGetCursorInfo()
Select
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben links
$obenlinks = True
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte links
$mittelinks = True
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten links
$untenlinks = True

[/autoit] [autoit][/autoit] [autoit]

Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben mitte
$obenmitte = True
Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte mitte
$mittemitte = True
Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten mitte
$untenmitte = True

[/autoit] [autoit][/autoit] [autoit]

Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben rechts
$obenrechts = True
Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte rechts
$mitterechts = True
Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten rechts
$untenrechts = True
EndSelect
EndSelect

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsFillRect($hBuffer,0,0,315,315,$hBgBrush)

[/autoit] [autoit][/autoit] [autoit]

Select
Case $obenlinks
_GDIPlus_GraphicsDrawLine($hBuffer,10,10,90,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,10,10,90,$hXOPen)
Case $mittelinks
_GDIPlus_GraphicsDrawLine($hBuffer,10,115,90,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,115,10,195,$hXOPen)
Case $untenlinks
_GDIPlus_GraphicsDrawLine($hBuffer,10,220,90,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,220,10,300,$hXOPen)

[/autoit] [autoit][/autoit] [autoit]

Case $obenmitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,10,195,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,10,115,90,$hXOPen)
Case $mittemitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,115,195,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,115,115,195,$hXOPen)
Case $untenmitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,220,195,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,220,115,300,$hXOPen)

[/autoit] [autoit][/autoit] [autoit]

Case $obenrechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,10,300,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,10,220,90,$hXOPen)
Case $mitterechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,115,300,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,115,220,195,$hXOPen)
Case $untenrechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,220,300,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,220,220,300,$hXOPen)
EndSelect

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GitterZeichnen()
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, 315, 315)
Until $msg = -3

[/autoit] [autoit][/autoit] [autoit]

Func _GitterZeichnen()
_GDIPlus_GraphicsFillRect($hBuffer,100,0,5,315,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,205,0,5,315,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,0,100,315,5,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,0,205,315,5,$hStrichBrush)
EndFunc

[/autoit]

DFPWare

Vielleicht kann ich ja trotzdem was dazu sagen
Ich denke du stellst dir das einfacher vor, als es ist, willst du das wirklich komplett in 3D machen? Wenn ja, dann würde ich die 1st Person Sicht für einfacher halten, dann sollte dich das Aussehen deines Charaktes herzlich wenig interessieren
Der Rest sollte machbar sein, aber vielleicht nicht unbedingt mit AutoIt.
DFPWare

DFPWare

Achso, ich habe mir den Quellcode nicht soo genau angeguckt
Ich dachte das würde die Ausgangsdatei wieder löschen, wegen "Quelldatei" vielleicht solltest du das in *.Crypt Datei oder so ähnlich umbenennen.
DFPWare

DFPWare

Mensch, da haste dir ja was vorgenommen
Ich werd wohl nicht mitmachen, da ich nicht wirklich Lust habe mich mit der Irrlicht.au3 zu beschäftigen
Viel Glück
DFPWare

DFPWare

Funktioniert
Schönes Skript, aber ich habe noch nen Copy&Paste Fehler gefunden, vielleicht solltest du die "Quelldatei nach dem verschlüsseln löschen" funktion beim Entschlüsseln entfernen
Aber sonst top.
DFPWare

DFPWare

Hey Leute
Ja ich weiß, dass die Überschrift nen bisschen blöde ist, aber ich weiß nix besseres
Also ich würde gerne mit GDI+ TicTacToe nachschreiben und jetzt habe ich das Problem, dass ich keine Ahnung hab wie ich es schaffen kann dass die X nicht wieder verschwinden, sobald ich die Maus loslasse...
Ja das Skript ist noch in seiner Anfangsphase, also den Rest sollte ich selbst hinbekommen..
DFPWare

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

$hWnd = GUICreate("Tic Tac Toe",315,315)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(315, 315, $hGraphics)
Global $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)

[/autoit] [autoit][/autoit] [autoit]

$hBgBrush = _GDIPlus_BrushCreateSolid(0xFF79ABFF)
Global $hStrichBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
$hXOPen = _GDIPlus_PenCreate(0xFF112233,10)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsFillRect($hBuffer,0,0,315,315,$hBgBrush)

[/autoit] [autoit][/autoit] [autoit]

Select
Case _IsPressed(01)
$Pos = GUIGetCursorInfo()
Select
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben links
_GDIPlus_GraphicsDrawLine($hBuffer,10,10,90,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,10,10,90,$hXOPen)
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte links
_GDIPlus_GraphicsDrawLine($hBuffer,10,115,90,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,115,10,195,$hXOPen)
Case $Pos[0] <= 100 And $Pos[0] >= 1 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten links
_GDIPlus_GraphicsDrawLine($hBuffer,10,220,90,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,90,220,10,300,$hXOPen)

[/autoit] [autoit][/autoit] [autoit]

Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben mitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,10,195,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,10,115,90,$hXOPen)
Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte mitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,115,195,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,115,115,195,$hXOPen)
Case $Pos[0] <= 205 And $Pos[0] >= 106 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten mitte
_GDIPlus_GraphicsDrawLine($hBuffer,115,220,195,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,195,220,115,300,$hXOPen)

[/autoit] [autoit][/autoit] [autoit]

Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 100 And $Pos[1] >= 1 ;oben rechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,10,300,90,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,10,220,90,$hXOPen)
Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 205 And $Pos[1] >= 106 ;mitte rechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,115,300,195,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,115,220,195,$hXOPen)
Case $Pos[0] <= 310 And $Pos[0] >= 211 And $Pos[1] <= 310 And $Pos[1] >= 211 ;unten rechts
_GDIPlus_GraphicsDrawLine($hBuffer,220,220,300,300,$hXOPen)
_GDIPlus_GraphicsDrawLine($hBuffer,300,220,220,300,$hXOPen)
EndSelect
EndSelect

[/autoit] [autoit][/autoit] [autoit]

_GitterZeichnen()
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, 315, 315)
Until $msg = -3

[/autoit] [autoit][/autoit] [autoit]

Func _GitterZeichnen()
_GDIPlus_GraphicsFillRect($hBuffer,100,0,5,315,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,205,0,5,315,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,0,100,315,5,$hStrichBrush)
_GDIPlus_GraphicsFillRect($hBuffer,0,205,315,5,$hStrichBrush)
EndFunc

[/autoit]

DFPWare

Das gleiche Tutorial hab ich auch gemacht
Ist nicht schlecht geworden
DFPWare

DFPWare

Ich hab gelesen die besten Geschenke sind Partys, also
Feiert euren besonderen Tag
DFPWare

DFPWare

Du solltest noch eine Meldung einfügen, wenn die Bilddatei nicht gefunden wurde.
DFPWare

DFPWare

Wenn du die C:\Program Files (x86)\AutoIt3\AutoIt3.exe mitlieferst und damit das Skript ausführst müsste das gehen
DFPWare

DFPWare

Oh okay nicht schlecht, tut mir Leid, dass ich vom Thema abgekommen bin
DFPWare

DFPWare

Naja ich kann ja auch nicht unbedingt behaupten dass ich jetzt wenig vor dem PC sitze, gerade in den Ferien, aber denkst du nicht, dass du dich vielleicht etwas mehr auf dein Abi oder auch soziale Kontakte kümmern solltest? (Tut mir Leid, wenn das jetzt zu weit geht )
DFPWare

DFPWare

Also ich kann nur sagen, dass auf meinem Laptop mit etwas schlechterer Leistung After Effects und Photoshop gut funktionieren, nur das Starten und Rendern dauert ... etwas länger...
DFPWare

DFPWare

Hey
Herzlich Willkommen auch von mir
Eine Frage hätte ich noch, und zwar wie alt bist du eigentlich? musst du nicht zur Schule, da kann man doch nicht 14 Stunden am Tag vorm PC sitzen, außer man hat sich das Schlafen abgewöhnt
Ich finde aber gut, dass du nicht die ganze Zeit am zocken bist
DFPWare

DFPWare

Ja das hab ich ja gesagt, aber das sollte doch auch mit rechtsklick -> in neuem Tab öffnen klappen oder?
DFPWare

DFPWare

H: Was ist ein Auto?
B: Hier ist eine ganze seite über Autos!
Wenn man auf Hier klickt öffnet sich ein neuer Tab und javascript:websearch() steht oben in der Adresszeile
allerdings nur wenn man den Link mit Mausrad anklickt
DFPWare

DFPWare

Ich finds auch super
Macht echt Spaß, aber was ist denn deine liebste Programmiersprache? Deine KI wills mir nicht verraten
DFPWare

DFPWare

@campweb:
Nix Linkshänder ;P ich mach immer verschiedene Smileys, damit es nicht so langweilig aussieht
DFPWare

DFPWare

Alles Gute zum 18.
DFPWare

DFPWare

Jetzt ist es voll witzig
Aber der Cursor ist bei mir nur ein schwarzer Punkt (W7 64Bit HP)
DFPWare

Beiträge von DFPWare

Wie kann ich das X fest machen

Flutch - Erobert die Welt

Crypt - Ein simples Verschlüsselungsprogramm

Flutch - Erobert die Welt

Crypt - Ein simples Verschlüsselungsprogramm

Wie kann ich das X fest machen

Webradioplayer

Hoch leben Gun-Food und pee!

GDI+, nur schwarzes Bild! Wer kann helfen?

au3 aus Script ausführen, auch auf Rechnern wo kein AutoIt installiert ist

ZeroAce on Board

ZeroAce on Board

Wie findet ihr den PC ?

ZeroAce on Board

B.E.S.U.C.H.E.R. - Die fast humane KI - Sie weiß ALLES

B.E.S.U.C.H.E.R. - Die fast humane KI - Sie weiß ALLES

B.E.S.U.C.H.E.R. - Die fast humane KI - Sie weiß ALLES

sl4y3r wird Mann

sl4y3r wird Mann

CloneMaus - Zwei funktionierende Mäuse auf dem Desktop - Tastaturgesteuert