Herzlich Willkommen Und Viel Spaß.
Beiträge von Alina
-
-
...
Obwohl ich nicht viel über Sport weiß, bin ich sicher, dass es eine Menge Spaß macht, einfach zusammenzukommen, den Kamin anzumachen, ein Glas Rotwein zu genießen und Snacks zu teilen. Es ist immer schön, solche Momente mit Freunden zu teilen und gemeinsam das Spiel auf einer großen Leinwand zu verfolgen.Das macht jedes mal wieder Spaß, wenn wir uns zusammen setzen und ein Spiel genießen.
-
Erst einmal Danke.
Script von Kanashius funktioniert.
War als eine Art "Altersverifikation" gedacht, aber wie oben schon geschrieben und wie ich auch gestern noch im Internet gelesen habe, bringt dieses gar nichts.
War wohl eher eine "blödsinnig Idee". -
Moin.
Danke erst einmal.
Das ist es ja. Mit dem Script benötigt man keine App oder Smardcard/Chipkarte. -
Moin zusammen.
Ich habe folgende PHP-Datei gefunden.
Kann das jemand in ein *.au3 umschreibenSpoiler anzeigen
PHP
Alles anzeigen<?php //Pruefnummer ueberpruefen function check_number($number=0){ $p = 7; for($i=0; $i < strlen(strval($number)); $i++) { $return += substr($number[$i]*$p, -1); if($p==1) $p=7; else if($p==3) $p=1; else if($p==7) $p=3; } return $return; } //Ist der Perso gueltig? function perso_check($id) { $array = explode(" ", $id); //Erste Checknummer: Zählnummer & Erstwohnsitz if(! (substr(check_number(substr($array[0], 0, 9)), -1)==substr($array[0], 9, 1))) return false; //Zweite Checknummer: Geburtstag if(! (substr(check_number(substr($array[1], 0, 6)), -1)==substr($array[1], 6, 1))) return false; //Dritte Checknummer: Gueltig bis if(! (substr(check_number(substr($array[2], 0, 6)), -1)==substr($array[2], 6, 1))) return false; //Ausweis abgelaufen? Wenn gewuenscht deaktivieren? if(! (time() < mktime(0,0,0, substr($array[2], 2, 2) , substr($array[2], 4, 2) , substr($array[2], 0, 2)))) return false; //Vierte Checknummer: Die gesamte Perso-ID if(! (substr(check_number(substr($array[0], 0, 10).substr($array[1], 0, 7).substr($array[2], 0, 7)), -1)==$array[3])) return false; return true; } //Informationen aus dem Perso beziehen function perso_info($id) { $array = explode(" ", $id); //$return: Ein Objekt mit den Daten aus der Ausweisnummer $return->geb->tag= $array[1]{4} . $array[1]{5}; //Geburtstag $return->geb->monat = $array[1]{2} . $array[1]{3}; //Geburtsmonat $return->geb->jahr = "19" . $array[1]{0} . $array[1]{1}; //Geburtsjahr $alter = date("Y") - $return->geb->jahr; //Hatte er schon Geburtstag? if( (date("n") < $return->geb->monat) OR (date("n") == $return->geb->monat AND date("j") < $return->geb->tag) ) $alter--; $return->alter = $alter; if($alter >= 18) $return->volljaehrig = true; else $return->volljaehrig = false; $return->ablauf->tag = $array[2]{4} . $array[2]{5}; //Ausweiß Ablauf Tag $return->ablauf->monat = $array[2]{2} . $array[2]{3}; //Ausweiß Ablauf Monat $return->ablauf->jahr = $array[2]{0} . $array[2]{1}; //Ausweiß Ablauf Jahr $return->herkunft = $array[0]{10}; //Ein Deutscher? if(strtolower($return->herkunft) == "d") $return->deutscher = true; else $return->deutscher = false; //Erstwohnsitz als Nummer $return->erstwohnsitz = $array[0]{0}.$array[0]{1}.$array[0]{2}.$array[0]{3}; return $return; } //Beispiel zur Verwendung if($_GET['check']) { $perso_id = $_POST['ida']." ".$_POST['idb']." ".$_POST['idc']." ".$_POST['idd']; //Oder: //$perso_id = "1234567891D 2345678 9012345 6" if(perso_check($perso_id)) { echo "Personalnummer korrekt!"; echo "<br><br> Daten der Ausweisnummer: <pre>"; $data = perso_info($perso_id); print_r($data); echo "</pre>"; //Zugriff z.B. so: //Alter: $data->alter; //Geburtsmonat: $data->geb->monat; //Ablauftag: $data->ablauf->tag; } else { echo "Personalnummer falsch"; } } ?> <!-- Kleines Anwendungsbeispiel --> Personalnummer:<br> <form action="?check=1" method="post" > <input type="text" size="11" maxlength="11" name="ida"><< <input type="text" size="7" maxlength="7" name="idb">< <input type="text" size="7" maxlength="7" name="idc"><<<<< <input type="text" size="1" maxlength="1" name="idd"> <br> <input type="submit" value="überprüfen"> <br><br>
Ich sage schon jetzt Dank und schätze mal, das es einige nutzen würden. -
Ganz ehrlich?
Ich habe mir das zwei mal durchgelesen und weiß nicht von welchger Anlage gesprochen wird und ich weiß auch nicht, wie die Fehlermeldungen aussehen. -
Ich finde das mit dem Unterstrich besser.
Begründung:
Ich suche nach einer Funktion, weiß aber nicht genau wie ich sie genannt habe. Dann suche ich nach 'Func _' und dann F3 bis zur gesuchten Funktion. -
Jetzt bin ich schon ein wenig schlauer. DANKE SCHÖÖÖÖN !
-
Sorry, aber ich verstehe gar nichts. Was für ein Haltepunkt? Mir fehlt das innere Bild vor den Augen um was es geht.
-
Moin.
Bitte einmal das Skript posten, so weit Du es fertig hast.
Dann geht es evtl. besser mit dem helfen !!! -
... man kann mit Autoit ein PDF generieren? Wie funktioniert das? ....
Suchfunktion: PDF = Das mit PDF kann man so lösen:Spoiler anzeigen
#include <TxTtoPDF.au3>
Global $txtfilename, $pdffilename
; Assign a Local variable the search handle of all files in the current directory.
Local $hSearch = FileFindFirstFile("*.txt")
; Assign a Local variable the empty string which will contain the files names found.
Local $sFileName = "", $iResult = 0
While 1
$sFileName = FileFindNextFile($hSearch)
; If there is no more file matching the search.
If @error Then ExitLoop
$txtfilename = $sFileName
$pdffilename = StringTrimRight ($txtfilename, 4)
WEnd
; Close the search handle.
FileClose($hSearch)
;set the properties for the pdf
_SetTitle('')
_SetSubject('')
_SetKeywords('')
_OpenAfter(True);open after generation
_SetUnit($PDF_UNIT_CM)
_SetPaperSize('A4')
_SetZoomMode($PDF_ZOOM_CUSTOM, 90)
_SetOrientation($PDF_ORIENTATION_PORTRAIT)
_SetLayoutMode($PDF_LAYOUT_CONTINOUS)
;initialize the pdf
_InitPDF($pdffilename & '.pdf')
_LoadFontTT('F1', $PDF_FONT_CALIBRI,$PDF_FONT_ITALIC)
_Txt2PDF($txtfilename, 'F1')
;write the buffer to disk
_ClosePDFFile()
Sleep(1000)
FileDelete($txtfilename)
Func _Txt2PDF($sFile, $sFontAlias)
Local $hFile = FileOpen($sFile)
Local $sText = FileRead($hFile)
FileClose($hFile)
Local $iUnit = Ceiling(_GetUnit())
Local $iX = 2
Local $iY = Ceiling(_GetPageHeight() / _GetUnit()) - 1.5
Local $iPagina = Ceiling(_GetPageWidth() / $iUnit) - $iX
Local $iWidth = Ceiling($iPagina - $iX);, 1)
Local $lScale
Local $iRanduri = StringSplit($sText & @CRLF & @CRLF & @CRLF & @CRLF, @CRLF, 3)
Local $iHR = 0.5 * Ceiling($iY / (10 * $iUnit))
Local $iPages = Ceiling((UBound($iRanduri)) * $iHR / $iY)
Local $iNrRanduri = Ceiling(UBound($iRanduri) / $iPages-2)
Local $nrp
For $j = 0 To $iPages + 2
$nrp = _BeginPage()
_DrawText(_GetPageWidth()/_GetUnit()-1, 1, $nrp, 'F1', 10, $PDF_ALIGN_CENTER)
For $i = 0 To $iNrRanduri - 1
Local $sLength = Round(_GetTextLength($iRanduri[$i + $j * $iNrRanduri], $sFontAlias, 10))
Local $iH = $iY - $iHR * ($i + 1)
Select
Case $iH < 1
_EndPage()
Case $i + $j * $iNrRanduri = UBound($iRanduri) - 1
_EndPage()
Return
Case $sLength > $iWidth - 1
$lScale = Ceiling($iWidth * 100 / $sLength)
_SetTextHorizontalScaling($lScale)
_DrawText($iX, $iH, $iRanduri[$i + $j * $iNrRanduri], $sFontAlias, 10, $PDF_ALIGN_LEFT, 0)
_SetTextHorizontalScaling(100)
Case Else
_DrawText($iX, $iH, $iRanduri[$i + $j * $iNrRanduri], $sFontAlias, 10, $PDF_ALIGN_LEFT, 0)
EndSelect
Next
_EndPage()
Next
EndFunc ;==>_Txt2PDF
-
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
Spoiler anzeigen
C
Alles anzeigen#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.
Spoiler anzeigen
C
Alles anzeigen#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.