Original von bernd670
Einfach mal ist History in der Hilfe lesen!
was ist wenn sich eine Funktion leicht geänder hat ?
oder eine schöneres besispiel erhalten hat ?
Beiträge von muh_kuh
-
-
hi
kann jeman die unterschiede zur der Beta oder der 3.1 Verion deutlich machen
müsten suche was in E anders geworde ist um es da auch in D zu ändern@Analyzer
wie kann man die chm decompilieren ? -
hi
währe bei http://www.gruppenrichtlinien.de/RiLi/Windows_XPSP2_Computer.htm
mit dabi
und bei http://www.gruppenrichtlinien.de/index.html?/info/Downloads.htm
zum runterladen -
-
hi
hast du eine Speck
oder ein Datenblatt ? -
hi
wenn du mir erklärst wie man sich einlogt
(mit Logincode) -
für was den da genau ?
(die seite ist down) -
Ecuador wird Weltmeister
-
finde ich super
weiter so -
hi
um welche seite hande es sich ?
wenn es intrante ist kannst du den Quellttext mal wiedergeben -
finde ich super
weiter so -
finde ich super
weiter so -
hi
wie richte ich SVN-Repositor ein? -
kuztz noch der code
C
Alles anzeigenHotKeySet("{ESC}", "MeinExit") HotKeySet("{PAUSE}", "Pause") #include <GUIConstants.au3> GUICreate("PI",550,50) GUISetState (@SW_SHOW) $X = 0 $c= GUICtrlCreateInput($X,5,25,540,20) $a = 1 $b = 0 $pause = 0 GUICtrlCreateLabel(" ESC = Ende | PAUSE = ruhe bis wieder PAUSE",175,5,275,20) GUISetState() While 1 if $pause =0 then $X = Sqrt(6 *($b)) $b = $b + 1/ ($a^2) $a = $a + 1 GUICtrlSetData ($c, $X) EndIf WEnd Func Pause() if $pause = 1 Then $pause = 0 elseif $pause =0 Then $pause = 1 EndIf EndFunc Func MeinExit() GUIDelete() Exit EndFunc Exitedit : Bessere Code
-
hi
nein mir ist nicht kalt
sondern ich will ein Anstendigen CPU tester
da der jetzt genutze bei neunen Rechner schlap macht (CPU nur 58 %)
dach ich kann ich doch auch ein machen
und auf PI ist bis her ja noch keiner gekommen (ich meine auf alle stelen) -
Zitat
Original von bernd670
Code
Alles anzeigen#include <GUIConstants.au3> GUICreate("PI",800,50) GUISetState (@SW_SHOW) $X = 0 $c = GUICtrlCreateLabel($X,5,20,790,20) $a = 1 $b = 0 GUISetState() While 1 ;~ $msg = GUIGetMsg() ;~ If $msg = $GUI_EVENT_CLOSE Then ExitLoop $X = Sqrt(6 *($b)) $b = $b + 1/ ($a^2) $a = $a + 1 GUICtrlSetData($c,$X) WEndhi
genau so was habe ich gesucht
jetzt bloss noch etwas tuning und es wird lustig -
Zitat
Original von gtaspider
HallloWie jetzt? Du willst die CPU auf 100 setzen?
MFg Spider
ja das will ich -
Zitat
Original von peethebee
HalloHier gibt es allgemeine Informationen und auch Berechnungsverfahren, die man nur in AutoIt umsetzen müsste: http://de.wikipedia.org/wiki/Pi_%28Kreiszahl%29
Einfacher wäre es aber sicher, sich eine Konstante mit den ersten 10 Stellen oder so zu machen.peethebee
hi
auf wiki finde ich nicht die richige formel
das Programm soll ja die CPU belasten und nicht mit pi rechen
aber danke -
hi
weis wer eine autoit möglichkeit PI zu berechen (müsse die CPU ja 100 % belasen)mfg
muh Kuh -
hi
da ist noch ein fehler drin (zumindes mit der Relasen version)Code
Alles anzeigen#include <GUIConstants.au3> Const $RegKey="HKEY_CURRENT_USER\Software\Microsoft\Shared Tools\Outlook\Journaling\" $Form1 = GUICreate("Outlook Journal-Eintragstyp", 552, 304, -1, -1) $Group1 = GUICtrlCreateGroup("Vorhandene Journaltypen", 20, 15, 341, 266) $List1 = GUICtrlCreateList("", 35, 35, 311, 227, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button_add = GUICtrlCreateButton("Eintrag hinzufügen", 390, 125, 136, 36) $Button_del = GUICtrlCreateButton("Markierten Eintrag löschen", 390, 185, 136, 36) $Button_end = GUICtrlCreateButton("Ende", 390, 245, 136, 36) GUISetState(@SW_SHOW) $Form2 = GUICreate("Neuen Eintragstyp hinzufügen", 377, 151, -1, -1) $Group2 = GUICtrlCreateGroup("Eintragstyp", 30, 15, 311, 66) $Input1 = GUICtrlCreateInput("", 40, 40, 291, 26, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button_add_back = GUICtrlCreateButton("Hinzufügen", 220, 95, 121, 26) $Form3 = GUICreate("ACHTUNG!", 531, 96, -1, -1) GUICtrlCreateLabel("Achtung! Der Registry-Schlüssel für diesen Eintrag wird unwiederruflich gelöscht!", 20, 15, 492, 30, BitOR($SS_CENTER,$SS_CENTERIMAGE,$SS_SUNKEN)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xff0000) GUICtrlSetState(-1, $GUI_DISABLE) $Button_deltrue = GUICtrlCreateButton("Löschen", 20, 55, 85, 25) $Button_delfalse = GUICtrlCreateButton("Nicht Löschen", 430, 55, 85, 25) GUICtrlSetState(-1, $GUI_FOCUS) _ReadSubKeyRefreshList() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_end ExitLoop Case $msg = $Button_add GUISetState(@SW_HIDE, $Form1) GUISetState(@SW_SHOW, $Form2) Case $msg = $Button_del GUISetState(@SW_HIDE, $Form1) GUISetState(@SW_SHOW, $Form3) Case $msg = $Button_deltrue If GUICtrlRead($List1) <> "" Then RegDelete($RegKey&GUICtrlRead($List1)) Else MsgBox(4096, "Achtung!", "Es wurde kein Eintrag ausgewählt.") EndIf GUISetState(@SW_HIDE, $Form3) GUISetState(@SW_SHOW, $Form1) _ReadSubKeyRefreshList() Case $msg = $Button_delfalse GUISetState(@SW_HIDE, $Form3) GUISetState(@SW_SHOW, $Form1) Case $msg = $Button_add_back $NewEntry = GUICtrlRead($Input1) _AddKeys4NewEntry($NewEntry) GUISetState(@SW_SHOW, $Form1) GUISetState(@SW_HIDE, $Form2) _ReadSubKeyRefreshList() EndSelect WEnd Exit Func _ReadSubKeyRefreshList() Dim $i=0 Dim $Wert, $Fehler=0 GUICtrlSetData($List1,"") Do $i = $i+1 $Wert=RegEnumKey($RegKey, $i) $Fehler=@Error If $Fehler=0 Then GUICtrlSetData($List1, $Wert) EndIf Until $Fehler<>0 EndFunc Func _AddKeys4NewEntry($NewEntry) RegWrite($RegKey&$NewEntry, "AutoJournaled", "REG_DWORD" , 00000000) RegWrite($RegKey&$NewEntry, "JournalByContact", "REG_DWORD" , 00000000) RegWrite($RegKey&$NewEntry, "Large Icon", "REG_SZ" , "[8]") RegWrite($RegKey&$NewEntry, "Small Icon", "REG_SZ" , "[8]") RegWrite($RegKey&$NewEntry, "Description", "REG_SZ" , $NewEntry) EndFunc
habe ihn raus gemacht