Hallo
Nein gibt es nicht! Jedenfalls nicht direkt. Firefox hat es irgendwie geschafft (siehe unten Rechts, wenn eine Seite geladen wird), frag mich aber nicht wie.
Vielleicht mit GDI+ und dann selbst gezeichnet.
Mfg Spider
Hallo
Nein gibt es nicht! Jedenfalls nicht direkt. Firefox hat es irgendwie geschafft (siehe unten Rechts, wenn eine Seite geladen wird), frag mich aber nicht wie.
Vielleicht mit GDI+ und dann selbst gezeichnet.
Mfg Spider
Hallo
Ja, war schon klar
Trotzdem Round benutzen:
ZitatRound ( expression [, decimalplaces] )
Also Round($result,3)
Mfg Spider
Hallo
Mal ein "bisschen" aufgeräumt. Benutze bei sowas Eval/Assign oder gleich Arrays..
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Durchschnitt Rechner", 254, 334)
$Label1 = GUICtrlCreateLabel("Deutsch:", 16, 32, 47, 17)
$Label2 = GUICtrlCreateLabel("Mathe:", 24, 56, 37, 17)
$Label3 = GUICtrlCreateLabel("Englisch:", 16, 80, 47, 17)
$Input1 = GUICtrlCreateInput("", 72, 32, 41, 21)
$Input2 = GUICtrlCreateInput("", 72, 56, 41, 21)
$Input3 = GUICtrlCreateInput("", 72, 80, 41, 21)
$Input4 = GUICtrlCreateInput("", 72, 104, 41, 21)
$Label4 = GUICtrlCreateLabel("© Burak K.", 100, 8, 98, 17)
$Label5 = GUICtrlCreateLabel("Erdkunde:", 8, 104, 53, 17)
$Input5 = GUICtrlCreateInput("", 72, 128, 41, 21)
$Label6 = GUICtrlCreateLabel("Wirtschaft:", 8, 128, 55, 17)
$Label7 = GUICtrlCreateLabel("Geschichte:", 2, 152, 61, 17)
$Input6 = GUICtrlCreateInput("", 72, 152, 41, 21)
$Input7 = GUICtrlCreateInput("", 72, 176, 41, 21)
$Input8 = GUICtrlCreateInput("", 72, 200, 41, 21)
$Label8 = GUICtrlCreateLabel("Sport:", 32, 176, 32, 17)
$Label9 = GUICtrlCreateLabel("Technik:", 16, 200, 46, 17)
$Label10 = GUICtrlCreateLabel("Religion:", 152, 32, 45, 17)
$Input9 = GUICtrlCreateInput("", 208, 32, 41, 21)
$Label11 = GUICtrlCreateLabel("Physik:", 160, 56, 38, 17)
$Input10 = GUICtrlCreateInput("", 208, 56, 41, 21)
$Input13 = GUICtrlCreateInput("", 208, 80, 41, 21)
$Input11 = GUICtrlCreateInput("", 208, 104, 41, 21)
$Label12 = GUICtrlCreateLabel("Musik:", 160, 104, 35, 17)
$Label13 = GUICtrlCreateLabel("Hauswirtschaft:", 120, 128, 77, 17)
$Input12 = GUICtrlCreateInput("", 208, 128, 41, 21)
$Label14 = GUICtrlCreateLabel("Bio:", 176, 152, 22, 17)
$Label15 = GUICtrlCreateLabel("Chemie:", 152, 80, 42, 17)
$Input14 = GUICtrlCreateInput("", 208, 152, 41, 21)
$Input15 = GUICtrlCreateInput("Durchschnitt", 64, 256, 121, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$Label16 = GUICtrlCreateLabel("Dein Durchschnitt:", 0, 232, 252, 17, $SS_CENTER)
$Label17 = GUICtrlCreateLabel("Bewertung", 0, 280, 254, 17, $SS_CENTER)
$Button1 = GUICtrlCreateButton("ausrechnen", 88, 304, 75, 25, 0)
For $i = 1 To 14
GUICtrlSetLimit(Eval("Input"&$i), 1);GuiCtrlSetLimit gibt an wieviel Stellen sein dürfen bei einem Input, nicht wie groß die Zahl sein darf
Next
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]$begin = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$add = 0
$anzahl = 0
For $i = 1 To 14
$read = Number(GUICtrlRead(Eval("Input" & $i)))
If $read Then
$add += $read
$anzahl += 1
EndIf
Next
$result = $add / $anzahl
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($Input15, StringLeft($result, 5))
[/autoit] [autoit][/autoit] [autoit]$note = StringLeft($result, 3);StringLeft?!?!? Benutze da lieber Round
[/autoit] [autoit][/autoit] [autoit]If $note = 6 Then GUICtrlSetData($Label17, "Wie dumm bist du eigentlich?")
If $note = 5 Then GUICtrlSetData($Label17, "Schlecht, schlecht, schlecht ;(")
If $note = 4 Then GUICtrlSetData($Label17, "Naja gerade mal ausreichend :(")
If $note = 3 Then GUICtrlSetData($Label17, "Jaa geht noch.")
If $note = 2 Then GUICtrlSetData($Label17, "Das ist doch schonmal gut^^")
If $note = 1 Then GUICtrlSetData($Label17, "Perfekt")
[/autoit] [autoit][/autoit] [autoit]EndSwitch
WEnd
Mfg Spider
Hallo
Das AutoIt Logo (autoit.bmp heißt die Datei schließlich )
Mfg Spider
Hallo
Du kannst jetzt nicht sagen Linux kann mehr als Windows.
Gut vielleicht kann man mit Windows nicht irgendwelche Fenster zu Wackelpudding machen, dafür kann es andere Dinge besser
Ich meine ich weiß ja warum ich nicht auf Linux wechsle, sondern es nur als 2. OS benutze.
Mfg Spider
Hallo
Grade bei neuen Usern wie dir, Hellwave, sind die misstrauischen Kommentare von Xeno mehr als verständlich.
Es gibt immer mehr Script Kiddies die mit AutoIt anfangen. (Ich will dich hier nicht als ein solches beschimpfen, sondern dir nur nahe bringen, warum Xeno so reagiert)
Xenos Aufgabe ist es, dass Forum sauber zu halten.
Auch wenn sein Kommentar vielleicht nicht zu treffen mag, hat das noch lange nicht dein frechen Beitrag zu rechtfertigen!
Das ist einfach nur respektlos und wird hier auch nicht geduldetet, ich hoffe, dass das nicht wieder passieren wird. [Blockierte Grafik: http://www.cryptload-board.de/wcf/images/smilies/nivea.gif]
Und die Verwarnung sollst du bekommen.
Mfg Spider
Hallo
Etwas schicker vom Source geht es vielleicht mit SetWindowTheme. So kann man nämlich einzelne Controls ansteuern, und muss nicht immer das ganze AutoIt Script auf Alt Trimmen:
#include<SliderConstants.au3>
#include<StaticConstants.au3>
#include<GUIConstantsEx.au3>
#include<ProgressConstants.au3>
Global $hGui = GUICreate('Klassische Progressbar', 420, 280, -1, -1)
[/autoit] [autoit][/autoit] [autoit]Global $hProgress1 = GUICtrlCreateProgress(15, 20, 384, 20, $PBS_SMOOTH) ; obere Progressbar erstellen
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "");Nur das obere Control in old Style machen
GUICtrlSetColor(-1, 0x22FF22)
GUICtrlSetBkColor(-1, 0xEEEEEE)
GUICtrlCreateLabel('|', 18, 40, 20, 16) ; Anzeige von 0%
GUICtrlCreateLabel('0%', 11, 56, 25, 16, $SS_CENTER)
GUICtrlCreateLabel('|', 396, 40, 20, 16) ; Anzeige von 100%
GUICtrlCreateLabel('100%', 389, 56, 25, 16, $SS_CENTER)
Global $hLabel1 = GUICtrlCreateLabel('0%', 190, 24, 30, 14, $SS_CENTER) ; Prozentanzeige innerhalb der Progressbar
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) ; Transparenter Hintergrund für das Label
Global $hProgress2 = GUICtrlCreateProgress(15, 160, 384, 20, $PBS_SMOOTH) ; untere Progressbar erstellen
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "");Nur das obere Control in old Style machen
GUICtrlSetColor(-1, 0xC83131)
GUICtrlSetBkColor(-1, 0xEEEEEE)
For $i = 0 To 100 Step 10 ; die Anzeige für die Prozentwerte der unteren Progressbar erstellen
GUICtrlCreateLabel('|', 16 + $i * 3.8, 180, 20, 16)
GUICtrlCreateLabel($i & '%', 9 + $i * 3.8, 196, 25, 16, $SS_CENTER)
Next
Global $hSlider = GUICtrlCreateSlider(5, 130, 404, 28, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS))
GUICtrlSetData(-1, 33) ; Sliderwert auf 33% setzen (als Beispiel)
Global $hClose = GUICtrlCreateButton('Close', 180, 240, 60, 24)
GUISetState(@SW_SHOW)
Global $iAddend = 1 ; globale Variable (dient als Summand für _SetProgress)
AdlibEnable('_SetProgress', 30)
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $hClose
Exit
EndSwitch
WEnd
Func _SetProgress()
Local $iPercent = GUICtrlRead($hProgress1) ; Prozentwert der oberen Progressbar auslesen
If $iPercent = 100 Or $iPercent = 0 Then $iAddend = -$iAddend ; wenn 100 oder Null, dann den Summand negieren
GUICtrlSetData($hProgress1, $iPercent + $iAddend) ; neuen Wert der oberen Progressbar schreiben
GUICtrlSetData($hLabel1, $iPercent + $iAddend & '%') ; neuen Wert für das Label schreiben
GUICtrlSetData($hProgress2, GUICtrlRead($hSlider)) ; und den Wert vom Slider in die untere Progressbar schreiben
EndFunc ;==>_SetProgress
Mfg Spider
Hallo
Wer gestern Nacht noch etwas in der Shoutbox gelauscht hat, hat mitbekommen, dass ich das gleiche gemacht hab
AeroPeak konnte ich auch noch nicht testen. Zur Geschwdigkeit: Das hat nichts zu sagen. Vista hat fast genauso schnell bei der VMWare gebraucht.
Funktioniert natürlich mit Festplattenschnelles LW (ISO) weitaus schneller
Was mich allerdings bei der Installation positiv überrascht hat: Sofort nach der Installation hat er ohne ein Neustart zu machen direkt Windwos7 gestartet.
Das hatte ich bisher noch bei keiner Windows Installation
Taskleiste gefällt mir auch sehr gut, kann man mit 2 einfachen klicks auch wieder auf eine Vista/XP ähnliche Taskleiste machen, trotzdem aber mit gleichen Funktionen.
Oder man ändert einfach den Skin auf Vista/98 Style. Dann hat man aber nicht mehr die Vorteile der Peak Tasleiste, wie z.B. frei Positionierbare Schnellstart Items, oder die Prozentbar anzeige in der Taskleiste, wenn ein Programm z.B. was installiert.
Was mich auch extrem wunderte: Trotz VMWare, Windows Beta, intensiever Test und kein Neustart hat das System > 1h ausgehalten. Nach ca 1h hab ichs dann heruntergefahren.
Alles in allem sind ein paar neue Features dabei, aber ich denke (hoffe) das M$ sich diesmal auf Stabilität gesetzt hat. Meiner Meinung nach, kann Win7 ein Meilenstein werden, ähnlich wie z.B. XP.
Mfg Spider
Hallo
Guck dir mal den Befehl InputBox an.
Oder benutzt Guictrlcreateinput und GuiSetState($hInput,$GUI_SHOW) bzw $GUI_HIDE
Mfg Spider
Hallo
InetGet und FileRead oder _InetGetSource
Mfg Spider
Hallo
Vor ungelogen 2 Minuten bei DAU-Jones gelesen
Köstlich
Mfg Spider
Hallo
Besteht denn hier größeres Interesse?
Ist immer mit etwas Aufwand verbunden, aber wenn hier paar Photoshopler unterwegs sind, werd ich das gerne mal machen wenn ich Zeit finde
Mfg Spider
Hallo
Jup, benötigt wird sie nicht, kann auch ggf. per Hand erstellt werden, oder den Layer einfach Rasterizen.
War aber faul, und da ich die Schrift zufällig kannte
Mfg Spider
Hallo
Wann hab ich gesagt das es undecompile bar ist? Selbstverständlich ist das ein Problem. Aber ich kenn da so paar Tricks, wie man den Code zumindest unlesbar machen kann (Nicht Obfuscator )
Mfg Spider
Hallo
Hab einfach mal versucht, das AutoIt Logo nachzubauen in Photoshop.
Ok, ich gebe zu, der Rand ist etwas zu klein geworden, aber ich wollt euch mal zeigen, mit was für einfachen Tricks man ein so schönes Logo bekommt.
Das Original
[Blockierte Grafik: http://www.autoitscript.com/autoit3/files/graphics/autoit9_wall_1280x1024.jpg]
Meins:
autoit.de/wcf/attachment/3665/
Die PSD ist im Anhang, falls Fragen oder sowas sind, beantworte ich die natürlich gerne
Den Rand werd ich auch noch mal fetter machen, wenn ich mal wieder etwas Zeit hab (hatte jetzt nur 20 Mins)
Mfg Spider
Hallo
Meinst du DllStrcutCreate, DllSTructGet/SetData und DllStructGetPtr?
Also, die Geschwindigkeit von AutoIt haut mich selbst Teils um. Natürlich kann AutoIt nie so schnell sein, wie C++ o.ä. aber wenn ich hier so ein paar µIts sehe, oder auch selbst mit WinApi befehlen Rumhantiere und er dann 160x43x2 Dll Aufrufe + bearbeitung in 10ms schafft..
Gut, AutoIt unterstüzt keine Multicores. Aber wer brauch das schon Und Multithreading geht mit paar Tricks schon ohne Probleme.
Mfg Spider
Ich habe mit "C in 21 Tagen" angefangen :). Gibts kostenlos im Netz.
Ich benutze im Betrieb VS2008 Pro. Es gibt da auch eine kostenlose Express-Edition.
Es gibt bestimmt bessere IDE´s, aber ich komme da ich sowieso nur für die Windows-Plattform entwickle damit wunderbar zurecht.
Wer pur nach ISO-Standart programmieren will wird allerdings mit VSC++ so seine Probleme haben ;).So jetzt mal genug mit C. Wir sind ja hier im AutoIt-Forum und ich möchte niemanden den Spaß daran verderben.
AutoIt RocksMyLife
Hallo
Eben Wenn du sagst, dass du nur unter Windows Programmieren willst, blieb bei AutoIt. Es gibt momentan wirklich kaum Einschränkungen in AutoIt, die du nicht ggf mit Dll Aufrufen (meist schon Windows intere Dlls) o.ä. machen könntest.
Ich bin der Meinung man könnte z.B. jedes Basic Script in ein AutoIt Script umwandeln, beweißt mir das Gegenteil
Mfg Spider
Hallo
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
$Accountname = IniRead(@ScriptDir & "\Config.ini", "Accountname", "AccName ", "0")
$Pass = IniRead(@ScriptDir & "\Config.ini", "Password", "Password ", "0")
$Path = IniRead(@ScriptDir & "\Config.ini", "Path", "Path ", "0")
$Game = IniRead(@ScriptDir & "\Config.ini", "Game", "GameName ", "0")
_LOL()
Case $exit
Exit
EndSwitch
WEnd
Func _LOL()
Exit ;Func war zu lang xD hab statdesn einfaches Exit genommen^^
EndFunc
Mfg Spider
Hallo
Ich persönlich bin der Meinung, AutoIt kann alles was eine "große" Sprache auch kann Ich meine ich kann auf meinem G15 LCD zugreifen, ich kann CPUs Flashen (also nicht PC CPUs sondern Embedded System Teile ) usw usw.
Wenn eine neue Sprache, dann Java. Java hat den Vorteil das es wirklich überall läuft (sogar auf dem Handy).
Mfg Spider
Hallo
Naja, was meinst du denn wo AutoIt an seine Grenzen stößt?
Also, es läuft nur unter Windows, ok. Aber Basic afaik auch.
Mfg Spider