Beiträge von RR04

  • AutoIt Dokumentation (Deutsch) herunterladen

    Hi,

    Huggy hat recht, hat recht, hat recht. - Sorry -

    Natürlich meinte ich, ein Doppelklick auf eines der beiden htm-Dateien wird sie im Browser aufrufen und mit Copy und Paste ist es dann möglich einige Sachen zu übernehmen. Sogar enthaltene weiterführende Links behalten ihre volle Funktion und man kann ganz elegant zu jedem beliebigen Thema navigieren !

    Geht doch, oder verstehe ich was falsch ?

    Weiterhin ist es auch möglich, diese Datei im AutoIT-Ordner zu speichern und eine Verknüpfung ins Startmenü zu legen. Bei einem Klick auf "Start>Alle Programme>AutoITv3" kann man dann Teil 1 oder 2 wählen.

    Schönes WE und
    viel Erfolg !

    Danke an Huggy für den Hinweis

    Man liest sich...
    Euer Ritzelrocker04

  • Internetgeschwindigkeit

    Hi (A)lina,
    auch ich messe hin und wieder auf dieser Seite.
    Die angegebenen maximalen Geschwindigkeiten der Provider muss man nicht ernst nehmen, denn sie werden nur selten erreicht.
    Als Faustregel nimmt man von der benötigten Geschwindigkeit eine Klasse höher. Wenn 4000 gewünscht sind sollte man gleich die Stufe 6000 anvisieren.
    Ich betrachte die Ergebnisse auf dieser Seite als Richtwerte. Bei extremen Unregelmäßigkeiten können auch Veränderungen an den Einstellungen des eigenen PC schuld sein.
    Meine Empfehlung:
    loade Sie sich das Programm TuneUp Utility´s, mit diesem können die manchmal sehr versteckten Einstellungen einfach und schnell nachjustiert werden. 8o :thumbup:

    Viel Erfolg!
    Man liest sich...
    Euer Ritzelrocker04

  • Zippen mit 7zip dll funktioniert nicht?

    Hi qon,

    noch einen Tipp :
    Versuche Er es einmal, dass „@SW_HIDE“ weglassen. An dieser Stelle kommt es immer wieder zu Problemen mit Run, Runwait und @SW_HIDE. Das ist so ein AutoIT-Ding. 8o

    Also schnell einmal auskommentieren, einen Versuch ist es wert. :thumbup:

    Weiterhin viel Erfolg!
    Euer Ritzelrocker04

  • Lottozahlen

    Hi Oscar,

    wirkliche Fehler konnte ich nicht feststellen. Ein und das selbe Script nun für Ihn oder als Tutorial auch für die Anderen (1. oder 2.) ? ?(

    Trotzdem weiter so
    Gruß!
    Euer Ritzelrocker04

  • Zippen mit 7zip dll funktioniert nicht?

    Hi Gon,

    so etwas ähnliches gibt es schon siehe bitte Scripte>RD Daten sichern von Ritzelrocker04.
    Die 7z.exe und die dll müssen nicht sein es reicht zB auch die 7za.exe (Standalone). Dennoch, ungesehen ist Huggys Vorschlag sicherlich interessanter. 8o

    Viel Erfolg!
    Euer Ritzelrocker04

  • Lottozahlen

    Hi Oscar,

    wie versprochen zu „ Lottozahlen “ meine Kritik :

    Alles in Allem ein Gutes Konzept gut umgesetzt. Die Oberfläche (GUI) mit Aha – Effekt hat auch unter der Haube etwas zu bieten. Das Ganze sehr großzügig kommentiert. Wirkliche Fehler konnte ich nicht feststellen.

    Dennoch ein zwei Bemerkungen seien erlaubt:

    1.Funktionen in AutoIT beginnen wohl mit dem Unterstrich (zB. _Muster()).
    2.Als Eselsbrücke für Kommentare stelle ich mir immer die Frage :
    „ Warum habe ich es genau so und nicht Anders gemacht ? „

    Abschließend bleibt nur noch die Spannung auf den Autor und seine künftigen Werke.

    Weiterhin
    viel Spaß und Erfolg!
    Euer Ritzelrocker04

  • Lottozahlen

    Hallo Oscar,

    "Lottozahlen" sieht ganz sauber aus, habe es gerade geladen und werde es einmal probieren.
    Richtig gut auskommentiert, eine schöne Arbeit.
    Vorerst Danke für Seine Bemühungen. :thumbup:

    Schönes WE und
    MfG
    Euer Ritzelrocker04

  • programm und gui lassen sich nur über taskbar schließen

    Hi thastony,

    oder direkt auf "Beenden", hier war Wesloth schneller.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $Form2 = GUICreate("About", 324, 241, 303, 219)
    $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
    $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Label1 = GUICtrlCreateLabel("Product Name", 152, 24, 72, 17, $WS_GROUP)
    $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Comments", 16, 160, 53, 17, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("&Beenden", 112, 208, 75, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Button1
    Exit

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

    EndSelect
    WEnd

    [/autoit]

    Schönes WE und
    viel Erfolg!
    Euer Ritzelrocker04

  • IGRv3.0-IdealGewichtsRechner

    Hallo,
    ich bin mal nachtragend und habe es wieder neu auf Kurs gebracht. Anbei noch einmal den Code im Spoiler sowie kompletter Anhang.

    Spoiler anzeigen
    [autoit][/autoit]

    ; by Ritzelrocker04
    #include <GUIConstants.au3>

    Dim $_Ergebnis_BMI
    Dim $_EingabeGew , $_EingabeGro
    Dim $_Ergebnis_Klasse
    Dim $_Smileys
    Dim $ico_Icon

    $ico_Normalgew = "IGRsys\Normalgew.ico"
    $ico_Untergew = "IGRsys\Untergew.ico"
    $ico_Uebergew = "IGRsys\Uebergew.ico"
    $ico_StarkUebergew = "IGRsys\StarkUebergew.ico"
    $ico_Zwink = "IGRsys\Zwink.ico"
    $ico_Zwink2 = "IGRsys\Zwink2.ico"

    $GUI = GUICreate("IGR & BMI v 7.0", 258, 322, 194, 116)
    $gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
    $tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
    GUICtrlSetState(-1, $GUI_FOCUS)
    $tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
    $rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 108, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x800000)
    $lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x800000)
    $lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x800000)
    $bn_About = GUICtrlCreateButton("&About", 16, 256, 65, 25, 0)
    $bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 256, 65, 25, 0)
    $bn_Close = GUICtrlCreateButton("&Beenden", 176, 256, 65, 25, 0)
    $bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 290, 225, 25, 0)
    GUICtrlSetState(-1,$GUI_DEFBUTTON)
    GUISetState(@SW_SHOW)


    While 1
    $nMsg = GUIGetMsg()
    If $nMsg <> 0 Then
    $_EingabeGew = GUICtrlRead($tb_Gewicht)
    $_EingabeGro = GUICtrlRead($tb_Groesse)
    $_Er = GUICtrlRead($rb_Maennlich)
    Select
    Case $nMsg = $bn_Rechnen
    If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
    $_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)

    If $_Er = 1 Then
    $_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9

    Switch $_Ergebnis_BMI
    Case 0 To 20
    $_Ergebnis_Klasse = "Sie haben Untergewicht ,"
    $_Smileys = $ico_Untergew
    Case 20 To 25
    $_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
    $_Smileys = $ico_Normalgew
    Case 25 To 30
    $_Ergebnis_Klasse = "Sie haben Übergewicht ,"
    $_Smileys = $ico_Uebergew
    Case 30 To 99
    $_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
    $_Smileys = $ico_StarkUebergew
    EndSwitch
    Else
    $_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85

    Switch $_Ergebnis_BMI
    Case 0 To 19
    $_Ergebnis_Klasse = "Sie haben Untergewicht ,"
    $_Smileys = $ico_Untergew
    Case 19 To 24
    $_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
    $_Smileys = $ico_Normalgew
    Case 24 To 30
    $_Ergebnis_Klasse = "Sie haben Übergewicht ,"
    $_Smileys = $ico_Uebergew
    Case 30 To 99
    $_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
    $_Smileys = $ico_StarkUebergew
    EndSwitch
    EndIf
    GUICtrlSetImage($ico_Icon, $_Smileys)
    GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
    GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
    GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
    Else
    GUICtrlSetData($lb_BMI, "Sorry ,")
    GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
    GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
    GUICtrlSetImage($ico_Icon, $ico_Zwink2)
    EndIf
    If $_EingabeGew = 0 Then
    GUICtrlSetData($lb_BMI, "Sorry ,")
    GUICtrlSetData($lb_Klasse, "Sie müssen noch")
    GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
    GUICtrlSetImage($ico_Icon, $ico_Zwink)
    EndIf
    Case $nMsg = $bn_About
    Run("About_006.exe")
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
    Exit
    ExitLoop
    Case $nMsg = $bn_Hinweis
    MsgBox(64, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
    "Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
    "gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
    "nur gering ist. " & @CRLF & _
    "Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
    "und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
    "falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
    "bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
    "die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
    "die zu schnell als zu dick klassifiziert werden." & @CRLF & _
    " " & @CRLF & _
    "Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
    "Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
    "Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
    EndSelect
    EndIf

    WEnd

    [autoit][/autoit]

    Edit: Die Einzüge !

    Nochmals Danke für den Hinweis und weiterhin
    viel Spaß!
    Euer Ritzelrocker04

  • IGRv3.0-IdealGewichtsRechner

    Hi Fast2,
    bei Fast2 gibt es immer solche Sachen, muss gerade an Seine letzte Nachricht denken. Wo ich ganz euphorisch übersehen habe, was Er eigentlich meinte. Ein Freund hat mich dann erneut aufmerksam darauf gemacht und hat dann gar nicht verstanden warum ich lachen musste. Ja, also gut noch einmal schauen und danke für den Hinweis.
    :rofl:
    MfG
    Euer Ritzelrocker04

  • Speicherbelegung mit Progress ?

    Hallo Progandy,
    nun meine Vollzugmeldung:
    Es hat Funktioniert, bei meinem Probe-Kopieren konnte ich sogar den Balkenfortschritt erkennen. Leider musste ich feststellen, dass die Prozentzahl im Label sich nicht veränderte. Nun habe ich es mal ergänzt und lege es in den Spoiler .

    Spoiler anzeigen
    [autoit]


    ; by Progandy
    #include <GUIConstants.au3>

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

    $TOTAL = DriveSpaceTotal("D:\")
    $FREE = DriveSpaceFree("D:\")
    $i = Round(($TOTAL - $FREE) / ($TOTAL / 100), 2)

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

    $Form2 = GUICreate("ProgressTEST", 316, 239, 350, 250, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 193)
    $Group1 = GUICtrlCreateGroup("", 16, 112, 281, 73)
    $Progress1 = GUICtrlCreateProgress(24, 128, 265, 17)
    GuiCtrlSetData(-1, $i)
    $Label1 = GUICtrlCreateLabel($i & " % Speicher belegt", 24, 160, 265, 17, $SS_CENTER)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("&OK", 70, 203, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("&Cancel", 149, 204, 75, 25, 0)
    $Button3 = GUICtrlCreateButton("&Help", 229, 204, 75, 25, 0)
    GUISetState(@SW_SHOW)
    ; starten _Updaten alle 1min
    AdlibEnable("_Update",100000)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd
    ; _Update Func
    Func _Update()
    $TOTAL = DriveSpaceTotal("D:\")
    $FREE = DriveSpaceFree("D:\")
    $i = Round(($TOTAL - $FREE) / ($TOTAL / 100), 2)
    GUICtrlSetData($Progress1, $i)
    GUICtrlSetData($Label1, $i & " % Speicher belegt")

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

    EndFunc ; ==> AdlibEnable("_Update",100000)

    [/autoit]


    Nochmals herzlichen Dank
    Euer Ritzelrocker04