Beiträge von Schmunke

@Yjuq - die aktuelle Version habe ich nicht ... k.A. welche ich habe ... ist schon 4 oder 5 Jahre her ...

@Musashi ... ja - ich probiers mal ...

Danke erstmal

WinAPISysWin.au3 ... wo finde ich die ?

Ich hab die nämlich nicht ... hier im Forum scheint sie auch nicht zu sein und beim googlen wird das Word in 2 Wörter (WinAPI und SysWin.au3) geteilt - danach wird dann gesucht ... ich finds nicht.

kannst du das bitte mal hochladen ?

Danke

Dein ExcelChart werde ich mir noch anschauen, sobald der Kollege es eingesehen hat, die Stammdaten in einer Excel-Datei zu speichern (die er dann selber nach belieben ändern kann - ohne das ich jedesmal das Programm neu comipilieren muss .... )

Aber mal was anderes : ich wollte mit GDI+ die Kennlinie zeichnen lassen. Mit KODA hab ich mir jetzt mal eine Dialog-Maske erstellt wie das ganze aussehen soll.

Der Anwender bekommt die Pufferdaten des akt. Puffers angezeigt - dazu auch die Kennlinie(n).

Über Eingabefelder sollen dann Werte des Puffers geändert werden können und die dazugehörenden Kennlinien neu gezeichnet werden.

... so zumindest der Plan

Wie krieg ich jetzt die Kennlinie in 'Group4' angezeigt ???

GDI+ unterstützt kein Input, wie es GDI macht ...

... oder geht das ganz anders ? Ich brauch irgendwie mal nen Ansatz, wie das realisiert werden kann.

Gruß Ralf

Ja - hab ich. Meinst du die Daten einfach nach Excell exportieren ... oder so ?

wegen den 2 GUI's - danke für den Link

So ... ich hab mich jetzt ein bischen mit KODA beschäftigt ... um eine 'schöne' Eingabe-Maske zu kreieren. Damit kann man schneller/besser seine Daten eingeben und ändern.

Das kann man bestimmt auch besser hinkriegen ... aber mir reicht das erstmal so hin.

Was mir jetzt noch fehlt ist ein Grafik. Ich möchte - nachdem der Button 'Kennlinie berechnen' angeklickt wurde, das ein grafisches Ergebnis in einem neuen Fenster (einem zusätzlichen Fenster) angezeigt wird. In diesem Fenster soll dann auch weiter gearbeitet werden. Ich brauche dort noch Buttons. Im ersten Fenster soll erst dann wieder gearbeitet werden, wenn das neue Fenster wieder geschlossen worden ist.

Die Daten zu diesem (gewünschten) grafischen Ergebnis liefert mir die txt-Datei, die ebenfalls erzeugt (und abgespeichert) wird (s. Anhang).

Ich brauche dann die Graphen gem. Anhang

- Weg / Geschwindigkeit (x-Ache der Weg; y-Achse Geschwindigkeit)

- Weg / Verzögerung (x-Ache der Weg; y-Achse Verzögerung)

Kann auch sein, das ich noch einen anderen / weiteren Graphen brauche. Mal sehen.

Wie sieht die Struktur dazu aus ? Ist mir nicht ganz klar, wie ich das machen soll - zumal ich ja schon 1 Hauptfenster habe - ohne Grafikeinbindung ...

Anbei mal mein Code ...

So ... bin wieder zurück. Hab vom Kollegen 2 Beispiele bekommen.

Anbei die beiden Dateien mit den Daten zu den Puffern. Damit kannst du es mal probieren ...

Bis dann ...

Hi ... ja, die Ausgabe auf den Drucker brauch ich nicht. Besser wäre eine Ausgabe in eine Datei ... ruhig mit festen Namen.

Das mit der ANSTFL ... ja - du hast Recht. Die Abfrage ist etwas ... sinnfrei.

Als Werte kann ich dir das hier geben:

Durchmesser 40 mm

Länge 175 mm

Masse 3200 kg

Nenngeschw. 1.6m/s

Koeffizient 0.7 (obwohl nur 0.5 ... 0.6 zur Auswahl steht)

Den letzten Wert auf 0.95 setzen ....

Dann müsste die Tabelle erstellt werden.

Leider bin ich z. Zt. Im Ausland und kann nicht auf die Daten zugreifen ... aber ich schreib mal den Kollegen an ... der müsste irgendwo noch eine haben.

Prima !

Ja ... so kann man auch darüber reden

