Hallo,
Wow, das hört sich interessant an, das Beispiel sieht schon gut aus. Da bin ich mal gespannt, weiter so!
lg
Spider
p.s.: Hihi, hab auch am 27. Mai Geburtstag.
Hallo,
Wow, das hört sich interessant an, das Beispiel sieht schon gut aus. Da bin ich mal gespannt, weiter so!
lg
Spider
p.s.: Hihi, hab auch am 27. Mai Geburtstag.
Hallo,
Wooow:
[Blockierte Grafik: http://m61t.img-up.net/Unbenannt9dca.jpg]
Die Tipps die du hier bekommst, wegen dem sauberen Programmieren, haben nicht nur unbedingt was damit zu tun, ob du alleine Programmierst oder nicht, sondern haben auch den Vorteil, dass du dadurch eine bessere Performance bekommst (Zeitaufwand, Codelänge und Geschwindigkeit).
Aber natürlich trotzdem krass, dass du dir die Mühe gemacht hast und funktionieren tut es ja einwandfrei
Gruß,
Spider
Hallo,
Bin im englischem Forum auf was interessantes gestoßen:
http://www.autoitscript.com/forum/topic/14…-touch-message/
Und habe mal ein kleinen Test für die Zoom In/Out Funktion der WM_GESTURE Message implementiert die mit Multitouch arbeitet.
Hier ein Video: http://www.youtube.com/watch?v=HEPjYMFqQoA
Vielleicht kann es ja jemand gebrauchen
Gruß,
Spider
Hey
UEZ: war auch etwas verwirrt probiers mal so, echt schick
#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Global Const $PI = 3.14159265358979
Global Const $Deg2Rad = $PI / 180
Global Const $W = 500, $H = 500
[/autoit] [autoit][/autoit] [autoit]Global $GFX, $SLI, $PER, $PRO[3], $BUF, $BMP, $CNT, $NUM
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
$GUI = GUICreate('Test', $W, $H)
$GFX = _GDIPlus_GraphicsCreateFromHWND($GUI)
$BMP = _GDIPlus_BitmapCreateFromGraphics($W, $H, $GFX)
$BUF = _GDIPlus_ImageGetGraphicsContext($BMP)
_GDIPlus_GraphicsSetSmoothingMode($BUF, 4)
$SLI = GUICtrlCreateSlider(5, 5, 490, 30)
GUICtrlSetLimit(-1, 1000, 0)
;anz der bars, entfernung, drehrichtung/geschwindigkeit, farbe1, farbe2
$PRO[0] = _ProgressCreate(50, 20, 0.32, 0x0060FF, 0x30002080)
$PRO[1] = _ProgressCreate(10, 25, -0.75, 0xFF6000, 0x30802000)
$PRO[2] = _ProgressCreate(25, 35, 0.2, 0x00FF60, 0x30008020)
OnAutoItExitRegister('_Dispose')
GUISetOnEvent(-3, '_Event', $GUI)
GUISetState(@SW_SHOW, $GUI)
While Sleep(40);25fps
If $PER < 1 Then $PER += 0.01
$CNT += 1
_GDIPlus_GraphicsClear($BUF)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_ProgressDraw($BUF, $W / 4, $H / 3 + 25, 250, 35, $PER, $PRO[0])
_ProgressDraw($BUF, $W / 4 * 3, $H / 2 + 25, 150, 45, $PER, $PRO[1])
_ProgressDraw($BUF, $W / 2, $H / 4 * 3 + 25, 150, 15, $PER, $PRO[2])
_GDIPlus_GraphicsDrawImageRectRect($GFX, $BMP, 0, 50, $W, $H - 50, 0, 50, $W, $H - 50)
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit]Func _ProgressSet(ByRef $aProgress, $iAnzahl = 0, $nDist = 0, $nAniTempo = 0, $iCol = 0, $iColIdle = 0, $iPos = 0)
If $iCol Then $aProgress[1] = StringRight(Hex($iCol, 8), 6) ; Farbe des Ladebalkens (Alpha wird ignoriert), möglich ist also 0xFFAARRGGBB oder 0xRRGGBB
If $iColIdle Then $aProgress[2] = $iColIdle ; Farbe der nicht benutzen Flächen (Alpha ist relevant !)
If $iPos Then $aProgress[4] = $iPos ; Animationscounter (drehanimation)
If $iAnzahl Then $aProgress[5] = $iAnzahl ; Anzahl Segmente für den Ladebalken
If $nDist Then $aProgress[6] = 360 - 3.6 * $nDist ; Abstand zwischen den Segmenten (0 < $nDist < 100)
If $nAniTempo Then $aProgress[7] = $nAniTempo ; Drehgeschwindigkeit in Grad/Frame. (negativer Wert = drehung gegen deh Uhrzeigersinn)
EndFunc ;==>_ProgressSet
Func _ProgressCreate($iAnzahl = 9, $nDist = 10, $nAniTempo = 0.25, $iCol = 0xFF4080FF, $iColIdle = 0x20808080, $iStartPos = 0)
If Not $iStartPos Then $iStartPos = Random(0, 360)
Local $a[8]
$a[0] = _GDIPlus_PenCreate() ; GDI+ Pen
$a[1] = StringRight(Hex($iCol, 8), 6) ; Farbe des Ladebalkens (Alpha wird ignoriert), möglich ist also 0xFFAARRGGBB oder 0xRRGGBB
$a[2] = $iColIdle ; Farbe der nicht benutzen Flächen (Alpha ist relevant !)
$a[3] = 0 ; Animationscounter (100% Animation)
$a[4] = $iStartPos ; Animationscounter (drehanimation)
$a[5] = $iAnzahl ; Anzahl Segmente für den Ladebalken
$a[6] = 360 - 3.6 * $nDist ; Abstand zwischen den Segmenten (0 < $nDist < 100)
$a[7] = $nAniTempo ; Drehgeschwindigkeit in Grad/Frame. (negativer Wert = drehung gegen deh Uhrzeigersinn)
Return $a
EndFunc ;==>_ProgressCreate
Func _ProgressDraw($hGfx, $mx, $my, $d1, $d2, $nPercent, ByRef $aProgress)
$aProgress[4] += $aProgress[7]
Local $a, $b = 360 * $nPercent, $c, $d = $aProgress[6] / $aProgress[5], $e = $d1 / 50, $f = ($nPercent = 1), $g = $aProgress[4] - Int($aProgress[4]/360)*360
If $f Then
If $aProgress[3] < 15 Then $aProgress[3] += 1
$d2 *= 0.97 ^ $aProgress[3]
$aProgress[4] += $aProgress[7] * 1.1 ^ $aProgress[3]
Else
If $aProgress[3] > 0 Then
$aProgress[3] -= 1
$d2 *= 0.97 ^ $aProgress[3]
$aProgress[4] += $aProgress[7] * 1.1 ^ $aProgress[3]
EndIf
EndIf
For $i = 0 To $aProgress[5] - 1 Step 1
$a = $i * 360 / $aProgress[5] + $g
If $b >= 360 / $aProgress[5] Then
$c = 1
$b -= 360 / $aProgress[5]
Else
$c = $b / (360 / $aProgress[5])
EndIf
Switch $c
Case 0
Case 0 To 0.33
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x' & Hex(Int($c * 3 * 96) + 32, 2) & $aProgress[1])
Case 0.33 To 0.66
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x' & Hex(Int(($c - 0.33) * 150), 2) & 'FFFFFF')
Case 0.66 To 0.99
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x32FFFFFF')
_ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x' & Hex(Int(($c - 0.66) * 384), 2) & $aProgress[1], 3)
Case 0.99 To 1
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1])
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2 / 2, $a, $d, $aProgress[0], '0x32FFFFFF')
_ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0x80' & $aProgress[1], 3)
If $f Then _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0], '0xFF' & $aProgress[1], $e / 3)
EndSwitch
If $c < 1 Then
DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $aProgress[0], 'dword', $aProgress[2])
DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $aProgress[0], 'float', $d2)
For $j = $i + 1 To $aProgress[5] - 1 Step 1
$a = $j * 360 / $aProgress[5] + $aProgress[4]
$a -= Int($a / 360) * 360
_ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $a, $d, $aProgress[0])
Next
ExitLoop
EndIf
Next
EndFunc ;==>_ProgressDraw
Func _ProgressDelete(ByRef $aProgress, $iSLN = @ScriptLineNumber)
_GDIPlus_PenDispose($aProgress[0])
$aProgress = 0
EndFunc ;==>_ProgressDelete
Func _ProgressDrawPieSegment($hGfx, $mx, $my, $d1, $d2, $fStart, $fSweep, $hPen, $iCol, $dPen)
DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $hPen, 'dword', $iCol)
DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $hPen, 'float', $dPen)
DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2, 'float', $my - $d1 / 2, 'float', $d1, 'float', $d1, 'float', $fStart + ($dPen / ($d1 * $PI)) * 180, 'float', $fSweep - ($dPen / ($d1 * $PI)) * 360)
DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2, 'float', $my - $d1 / 2 + $d2, 'float', $d1 - $d2 * 2, 'float', $d1 - $d2 * 2, 'float', $fStart + ($dPen / (($d1 - $d2) * $PI)) * 180, 'float', $fSweep - ($dPen / (($d1 - $d2) * $PI)) * 360)
DllCall($ghGDIPDll, 'int', 'GdipDrawLine', 'handle', $hGfx, 'handle', $hPen, 'float', $mx + ($d1 - $d2 * 2 - $dPen) / 2 * Cos($fStart * $Deg2Rad), 'float', $my + ($d1 - $d2 * 2 - $dPen) / 2 * Sin($fStart * $Deg2Rad), 'float', $mx + ($d1 + $dPen) / 2 * Cos($fStart * $Deg2Rad), 'float', $my + ($d1 + $dPen) / 2 * Sin($fStart * $Deg2Rad))
DllCall($ghGDIPDll, 'int', 'GdipDrawLine', 'handle', $hGfx, 'handle', $hPen, 'float', $mx + ($d1 - $d2 * 2 - $dPen) / 2 * Cos(($fStart + $fSweep) * $Deg2Rad), 'float', $my + ($d1 - $d2 * 2 - $dPen) / 2 * Sin(($fStart + $fSweep) * $Deg2Rad), 'float', $mx + ($d1 + $dPen) / 2 * Cos(($fStart + $fSweep) * $Deg2Rad), 'float', $my + ($d1 + $dPen) / 2 * Sin(($fStart + $fSweep) * $Deg2Rad))
EndFunc ;==>_ProgressDrawPieSegment
Func _ProgressFillPieSegment($hGfx, $mx, $my, $d1, $d2, $fStart, $fSweep, $hPen, $iCol = 0)
If Not $iCol Then Return DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2 / 2, 'float', $my - $d1 / 2 + $d2 / 2, 'float', $d1 - $d2, 'float', $d1 - $d2, 'float', $fStart, 'float', $fSweep)
DllCall($ghGDIPDll, 'int', 'GdipSetPenColor', 'handle', $hPen, 'dword', $iCol)
DllCall($ghGDIPDll, 'int', 'GdipSetPenWidth', 'handle', $hPen, 'float', $d2)
DllCall($ghGDIPDll, 'int', 'GdipDrawArc', 'handle', $hGfx, 'handle', $hPen, 'float', $mx - $d1 / 2 + $d2 / 2, 'float', $my - $d1 / 2 + $d2 / 2, 'float', $d1 - $d2, 'float', $d1 - $d2, 'float', $fStart, 'float', $fSweep)
EndFunc ;==>_ProgressFillPieSegment
Func _Event()
Exit
EndFunc ;==>_Event
Func _Dispose($iSLN = @ScriptLineNumber)
For $i = 0 To UBound($PRO) - 1 Step 1
_ProgressDelete($PRO[$i])
Next
_GDIPlus_GraphicsDispose($BUF)
_GDIPlus_BitmapDispose($BMP)
_GDIPlus_GraphicsDispose($GFX)
_GDIPlus_Shutdown()
EndFunc ;==>_Dispose
Gruß
Spider
Hallo,
Willst du die lokale IP (wäre schwachsinn) oder die WAN-IP die du von deinem Provider bekommst? Letztere bekommst du von der Funktion _GetIP()
Gruß
Spider
Hallo,
Hatten das gleiche Problem. Waren vorher bei KD und hatten dort Internet und Telefon und dann nachträglich ein TV Angebot, aber Fernsehr hat um verrecken nichts gefunden. Liegt bei uns daran, dass sie im Keller alles neu gemacht haben und der Techniker TV gesperrt hat (da wir am anfang ja kein TV hatten), dies aber vergessen hat einzutragen. Also war danach noch mal ein Techniker hier, hat die Sperre rausgenommen und voila. Wir hatten Fernsehn (welches ich zwar nicht benutzte, aber ich glaub mein Mitbewohner freut sich drüber mit seinem 52"er )
Gruß,
Spider
Hej,
Für dein Problem mit der Auflösung hat glaub ich BugFix (?) eine Funktion geschrieben, die die Auflösung der verschiendenen Monitore angibt. Auf welchem Monitor die GUI sich befindet solltest du dann anhand der Position (WinGetPos) herausfinden können.
Dynamische Anpassung der Controls bekomsmte mit GUICtrlSetResizing hin
Gruß,
Spider
Oder etwas simpler:
Local $a, $b, $c
For $i = 1 To 10000
Switch Random(1, 10, 1)
Case 1
$a += 1
Case 2
$b += 1
Case Else
$c += 1
EndSwitch
Next
MsgBox(0,"",$a / 100 & "%" & " - " & $b / 100 & "% - " & $c / 100 & "%")
Schon mal von Google gehört?
http://www.autoitscript.com/forum/topic/61044-xml-to-array/
Hallo,
Ich höre auch sehr gerne Elektro, gerade zum feiern, aber ziemlich konträr zu dem was hier gehört wird, also schreibe ich den Post mal um mal ein wenig die vielfalt von Elektronischer Musik zu zeigen. Ich hab paar Freunde die auch Hardstyle/core hören, ich selber konnte dem aber irgendwie nie was abgewinnen
Wobei ich sagen muss, dass ich auch sehr gerne Dubstep. Sonst sehr gerne die vielen Variationen von Elektro die aber eher in richtung Minimal gehen. So ganz gibt es z.T. dafür wahrscheinlich noch keine richtige Bezeichnung, Minimal ist ja afaik einfach nur.. sehr sehr Einfach.
Sonst aber auch gerne DnB (Prodigy, pendulum, ...) fidget house (jesse rose) aber auch z.B. Chemical brothers oder Frittenbude.
Sehr gerne höre ich aber momentan auch sog. Elektro-Swing, Parov Stelar, Caravan Palace, ... wird auch gerne mit Minimal vereint (Alle Farben)
Mal ein paar Beispiele:
Umami: https://soundcloud.com/umamiinspace/conquer-the-night
Stereo-Express: https://soundcloud.com/umamiinspace/u…-express-get-up
Minimalmix: https://soundcloud.com/guerilla-kiel/g-m-o-t-m-jan-13-bodega
Jesse Rose (fidgedt house) : http://www.youtube.com/watch?v=faH3m6fIlgw
Oliver Koletzki: http://www.tape.tv/musikvideos/Ol…The-Devil-In-Me
Alle Farben: https://soundcloud.com/allefarben/daughter-youth-alle-farben <-- eher nicht zum feiern, aber trotzdem gut
Parov Stelar: http://www.youtube.com/watch?v=twqM56f_cVo
Caravan Palace: http://www.youtube.com/watch?v=gqiTM4_ES3I
Gruß,
Spider
Hey,
Schön ist das nicht, aber es funktioniert:
#include <Array.au3>
$aPage = _GetChromePage()
_ArrayDisplay($aPage)
Func _GetChromePage()
Local $aRet
$sText = WinGetText("[CLASS:Chrome_WidgetWin_1]")
$aRet = StringSplit(StringTrimRight($sText,1),@LF,1+2)
If @error Then Return SetError(0,0,@error)
Return $aRet
EndFunc
Sonst kannst du bei IE zumindest via _IEAttach eine aktive Sitzung anzapfen.
Gruß
Spider
Bekommst du das jetzige Logo ohne die Jahreszahlen hin? Dafür autoit.de minimal größer, dann wäre es für mich mehr als ausreichend.
Das bekomme ich hin, aber erst wenn ich wieder in meiner Heimat bin, ich schätze am 3. Januar.
Lieben Gruß,
Spider
Sieht super aus, aber mir persönlich gefallen die schwarzen Tupfer nicht so sehr...
Selber kann ich leider nichts zusteuern, ich bin grafisch komplett unbegabt.lg chess
Ich sehe es auch gerade, das liegt an der hohen Auflösung des Bildes, nachher wenn es in der kleinen Auflösung zu sehen ist, nimmt man sie nur als eine Art Schatten wahr Ähnliches habe ich auch mit unserem aktuellen Logo gemacht.
Edit: So würde es aussehen:
[Blockierte Grafik: http://w70t.img-up.net/Unbenannt964c.jpg]
Gruß
Hallo,
Ich fahre jetzt gleich in den Urlaub um Silvester zu Zelebrieren und schaffe es daher nicht mehr mir noch was neues wegen dem Logo zu überlegen. Mein bisheriger Vorschlag (das Logo, das momentan aktiv ist) gefällt mir nicht mehr so gut, da es a) mit manchen Designs nicht zusammenpasst und b) ich es jedes Jahr ändern muss Im Anhang ist nun ein neuer Vorschlag wo vlt noch ein wenig feinschliff fehlt, falls sich da jemand ransetzen möchte kann er dies gerne tun.
'Aber ich möchte hiermit auch User anregen ihre eigenen Logoentwürfe zu präsentieren und das beliebteste können wir dann ja einfach verwenden.
hier eine Vorschau:
[Blockierte Grafik: http://t38t.img-up.net/Design2bd23.jpg]
Und hier die JPG, PNG und PSD Dateien':
http://www7.zippyshare.com/v/14700486/file.html
Gruß,
Spider
Hey remora,
there is also an english autoit forum out there: https://autoit.de/www.autoitscript.com/forum
Your question is quite easy to answer. you have to check the date with an easy if condition. therefor you can use marcos like @year @mday and @mon and maybe the time (@hour...). to play a song take a look at SoundPlay in your helpfile, to show a message you could use msgbox and to change the wallpaper you could aks google.
greets,
Spider
Mit dem kleinen Unterschied, dass man kein Auto mit Klimaanlage aufgezwungen bekommt, sondern diese dazu kaufen kann, wenn man diese will.
Womit ich bei dem Punkt bin, der mich bei Windows 8 am meisten zum Nachdenken bringt: Warum hat Microsoft keinen "Schalter" für die Metro-Oberfläche eingebaut. Wenn man will, kann man diese Aktivieren und wenn man eben nicht will, dann lässt man es eben. Technisch wäre das ja sicher machbar gewesen.
Wie gesagt, mich stört es nicht wirklich, aber trotzdem gebe ich dir natürlich recht. Das war schlichtweg Dumm von Microsoft
Hey,
Ich finde das sollte am besten jeder selbst herausfinden. Ich habe Windows 8 seit der zweiten Beta auf meinem PC und die RTM schon zwei Monate und bin mit zwei Bildschirm die kein Touch haben sehr zufrieden.
Das das Konzept von zwei UIs kompletter Bullshit ist will ich hier gar nicht dementieren, aber mich stört die Metro (oder MUI oder what ever) auch nicht wirklich. Nett finde ich den Kalender respektive die Integration von Google (Ja, ich bin auch google Nutzer, bitte keine Steine werfen ) mit der Kontakt/Mail/Kalender Sync finde ich ziemlich genial. Aber außer in den gerade erwähnten Anwendungen bin ich auf meinem PC nicht in der Metro sondern aufm Desktop.
Zum Geschwindigkeitaspekt: Ja, Windows 8 ist schneller und fühlt sich schneller an, allerdings wenn man, so wie ich, eine SSD drin hat wäre das für mich nicht der Hauptgrund auf Windows 8 zu wechseln. Ich habe es getan, weil ich es wirklich komplett unter die Lupe nehmen wollte und mich zwingen wollte es gründlich zu testen.
Windows 8 mit Vista zu vergleichen finde ich kritisch, Vista war geplagt von Abstürzen, BSODs, Treiberinkompatiblität etc. Diese Problem hat Windows 8 nicht, einmal hatte ich ein BlueScreen in der Beta (der mittlerweile viel schöner ist ) und sonst auch nie ein Problem wegen Kompatiblität oder Programmabstürzen. Im Gegenteil, Windows 8 macht vieles weitaus besser als Windows 7, angefangen von der Updatefunktion bis hin zu dem verbesserten Explorer und tausenden anderen "Kleinigkeiten"
Was ich eigentlich nur sagen will: Ausprobieren, eine Chance geben und die Metro bitte nicht als Hauptgrund nehmen, Windows 8 sich nicht zu installieren. Das ist meiner Meinung nach so, als ob man sich ein Auto nicht kaufen würde, weil es eine Klimaanlage hat, man aber keine Klimaanlagen mag
Gruß,
Spider
Jep, solange du die Kommandozeilenparameter mit Switch abfängst. /ErrorStdOut müsstest du dann halt filtern, das er da nichts tut
Hey,
Das Funktioniert mit dem Parameter /ErrorStdOut hinter der Exe. Gibt im StdOut eine Fehlermeldung, aber nicht als MsgBox. Die wiederrum kannste Abfangen mit einem extra Skript.
Gruß,
spider