Beiträge von Alina

Da bin ich ja mal gespannt.
Flensburg wird immer größer und die Stadtwerke werden den Strom erst einmal für ihre Stadtbürger vorhalten. Ist ja auch klar.
In Süddänemark ist der Strombedarf auch sehr gut gedeckt und auch zu fairen Preisen.

Somit gehe ich davon aus, das sich hier auf beiden Seiten der Grenze nicht viel ändern wird. Und ich liege im Jahr bei ca. 1.000 KwStd. und das sind ca. €40,- bis € 45,- pro Monat an Stromkosten. Monatlich zahle ich aber immer € 70,-, was dann im Abrechnungsmonat ein kleines Extra ist.

@Moombas

Ja, das stimmt. Aber ich meine das die Stadtwerke Neukunden nicht mehr überregional aufnehmen. Da stand vor einiger Zeit mal etwas in der Flensburg-Avis (dänische grenzübergreifende Tageszeitung). Was ich weiß ist, das die Stadtwerke wohl auch Strom nach Süddänemark ab gibt und bei Bedarf auch von dort ggf. Strom bekommt. Ist irgendwie ein grenzübergreifendes Abkommen aus Zeiten der Vergangenheit.

Aber günstig sind die und die haben sehr stabile Preise. Das gefällt mir. Frau halt, da wird wirtschaftlich gedacht.

Grundversorgung = das ist bei uns der Anbieter von Leistungen, der so gut wie jeden nehmen muss. In Flensburg ist es zum Beispiel die Stadtwerke Flensburg, aber auch nur, solange Kapazität da ist, denn die können auch nur eine gewisse Anzahl an Häusern versorgen.

Das wäre auch noch eine Lösung

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $INI_FILE = "config.ini" ; Pfad zur INI-Datei

; GUI erstellen
Local $hGUI = GUICreate("Checkbox speichern", 300, 200)

; Checkbox hinzufügen
Local $hCheckbox = GUICtrlCreateCheckbox("Checkbox", 10, 10, 200, 20)

GUISetState(@SW_SHOW)

    If Not FileExists($INI_FILE) Then
        ; INI-Datei erstellen, wenn sie nicht existiert
        Local $hFile = FileOpen($INI_FILE, 2)
        FileClose($hFile)
    EndIf

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            SaveCheckboxState()
            Exit
    EndSwitch
WEnd

; Checkbox-Zustand in INI-Datei speichern
Func SaveCheckboxState()
    Local $iCheckboxState = GUICtrlRead($hCheckbox)


    IniWrite($INI_FILE, "Einstellungen", "Checkbox", $iCheckboxState)
    MsgBox(0, "Speichern", "Checkbox-Zustand wurde gespeichert.")
EndFunc

; Speichern-Funktion aufrufen, wenn Checkbox-Zustand geändert wird
GUICtrlSetOnEvent($hCheckbox, "SaveCheckboxState")

Und hier eine kleine dänische KI-Version.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <MenuConstants.au3>

Global $hGUI, $hMenu, $hMenuItemExit

$hGUI = GUICreate("Menu Eksempel", 300, 200)

$hMenu = GUICtrlCreateMenu("Menu")
$hSubMenu1 = GUICtrlCreateMenu("Undermenu1", $hMenu)
$hMenuItem1_1 = GUICtrlCreateMenuItem("Undermenu1_1", $hSubMenu1)
$hMenuItem1_2 = GUICtrlCreateMenuItem("Undermenu1_2", $hSubMenu1)

$hSubMenu2 = GUICtrlCreateMenu("Undermenu2", $hMenu)
$hMenuItem2_1 = GUICtrlCreateMenuItem("Undermenu2_1", $hSubMenu2)
$hMenuItem2_2 = GUICtrlCreateMenuItem("Undermenu2_2", $hSubMenu2)

$hMenuItemExit = GUICtrlCreateMenuItem("Afslut", $hMenu)

GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $hMenuItemExit
            ExitLoop
        Case $hMenuItem1_1
            MsgBox($MB_SYSTEMMODAL, "Undermenu1_1", "Undermenu1_1 blev klikket!")
        Case $hMenuItem1_2
            MsgBox($MB_SYSTEMMODAL, "Undermenu1_2", "Undermenu1_2 blev klikket!")
        Case $hMenuItem2_1
            MsgBox($MB_SYSTEMMODAL, "Undermenu2_1", "Undermenu2_1 blev klikket!")
        Case $hMenuItem2_2
            MsgBox($MB_SYSTEMMODAL, "Undermenu2_2", "Undermenu2_2 blev klikket!")
    EndSwitch
WEnd

GUIDelete($hGUI)
Exit

Moin Moin zusammen.

Heute kam die Stromverbrauchstabrechnung. 1.000 Kilowattstunden. Das glaube ich ist ein gesunder Jahresstromverbrauch. Das ganze für unter € 500,-, da habe ich, auf Grund der angespannten Lage, mit einer Höheren Rechnungsjahressumme gerechnet.

Wie sieht es bei Euch aus? Na klar auf 1 Person gerechnet. Papa, Mama, 2 Kinder bedeutet alles durch 4. Die Frage geht na klar nur an die, die nicht mehr bei Mama und Papa zuhause sind.

WILLkommen im CLUB der Autoit'ler:innen.

Danke, das Problem ist nun zu 100 vH gelöst.
Und das bei meinen derzeitig schlechten Erklärungen. SORRRRRRRY !!!!

Das Problem ist, das mir Werte in einer Datei gegeben sind, die ich jedoch zum weiteren Nutzen in einer anderen Reihenfolge benötige.

Wofür brauche ich das?

Ich möchte die Werte, die ich nur so voirliegen habe wie im Array $Array1_werte, in einer anderen Reihenfolge haben.
Und ja, es ist der Ansatz der richtige, da ich nur die Werte in der richtigen Reihenfolge benötige. Also das was in Col 1 dann steht benötige ich.

Ist eigentlich 1-basiert.

Zitat von Kanashius

Hi Alina,

ich hab das ganze mal umgesetzt, so wie ich es verstanden habe. Am Ende besteht nur das Problem, dass die letzten Werte nicht zugeordnet werden können, da das Positions-Array kein Vielfaches vom Value-Array ist...

Es geht sich also am Ende nicht aus, oder man hätte leere Zellen. In der Lösung wird das Ende erstmal weggelassen, ggf. kannst du ja klarstellen, was dann passieren soll.

Außerdem: Position <> Index? Bei mir sind die Einträge einen Wert höher, weil man beim Programmieren mit 0 anfängt, nicht mit 1.

Ansonsten hier das Script:

AutoIt

#include <Array.au3>

Global $arValues =  ["DK45","DK28","963","NOR17","731","575","276","679","366","NOR15","NOR58","NOR23","958","166","909","478","634","846","744","525","701","77","162","211","51DK","873","401", _
                     "909","717","52","552","707","327","782","705","644","47","524","596","NOR88","246","700","197","696","497","913","35","99","DK42","725","652","584","701","36","296","402", _
                     "483","961","NOR87","9","482","944","613","161","205","657","734","329","791","750","731","196","437","312","979","489","NOR55","787","39","FIN01","764","344","745","666", _
                     "733","37","273","38","784","797","109","903","340","272","742","426","127","206","623","842","DK45","DK28","963","NOR17","731","575","276","679","366","NOR15","NOR58", _
                     "NOR23","958","166","909","478","634","846","744","525","701","77","162","211","51DK","873","401","909","717","52","552","707","327","782","705","644","47","524","596", _
                     "NOR88","246","700","197","696","497","913","35","99","DK42","725","652","584","701","36","296","402","483","961","NOR87","9","482","944","613","161","205","657","734", _
                     "329","791","750","731","196","437","312","979","489","NOR55","787","39","FIN01","764","344","745","666","733","37","273","38","784","797","109","903","340","272","742", _
                      "426","127","206","623","842","39","954","99NOR","FIN2","388"]

