Hallo!
Jo, super^^ wollte aber auch gerne selber nochmal nachproggn^^
PS: ja, aber du bist nich Online @icq?!
Mfg Spider
Hallo!
Jo, super^^ wollte aber auch gerne selber nochmal nachproggn^^
PS: ja, aber du bist nich Online @icq?!
Mfg Spider
Hallo!
Hmm. Also ich würde jetzt einfach mal sagen das es vlt so laufen könnte:
[autoit]FileCopy("Canon PowerShot A5\Img001.jpg","C:\Eigene Bilder\*.*")
[/autoit]
Ist nur eine Vermutung. Meine Kamera wird als Wechseldatenträger angezeigt, also kann ichs damit nicht ausprobieren, aber mein Vater hat auch ne powershot, wenn der wider da is probier ich mal ein wenig rum!
MfG Spider
Hallo!
/me hat lust Wer macht den server? Lucas, ein Freund, kommt auch gleich hierhin.. dann sind wir schon 2
Mfg Spider
Hallo
Ich wäre auch für mindestens 2 Termine! Und wer komm kann, kommt wer nicht der eben nicht Das wäre wahrscheinlich die Beste lösung für alle...
Mfg Spider
Hallo!
Ok, steht schon ein termin fest? Wie gesagt, ich würde es gerne heute machen... Wobei Montag,Dienstag und Mittwoch auch kein Problem ist, da an unserer Schule abiprüfungen sind.
Mfg Spider
Hallo!
Genau da wo du auch den start und das ende definierts! Nur das das teil was du anklicken musst Blau ist!
Mfg Spider
Hallo!
Oh der post funktioniert wider! Super^^ Dann auch mal ein herzliches Glückwunsch zu 2000send posts.. Vielen dank für deine super Administration. Ohne dich wäre das Forum nix (alleinschon weil es deine idee war :D)
Respekt!
Mfg Spider
Hallo!
SH rockt trozdem (wollte nur mal diesen smylie iwo loswerden, weil ich ihn bisher noch nich eingeweit hab -.-^^) Ausserdem haben wir dafür montag dienstag und mittwoch frei (abiturprüfungen) naja.. mittw muss ich aber trozdem hin, weil die gestaltengruppe einen auftritt übt und ich muss da tontechnick machen... hab keine lust zu.. naja^^ [/offtopic]
Jo, in der scite hilfe findet man auch ziemlich viel über abbrevations usw, lohnt sich mal reinzugucken
Mfg Spider
Hallo....
Wie gesagt.. fänd 16.06 bessser..
Mfg Spider
Hallo!
Dann aber 16ter pls, am freitag (15.) hab ich Inlinehockey..
16ter passt auch in sofern, weil ich da ne kleine dreierlan machen wollte... dann können wir die anderen ja auch mitzockn!
Mfg Spider
Hallo!
Jo, ich mach mit! *schnellingalendaguck* am 14. hab ich dummerweise E-gitarre.. aber wenn wirs so um 3 anfangen dann geht das.. oder wir fangen um 19h an...
Mfg Spider
Hallo!
hier (2 sekunden googln)... http://www.pcfreunde.de/download/detai…h-analysis.html
Edit: So... Also, hab nun das Skript ganz passabel erstellt (ist noch nicht besodners benutzerfreundlich das kommt aber später^^) Also Jetzt will ich halt Kurven darstellen.. Da muss ich doch eigentlich nur eine For schleife machen von $x nach $y und das halt mit Step 1 bzw -1 hab es mal gemacht (und verscheiden variiert) aber immer das selbe ergebnis: also eigentlich nich das selbe ergebnis aber aufjedenfall nicht so wie ich es will^^ Kann mir Nochmal jemmand helfen? _InitalizeFunc() Ist die funtkion wo er das eigentlich machen sollte
#include <GUIConstants.au3>
#include <array.au3>
Global $WidthGra = 480
Global $HeightGra = 480
Global $Funktions[3][3]
$Funktions[0][0] = "(x+1)²"
$Funktions[0][1] = 1
$Funktions[0][2] = 2
$Funktions[1][0] = "(x+1)²"
$Funktions[1][1] = 2
$Funktions[1][2] = 3
$Funktions[2][0] = "(x+1)²"
$Funktions[2][1] = 3
$Funktions[2][2] = 4
Global $maingui, $gra, $tip = "Koordinaten:"
[/autoit] [autoit][/autoit] [autoit]$maingui = GUICreate("Funktionen Grafisch darstellen - By GtaSpider", $WidthGra + 20, $HeightGra + 40)
$ans = GUICtrlCreateMenu("Ansicht")
$grid = GUICtrlCreateMenuItem("Gitternetz", $ans)
$gra = GUICtrlCreateGraphic(10, 10, $WidthGra, $HeightGra)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $WidthGra / 2, $WidthGra - 10)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $WidthGra / 2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $HeightGra - 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
_CreateGraphicSteps(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
GUISetState()
_InitalizeFunc()
[/autoit] [autoit][/autoit] [autoit]Sleep(500)
[/autoit] [autoit][/autoit] [autoit]If MsgBox(4, "", "Ändere Breite&Höhe?") = 6 Then
_ChangeGraPos(800, 800, 1)
_InitalizeFunc()
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $grid
If BitAND(GUICtrlRead($grid), $GUI_CHECKED) <> $GUI_CHECKED Then
_ChangeGraPos($WidthGra, $HeightGra, 1)
_CreateGrid(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
_InitalizeFunc()
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
GUICtrlSetState($grid, $GUI_CHECKED)
Else
_ChangeGraPos($WidthGra, $HeightGra, 1)
_InitalizeFunc()
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
GUICtrlSetState($grid, $GUI_UNCHECKED)
EndIf
EndSwitch
WEnd
Func _ChangeGraPos($iWidth, $iHeigth, $guiChange = 0)
Global $WidthGra = $iWidth
Global $HeightGra = $iHeigth
GUICtrlDelete($gra)
$gra = GUICtrlCreateGraphic(10, 10, $WidthGra, $HeightGra)
GUICtrlSetTip(-1, $tip)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $WidthGra / 2, $WidthGra - 10)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $WidthGra / 2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $HeightGra - 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
_CreateGraphicSteps(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
;~ WinMove
If $guiChange Then WinMove($maingui, "", Default, Default, $WidthGra + 26, $HeightGra + 67)
EndFunc ;==>_ChangeGraPos
Func _InitalizeFunc()
Local $aFunc, $iStep = 1
For $i = 0 To UBound($Funktions, 1) - 1
$aFunc = _func($Funktions[$i][0], $Funktions[$i][1], $Funktions[$i][2]); ,0
If $aFunc[0] > $aFunc[1] Then $iStep = -1
#cs
For $b = $aFunc[0] To $aFunc[1] Step $iStep
ConsoleWrite($b & @CRLF)
$PixFunc1 = _IntToPix($aFunc[0], $Funktions[$i][1], 10)
$PixFunc2 = _IntToPix($aFunc[1],$b, 10)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0x0000ff)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $PixFunc1[0], $PixFunc1[1])
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $PixFunc2[0], $PixFunc2[1])
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
$tip &= @CRLF&$aFunc[0]&"x"&$aFunc[1]
GUICtrlSetTip($gra,$tip)
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
Next
#ce
Next
EndFunc ;==>_InitalizeFunc
Func _func($Fx, $x1, $x2, $iDraw = 1)
Local $func1, $func2, $ss, $sBuff, $aRet[2]
$ss = StringSplit($Fx, "x")
For $i = 1 To $ss[0]
If StringIsAlNum(StringRight($ss[$i], 1)) And $i <> $ss[0] Then
ConsoleWrite($ss[$i] & "*" & $x1 & @CRLF)
$sBuff &= $ss[$i] & "*" & $x1
Else
$sBuff &= $ss[$i]
If $i <> $ss[0] Then $sBuff &= $x1
EndIf
Next
$func1 = StringReplace(StringReplace($sBuff, "²", "^2"), "³", "^3")
$sBuff = ""
$ss = StringSplit($Fx, "x")
For $i = 1 To $ss[0]
If StringIsAlNum(StringRight($ss[$i], 1)) And $i <> $ss[0] Then
ConsoleWrite($ss[$i] & "*" & $x2 & @CRLF)
$sBuff &= $ss[$i] & "*" & $x2
Else
$sBuff &= $ss[$i]
If $i <> $ss[0] Then $sBuff &= $x2
EndIf
Next
$func2 = StringReplace(StringReplace($sBuff, "²", "^2"), "³", "^3")
$aRet[0] = Execute($func1)
$aRet[1] = Execute($func2)
If $iDraw = 1 Then
$PixFunc1 = _IntToPix(Execute($func1), $x1, 10)
$PixFunc2 = _IntToPix(Execute($func2), $x2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0xff0000)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $PixFunc1[0], $PixFunc1[1])
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $PixFunc2[0], $PixFunc2[1])
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
$tip &= @CRLF & Execute($func1) & "x" & Execute($func2)
GUICtrlSetTip($gra, $tip)
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
EndIf
Return $aRet
;~ MsgBox(0, "", "F(x1)=" & $func1 &"="&Execute($func1)& @LF & "F(x2)=" & $func2&"="&Execute($func2))
EndFunc ;==>_func
Func _CreateGrid($iPixels, $iX, $iY, $iWidth, $iHeigth)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0xcccccc)
For $x = $iX To $iWidth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $x, $iPixels)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, $iWidth + $iPixels)
Next
For $y = $iY To $iHeigth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $iPixels, $y)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $iWidth + $iPixels, $y)
Next
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
EndFunc ;==>_CreateGrid
Func _CreateGraphicSteps($iPixels, $iX, $iY, $iWidth, $iHeigth)
For $x = $iX To $iWidth + $iPixels Step $iPixels
;~ ConsoleWrite($x & @CRLF)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $x, ($iWidth / 2) + 5)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, ($iWidth / 2) + 15)
;~ GUICtrlCreateLabel(Round(($x/$iPixels)-($iWidth/$iPixels/2)),$x+5,($iWidth/2)+5,$iPixels)
;~ GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
Next
For $y = $iY To $iHeigth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, ($iHeigth / 2) + 5, $y)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, ($iHeigth / 2) + 15, $y)
Next
EndFunc ;==>_CreateGraphicSteps
Func _IntToPix($iX, $iY, $iPixels)
Local $aRet[2]
$aRet[0] = ($WidthGra / 2) + ($iX * $iPixels)
$aRet[1] = ($HeightGra / 2) - ($iY * $iPixels)
GUICtrlSetGraphic($gra, $GUI_GR_DOT, $aRet[0], $aRet[1])
Return $aRet
EndFunc ;==>_IntToPix
Edit2: So ist es natürlich quatsch^^ aber geht das überhaupt?
mfg spider
Hallo!
Danke Wie so oft geht es nich darum so gut wie andere zu sein, sondern um etwas zu lernen! (Jaaaa.. Sogar ich lerne noch dazu xD)
Mfg Spider
Hallo Nochmal
So, meine vorerst beta version: Leider noch ohne kurve, dafür aber mit strichen^^ Probiert sie bitte mal und sagt mir bitte ob sie funktioniert und was ihr davon haltet..
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Global $WidthGra = 580
Global $HeightGra = 580
Global $maingui, $gra
[/autoit] [autoit][/autoit] [autoit]$maingui = GUICreate("Funktionen Grafisch darstellen - By GtaSpider", $WidthGra + 20, $HeightGra + 40)
$ans = GUICtrlCreateMenu("Ansicht")
$grid = GUICtrlCreateMenuitem("Gitternetz", $ans)
$gra = GUICtrlCreateGraphic(10, 10, $WidthGra, $HeightGra)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $WidthGra / 2, $WidthGra - 10)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $WidthGra / 2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $HeightGra - 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
_CreateGraphicSteps(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
GUISetState()
_func("(x+1)²", 1, 2)
_func("(x+1)²", 2, 3)
_func("(x+1)²", 3, 4)
Sleep(500)
[/autoit] [autoit][/autoit] [autoit]If MsgBox(4, "", "Ändere Breite&Höhe?") = 6 Then
_ChangeGraPos(800, 800, 1)
_func("(x+1)²", 1, 2)
_func("(x+1)²", 2, 3)
_func("(x+1)²", 3, 4)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $grid
_CreateGrid(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
EndSwitch
WEnd
Func _ChangeGraPos($iWidth, $iHeigth, $guiChange = 0)
Global $WidthGra = $iWidth
Global $HeightGra = $iHeigth
GUICtrlDelete($gra)
$gra = GUICtrlCreateGraphic(10, 10, $WidthGra, $HeightGra)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $WidthGra / 2, $WidthGra - 10)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $WidthGra / 2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $HeightGra - 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 10, $HeightGra / 2)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
_CreateGraphicSteps(10, 10, 10, $WidthGra - 20, $HeightGra - 20)
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
;~ WinMove
If $guiChange Then WinMove($maingui, "", Default, Default, $WidthGra + 26, $HeightGra + 67)
EndFunc ;==>_ChangeGraPos
Func _func($Fx, $x1, $x2)
Local $func1, $func2, $ss, $sBuff
$ss = StringSplit($Fx, "x")
For $i = 1 To $ss[0]
If StringIsAlNum(StringRight($ss[$i], 1)) And $i <> $ss[0] Then
ConsoleWrite($ss[$i] & "*" & $x1 & @CRLF)
$sBuff &= $ss[$i] & "*" & $x1
Else
$sBuff &= $ss[$i]
If $i <> $ss[0] Then $sBuff &= $x1
EndIf
Next
$func1 = StringReplace(StringReplace($sBuff, "²", "^2"), "³", "^3")
$sBuff = ""
$ss = StringSplit($Fx, "x")
For $i = 1 To $ss[0]
If StringIsAlNum(StringRight($ss[$i], 1)) And $i <> $ss[0] Then
ConsoleWrite($ss[$i] & "*" & $x2 & @CRLF)
$sBuff &= $ss[$i] & "*" & $x2
Else
$sBuff &= $ss[$i]
If $i <> $ss[0] Then $sBuff &= $x2
EndIf
Next
$func2 = StringReplace(StringReplace($sBuff, "²", "^2"), "³", "^3")
$PixFunc1 = _IntToPix(Execute($func1), $x1, 10)
$PixFunc2 = _IntToPix(Execute($func2), $x2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $PixFunc1[0], $PixFunc1[1])
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $PixFunc2[0], $PixFunc2[1])
GUICtrlSetGraphic($gra, $GUI_GR_REFRESH)
;~ MsgBox(0, "", "F(x1)=" & $func1 &"="&Execute($func1)& @LF & "F(x2)=" & $func2&"="&Execute($func2))
EndFunc ;==>_func
Func _CreateGrid($iPixels, $iX, $iY, $iWidth, $iHeigth)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0xaaaaaa)
For $x = $iX To $iWidth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $x, $iPixels)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, $iWidth + $iPixels)
Next
For $y = $iY To $iHeigth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $iPixels, $y)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $iWidth + $iPixels, $y)
Next
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
EndFunc ;==>_CreateGrid
Func _CreateGraphicSteps($iPixels, $iX, $iY, $iWidth, $iHeigth)
For $x = $iX To $iWidth + $iPixels Step $iPixels
;~ ConsoleWrite($x & @CRLF)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $x, ($iWidth / 2) + 5)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, ($iWidth / 2) + 15)
Next
For $y = $iY To $iHeigth + $iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, ($iHeigth / 2) + 5, $y)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, ($iHeigth / 2) + 15, $y)
Next
EndFunc ;==>_CreateGraphicSteps
Func _IntToPix($iX, $iY, $iPixels)
Local $aRet[2]
$aRet[0] = ($WidthGra / 2) + ($iX * $iPixels)
$aRet[1] = ($HeightGra / 2) - ($iY * $iPixels)
GUICtrlSetGraphic($gra, $GUI_GR_DOT, $aRet[0], $aRet[1])
Return $aRet
EndFunc ;==>_IntToPix
Mfg Spider
Hallo!
Ok, super^^ Habt ihr dann ne idee wie ich das von mir aus auch mit Punkten ($GUI_GR_PIXEL (oder so?!)) hinbekomm? also sozusagen den mittelwert berechnen kann... also den gesamten... also so das es halt ne kurve wird^^
mfg Spider
Hallo
Also.. ich wollte mit huggy ein programm schreiben (ich schreibe, er unterhält mich^^) was Lineare funktionen usw grafisch darstellen kann.. Nur stehe ich momentan aufm schlauch (fehlt mir wohl das mathematische denken^^)
So, wie mach ich das aber jetzt?^^ also die rechnung war kein problem ( f(x)=x+5 usw..) einfach mit Execute und stringreplace, aber wie stell ich dies grafisch dar? also die differenzen in einer kurve? hatte ne for schleife drin, die funktionierte aber irgendwie nicht -.- die funktion _IntToPixel stimmt überhaupt noch nicht (wegen plus und minus feldern usw) aber wie krieg ich zummindest ne kurve hin?
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICreate("", 500, 500)
$gra = GUICtrlCreateGraphic(10, 10, 480, 480)
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, 480 / 2, 470)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 480 / 2, 10)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, 470, 480 / 2)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, 10, 480 / 2)
GUICtrlSetGraphic($gra, $GUI_GR_PENSIZE, 1)
GUICtrlSetGraphic($gra, $GUI_GR_COLOR, 0)
_CreateGraphicSteps(10, 10, 10, 460, 460)
GUISetState()
_func("x+1", 5, 6)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _func($Fx, $x1, $x2)
Local $func1, $func2
$func1 = Execute(StringReplace($Fx, "x", $x1))
$func2 = Execute(StringReplace($Fx, "x", $x2))
GUICtrlSetGraphic($gra,$GUI_GR_REFRESH)
MsgBox(0, "", "F(x1)=" & $func1 & @LF & "F(x2)=" & $func2)
EndFunc ;==>_func
Func _CreateGraphicSteps($iPixels, $iX, $iY, $iWidth, $iHeigth)
For $x = $iX To $iWidth + $iPixels Step $iPixels
;~ ConsoleWrite($x & @CRLF)
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, $x, ($iWidth / 2) + 5)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, ($iWidth / 2) + 15)
Next
For $y = $iY To $iHeigth+$iPixels Step $iPixels
GUICtrlSetGraphic($gra, $GUI_GR_MOVE, ($iHeigth / 2) + 5,$y)
GUICtrlSetGraphic($gra, $GUI_GR_LINE, ($iHeigth / 2) + 15,$y )
Next
EndFunc ;==>_CreateGraphicSteps
Func _IntToPix($iInt,$iInt2,$iPixels)
;Das stimmt 100%ig noch nich aber ich wills zuminddest so zum laufen bringen das es eine kurve darstellt
GUICtrlSetGraphic($gra,$GUI_GR_DOT,$iInt * $iPixels,$iInt * $iPixels)
EndFunc
Wäre super wenn mir jemmand helfen könnte
Mfg Spider
Hallo!
RegExp kann man leider nicht so einfach verstehen.. es ist fast wie eine eigene Scriptsprache.. Hier auch mal ein deutsches tutoiral auf unserer Tutoiralseite:
http://wiki.autoit.de/wiki/index.php…_Ausdr.C3.BCcke
Mfg Spider
Hallo!
Ja, diese Funktion hab ich auch in meinem Pingtool (mein erstes wirkliches skript ( ach das waren noch zeiten *gernzurückerinner*)) Also, es gäbe auf jedenfall eine Möglichkeit, die ist natürlich aber nicht unbedingt sauber.. Guck dir mal meine _RunWait Funktion an. Da kann man auch ein timeout für ein Programm festlegen (wann es beendet werden soll..) Jetzt kannst du ein Programm schreiben was mit ConsoleWrite 1 oder 0 zurück gibt und was nur die aufgabe hat zu gucken ob vnc halt läuft.
So ungefair:
Das kleine Portscan programm (ich habs portscan.au3 geannant, musst du aber noch im skriptverzeichnis Compelieren!)
;Aufruf über cmdline: diedate.exe IPAdresse PORT
;z.B. Portscan.exe 192.168.0.1 5555
#NoTrayIcon
If $cmdline[0] < 2 Then Exit 6
$portsc = PortScan($cmdline[2], $cmdline[1])
ConsoleWrite($portsc)
Func PortScan($port, $ip)
TCPStartup()
Opt("TCPTimeout", 50)
$socket = TCPConnect($ip, $port)
If $socket = -1 Then
Return 0
Else
Return 1
EndIf
TCPShutdown()
EndFunc ;==>PortScan
Und hier das main prog:
MsgBox(0,"",PortScan(80,@IPAddress1,500));Port,IP,maximale zeit in milli sekudnen
[/autoit] [autoit][/autoit] [autoit]Func PortScan($port,$ip,$maxtime);Port,IP,maximale zeit in milli sekudnen
$get = _RunWait(@ScriptDir&"\portscan.exe "&$ip&" "&$port,@ScriptDir,@SW_HIDE,2,$maxtime)
If $get = "" Then
Return 0
Else
Return 1
EndIf
EndFunc
;===============================================================================
;
; Function Name: _RunWait
; Description:: Wartet bis eine Exe beendet, genauso wie RunWait (autoit) nur mit dem unterschied das die Exe ein Std I/O Stream ausgibt, und das es ein TimeOut gibt
; Parameter(s): $sExe: Der Name der Datei (EXE, BAT, COM, PIF), die Ausgeführt werden soll.
; $sWorkindir: [optional] Das Arbeitsverzeichnis.
; $sFlag: [optional] Das Flag wie das Programm gestartet werden soll (Siehe Run in der AutoIt Hilfe)
; $iIOFlag: [optional] Das Handle zu einen oder mehreren STD Input/Output streams des child prozesses. (siehe Run in der AutoIt Hilfe)
; $iTimeOut: [optional] Zeitbegrenzung in Millisekunden! Danach wird das Programm automatisch geschlossen.(mit ProcessClose)
; Requirement(s): -
; Return Value(s): Beim Erfolg: gibt den StdOutread des Programmes aus.
; Beim Error:
; @error = 1: Das Programm hat ein Error ausgegeben (StdErr)
; @error = 2: Das Programm hat ein timeout mit Error ausgabe (StdErr)
; @error = 3: Das Programm hat ein timeout mit ganz normaler ausgabe (StdOut)
; Author(s): GtaSpider
;
;===============================================================================
;
Func _RunWait($sFilename,$sWorkingdir="",$sFlag="",$iIOFlag="",$iTimeOut=0)
Local $pid = Run($sFilename,$sWorkingdir,$sFlag,$iIOFlag)
If $iTimeOut Then $timer = TimerInit()
While ProcessExists($pid)
Sleep(50)
If $iTimeOut Then
If TimerDiff($timer) >= $iTimeOut Then ExitLoop
EndIf
WEnd
If ProcessExists($pid) Then
ProcessClose($pid)
If StderrRead($pid) <> "" Then Return SetError(2,0,StderrRead($pid))
Return SetError(3,0,StdoutRead($pid))
EndIf
If StderrRead($pid) <> "" Then Return SetError(1,0,StderrRead($pid))
Return StdoutRead($pid)
EndFunc
Mfg Spider
Hallo!
Schön das es dich freud snoozer^^ Nur nochmal zur vervollständigung: noels und ich haben grade herrausgefunden, dass wenn man die main gui bewegt sich das child nicht mitbewegt..
Hier mal die Gefixte version:
#include <GUIConstants.au3>
#include <ie.au3>
$gui = GUICreate("",400,400)
GUISetState()
$gui2 = GUICreate("",380,380,10,10,$WS_CHILD,-1,$gui)
$ieobj = _IECreateEmbedded()
GUICtrlCreateObj($ieobj,0,0,380,380)
_IENavigate($ieobj,"www.google.de",0)
GUISetState(@SW_SHOW,$gui2)
GUISetState(@SW_DISABLE,$gui2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Mfg Spider
Edit: peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher peinlicher Rechtschreibfehler.. hoffe es ist nimmanden aufgefallen^^ jetzt weiß ich wie Gefixt geschrieben wird.. und zwar mit F nicht mit W xD
Hallo!
Wo liegt das problem? einfach ein Childwindows mit $WS_POPUP ins mainwindows packen, das childwindows dann mit @SW_DISABLE deaktivieren und im childwindow das obj reinpacken!
ähm.. so ungefair:
#include <GUIConstants.au3>
#include <ie.au3>
$gui = GUICreate("",400,400)
GUISetState()
$gui2 = GUICreate("",380,380,10,10,$WS_POPUP,$WS_EX_MDICHILD,$gui)
$ieobj = _IECreateEmbedded()
GUICtrlCreateObj($ieobj,0,0,380,380)
_IENavigate($ieobj,"www.google.de",0)
GUISetState(@SW_SHOW,$gui2)
GUISetState(@SW_DISABLE,$gui2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Mfg Spider