Beiträge von UEZ

Mal was anderes...

Hier mein Lösungsvorschlag:

;coded by UEZ
Func HN($n, $iDepth = 0)
    If $n = 0 Or $n = 2 Or $n = 4 Or $n = 20 Or $n = 42 Or $n = 145 Or $iDepth > 16 Then Return 0
    If $n = 1 Then Return 1
    Local $i, $a = StringRegExp($n, "\d", 3), $sum = 0
    For $i = 0 To UBound($a) - 1
        $sum += $a[$i] * $a[$i]
    Next
    If $sum = 1 Then Return 1
    Return HN($sum, $iDepth + 1)
EndFunc

For $i = 0 To 100
    ConsoleWrite("Zahl " & $i & " ist Happy: " & HN($i) & @CRLF)
Next

Hatte ich auch nicht auf dem Radar - hatte wohl Glück, dass ich am Montag getippt hatte.

Imho, momentan sind die Ergebnisse z.T. sehr überraschend.

Zitat von BugFix

Das Hauptskript soll nur Daten von verschiedenen Quellen einsammeln und diese werden dann in einem anderen Skript verarbeitet.

In Freebasic kann man den Pointer von einem Array übergeben und somit direkt in den Speicher schreiben. In Autoit, soweit ich weiß, geht das leider nicht. Falls die Daten immer den gleichen Typ haben, könnte man auch eine Struct anstelle eines Arrays benutzen und den Pointer zur Struct übergeben.

Ich vermute, dass bei dieser Aktion (AdlibRegister) der Speicher intern kopiert wird und somit die Änderungen des Arrays nicht aktualisiert werden.

Dies funzt:

While True
    Sleep(50)
    _FillArray($aData)
    _Register_Array($aData, 50)
    _Run()
WEnd

Kannst du vielleicht ein kleines Beispiel basteln? Denn ich bin mir nicht ganz sicher, was das Problem ist.

Zitat von Xorianator

Ich hab mich mal dazu bequemt, aber meine Tipps für den 1. Spieltag sind relativ nicht ernst zu nehmen.

UEZ wenn jetzt nicht noch das nächste Virus wieder reinkommt, dann bin ich weiterhin dabei 😄. Bis wann muss immer getippt werden, für den jeweiligen Folgespieltag? Würde mir einfach nen Termin im Kalender machen, wo ich meine Tipps abgeben muss.

Du kannst theoretisch auch die kompletten Spiele eintragen, aber macht sicherlich nicht viel Sinn.

Die Frage ist, wer hält bis zum Schluss durch?

Letzter Aufruf! Heute Abend geht's los! Wer will kann sich noch schnell kostenlos registrieren und mit tippen!

Zitat von Musashi

Nur aus Interesse :

Haben in den vergangenen BL-Spielzeiten mehr User mitgemacht, oder hat die Begeisterung über die Jahre nachgelassen ?

War immer schon relativ bescheiden... 😞

Gude,

hiermit läute ich die nächste Runde ein.

Wer Lust und Laune hat mit zu tippen, einfach https://www.kicktipp.de/autoit-bl kostenlos registrieren und lostippen. Die Teilnehmer vom letzten Kicktipp, die bis zum Ende durchgehalten haben, sind wieder automatisch dabei.

Am 06.08.21 geht mit dem DFB Pokal Spielen los. Bonus Fragen nicht vergessen.

Was bekommt der Tipp Sieger? Ruhm und Ehre.

Viel Spaß und viel Glück!

Resultat:

Gesamtübersicht.png

Zitat von Musashi

Gibt es schon einen Link dazu ?

Der Link ist immer der gleiche; https://www.kicktipp.de/autoit-bl 

Herzlichen Glückwunsch an BananaJoe

Zitat von Musashi

Zur WM 2022 wird es so etwas wahrscheinlich wieder geben.

Da sollte die Werbetrommel ggf. etwas früher gerührt werden (und warum nicht auch im EN-Forum ?). Je mehr Teilnehmer (m/w/d) desto besser .

Bis fast kurz vor Schluss war ich alleine und ich wollte eigentlich die EM Tipprunde aus Mangel an Teilnehmer löschen, wobei zwei Wochen Vorlaufszeit doch eigentlich reichen sollten.

Das Interesse ist leider i.d.R. immer sehr bescheiden und ich hatte auch im EN Forum vor Jahren die Leute eingeladen, aber mit getippt haben nur ein paar...