Global $iPosBegin = 55
;,Reihenfolge,64,Werte
Global $arPositions =     [55,30,17,42,27,36,15,38,18,43,54,29,16,39,26,35,31,56,41,20,33,28,37,14,44,19,32,53,40,13,34,25,57,2,45,8,21,64,51,12,46,5,60,1,52,9,24,63,3,58,7,48,61,22,11,50,6,47, _
                         4,59,10,49,62,23]

Local $arRes = _sortByArray($arValues, $arPositions, $iPosBegin)
If @error Then MsgBox(16,"Error",@error&" => "&@extended)
_ArrayDisplay($arRes)


; $arValues => Values to sort
; $arPos => Positions to sort to
; $iStartValue => First position to start with; Default => Start with $arPos index 0; If $iStartValue is not in $arPos => Start with $arPos index 0; Starts with the first position found
Func _sortByArray(ByRef $arValues, ByRef $arPos, $iStartValue = Default)
    Local $iStartIndex = 0
    If $iStartValue<>Default Then
        For $i=0 To UBound($arPos)-1 Step 1
            If $iStartValue=$arPos[$i] Then
                $iStartIndex = $i
                ExitLoop
            EndIf
        Next
    EndIf
    Local $iIndex = $iStartIndex
    Local $iPosCount = UBound($arPos)
    Local $arResult[UBound($arValues)]
    Local $iPassCount = 0
    For $i=0 To UBound($arValues)-1 Step 1
        Local $iTmpIndex = $iPassCount*$iPosCount+$arPos[$iIndex] - 1 ; -1 because positions in $arPos start with 1 and not 0
        If $iTmpIndex>=UBound($arValues) Or $iTmpIndex<0 Then
            ;Return SetError(1, $iTmpIndex, -1) ; check if new index is in range
        Else
            $arResult[$iTmpIndex] = $arValues[$i]
        EndIf
        $iIndex+=1
        If $iIndex>=UBound($arPos) Then $iIndex=0
        If $iIndex=$iStartIndex Then $iPassCount+=1
    Next
    Return $arResult
EndFunc

Alles anzeigen

MfG, Kanashius

Alles anzeigen

Hallo Kanashius.
Das hast Du richtig verstanden. Sorry für die zu kurze Beschreibung meines Problemes.

Wieso bekomme ich das Ergebnis nicht in eine MsgBox ausgegeben. Bin ich zu übermüdet oder zu blond?

AspirinJunkie

Der Startwert ist der Wert im Array, wo die neue Reihenfolge startet.

Jetzt ist es die 55. Ist der Startwert die 18, dann soll der Wert DK45 an die 18. Stelle kommen, DK2 an Stelle 43, usw.

Ich hatte mal dieses Script gefunden:

#include <Array.au3>
#include "_ArraySortStable2D.au3"

Local $aTestArray[6][2] = [[5, "Cherry"], [4, "Banana"], [3, "Cherry"], [2, "Orange"], [1, "Apple"], [0, "Test"]]

_ArraySortStable2D($aTestArray, 0)
_ArrayDisplay($aTestArray)

_ArraySortStable2D($aTestArray, 1, Default, Default, True)
_ArrayDisplay($aTestArray)

Hier ist die Position, dann das Komma und dann der Wert

dann sieht es so aus: [55, "DK45"], [30, "DK28"], [17, "963"], ....

Mit geänderten Startwert auf "18" sieht es so aus:
dann sieht es so aus: [18, "DK45"], [43, "DK28"], [54, "963"], ....
Und ja, Du hast recht und das dachte ich mir ja auch, das man ein neues Array schreiben muss.

Habe ich es nun verständlich erklärt?

Moin zusammen.

Ich würde gerne ein Array sortieren.

Die Werte stehen im Array $Array1_werte ( max. 720 Werte, was aber egal sein sollte)
Die Reihenfolge der Werte steht im Array $Array2 (sind 64 neue Positionen)
Der Startwert der Reihenfolge steht im Aray $_startwert_der_Reihenfolg

