Beiträge von BugFix

Also CPU > 1GHz hab ich leider nicht. Ich habe einige Boards inkl. CPU von Dell-Desktops - aber die haben alle einen Defekt auf dem Board und aufgrund der Dell-Politik gibt es keine Ersatzboards (Standardboards passen da ja nicht rein).

Weshalb ich eigentlich mich zu Wort melde:
Ich werfe jedes Jahr an die 50 Stück Kaltgerätestecker 2-polig und nochmal ca. 20 Stck. 3-polig über Bord, da sich dieses Zeug sinnlos ansammelt.
Weiterhin verschrotte ich ständig Geräte mit LCD-Displays. Eigentlich viel zu schade zum Wegwerfen, aber ich komm eh nicht mehr zum Basteln.
Falls also jemand Interesse an solchen Dingen hat, mal melden - dann gibt es irgendwann ein Carepaket.

Zitat von Bakku

Geht das??

Nicht wirklich, es heißt nicht umsonst Kontextmenü - d.h. es besteht immer ein Kontext (Zusammenhang) zu einem anderen Element.

In der Funktion passiert folgendes:

If $iRowCnt = 0 Then $iRowCnt = $iLastRow - $iStartRow + 1

Du übergibst keinen Wert für $iRowCnt, somit ist dieser standardmäßig = 0 und die obige If-Abfrage greift.
Laut deiner Fehlermeldung enthält dein Array nicht das Element mit dem Index: $iRowCnt + 1
Deine Tabelle ist also kleiner als dieser Wert. Anders ist das aus meiner sicht nicht erklärbar.

Edit:

ODER - Du hast noch eine ältere Version der UDF. Da mußt du noch zusätzlich folgende Änderung vornehmen.:

; Extract integer last row and col
Local $iLastRow = StringInStr($sLastCell, "Z");"R")
Local $iLastColumn = StringInStr($sLastCell, "S");"C")

Ich weiß, Lesen könnte etwas zuviel verlangt sein, aber guck mal hier: http://www.autoit.de/index.php?page=Forumrules.
Dann sind deine Fragen geklärt.

[Closed]

Die Funktion "_ExcelReadSheetToArray" enthält eine Zeile, die auf englischsprachiges Excel gemünzt ist. Das muß man anpassen.
Es ist die Zeile 795 des Includes.

Falsch:

If $sLastCell = "R1C1" And $oExcel.Activesheet.Cells($iLastRow, $iLastColumn).Value = "" Then Return $avRET

Richtig:

If $sLastCell = "Z1S1" And $oExcel.Activesheet.Cells($iLastRow, $iLastColumn).Value = "" Then Return $avRET

Zitat von ojo

BugFix & Oscar:
Liefern Eure Ansätze die Belegung in der 1. ten Spalte (wie gefragt)?
Ich glaube nein.

Ich glaube doch.
OK, muß man etwas anpassen. Aber es ist immer günstiger die Excel-internen Funktionen zu nutzen.

Local $oBook = _ExcelBookOpen('c:\Test.xls', 0)
Local $ZelleLeer = $oBook.Sheets(1).UsedRange.Find('')
ConsoleWrite('Belegte Zellen in Spalte A: ' & StringRegExpReplace($ZelleLeer.Address, '\$\w\$', '')-1 & @CRLF)
_ExcelBookClose($oBook)

Noch eine Anmerkung: In der Form klappt das aber nur, wenn die Nachbarspalten durchgängig belegt sind. Ansonsten wird die erste freie Zelle zurückgegeben.
Suchweise: von links nach rechts und abwärts.

Zitat von AutoBert

also ich kann unter Win XP SP3 den Papierkorb ganz abschalten:

