Beiträge von BugFix

  • [Auswertung läuft...] µitLight September/Oktober

    Zitat von MatthiasG.

    Oh - das wir jetzt auch noch die Starbesetzung... ;)


    Nun mal keine Übertreibung. :D
    Aber ich trete mal außer Konkurrenz an, schließlich hab ich mein Control auch schon vor Monaten veröffentlicht. Aber damit liegt die Meßlatte bestimmt schon recht hoch. :whistling:
    Auf Anhieb die Idee zu einem neuen Ctrl zu haben ist sicher schwer. Bei mir war der Auslöser, dass im Forum nach einem Ctrl mit bestimmten Eigenschaften gefragt wurde.
    Also lauscht aufmerksam in der SB und den Threads - oft sind es die kleinen Dinge, die den Ausschlag geben. ;)

  • netzwerkkontroll app

    Hab meine Unterlagen zwar nicht gefunden, aber mal kurz gegoogelt:
    Ab ca. 175 € gibt es schon den TL-R4299G

    Zitat von Router Details

    ..Der TL-R4299G bietet IP-basierte Bandbreitenkontrolle und Verbindungssitzungskonfiguration. Der Administrator kann Bandbreite und Verbindungssitzung jedes Clients einstellen.Der Router unterstützt IP- und MAC-Bindung, was ARP-Angriffe sehr wirksam verhindert. Fangen Sie an, IP- und MAC-Adressen zu binden, wenn das Netzwerk voll funktionsfähig ist. Die Zuordnung wird dann im routerinternen Puffer gespeichert.

  • netzwerkkontroll app

    Genau für diese Zwecke gibt es spezielle Router mit diesen integrierten Funktionen. Sind allerdings mit um die >500 Ocken auch nicht ganz bilig. Aber in einer Firma sollte das keine Hausnummer sein.
    Ich hatte mir dazu mal Infos gesammelt, falls ich es noch finde, hänge ich es noch an.

  • Wie viel Pixel braucht mein Text?

    Zitat von Jam00

    Könntest du mir vllt. nochmal die Elemente von diesem Array "$aFont[8] = [8,0,'Courier New',10,400,0,0,0]" erklären?


    Ich habe die Parameter identisch von _ChooseFont verwendet:
    [0] - contains the number of elements
    [1] - attributes = BitOr of italic:2, underline:4, strikeout:8
    [2] - fontname
    [3] - font size = point size
    [4] - font weight = = 0-1000
    [5] - COLORREF rgbColors
    [6] - Hex BGR Color
    [7] - Hex RGB Color

  • Bild in Pixeln

    Das ist keine direkte Umsetzung. Das hängt ab von der Bildpunktdichte (dpi).
    Erstell dir einfach mal in GIMP (o. einem anderen Programm) ein Bild in 100x100 px und drucke es mal bei 75 dpi und mal bei 300 dpi aus - dann siehst du den Unterschied.

  • TopSwitch, Optokoppler, 40-Segment LCD u.a.

    Zitat von Kijan

    Kannst ja einfach mal bescheid geben, falls du mal in der gegen von Hamburg bist


    War ich grade heute wieder :D
    Aber HH liegt ca. 2-mal im Monat auf meiner Route. Das kriegen wir schon hin. Optimal wär es, wenn du in der Nähe der A1 wohnst. Aber auf der anderen Seite wär es auch nicht so schlimm. Muß demnächst in die Kieler Ecke, da bin ich dann auch auf der andren Seite.

  • farbe von listviewspalte ändern

    Um NUR eine (mehrere) Spalten mit einer Farbe einzufärben kann man das stark schrumpfen:

    Spoiler anzeigen
    [autoit]

    #Include <GuiConstantsEx.au3>
    #Include <GuiListView.au3>
    #Include <ListViewConstants.au3>
    #Include <StructureConstants.au3>
    #Include <WindowsConstants.au3>

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

    $GUI = GUICreate("Listview Spalte färben", 400, 300)

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

    $cListView = GUICtrlCreateListView("", 2, 2, 394, 268)
    $hListView = GUICtrlGetHandle($cListView)

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

    _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))

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

    _GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
    _GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
    _GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100)

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

    For $i = 1 To 30
    _GUICtrlListView_AddItem($hListView, "Row" & $i & ": Col 1", $i-1)
    For $j = 1 To 2
    _GUICtrlListView_AddSubItem ($hListView, $i-1, "Row" & $i & ": Col " & $j+1, $j)
    Next
    Next

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

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    GUISetState()

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

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR

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

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hListView
    Switch $iCode
    Case $NM_CUSTOMDRAW
    If Not _GUICtrlListView_GetViewDetails($hWndFrom) Then Return $GUI_RUNDEFMSG
    Local $tCustDraw = DllStructCreate('hwnd hwndFrom;int idFrom;int code;' & _
    'dword DrawStage;hwnd hdc;long rect[4];dword ItemSpec;int ItemState;dword Itemlparam;' & _
    'dword clrText;dword clrTextBk;int SubItem;' & _
    'dword ItemType;dword clrFace;int IconEffect;int IconPhase;int PartID;int StateID;long rectText[4];int Align', _
    $lParam), $iDrawStage, $iItem, $iSubitem, $hDC, $iColor
    $iDrawStage = DllStructGetData($tCustDraw, 'DrawStage')
    If $iDrawStage = $CDDS_PREPAINT Or $iDrawStage = $CDDS_ITEMPREPAINT Then Return $CDRF_NOTIFYITEMDRAW
    If Not BitAND($iDrawStage, $CDDS_SUBITEM) Then Return $CDRF_DODEFAULT
    $iSubitem = DllStructGetData($tCustDraw, 'SubItem')

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

    $iColor = RGB2BGR(0xFFFF00) ; Hintergrundfarbe für Spalte
    $iColDefault = RGB2BGR(0xFFFFFF) ; Standardfarbe (weiß)
    If $iSubitem = 1 Then ; Hier SubItem (Spalte) festlegen
    DllStructSetData($tCustDraw, 'clrTextBk', $iColor)
    Else
    DllStructSetData($tCustDraw, 'clrTextBk', $iColDefault)
    EndIf
    Return $CDRF_NEWFONT
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

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

    Func RGB2BGR($iColor)
    Return BitAND(BitShift(String(Binary($iColor)), 8), 0xFFFFFF)
    EndFunc

    [/autoit]

  • TopSwitch, Optokoppler, 40-Segment LCD u.a.

    Zitat von Kijan

    Wollte mal fragen wie viel von den LCDs du hast?
    Nen TopSwitch würd mich auch interessieren.


    Im Moment sind es ca. 10 Stück. (Hab jetzt nicht gezählt, sind noch einige andere Geräte bei)
    Auf der Platine ist der Switch mit drauf - gibts eh nur als Ganzes, Auslöten überlaß ich euch.
    Mein Arbeitsgebiet? - Teile Sachsen-Anhalts und Niedersachsens, Schleswig-Holstein und manchmal auch Touren durch die ganze Republik. ;)
    Wenn dein Wohnort also an meiner Strecke liegt - kein Problem. Mußt evtl. warten, bis ich mal wieder durchrausche. Ansonsten Päckchen-Porto.

  • IsPrim(Zahl)

    Um IsPrim zu prüfen nehme ich meine Primfaktorermittlung. Ist die Ausgabe = Eingabe, dann ist es Prim.
    Die Funktion ist zudem rattenschnell ;)

    Spoiler anzeigen
    [autoit]

    $zahl = 1000003
    If _GetPrimeFactors($zahl) = $zahl Then
    MsgBox(0, '', 'Ist Primzahl')
    Else
    MsgBox(0, '', 'Keine Primzahl')
    EndIf

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

    Func _GetPrimeFactors($n)
    Local $F = ObjCreate("System.Collections.ArrayList")
    While Mod($n,2) == 0
    $F.add(2)
    $n = $n/2
    WEnd
    While Mod($n,3) == 0
    $F.add(3)
    $n = $n/3
    WEnd
    Local $t = 5
    Local $diff = 2
    While $t*$t <= $n
    While Mod($n,$t) == 0
    $F.add($t)
    $n = $n/$t
    WEnd
    $t = $t + $diff
    $diff = 6 - $diff
    WEnd
    If $n > 1 Then $F.add($n)
    Local $out = ''
    For $element In $F
    $out &= $element & ','
    Next
    Return StringTrimRight($out, 1)
    EndFunc ;==>_GetPrimeFactors

    [/autoit]