Was includest du denn in deinem Skript???
Beiträge von clezZ
-
-
Hier sind einige Tuts:
http://python.net/~gherman/publications/tut-de/online/tut/
http://www.wspiegel.de/pykurs/pykurs.htmOder einfach HIER schauen.
-
Ich hab nicht gesagt, dass Blender sch**** ist, ich hab ihm nur einen vorschlag gemacht!!!
Und nein, ich kenn mich nicht mit Python aus. -
Mit Blender nicht so richtig, hab aber mein (//Edit: altes) Avatar mit Blender gemacht ( vor 1 1/2 Jahren).
Aber so richtig kenn ich mich da jetzt auch nicht mehr so aus.
Edit: Wenn es dir nur um 3D Bilder geht nimm diese "Testversion" von Google Sketchup, wenn du nicht allzu viel gegen Google hast.
Allerdings musst du ein bissl (glaub 200€) Zahlen, wenn du Modelle in andere Formate als *.skp exportieren willst. -
Nur noch ganz kurz etwas:
[autoit]
Zu Vektoren, in der Hilfe steht, dass:4*ATan(1)
[/autoit]
Pi ist. Hat das nicht irgendwas mit (Kreis) Vektoren zu tun, oder ist das wieder was anderes?
ENDE -
Ach was...
-
aha, und e ist also:
[Blockierte Grafik: http://upload.wikimedia.org/math/a/9/5/a95e225cdb902ddc030c5459598934d1.png]
...und so weiter. -
Könntest du mir vielleicht noch sagen, was ln(b) ist?
Ich bin halt nicht so gut!!! -
hmmm... wenn ich mir das so anschaue, eher nicht
Außerdem bin ich G8 (muss man jetzt ja ), und da geht es nur bis zur 12ten KlasseEdit: Ja Name22, das ist mir schon klar
-
-
Der Text hat keine Farbe, weil du ten text zwischen [autoit ] und [/ autoit] machen musst.
[autoit]
Also so:MsgBox(0,"","So muss es sein. xD")
[/autoit] -
Hallo erstmal, hier stelle ich mein erstes GDI+ Skript vor (Ich glaub auch mein erstes Skript im Forum ).
Dieses Skript zeichnet einen Graphen zu einem exponentiellen Wachstum.(Haben wir grad in der Schule)Die Formel ist: B(t) = B(0) * k ^ t
-B(0) ist der Grundwert auf der Y-Achse/Anfangsbestand
-k ist der Wachstumsfaktor
-t ist der jeweilige X-Achsen WertUrsprüngliches Skript:
Skript
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.4.0
[/autoit] [autoit][/autoit] [autoit]
Author: ClezZScript Function:
[/autoit] [autoit][/autoit] [autoit]
Stellt ein exponentielles Wachstum dar#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GDIPlus.au3>Global $Wert[11]
[/autoit] [autoit][/autoit] [autoit]
Global $i = 0#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $Eingabefenster = GUICreate("Informationen", 535, 229, -1, -1)
Global $Beschreibung = GUICtrlCreateLabel("Bitte geben Sie die Gleichung des exponentiellen Wachstums ein:", 16, 8, 314, 17)
Global $B_von_t_gleich = GUICtrlCreateLabel("B(t) = ", 16, 72, 58, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Term_Input1 = GUICtrlCreateInput("", 80, 72, 89, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Term_Input2 = GUICtrlCreateInput("", 208, 72, 89, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Klammer_zu = GUICtrlCreateLabel(")", 300, 72, 20, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $mal = GUICtrlCreateLabel("x (", 184, 72, 24, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Hoch_t = GUICtrlCreateLabel(" t", 307, 64, 16, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Beschreibung_B_von_0 = GUICtrlCreateLabel("B(0)", 96, 112, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Beschreibung_k = GUICtrlCreateLabel(" k", 208, 112, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Bestaetigungsbutton = GUICtrlCreateButton("Bestätigen", 72, 152, 201, 57, 0)
Global $Infobutton = GUICtrlCreateButton("Info", 440, 16, 49, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Eingabefenster)
MsgBox(64, "", "Programm wurde beendet")
Exit
Case $Infobutton
MsgBox(64, "Informationsbox", "Dieses Programm dient zur Veranschaulichung, von exponentiellem Wachstum. In den einzelnen Eingabefeldern dürfen auch Rechnungen ausgeführt werden. Das Koordinatensystem geht in der Y-Achse von etwas weniger als 0 bis etwas mehr als 90. In der X-Achse geht es von 0 in einser Schritten bis 10.")
Case $Bestaetigungsbutton
$Term1_String = GUICtrlRead($Term_Input1)
$Term2_String = GUICtrlRead($Term_Input2)
If $Term1_String = "" Then
MsgBox(64, "Fehler", "Sie haben das erste Feld nicht ausgefüllt!")
ElseIf $Term2_String = "" Then
MsgBox(64, "Fehler", "Sie haben das zweite Feld nicht ausgefüllt!")
Else
$Term1_String = StringReplace($Term1_String, ",", ".")
$Term2_String = StringReplace($Term2_String, ",", ".")
$Term1 = Execute($Term1_String)
$Term2 = Execute($Term2_String)
GUIDelete($Eingabefenster)Do
[/autoit] [autoit][/autoit] [autoit]
$Wert[$i] = (($Term2) ^ $i) * ($Term1)
$i = $i + 1
Until $i = 11ExitLoop
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd;====================================================================================================== Ende der Berechnungen. Koordinatensysten:
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Koordinatensystem = GUICreate("Koordinatensystem", 400, 400, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]Global $GDIPlus_GUI = _GDIPlus_GraphicsCreateFromHWND($Koordinatensystem)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsSetSmoothingMode($GDIPlus_GUI, 0)
Global $Bitmap = _GDIPlus_BitmapCreateFromGraphics(400, 400, $GDIPlus_GUI)
Global $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)Global $Pen = _GDIPlus_PenCreate(0xFF000000, 1)
[/autoit] [autoit][/autoit] [autoit];Achsen zeichnen:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 30, 390, 30, 1, $Pen) ;Y-Achse, Länge: 389
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 10, 370, 390, 370, $Pen) ;X-Achse, Länge: 380
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 26, 6, 30, 1, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 34, 6, 30, 1, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 383, 374, 390, 370, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 383, 366, 390, 370, $Pen);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit];Y-Achsen Striche:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 330, 35, 330, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 290, 35, 290, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 250, 35, 250, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 210, 35, 210, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 170, 35, 170, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 130, 35, 130, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 90, 35, 90, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 50, 35, 50, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 10, 35, 10, $Pen)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;X-Achsen Striche:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 60, 365, 60, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 95, 365, 95, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 130, 365, 130, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 165, 365, 165, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 200, 365, 200, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 235, 365, 235, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 270, 365, 270, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 305, 365, 305, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 340, 365, 340, 375, $Pen)
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 375, 365, 375, 375, $Pen)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Y-Achsen Zahlen:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("0", 10, 375, 7, 12)
GUICtrlCreateLabel("10", 10, 325, 13, 12)
GUICtrlCreateLabel("20", 10, 285, 13, 12)
GUICtrlCreateLabel("30", 10, 245, 13, 12)
GUICtrlCreateLabel("40", 10, 205, 13, 12)
GUICtrlCreateLabel("50", 10, 165, 13, 12)
GUICtrlCreateLabel("60", 10, 125, 13, 12)
GUICtrlCreateLabel("70", 10, 85, 13, 12)
GUICtrlCreateLabel("80", 10, 45, 13, 12)
GUICtrlCreateLabel("90", 10, 5, 13, 12)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;X-Achsen Zahlen;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("1", 58, 375, 7, 12)
GUICtrlCreateLabel("2", 93, 375, 7, 12)
GUICtrlCreateLabel("3", 128, 375, 7, 12)
GUICtrlCreateLabel("4", 163, 375, 7, 12)
GUICtrlCreateLabel("5", 198, 375, 7, 12)
GUICtrlCreateLabel("6", 233, 375, 7, 12)
GUICtrlCreateLabel("7", 268, 375, 7, 12)
GUICtrlCreateLabel("8", 303, 375, 7, 12)
GUICtrlCreateLabel("9", 338, 375, 7, 12)
GUICtrlCreateLabel("10", 369, 375, 13, 12)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;====================================================================================================== Ende des Koordinatensystems. Punkte einzeichnen:_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 370 - (4 * $Wert[0]) + 5, 35, 370 - (4 * $Wert[0]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 25, 370 - (4 * $Wert[0]) - 5, 35, 370 - (4 * $Wert[0]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 55, 370 - (4 * $Wert[1]) + 5, 65, 370 - (4 * $Wert[1]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 55, 370 - (4 * $Wert[1]) - 5, 65, 370 - (4 * $Wert[1]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 90, 370 - (4 * $Wert[2]) + 5, 100, 370 - (4 * $Wert[2]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 90, 370 - (4 * $Wert[2]) - 5, 100, 370 - (4 * $Wert[2]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 125, 370 - (4 * $Wert[3]) + 5, 135, 370 - (4 * $Wert[3]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 125, 370 - (4 * $Wert[3]) - 5, 135, 370 - (4 * $Wert[3]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 160, 370 - (4 * $Wert[4]) + 5, 170, 370 - (4 * $Wert[4]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 160, 370 - (4 * $Wert[4]) - 5, 170, 370 - (4 * $Wert[4]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 195, 370 - (4 * $Wert[5]) + 5, 205, 370 - (4 * $Wert[5]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 195, 370 - (4 * $Wert[5]) - 5, 205, 370 - (4 * $Wert[5]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 230, 370 - (4 * $Wert[6]) + 5, 240, 370 - (4 * $Wert[6]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 230, 370 - (4 * $Wert[6]) - 5, 240, 370 - (4 * $Wert[6]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 265, 370 - (4 * $Wert[7]) + 5, 275, 370 - (4 * $Wert[7]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 265, 370 - (4 * $Wert[7]) - 5, 275, 370 - (4 * $Wert[7]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 300, 370 - (4 * $Wert[8]) + 5, 310, 370 - (4 * $Wert[8]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 300, 370 - (4 * $Wert[8]) - 5, 310, 370 - (4 * $Wert[8]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 335, 370 - (4 * $Wert[9]) + 5, 345, 370 - (4 * $Wert[9]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 335, 370 - (4 * $Wert[9]) - 5, 345, 370 - (4 * $Wert[9]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 370, 370 - (4 * $Wert[10]) + 5, 380, 370 - (4 * $Wert[10]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($GDIPlus_GUI, 370, 370 - (4 * $Wert[10]) - 5, 380, 370 - (4 * $Wert[10]) + 5, $Pen)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_GraphicsDispose($GDIPlus_GUI)
_GDIPlus_PenDispose($Pen)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEndSkript mit Fotofunktion:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.4.0
[/autoit] [autoit][/autoit] [autoit]
Author: ClezZScript Function:
[/autoit] [autoit][/autoit] [autoit]
Stellt ein exponentielles Wachstum dar#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <ScreenCapture.au3>
#include <GDIPlus.au3>Global $Wert[11]
[/autoit] [autoit][/autoit] [autoit]
Global $i = 0#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $Eingabefenster = GUICreate("Informationen", 535, 229, -1, -1)
Global $Beschreibung = GUICtrlCreateLabel("Bitte geben Sie die Gleichung des exponentiellen Wachstums ein:", 16, 8, 314, 17)
Global $B_von_t_gleich = GUICtrlCreateLabel("B(t) = ", 16, 72, 58, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Term_Input1 = GUICtrlCreateInput("", 80, 72, 89, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Term_Input2 = GUICtrlCreateInput("", 208, 72, 89, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Klammer_zu = GUICtrlCreateLabel(")", 300, 72, 20, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $mal = GUICtrlCreateLabel("x (", 184, 72, 24, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Hoch_t = GUICtrlCreateLabel(" t", 307, 64, 16, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Beschreibung_B_von_0 = GUICtrlCreateLabel("B(0)", 96, 112, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Beschreibung_k = GUICtrlCreateLabel(" k", 208, 112, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
Global $Bestaetigungsbutton = GUICtrlCreateButton("Bestätigen", 72, 152, 201, 57, 0)
Global $Infobutton = GUICtrlCreateButton("Info", 440, 16, 49, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Eingabefenster)
MsgBox(64, "", "Programm wurde beendet")
Exit
Case $Infobutton
MsgBox(64, "Informationsbox", "Dieses Programm dient zur Veranschaulichung, von exponentiellem Wachstum. In den einzelnen Eingabefeldern dürfen auch Rechnungen ausgeführt werden. Das Koordinatensystem geht in der Y-Achse von etwas weniger als 0 bis etwas mehr als 90. In der X-Achse geht es von 0 in einser Schritten bis 10.")
Case $Bestaetigungsbutton
$Term1_String = GUICtrlRead($Term_Input1)
$Term2_String = GUICtrlRead($Term_Input2)
If $Term1_String = "" Then
MsgBox(64, "Fehler", "Sie haben das erste Feld nicht ausgefüllt!")
ElseIf $Term2_String = "" Then
MsgBox(64, "Fehler", "Sie haben das zweite Feld nicht ausgefüllt!")
Else
$Term1_String = StringReplace($Term1_String, ",", ".")
$Term2_String = StringReplace($Term2_String, ",", ".")
$Term1 = Execute($Term1_String)
$Term2 = Execute($Term2_String)
GUIDelete($Eingabefenster)Do
[/autoit] [autoit][/autoit] [autoit]
$Wert[$i] = (($Term2) ^ $i) * ($Term1)
$i = $i + 1
Until $i = 11ExitLoop
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd;====================================================================================================== Ende der Berechnungen. Koordinatensysten:
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Koordinatensystem = GUICreate("Koordinatensystem", 400, 400, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]Global $GDIPlus_GUI = _GDIPlus_GraphicsCreateFromHWND($Koordinatensystem)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsSetSmoothingMode($GDIPlus_GUI, 0)
Global $Bitmap = _GDIPlus_BitmapCreateFromGraphics(400, 400, $GDIPlus_GUI)
Global $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)Global $Pen = _GDIPlus_PenCreate(0xFF000000, 1)
[/autoit] [autoit][/autoit] [autoit];Achsen zeichnen:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawLine($Buffer, 30, 390, 30, 1, $Pen) ;Y-Achse, Länge: 389
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 10, 370, 390, 370, $Pen) ;X-Achse, Länge: 380
_GDIPlus_GraphicsDrawLine($Buffer, 26, 6, 30, 1, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 34, 6, 30, 1, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 383, 374, 390, 370, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 383, 366, 390, 370, $Pen);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit];Y-Achsen Striche:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawLine($Buffer, 25, 330, 35, 330, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 25, 290, 35, 290, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 250, 35, 250, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 210, 35, 210, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 170, 35, 170, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 130, 35, 130, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 90, 35, 90, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 50, 35, 50, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 25, 10, 35, 10, $Pen);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit];X-Achsen Striche:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawLine($Buffer, 60, 365, 60, 375, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 95, 365, 95, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 130, 365, 130, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 165, 365, 165, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 200, 365, 200, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 235, 365, 235, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 270, 365, 270, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 305, 365, 305, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 340, 365, 340, 375, $Pen)
_GDIPlus_GraphicsDrawLine($Buffer, 375, 365, 375, 375, $Pen);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit];Y-Achsen Zahlen:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("0", 10, 375, 7, 12)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("10", 10, 325, 13, 12)
GUICtrlCreateLabel("20", 10, 285, 13, 12)
GUICtrlCreateLabel("30", 10, 245, 13, 12)
GUICtrlCreateLabel("40", 10, 205, 13, 12)
GUICtrlCreateLabel("50", 10, 165, 13, 12)
GUICtrlCreateLabel("60", 10, 125, 13, 12)
GUICtrlCreateLabel("70", 10, 85, 13, 12)
GUICtrlCreateLabel("80", 10, 45, 13, 12)
GUICtrlCreateLabel("90", 10, 5, 13, 12);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit];X-Achsen Zahlen;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("1", 58, 375, 7, 12)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("2", 93, 375, 7, 12)
GUICtrlCreateLabel("3", 128, 375, 7, 12)
GUICtrlCreateLabel("4", 163, 375, 7, 12)
GUICtrlCreateLabel("5", 198, 375, 7, 12)
GUICtrlCreateLabel("6", 233, 375, 7, 12)
GUICtrlCreateLabel("7", 268, 375, 7, 12)
GUICtrlCreateLabel("8", 303, 375, 7, 12)
GUICtrlCreateLabel("9", 338, 375, 7, 12)
GUICtrlCreateLabel("10", 369, 375, 13, 12);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
;====================================================================================================== Ende des Koordinatensystems. Punkte einzeichnen:_GDIPlus_GraphicsDrawLine($Buffer, 25, 370 - (4 * $Wert[0]) + 5, 35, 370 - (4 * $Wert[0]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 25, 370 - (4 * $Wert[0]) - 5, 35, 370 - (4 * $Wert[0]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 55, 370 - (4 * $Wert[1]) + 5, 65, 370 - (4 * $Wert[1]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 55, 370 - (4 * $Wert[1]) - 5, 65, 370 - (4 * $Wert[1]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 90, 370 - (4 * $Wert[2]) + 5, 100, 370 - (4 * $Wert[2]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 90, 370 - (4 * $Wert[2]) - 5, 100, 370 - (4 * $Wert[2]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 125, 370 - (4 * $Wert[3]) + 5, 135, 370 - (4 * $Wert[3]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 125, 370 - (4 * $Wert[3]) - 5, 135, 370 - (4 * $Wert[3]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 160, 370 - (4 * $Wert[4]) + 5, 170, 370 - (4 * $Wert[4]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 160, 370 - (4 * $Wert[4]) - 5, 170, 370 - (4 * $Wert[4]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 195, 370 - (4 * $Wert[5]) + 5, 205, 370 - (4 * $Wert[5]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 195, 370 - (4 * $Wert[5]) - 5, 205, 370 - (4 * $Wert[5]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 230, 370 - (4 * $Wert[6]) + 5, 240, 370 - (4 * $Wert[6]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 230, 370 - (4 * $Wert[6]) - 5, 240, 370 - (4 * $Wert[6]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 265, 370 - (4 * $Wert[7]) + 5, 275, 370 - (4 * $Wert[7]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 265, 370 - (4 * $Wert[7]) - 5, 275, 370 - (4 * $Wert[7]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 300, 370 - (4 * $Wert[8]) + 5, 310, 370 - (4 * $Wert[8]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 300, 370 - (4 * $Wert[8]) - 5, 310, 370 - (4 * $Wert[8]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 335, 370 - (4 * $Wert[9]) + 5, 345, 370 - (4 * $Wert[9]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 335, 370 - (4 * $Wert[9]) - 5, 345, 370 - (4 * $Wert[9]) + 5, $Pen)_GDIPlus_GraphicsDrawLine($Buffer, 370, 370 - (4 * $Wert[10]) + 5, 380, 370 - (4 * $Wert[10]) - 5, $Pen)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawLine($Buffer, 370, 370 - (4 * $Wert[10]) - 5, 380, 370 - (4 * $Wert[10]) + 5, $Pen)_GDIPlus_GraphicsDrawImageRect($GDIPlus_GUI, $Bitmap, 0, 0, 400, 400)
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{p}","_Photo")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{P}","_Photo")While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_GraphicsDispose($GDIPlus_GUI)
_GDIPlus_PenDispose($Pen)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEndFunc _Photo()
[/autoit]
Local $BildSpeicherPfad = FileSaveDialog("Bild speichern",@DesktopDir, "JPEG (*.jpg)", 2+16, "Exponentielles Wachstum-Schaubild") & '.jpg'
_ScreenCapture_CaptureWnd($BildSpeicherPfad, $Koordinatensystem, 10, 24, 400, 410, False)
EndFuncBitte nicht zu streng sein, ist ja mein erstes Skript
-
Ich hab Windows Vista™ Home Premium.
Und ich hab Service Pack 2 -
Ich hab auch Vista, und bei mir gehts.
Aber vielleicht liegts auch daran, das dein Browser über den Internet-Explorer läuft. -
Naja, ich hab die Makros @DesktopWidth und @DesktopHeight benutzt, und immer etwas abgezogen, also die Größe den Rand des Fensters, und die Größe Taskleiste,etc.
Die beiden Makros haben die Größe deiner Auflösung.
Zum Beispiel bei mir wäre die Auflösung 1920x1080, das bedeutet, dass @DesktopWidth bei mir 1920 ist, und @DesktopHeight 1080 ist. -
Okay, dann glaub ich dir jetzt mal.
Und hier hab ich noch etwas dran gearbeitet.
Es gibt jetzt einen zurück button, allerdings funktioniert er nur mit den links,die man über die buttons aufruft (aber schonmal ein guter anfang ).
Und das Fensterwird dem Bildschirm angepasst:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>Global $BesuchteSeiten = 0
[/autoit] [autoit][/autoit] [autoit]$IE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]Global $html
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=c:\users\sandro\desktop\gui_main.kxf
[/autoit] [autoit][/autoit] [autoit]
$Gui_main = GUICreate("Webbrowser by WORLD-KILLER (with help of ClezZ)", @DesktopWidth - 15, @DesktopHeight - 65, 5, 5)
GUISetFont(8, 400, 0, "MS PMincho")
$Label1 = GUICtrlCreateLabel("Adresse: ", 130, 8, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_adresszeile = GUICtrlCreateInput("http://www.", 201, 8, @DesktopWidth - 520, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Microsoft Sans Serif")
$GUI_send = GUICtrlCreateButton("Go!", @DesktopWidth - 310, 8, 113, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_zurueck = GUICtrlCreateButton("Zurück", 10, 8, 113, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_startseite = GUICtrlCreateButton("Home", @DesktopWidth - 190, 8, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$browser = GUICtrlCreateObj($IE, 8, 56, @DesktopWidth - 25, @DesktopHeight - 150)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$GUI_menu_einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$GUI_menu_beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###GUICtrlSetState($GUI_zurueck, $GUI_DISABLE)
[/autoit] [autoit][/autoit] [autoit]IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "Last Page" & $BesuchteSeiten, "http://www.google.de/")
[/autoit] [autoit][/autoit] [autoit]
IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "New Page", "http://www.google.de/")_IENavigate($IE, "http://www.google.at")
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir & "\WebbrowserInfos.ini")
ExitCase $GUI_menu_einstellungen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Noch nicht fertig...", "Diese option gibts nicht O.o")
Case $GUI_menu_beenden
FileDelete(@ScriptDir & "\WebbrowserInfos.ini")
Exit
Case $GUI_send
GUICtrlSetState($GUI_zurueck, $GUI_ENABLE)
$BesuchteSeiten += 1
$html = GUICtrlRead($GUI_adresszeile)
_Zurueck()
IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "New Page", $html)
_IENavigate($IE, $html)
Case $GUI_startseite
GUICtrlSetState($GUI_zurueck, $GUI_ENABLE)
$BesuchteSeiten += 1
_Zurueck()
IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "New Page", "http://www.autoit.de/")
_IENavigate($IE, "http://www.autoit.de/")
Case $GUI_zurueck
$PageReadIni = IniRead(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "Last Page" & $BesuchteSeiten, "about:blank")
IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "New Page", $PageReadIni)
$BesuchteSeiten -= 1
If $BesuchteSeiten = 0 Then GUICtrlSetState($GUI_zurueck, $GUI_DISABLE)
_IENavigate($IE, $PageReadIni)
EndSwitch
WEndFunc _Zurueck()
[/autoit]
Local $NewPageRead = IniRead(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "New Page", "about:blank")
IniWrite(@ScriptDir & "\WebbrowserInfos.ini", "Pages", "Last Page" & $BesuchteSeiten, $NewPageRead)
EndFunc ;==>_Zurueck -
Hm... So etwas gibt es mehrfach auf Youtube, guckst du:
http://www.youtube.com/watch?v=KDeglEN0DaY&feature=related
Ich will dir aber nichts unterstellen
-
Kannst es ja auch mal mit
[autoit]HotKeySet($Taste,"_Funktion")
[/autoit]
probieren. -
Ich bitte auch
-
des mit ftp://www.mein-ftpserver.de hab ich auch schon ausprobiert, aber es tut nich.