Die Datei, die ich da oben im Anhang habe ... läßt sich leider nicht als *.bas - Datei hochladen ... deshalb ist es nur eine txt-Datei. Da oben ist also der Quellcode ...

Da war aber noch die Sache mit der Grafik ... der Kurvenverlauf soll ja als Grafik sichtbar sein (in Datei speichern). Es geht also über das alleinige Umschreiben drüber hinaus ...

Das mit der karitativen Organisation ist gerade durch ... hab aber echt keine Ahnung ob das so ok ist.

Falls nicht - bitte Bescheid geben, ok ?

Danke erstmal ...

Hallo,

in unserer Firma gibt es ein QBasic-Programm, das auf einem unsere XP-Rechner lief ....

Jetzt - wo wir nur noch Win 10 haben - geht das natürlich nicht mehr.

Der Mitarbeiter, der das Programm mal geschrieben hat, ist schon lange nicht mehr im Unternehmen.

... aber den Quellcode - den haben wir noch

Es wird nicht mehr so oft benutzt, aber manchmal eben doch noch und deshalb soll dieses Programm auch auf Win 10 laufen.

Ich kann es nicht ... ist mir einfach zu schwer/komplex.

Es wird die Drosselkennlinie von Hydraulikpuffern eines bestimmten Typs in senkrecht stehender Anordnung ermittelt !

Bzw. wird der Puffer damit berechnet. Die ermittelte Kennlinie soll - und das ist das neue hierbei - auch grafisch festgehalten werden. Vorher wurde eine Tabelle mit Zahlen ausgespckt; jetzt soll zusätzlich eine Grafik ausgedruckt werden.

Deshalb suche ich jemanden, der das Programm in AutoIT umsetzt.

Das Programm kann zwar so bleiben (vom Aufbau und Struktur), muss aber nun doch eine Ergänzung bekommen !

Wenn mir jemand helfen könnte und sich das zutraut, bitte melden !

Anbei mal der QB-Quellcode. (Firmenbezogene Daten wurden entfernt)

Über eine Vergütung müßte seperat verhandelt werden, da ich das ganze dann weiterleiten muss ...

Danke

R.Schmidt

das ist ja was ich gesucht habe ... die Vergleiche !

Danke für das passende Beispiel zur UFD, Bitnugger ... damit kann ich was anfangen

Prima

... das kann ich leider nicht - mit RegEx umgehen ...

Danke für den Hinweis.

Die UDF hilft ... das Provblem ist jetzt nur noch, das Vergleiche 'a > b' im Programm nun geändert werden müssen; bzw. diese Vergleiche anders sein müssen.

Das Programm, das ich habe, hat nur mit Zahlen in Bereich von +/- 10^18 arbeiten müssen ...

jetzt muss ich das Programm auf +/- 10^23 umstricken und stoße so auf gewisse Schwierigkeiten ...

wie macht man das am besten ?

Danke ...

Hi,

ich suche eine Möglichkeit Zahlen dieser größerordnung "34175871510369816576" mit Additionen, Subtraktionen, Multiplikationen und auch Divisionen zu verwenden.

AutoIt kann das nicht ... gibt es vielleicht eine UDF dafür ?

RS

wäre das ne Lösung ?

Dim $main, $functions, $i
$functions = _ArrayToString($main, @CRLF)
For $i = 1 To UBound($functions) - 1 
    call('"' & $functions[$i] & '"')
Next

Zitat von alpines

Du kannst auch StringTrimLeft verwenden.

StringTrimLeft($sString, StringInStr($sString, "Hier")) Das schnippelt dir alles links von dem 1. Hier weg.
Dann kannst du StringTrimRight verwenden (zählt von hinten nach vorne) um von hinten alles wegzuschnippeln, oder du verwendest StringBetween wenn du einen Bereich haben willst.

das "H" geht auch flöten ...

StringTrimLeft($sString, StringInStr($sString, "Hier")-1)

so ist´s besser

So ... danke für die Hilfe von euch beiden.

Habs jetzt abegeändert und funktioniert jetzt .

Zitat von chip

GUICtrlCreateEdit () hat ein Limit von rund 30.000 Zeichen.

... kacke ...

Danke für die Info

Zitat von autoBert

Lies https://www.autoitscript.com/forum/topic/18…dit_appendtext/

jo ... bin dabei

thx

Hallo,

ich habe nach langer Zeit mal wieder angefangen etwas zu proggen. Dabei habe ich ein Problem.
Ich verwendet die Funktion GUICtrlCreateEdit () und fülle mit GUICtrlSetData() Text in das Feld ein.