Die Bundesliga für 21/22 ist neu gestartet und die Teilnehmer vom letzten mal sind wieder dabei.

Ich werde sicherlich zur WM22 wieder ein Tipp Spiel starten.

Zitat von Musashi

Oder sind die Bonus Fragen eine alternative Möglichkeit um Punkte zu sammeln, falls die eigenen Tipps daneben lagen ?

Die Bonus Fragen sind unabhängig, was du als Spielergebnis tippst. Du kannst z.B. tippen, dass Deutschland EM wird, aber jedes Spiel gegen Deutschland tippen. Ist wie du es geschrieben hast, einfach nur zum Punkte sammeln.

Zitat von Musashi

Ich hoffe, ich gehe Dir mit den Fragen nicht auf die Nerven, aber ich mache das zum ersten Mal .

Null Problemo.

Momentan sind wir "nur" zu fünft - können ruhig ein paar mehr sein. Man muss kein Fußball Experte sein, um mitzutippen oder es ist auch keine Schande Letzter zu werden.

Zitat von Musashi

Muss ich das von Hand ausrechnen, bzw. kann ich einige der Bonusantworten ändern, nachdem schon Spiele stattgefunden haben ?

Schaue mal neben dem Spieltag Tab den Tab "Bonus" an. Wenn du es anklickst, dann kannst du noch die Bonus Fragen beantworten. Sobald die EM anfängt, kannst du die Bonus Fragen nicht mehr tippen!

Ich glaube, dass ich die Lösung gefunden habe. probiere es doch mal mit "Volatile" ->

Volatile Func _ProgressProc($iTotalFileSize, $iTotalBytesTransferred, $iStreamSize, $iStreamBytesTransferred, $iStreamNumber, $iCallbackReason, $hSourceFile, $hDestinationFile, $pData)

Ich habe dein Skript zum Laufen bekommen und konnte den Fehler nachvollziehen. Ich hatte die Idee, dass dies vielleicht an der While / Wend Schleife liegt und habe deshalb die GUI auf GUIOnEventMode gestellt, aber gleiches Ergebnis.

Falls mir noch was einfällt, melde ich mich.

Keiner Lust aufs Tippen?

Zitat von BugFix

Probiere trotzdem mal diese Variante, hier habe ich auf "OemToCharBuffA" umgestellt. Unter Win 7 funktioniert das auch problemlos.

Wie oben geschrieben liegt es nicht an der OemToChar, sondern, dass du "SYNTAX:" in der Funktion _WMIC_GetSyntax() abfragst, aber unter Win10 (19041) heißt es "USAGE:".

Zitat von BugFix

Teste mal, ob du bei eigener Syntaxabfrage BIOS /? im Interface eine Ausgabe bekommst. Bzw teste mal direkt in einer CMD wmic bios /?.

Yep, dann bekomme ich jeweils eine Ausgabe. An der Funktion OemToChar scheint es nicht zu liegen!

Liegt daran, dass es unter Windows10 Usage heißt und nicht Syntax:

Func _WMIC_GetSyntax($_Term, $_bAsArray=False, $sString = 'SYNTAX:')
    Local $aSyntax = _WMIC_Run_ToArray($_Term & ' /?')
    ;_ArrayDisplay($aSyntax)
    If @OSBuild  > 10000 Then $sString = 'USAGE:'
    Local $bStart = False, $sSyntax = ''
    For $i = 0 To UBound($aSyntax) -1
            If Not $bStart And $aSyntax[$i] <> $sString Then
            ContinueLoop
        ElseIf Not $bStart And $aSyntax[$i] = $sString Then
            $bStart = True
        Else
            $sSyntax &= $aSyntax[$i] & @CRLF
        EndIf
    Next

    $sSyntax = StringTrimRight($sSyntax,2)
    Return ($_bAsArray ? StringSplit($sSyntax, @CRLF, 1+2) : $sSyntax)
EndFunc

Wie bekomme ich einen Output? Hast du mal ein Beispiel für die Dropdown Menüs?

Unter WIn10 läuft dein Tool anders als unter Win7.

Unter Win7 werden die Infos in dem gelben Fenster angezeigt, unter Win10 nicht vollständig.

Win7:

Win7.jpg

Win10:

Win10.jpg