Beiträge von Alizame

[autoit]

$user32 = DllOpen("user32.dll")
$gdi32 = DllOpen("gdi32.dll")
$w = 400
$h = 400

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

Global $pi = 4 * ATan(1)

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

$hgui = GUICreate("Kleeblatt")
$hdc_gui = getdc($hgui)
GUISetState()

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

For $x = 1 To $w
For $y = 1 To $h
$r = Sqrt((($w / 2) - $x) ^ 2 + (($h / 2) - $y) ^ 2) / 190
$p = atan2(($w / 2) - $x, ($h / 2) - $y)
$l = $r / (((1 + Cos(4 * $p)) ^ 0.125) - (1 / 40 * (1 + Cos(8 * $p)) ^ 2))
$col = Int(1 / 5 * (2 - $l) ^ 0.215 * 4 + $l ^ 14 * 1 + 3 * $r * 256) * 256
pix($hdc_gui, $x, $y, $col)
Next
Next

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

While GUIGetMsg() <> -3
WEnd

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

Func atan2($y, $x)
return (2 * ATan($y / ($x + Sqrt($x * $x + $y * $y))))
EndFunc ;==>atan2

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

Func pix($dc, $x, $y, $color) ;pixel mit farbe an koordinaten setzen
DllCall($gdi32, "long", "SetPixel", "long", $dc, "long", $x, "long", $y, "long", $color)
EndFunc ;==>pix

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

Func GetDC($handle)
$dc = DllCall($user32, "int", "GetDC", "hwnd", $handle)
Return $dc[0]
EndFunc ;==>GetDC

[/autoit]

Hey, du hast aber Ahnung! Ich würde auch nicht dort kaufen, so ein Händler wie Dell, nur noch unverschämter ... Außerdem lernt man bei Selbstbau und hat die Gewissheit, dass kein Schrott verbaut ist, sondern von dir ausgewählte teile. Ich denke auch, das hellboy keine Wasserkühlung benötigt für die Sachen, die er macht (er will nicht übertakten). In der Zukunft werden keine weiteren Programme/Spiele entwickelt die 4 kerne unterstützen nee (es gibt sogar schon viele Viedeoconverter die das Unterstützen!)!!! Ganz bestimmt nicht du Er will den Rechner in 2 Jahren auch noch benutzen können und auch darauf dann neuere spiele spielen können ... (mit 2 kern hat er nicht sehr lange Spaß .Der 4 Kerner ist also gewappnet für die Zukunft! (Ach ja, damals mit der falschen Abfrage da hast DU auch erst mal richtig einen auf .. Hose gemacht, das waren meine Anfänge von Autoit, damals schon über 1 Jahr her ... ich wollte nur helfen, gut das bugfix es raus genommen hat, *beliebige Beleidigung einfügen*) warum der Roman? Weil mir das voll auf n adlhiosuj89r64u7-schuh geht! Hattest du nie im Deutschunterricht mal Argumentieren?Also ich schon!Und ich denke das hatten sehr viele von hier schon! Du anscheinend nicht, oder hast nicht aufgepasst? Du magst ja vielleicht älter sein, aber bestimmt nicht erwachsen!100%ig nicht! Ich teile meine Meinung mit anno2008 , Schrott PCs für viel Geld.. und wer benötigt wirklich eine wakü?nur Leute, die übertakten. Naja was bringts?

Artikel-Nr. HV20P396DE
AMD Phenom II X4 965 Black Edition Box, Sockel AM3
144,75 €

Artikel-Nr. HV1029DADE
Club 3D Radeon 5770 1024MB, ATI Radeon 5770, PCI-Express
131,92 €

Artikel-Nr. HV207LGLDE
LG GH22LP20 schwarz lightscribe Retail
24,22 €

Artikel-Nr. HV20CO43DE
4GB Corsair XMS3 DDR3-1333 CL9
55,61 €

Artikel-Nr. HV1128RNDE
ASRock 870 Extreme3, AM3, ATX
76,39 €

Rest habe ich noch da...

[Blockierte Grafik: http://img214.imageshack.us/img214/4196/unbenanntmf.png]

[autoit]

$Var = 123
If $Var = 123 Or $Var = 131 Then
MsgBox(0, "", "Gut") ;Die Zahl ist anders als 123 oder 131
Else
MsgBox(16, "", "Schlecht") ;Die Zahl ist 123 oder 131
EndIf

[/autoit]

[autoit]

Dim $Var[2] = [123, 222]
For $i = 0 To UBound($Var) - 1
If $Var[$i] = 123 Or $Var[$i] = 131 Then
MsgBox(0, "", "Gut") ;Die Zahl ist 123 oder 131
Else
MsgBox(16, "", "Schlecht") ;Die Zahl ist anders als 123 oder 131
EndIf
Next

[/autoit]

[autoit]

$Text = "Hallo Welt"
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode",1)
$Form1 = GUICreate("Buchstaben", 400, 200)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
$Label1 = GUICtrlCreateLabel($Text, 50, 50, 350, 150)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
_Label($Label1, $Text, 12)

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

While Sleep(1)
WEnd

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

Func _Label($Label, $Text, $delay = 50)
$ro = ""
$bj = ""
$j = 0
$End = ""
$ABC = " ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ßÄÖÜ.:,;/\()?{} "
$te = StringSplit($Text, "", 2 + 1)
$b = StringSplit($ABC, "", 2 + 1)
For $i = 0 To UBound($te) - 1
;
Do
Sleep($delay)
$j += 1
If $j = UBound($b) - 1 Then
$bj &= "?"
ExitLoop
EndIf

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

Sleep($delay)
GUICtrlSetData($Label, $bj & $b[$j])
Until $b[$j] = $te[$i]
;
$bj &= $b[$j]
Sleep($delay)
$j = 0
Next
EndFunc ;==>_Label

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

Func _Exit()
Exit
EndFunc

[/autoit]