Irgendwann paßt dort leider kein Text mehr rein ... nach ca. 100 Verzeichnissnamen und Dateinamen wird einfach nichts mehr angezeigt.

Eigentlich wollte ich nur einen Darstellungsbereich haben, in dem man sehen kann, was gerade abgearbeitet wird.
Ich habe gedacht, das Edit-Control arbeitet nach FiFo-Prinzip (First-In - First-Out), so das man immer Text an das Edit-Control übergeben kann.

Oder benutz ich das Falsche Control ? Wie kann ich das so realisieren, das unendlich viel Text angezeigt wird ?
Ich wollte das in $Edit1 und im $Edit2 - Contol verwenden.

Kann mir da jemand einen Tip geben ?

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>


Global $i, $hDatei, $strQuellVerz, $strZielVerz


#Region ### START Koda GUI section ### Form=c:\program files (x86)\autoit3\scite\koda\forms\fileserver - form1.kxf
$Form1_1 = GUICreate("FileServer (ver 0.2)", 963, 661, 468, 228)
$Group1 = GUICtrlCreateGroup("Prpgramm zum kopieren von Zeichnungen in die Dokumentenverwaltung", 8, 8, 945, 641)
$Group2 = GUICtrlCreateGroup("Quellverzeichnis", 16, 32, 929, 49)
$Label1 = GUICtrlCreateLabel("Quelle :", 24, 56, 40, 17)
$Button5 = GUICtrlCreateButton("...", 896, 48, 35, 25)
$Input1 = GUICtrlCreateInput("", 72, 52, 801, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Info zu Quellverzeichnis", 16, 88, 929, 161)
$Edit1 = GUICtrlCreateEdit("", 24, 104, 913, 137, $ES_AUTOVSCROLL + $WS_VSCROLL)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Info zu Zielverzeichnis", 16, 312, 929, 161)
$Edit2 = GUICtrlCreateEdit("", 24, 328, 913, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Status", 16, 480, 929, 129)
$Edit3 = GUICtrlCreateEdit("", 24, 496, 913, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Dateiendungen editieren", 40, 616, 163, 25)
$Button2 = GUICtrlCreateButton("Kopiervorgang starten", 232, 616, 147, 25)
$Button3 = GUICtrlCreateButton("Hilfe", 416, 616, 75, 25)
$Button4 = GUICtrlCreateButton("Beenden", 864, 616, 75, 25)
$Group4 = GUICtrlCreateGroup("Zielverzeichnis", 16, 256, 929, 49)
$Label2 = GUICtrlCreateLabel("Ziel :", 24, 280, 27, 17)
$Button6 = GUICtrlCreateButton("...", 896, 272, 35, 25)
$Input2 = GUICtrlCreateInput("", 56, 276, 817, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


InitStart()
GUICtrlSetData($Input1, $strQuellVerz, $strQuellVerz)
GUICtrlSetData($Input2, $strZielVerz, $strZielVerz)
ViewInfosVerz($strQuellVerz, $Edit1, TRUE)
ViewInfosVerz($strZielVerz, $Edit2, FALSE)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			ProgrammEnde()
			Exit
		Case $Button1 ; Dateiendungen editieren
			MsgBox(0, "Meldung"," Die Funktion steht noch nicht zur Verfügung.")


		Case $Button2 ; Kopiervorgang starten


		Case $Button3 ; Hilfe


		Case $Button4 ; Beenden
			ProgrammEnde()


		Case $Button5 ; QuellVerz auswählen
			$strQuellVerz = _FileSelectFile("Quellverzeichnis auswählen", $strQuellVerz)
			GUICtrlSetData($Input1, "")
			GUICtrlSetData($Input1, $strQuellVerz, $strQuellVerz)
			ViewInfosVerz($strQuellVerz, $Edit1, TRUE)


		Case $Button6 ; ZielVerz auswählen
			$strZielVerz = FileSelectFolder("Zielverzeichnis auswählen", $strZielVerz)
			GUICtrlSetData($Input2, "")
			GUICtrlSetData($Input2, $strZielVerz, $strZielVerz)


	EndSwitch
WEnd


Func _FileSelectFile($strUeberschrift, $strPath)
	Local $strPath_l, $array_l, $strSelectedFile_l, $strText, $i


	$strSelectedFile_l = FileSaveDialog($strUeberschrift, $strPath, "Dateien (*.pdf;*.dwg;*.dxf)", 2)
	; Option 2 = Dialog wird solange wiederholt, bis ein gültiger Pfad bzw. eine gültige Datei ausgewählt wurde.


	If @error Then
		MsgBox(4096, "", "Vorgang abgebrochen.", 1)
	Else
		$array_l = StringSplit($strSelectedFile_l, "\")


		;$strPath_l = $strPath_l & "$array_l[0] : <" & $array_l[0] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[1] : <" & $array_l[1] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[2] : <" & $array_l[2] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[3] : <" & $array_l[3] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[4] : <" & $array_l[4] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[5] : <" & $array_l[5] & ">" & @CRLF
		;$strPath_l = $strPath_l & "$array_l[6] : <" & $array_l[6] & ">" & @CRLF
		;$strText = $strPath_l
		;MsgBox(4096, "", $strText)


		$strPath_l = ""
		For $i = 1 To $array_l[0] - 1
			$strPath_l = $strPath_l & $array_l[$i] & "\"
		Next
		$strPath_l = StringLeft($strPath_l, StringLen($strPath_l) - 1)
		;MsgBox(4096, "", $strPath_l)
	EndIf
	Return $strPath_l
EndFunc


Func ViewInfosVerz($strPath, $hFenster, $boShow)
	Local $strSuchen_l, $strFile_l, $strAttrib_l
	Local $liAnzPDF_l, $liAnzDWG_l, $liAnzDXF_l


	$liAnzPDF_l = 0
	$liAnzDWG_l = 0
	$liAnzDXF_l = 0


	;MsgBox(0, "Meldung", "$strQuellVerz : " & $strQuellVerz & @CRLF & @CR & "$strZielVerz : " & $strZielVerz  & @CRLF & @CR)
	If NOT FileExists($strPath) Then
		MsgBox(4096, "Fehler", "Verzeichnis " & $strPath & " nicht erreichbar !" & @CRLF & @CR & "Programm wird beendet !")
		ProgrammEnde()
		Exit
	EndIf


	GUICtrlSetData($Edit3, "Verzeichnis " & $strPath & " vorhanden." & @CRLF, 1)
	GUICtrlSetData($Edit3, "lese Verzeichnisstruktur ein ... " & @CRLF, 1)


	$strSuchen_l = FileFindFirstFile($strPath & "\*.*")


	If $strSuchen_l = -1 Then
		GUICtrlSetData($Edit3, "keine Unterverzeichnisse zu " & $strPath & " gefunden ... " & @CRLF, 1)
	Else
		While 1
			$strFile_l = FileFindNextFile($strSuchen_l)
			If @error Then
				ExitLoop
			EndIf
			GUICtrlSetData($hFenster, $strPath & "\" & $strFile_l & @CRLF, 1)
			If StringInStr($strFile_l, ".pdf") Then
				$liAnzPDF_l = $liAnzPDF_l + 1
			EndIf
			If StringInStr($strFile_l, ".dwg") Then
				$liAnzDWG_l = $liAnzDWG_l + 1
			EndIf
			If StringInStr($strFile_l, ".dxf") Then
				$liAnzDXF_l = $liAnzDXF_l + 1
			EndIf
			MsgBox(4096, "", "<" & $strFile_l & ">")
		WEnd
	EndIf


	If $boShow = TRUE Then
		GUICtrlSetData($Edit3, "pdf-Datein : " & $liAnzPDF_l & @CRLF, 1)
		GUICtrlSetData($Edit3, "dwg-Datein : " & $liAnzDWG_l & @CRLF, 1)
		GUICtrlSetData($Edit3, "dxf-Datein : " & $liAnzDXF_l & @CRLF, 1)
	EndIf


EndFunc


Func ProgrammEnde()
	$hDatei = FileOpen("FileServer.ini", 2)
	FileWriteLine($hDatei, $strQuellVerz & @CRLF)
	FileWriteLine($hDatei, $strZielVerz & @CRLF)
	FileClose($hDatei)
	Exit
EndFunc


Func InitStart()
	If FileExists("FileServer.ini") Then
		$hDatei = FileOpen("FileServer.ini", 0)
		If $hDatei = -1 Then
			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
			FileClose($hDatei)
			Exit
		EndIf
		$strQuellVerz = FileReadLine($hDatei)
		$strZielVerz = FileReadLine($hDatei)
		FileClose($hDatei)
	Else
		$strQuellVerz = @WorkingDir
		$strZielVerz = "\\dc1\Dokumentenverwaltung\Fertigung"
		$hDatei = FileOpen("FileServer.ini", 2)
		FileWriteLine($hDatei, $strQuellVerz & @CRLF)
		FileWriteLine($hDatei, $strZielVerz & @CRLF)
		FileClose($hDatei)
	EndIf
EndFunc