Wie bekomme ich es hin, das der erste Wert aus $Array1_werte an die Position vom ersten Wert aus dem Array Array2 steht?
Also DK45 soll auf Position 55 ; DK28 soll auf Position 30; 963 soll auf Position 17; usw.

Wenn der Wert von $_startwert_der_Reihenfolge sich ändert, z. B. auf 18, dann soll bei 18 begonnen werden. Ist man beim letzten Wert der Reihenfolge angekommen, beginnt danach die Reihenfolge wieder bei 55. Also unendlich.

Moin Mars

Zitat von Mars

Moin,

bevor ich meine eigenen Skripte wieder verlege und nie wieder finde, ...

Das Problem kenne ich doch. Ich habe mich aber irgendwann (letztes Jahr) entschieden, alle Include-Dateien in einen Ordner zu sammeln.

Die Dec2Bin kommt gleich dazu.

Ich werde es mir bei Zeiten mal ansehen.
Sieht aus, als wenn ich das nutzen kann um die selbst erstellten PDF-Formulare automatisch zu befüllen. Würde ja doppeltes Eingeben bei einigen regelmäßigen Abläufen ersparen.

Verstehe ich das richtig, wenn das zu befüllende Feld in der PDF Datei den Namen "Feld1" hat, wird es mit "HalloText" ausgefüllt?

'<</T(Feld1)/V(HalloTest)>>'

Ja, das wäre etwas für das jüngste Kind meiner Eltern, wenn diese mal Zeit findet dafür. Aber ist "gemerkt".

Zitat von Moombas

Auch wenn ich Lernenden das gerne selber überlasse

Da gebe ich Dir recht. Es ging bei meinem Beitrag oben auch darum, das der User das Prinzip erkennt und damit arbeiten kann.
Es ersetzt auf keinen Fall die Berücksichtigung der Hilfedatei und es auch anzusehen und versucht werden diese zu verstehen.
So wie Du schriebst "learning by doing" und nicht einfach nur übernehmen.

zu 1. vom Gedanken her würde es so passen !?

$_Random_1bis1000 = Random(1,1000,1)
$_Random_Xbis1000 = Random($_Random_1bis1000,1000,1)


MsgBox(0,"Test", $_Random_1bis1000 & " und die zweite Zufallszahl die größe der ersten Zufallszahl sein soll ist: " & $_Random_Xbis1000)

Hier noch eine Anleitung incl. den ganzen Schaltern:

https://7ziphelp.com/7zip-command-line?lang=de

Folgendes habe ich aus einem Uni-Bereich rausgezogen.

n < 1.373.653 : es genügt, a= 2 und 3 zu testen,

n < 9.080.191 : es genügt, a = 31 und 73 zu testen,

n < 4.759.123.141 : es genügt, a = 2, 7, und 61 zu testen,

n < 2.152.302.898.747 : es genügt, a = 2, 3, 5, 7, und 11 zu testen,

n < 3.474.749.660.383 : es genügt, a = 2, 3, 5, 7, 11, und 13 zu testen,

n < 341.550.071.728.321 : es genügt, a = 2, 3, 5, 7, 11, 13, und 17 zu testen.

n < 3.825.123.056.546.413.051 : es genügt, a = 2, 3, 5, 7, 11, 13, 17, 19, und 23 zu testen.

n < 318.665.857.834.031.151.167.461 : es genügt, a = 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37 zu testen.

Dabei dürfen nur solche n getestet werden, die größer sind als das jeweils größte a !!

Zitat von BugFix

EDIT:

Auch nach einem PC-Neustart ist der Wert abfragbar, aber nicht im Reg-Editor sichtbar.

BugFix, ich habe einmal eine Frage. Dein Reg.-Editor, hat der keine Suchfunktion?

Wenn ich einen Reg.-Eintrag eintragen lasse und ihn nicht dort vorfinde, wo ich ihn haben wollte, hilft mir die Suchfunktion diesen Eintrag zu finden und dem Problem, wieso er dort gelschrieben wurde auf dem Grunde zu gehen. <--- Ist der Satz verständlich????