Beiträge von BugFix

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.

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

Zitat von Sprenger120

Aber für das LCD Gerät würd ich mich interressieren. (Das ganze ja ?)

1-mal ? Ist kpl. 40-Segment LCD + Treiberchip + LCD-Platinenhalterung
Bekommst dann die gesamte Platine, wie auf dem Bild zu sehen.

(Links korrigiert)

Hi,
ich hatte ja schonmal in der SB rumgeulkt - nun aber mal ernsthaft:
Ich habe etliche Geräte, die hauptsächlich aufgrund mechanischer Defekte zu verschrotten sind. Als alter Bastler tut mir das in der Seele weh.
Da ich selber aber keinerlei Elektronikbastelei mehr mache, hoffe ich vielleicht jemandem etwas Gutes zu tun.
Neben den üblichen Dingen, die man auf Geräteplatinen so findet (Trafos, Elkos, Transistoren, Dioden, Widerstände), habe ich einige Platinen mit:
- TopSwitch TOP249Y mit Kühlkörper
- Optokoppler CNY17F-3
- 40-Segment LCD-Anzeige mit Steuerchip PCF2100CT
Ich finde, das sind schon kleine Leckerbissen.

Haben möchte ich dafür nix.
Nur Auslöten müßt ihr selbst und wenn ihr nicht in meinem Arbeitsgebiet wohnt (dann würde ich es sogar vorbeibringen), dann tragt ihr das Porto.

Hier noch ein paar Bilder:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Zitat von meistertogo

Geht das auch bei beiden Menüs?

Laß dir die Positionsdaten für das entsprechende Menu ausgeben mit:
$aPos = _GUICtrlMenu_GetItemRect($hGui, $hMenu, $INDEX)
$INDEX ist der 0-basierte Index der Menüs.

Zitat von Gummibaer

ich find halt nichts für den eigenschaften dialog

Es gibt darauf keinen direkten Zugriff - aber es gibt AutoIt! Einfach selbst automatisieren:

#Include <GuiListView.au3>
Local $Path1 = 'C:\Programme\AutoIt3'
Local $Path2 = 'C:\Programme\AutoIt3\AutoIt3Help.exe'

Local $Window = _ShowPropertiesDialog($Path1)
Do
Sleep(100)
Until Not WinExists($Window)
_ShowPropertiesDialog($Path2)

Func _ShowPropertiesDialog($sPath)
; BugFix
Local $Parent, $Target, $hListView, $index
If StringRight($sPath,1) = '\' Then $sPath = StringTrimRight($sPath,1)