Ganz abschalten geht auch, klar. Aber einige Sachen verschiebe ich doch lieber erst mal nur in den Papierkorb (nach Deinstallationen scheinbar unnötige Dll's etc.) und hole sie bei Bedarf zurück. Jedoch braucht es dafür halt nur einige MB, aber die freie Wahl erlaubt Windoof nicht. Nur gar nicht od. min. 1% vom Speicherplatz.

Das ist aber unnütz kompliziert

Geht ganz einfach:

; === Excel Objekt erstellen
Local $oBook = _ExcelBookOpen($file)

; === Tabellenblatt wählen ( wobei das glaub ich für diese Funktionen nicht notwendig ist )
$oBook.ActiveWorkbook.Sheets(1).Select ()

; === letzte Zeile
ConsoleWrite('Anzahl Zeilen: ' & $oBook.Worksheets(1).UsedRange.Rows.Count & @CRLF)

; === letzte Spalte
ConsoleWrite('Anzahl Spalten: ' & $oBook.Worksheets(1).UsedRange.Columns.Count & @CRLF)

Und schau dir mal den Papierkorb an. Der reserviert sich mal eben 10% Speicher in der Standardeinstellung. Und weniger als 1% ist nicht möglich. Der totale Schwachsinn. Mir würden ca. 200 MB als Papierkorb reichen. Meist lösche ich eh direkt.

Zitat von Darter

Ich wollte einen Termometer machen, der mir die daten von Draußen holt und graphisch darstellt.
Welche schnittstelle kannst du mir da empfehlen, denn eine relaisschaltung reicht da ja nicht aus.

Kommt auf dein Thermometer an. Wenn du ein analoges Spannungssignal erhältst, kannst du unterscheiden zwischen Spannung gestiegen oder Spannung gefallen. Diese Signale legst du als Impuls auf zwei verschiedene Relais, wobei du mit einem Filter sicherstellen kannst, dass die geänderten Werte immer ein definiertes Delta haben (z.B. 0,25°). Somit hast du 'Digits' in der Größe 1/4° mehr oder weniger.

Gib mal in unserer Forumsuche "Relaiskarte" ein.
Da wirst du fündig.

Zitat von Jonathan

aber wenn ich versuchen würde den iPod am UsbHub aufzuladen, könnte ich dann nicht an einem der anderen USB-Stecker messen?

Also der Hub hat das besagte Netzteil und dadran stöpselst du den IPod? - Sollte gehen, dann bricht an allen Ports des Hub die Spannung zusammen, wenn das NT zu schwach auf der Brust ist.

Edit:
Hab grad das gefunden:

Zitat

Also ich habe ein normales 5 Volt Steckernetzteil zum Ladegerät meines
Ipod's umgebaut. Damit dieser aber lädt, musste ich beide Datenleitungen
mit Masse verbinden.

Steht noch mehr auf der Seite

Zitat von Jonathan

Dann muss cih doch das Kabel aufschneiden, wenn ich dadrannen möchte... oder?

Nun, ich hab mir dazu mal 'nen Adapter gebastelt. Es geht aber auch anders. Nicht unbedingt der Königsweg, aber führt zum Ergebnis:
Nimm die dünnsten Nadeln, die du im Nähkasten deiner Mutter, Oma od. wo auch immer findest und stich je eine durch die Isolation der betreffenden Ader. Dann kannst du messen. Die Isolation wird dabei nicht zerstört. Das Material ist so elastisch, dass es sich hinterher wieder sogut, wie vorher verschließt.
Geht aber nur, wenn du zwei nebeneinander liegende Adern hast. Bei innen liegender Plus-Leitung mit Schirm als Masse geht das nicht. (Rundkabel)

Hallo und Willkommen, mein Sohn. Meine Tochter ist exakt zum selben Datum geboren, wie du.

Vermutlich halten deine vorhandenen Netzadapter nicht, was draufsteht. Bei vielen kackt die Spannung ab, wenn du tatsächlich 500 mA ziehen willst. Ich vermute, das ist hier ebenso. Miß einfach mal die Spannung parallel zum angestöpselten IPod. Dann wirst du es sich sehen.

Da hatte Raupi versehentlich das "Return $GUI_RUNDEFMSG" außerhalb der Funktion angesiedelt
Erforderlich ist es, nicht wglassen.
So muß es richtig sein:

Func WM_SIZE()
_GUICtrlStatusBar_Resize($stb_Main)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_EXITSIZEMOVE

Zitat von SEuBo

Ich habe nicht gesagt, dass man SetError dafür nicht benutzen kann, sondern,
dass @error ungeignet ist um zusätzliche Informationen zu einem error, oder success zu übergeben.
Weil ja kein Fehler auftritt.

Das ist nicht ganz richtig. @error kannst du immer abfragen, ist halt bei Erfolg =0. Somit kannst du auch bei Erfolg zusätzliche Infos mit dem Error=0 zur Verfügung stellen (welchen Sinn das hat, muß jeder selbst entscheiden). Du gibst dann "SetError(Fehlerwert, erweiterter Wert, Rückgabewert)" mit einem Fehlerwert=0 aus und verpackst zusätzliche Infos. Trotz des "SetError" liefert die Funktion dann keinen Fehler (ist ja 0).
Der @extended-Wert kann nur numerisch sein.

Mal ein Bsp.:

Local $array[5] = ['A','n','i','t','a']
Local $string = 'Anita'

$ret = _PosInVar($array, 4)
If Not @error Then ConsoleWrite($ret & ' - übergeben wurde ein: ' & @extended & @CRLF)

$ret = _PosInVar($string, 3)
If Not @error Then ConsoleWrite($ret & ' - übergeben wurde ein: ' & @extended & @CRLF)

Func _PosInVar($a, $b) ; Param $a kann String ODER Array sein, $b bestimmt die Position
Local $type = 1 ; 1 für Array
If Not IsArray($a) Then
$type = 2 ; 2 für String
$a = StringSplit($a, '', 2)
EndIf
Return SetError(@error, $type, $a[$b-1])
EndFunc

Zitat von m-obi

im Stil von einem Crossover.

Was ist das, sagt mir nix.
Ich kenn Crossover nur als Möglichkeit im MAC Windows-Software laufen zu lassen.

Hört sich ganz so an, als ob das IN-Signal vorverstäkt werden muß. Mit dem stinknormalem Audio-Out vom PC kannst du da keinen Blumentopf gewinnen.
Aber hast du keinen SCART-Anschluß? Da kannst du super Audio einspeisen. Hab ich selber schon zusammengelötet.

Hinweis:

Wenn Delimiter verwendet werden ist es praktisch das Default-Trennzeichen zu übernehmen.

$sDelimCol = Default
;...
If IsKeyword($sDelimCol) Then $sDelimCol = Opt('GuiDataSeparatorChar')