$Parent = StringLeft($sPath, StringInStr($sPath, '\', 1, -1) -1)
$Target = StringTrimLeft($sPath, StringLen($Parent)+1)

RunWait(@WindowsDir & '\explorer.exe /root,"' & $Parent & '"')
$hListView = ControlGetHandle($Parent, '', '[CLASS:SysListView32; INSTANCE:1]')

$index = _GUICtrlListView_FindText($hListView, $Target, -1, False)
_GUICtrlListView_SetItemFocused($hListView, $index)
_GUICtrlListView_SetItemSelected($hListView, $index, True, True)
ControlSend($Parent, '', '[CLASS:SysListView32; INSTANCE:1]', '{ALTDOWN}d{ALTUP}i')
Return $Parent
EndFunc

Standardmäßig gibt es keinen Befehl oder Style dafür.
Einen Rahmen mit _WinAPI_FrameRect() zu zeichnen scheitert daran, dass für den Menübereich kein Device Context ermittelbar ist.
Ein Versuch mit _GDIPlus_GraphicsDrawRect() scheitert ebenfalls daran, dass der Menübereich nicht zum Fenster gehört und somit mit _GDIPlus_GraphicsCreateFromHWND() nicht erfassbar ist.

Vielleicht fällt ja noch wem was anderes ein. Mein momentaner Tipp wäre: Menü selbst erstellen mit eigenen Schaltflächen.

Zitat von TimBlo

Ich will die daten zwischen dem browser und einer bestimmten website abfangen und meinen wünschen anpassen.
ist daran etwas verkehrt?

Ja. Mangels Erklärung, die darauf schließen ließe, dass es etwas Legales wäre: ==> CLOSED

Zitat von oh-ha

Was mich nur wundert ist das man sie problemlos über den Text-Assistenten von Excel öffnen kann.
Nur mit dem Code geht es halt nicht.

Mögliches Problem:
Nicht jede Zeile enthält dieselbe Anzahl an Feldtrennern. Einige (faule) Programmierer geben nur die Zeile bis zum letzten belegten Feld aus, das nimmt dir Excel dann sicher beim Import übel. Jede Zeile muß auch wenn nicht alle Datenfelder besetzt sind, die Felder dafür bereit halten.

Bsp.:
ORT;NAME;BERUF;TELEFON;FAX
A-ort;Meier;;;    <==Richtig
B-ort;Müller      <==Falsch

Zitat von myrix

wenn ich die zeilen bei mir einfüge kommt, wenn ich alle 3 Checkboxen anklicke, es fehlt die sprach angabe.

Sorry, mein Fehler. Ich frage gewöhnlich auf _CHECKED und nicht auf _UNCHECKED ab. Setze einfache die Abfragen auf _CHECKED, dann paßt es.

Vielleicht Probleme in Excel-Version (habe Excel 2000, da gehts problemlos).
Oder fehlerhafter Aufbau der CSV-Datei?
Probier mal mit dieser Datei: CSV-Muster, mit der hat es bei mir auch tadellos funktioniert.

$faSprache = 0 ; Variable für Vergleichswert
If BitAND(GUICtrlRead($cbSpracheJ), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1
If BitAND(GUICtrlRead($cbSpracheD), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1
If BitAND(GUICtrlRead($cbSpracheE), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1

;~ if GUICtrlRead($faSprache) = 0 Then ; wieso GUICtrlRead für Variable? - ist doch kein Eingabefeld
if $faSprache = 0 Then
MsgBox(64,"Angabe Fehlt","Sprache")
$Fehler = 1
EndIf

Zitat von oh-ha

Kann man den Text-Assistenten von Excel so steuern über Autoit das er eine *.csv Datei richtig öffnet ?

Ich verstehe deine Frage nicht. Wenn du eine *.csv hast, wird diese mit dem normalen ..WorkBooks.Open in Excel geöffnet und läßt sich als *.xls abspeichern. Es bedarf dabei keiner zusätzlicher Einstellungen.
Dein gezeigtes Makro bezieht sich auch auf kein CSV - du öffnest dort eine XLS und diese im falschen Format ( .OpenText) .

Zitat von Andy

Eine ganz neue Art der Elektronikschrottverwertung

Ich bin doch ein ganz seriöser Mensch und möchte nuuur helfen.
Evtl. auftretende Synergien werden allerdings dankend angenommen.

Ich hab grad zum Verschrotten an die 15 Geräte mit (funktioniernden) 3*7-Segmentanzeigen bei mir rumliegen. Geräte enthalten auch Netzteile, oft noch ganz, hab nicht alle geprüft.
Falls du da was möchtest: Da kannst du auch munter runterlöten, kann ich dir gern zukommen lassen oder, wenns mal auf meiner Route liegen sollte, auch "abwerfen" :D.

Ah, OK - Ursache: Select markiert die gesamte Zelle! Es darf aber nur eine Auswahl sein, in der der Cursor in der Zelle steht.
Insofern reicht Select und dann als Workaround per Tab aus der Zelle und zurück. Wird wohl noch andere Lösungen geben - aber das funktioniert:

#include <Word.au3>
;Word öffnen
Local $oWordApp = _WordCreate("")
;Tabelle 5x5 erzeugen
$oWordApp.ActiveDocument.Tables.Add($oWordApp.Selection.Range,5,5)

;Zelle 1,1 markieren
$oWordApp.ActiveDocument.Tables(1).Cell(1,1).Select()
; erste Zelle ist markiert, aber Cursor nicht in Zelle
; per Tab in nächste Zelle und zurück - jetzt steht der Cursor drin
$oWordApp.Selection.MoveRight(12) ; 12=wdCell
$oWordApp.Selection.MoveLeft(12) ; 12=wdCell

;Feldfunktion einfügen
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)

; für restliche 24 Felder in Schleife
For $i = 1 To 24
; nächste Zelle wieder mit MoveRight
$oWordApp.Selection.MoveRight(12)
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)
Next

Hier dein Bsp., nur an den genannten Punkten geändert.

Das funktioniert doch. Du brauchst die Inputs nicht vorbelegen, erstelle sie mit Leerstring und am Besten mit dem Style $ES_NUMBER.

Ich verwende Tortoise SVN. Kann man auch nur lokal verwenden.
Wollte das auch schon immer mal als Projekt zur Integration in SciTE verwenden - da fehlt mir aber einfach die Zeit bisher.
Es gibt für SciTE ein Versions-PlugIn, das mich aber gar nicht überzeugen konnte.

Wenn ich nicht falsch liege, paßt das markierte Objekt nicht zur Folgeoperation. "Selection.Fields.Add" erwartet ein Range-Objekt.
Also statt:

$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Select()

verwende:

$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Range.Select()