Beiträge von HGF

HGF

@Musashi : Vielen Dank, genau das was ich gesucht habe!

HGF

Hallo BugFix,

vielen Dank für deine Antwort, aber benötige leider ein bisschen mehr hilfe bei diesen beiden Punkten.

- in Schleife durch das Array gehen

- diesen Wert zu einer Summenvariable aufaddieren

Code

#include <MsgBoxConstants.au3>
Example()
Func Example()
; Liest die aktuelle Skriptdatei in eine Array ein. Dabei wird der Dateipfad verwendet.
Local $aArray = FileReadToArray(@ScriptDir & "\Betrag.txt")
Local $iLineCount = @extended
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "Beim lesen der Datei ist ein Fehler aufgetreten. @error: " & @error) ; Beim lesen der Datei ist ein Fehler aufgetreten.
Else
For $i = 0 To $iLineCount - 1 ; Durchläuft das Array. UBound($aArray) kann auch verwendet werden
;~ MsgBox($MB_SYSTEMMODAL, "", $aArray[$i]) ; Zeigt den Inhalt des Arrays.
$Summe = StringReplace ($aArray[$i], ",", ".")
MsgBox($MB_SYSTEMMODAL, "", $Summe) ; Zeigt den Inhalt des Arrays.
Next
EndIf
EndFunc ;==>Example

Alles anzeigen

Edit: HGF BItte Spoiler und oder Quelltextbutton nutzen. Danke.

HGF

Hallo zusammen,

ich habe eine Textdatei mit über 5000 Zeilen.

In jeder Zeile steht ein Betrag.

10,99

324,97

45,20

2306,01 usw.

Ich möchte diese Textdatei öffnen und alle Beträge zusammen addieren.

Könnt Ihr bitte helfen?

MfG

HGF

HGF

Hallo Musashi, hallo Aspirinjunkie,

vielen Dank!!

Es läuft jetzt alles.

HGF

Hallo Musashi,

in meiner aktuellen Datei stehen diese Beträge.

11.15

35.17

54.19

77.15

919.17

1121.19

1323.21

1543.23

1745.25

1947.29

2115.31

2317.33

2519.21

2721.23

2923.29

3125.31

3329.33

3531.29

3733.31

3934.33

41.99

1056.20

354.99

2056.60

3.76

HGF

Hallo zusammen,

ich möchte gerne aus einer Text Datei die Beträge auslesen und sortieren.

Inhalt meiner Text Datei ist jetzt so:

1056.20

354.99

2056.60

3.76

Sollte dann so aussehen:

3.76

354.99

1056.20

2056.60

Täglich kommen neue Beträge hinzu und die Liste wird länger...

Der Betrag 2056.60 entspricht 2056,60 Euro.

Kann mir bitte einer von Euch helfen?

Vielen Dank.

Gruß

HGF

HGF

Hallo AspirinJunkie

Vielen Dank!

HGF

Hallo zusammen,

ich möchte gerne eine Text Datei auslesen, nach Datum sortieren und wieder speichern.
Inhalt meiner Text Datei ist jetzt so:
12.12.2021: Auto

04.10.2001: Bus
12.12.2021: Pferd
29.05.2005: Haus

Sollte dann so aussehen:

04.10.2001: Bus

29.05.2005: Haus

12.12.2021: Auto

12.12.2021: Pferd

Kann mir bitte einer von Euch helfen?
Vielen Dank.
Gruß

HGF

HGF

Ok.

War halt nur so' ne Idee.

Vielen Dank an alle.

HGF

Hallo zusammen,

aktuell wird die Liste.txt so gespeichert:

[e]
123=|123|e|eed|123|eed|eed|e|eed|123|eed
[qwer]
123=|123|qwer|qwer2|123|qwer2|qwer2|qwer|qwer2|123|qwer2
[lang]
123=|123|lang|lang3|123|lang3|lang3|lang|lang3|123|lang3

Ich möchte gerne das die Liste.txt so gespeichert wird:
[e] 123=|123|e|eed|123|eed|eed|e|eed|123|eed
[qwer] 123=|123|qwer|qwer2|123|qwer2|qwer2|qwer|qwer2|123|qwer2
[lang] 123=|123|lang|lang3|123|lang3|lang3|lang|lang3|123|lang3

Wenn eine neue Section / Key eingegeben wird, soll untereinander gespeichert werden...
Wenn die selbe Section / Key eingegeben wird, soll die alte Zeile überschrieben werden...

Könnt Ihr mir bitte Helfen ?

Spoiler anzeigen

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=#Region ### START Koda GUI section ### Form=
GUICreate("Testprogramm", 940, 650)
$Nummer = GUICtrlCreateInput("", 130, 40, 300, 24)
$Nummer1 = GUICtrlCreateInput("", 130, 70, 300, 24)
$Nummer2 = GUICtrlCreateInput("", 130, 110, 300, 24)
$Button = GUICtrlCreateButton("Eingaben speichern und anzeigen", 710, 580, 200, 25)
$liste = GUICtrlCreateEdit("", 18, 322, 900, 200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
   Exit
Case $Button
    $NummerA = GUICtrlRead($Nummer)
	$Nummer1A = GUICtrlRead($Nummer1)
	$Nummer2A = GUICtrlRead($Nummer2)
	$ListeTxt = "liste.txt"
    $path = $ListeTxt
$file = FileOpen($ListeTxt, 1)
GUICtrlSetData($liste, "|"&$NummerA&"|"&$Nummer1A&"|"&$Nummer2A&"|"&$NummerA&"|"&$Nummer2A&"|"&$Nummer2A&"|"&$Nummer1A&"|"&$Nummer2A&"|"&$NummerA&"|"&$Nummer2A)
$liste2 = GUICtrlRead($liste)
			$nkey = GUICtrlRead($Nummer)
			$nsection = GUICtrlRead($Nummer1)
			IniWrite($ListeTxt,$nsection,$nkey,$liste2)
EndSwitch
WEnd

Alles anzeigen

Vielen Dank!

Gruß
HGF

HGF

Spoiler anzeigen

C

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <file.au3>
Hotkeyset("{ENTER}", "_Suchen")
Local $INI2 = @ScriptDir & "\Nr.ini"
Local $lastNum = IniRead($INI2, "Numbers", "last", 9999)
#Region ### START Koda GUI section ### Form=
Dim $beide
Dim $lastNum
;_______________________________________________________________________________________________________________Gui 1 ab hier
$MainGUI = GUICreate("Kunden", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group1 = GUICtrlCreateGroup("  Kunde suchen ", 10, 10, 280, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Bitte Kundennummer Scannen:", 27, 40, 200, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$KundenDaten = GUICtrlCreateInput("", 25, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Suchen = GUICtrlCreateButton( "Kunde Suchen", 25, 90, 250, 25, BitOR($BS_DEFPUSHBUTTON, $BST_UNCHECKED))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Group2 = GUICtrlCreateGroup("  Neuen Einkauf hinzufügün ", 415, 10, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summehinzu = GUICtrlCreateInput("", 685, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitext = GUICtrlCreateInput("", 430, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$hinzubutton = GUICtrlCreateButton("Hizufügen", 430, 90, 505, 25)
$Group3 = GUICtrlCreateGroup("  Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$mverwalten2 = GUICtrlCreateButton("Leer", 1450, 50, 160, 28, 0)
$mverwalten3 = GUICtrlCreateButton("Kunden-Daten Übersicht", 1280, 50, 160, 28, 0)
$mverwalten4 = GUICtrlCreateButton("Neuen Kunden anlegen", 1110, 50, 160, 28, 0)
$OutputGesamtpreis = GUICtrlCreateInput("", 222430, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;_______________________________________________________________________________________________________________Gui 1 bis hier
;_______________________________________________________________________________________________________________Gui 2 ab hier
$SubGUI2 = GUICreate("Leer", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group21 = GUICtrlCreateGroup("  Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack2 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
$ButtonDrucken = GUICtrlCreateButton("Drucken!", 50, 28, 483, 49)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui 2 bis hier
;_______________________________________________________________________________________________________________Gui 3 ab hier
$SubGUI3 = GUICreate("Kunden-Daten Übersicht", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Listview_User = GUICtrlCreateListView("Datum|Freitext|Letzter Einkauf (Betrag)|Gesamt Einkauf (Betrag)", 10, 135, 1610, 580, $LVS_REPORT)
;~ GUICtrlRegisterListViewSort(-1, "LVSort")
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
;~ _GUICtrlListView_DeleteAllItems($Listview1)         
;~ 	_FillListView()
$Group31 = GUICtrlCreateGroup("  Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack3 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui3 bis hier
;_______________________________________________________________________________________________________________Gui 4 ab hier
$SubGUI4 = GUICreate("Neuen Kunden anlegen", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group41 = GUICtrlCreateGroup("  Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack4 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
$lastNumNeuKunde = $lastNum
$lastNumNeuKunde += 1
GUICtrlCreateLabel($lastNumNeuKunde, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($lastNumNeuKunde, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
$Group42 = GUICtrlCreateGroup("  Neuen Kunden anlegen ", 10, 10, 280, 460)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Anrede = GUICtrlCreateCombo("Bitte wählen", 25, 38, 90, 50)
GUICtrlSetData($Anrede, "Herr|Frau|Familie|Firma")
GUICtrlCreateLabel("Vorname:", 25, 70, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vorname = GUICtrlCreateInput("", 25, 90, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Name:", 25, 120, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Name = GUICtrlCreateInput("", 25, 140, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 170, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasse = GUICtrlCreateInput("", 25, 190, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 220, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nr = GUICtrlCreateInput("",25, 240, 124, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrz = GUICtrlCreateInput("",151, 240, 123, 25)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 270, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZ = GUICtrlCreateInput("", 25, 290, 250, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 320, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ort = GUICtrlCreateInput("", 25, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 370, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Tel = GUICtrlCreateInput("", 25, 390, 250, 25, 0x2000)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$speichern = GUICtrlCreateButton( "Speichern", 25, 430, 250, 25)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui4 bis hier
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
	Case $beenden
	Exit	
;####################################################### Zu Button Neuen Kunden anlegen / Ab hier ##############################
			Case $mverwalten2
			If $beide = 1 Then
				GUISetState(@SW_HIDE, $SubGUI4)
				GUISetState(@SW_HIDE, $SubGUI3)
				GUISetState(@SW_SHOW, $SubGUI2)
            Else
                GUISetState(@SW_HIDE, $MainGUI)
				GUISetState(@SW_HIDE, $SubGUI4)
				GUISetState(@SW_HIDE, $SubGUI3)
                GUISetState(@SW_SHOW, $SubGUI2)
            EndIf
        Case $bBack2
            GUISetState(@SW_HIDE, $SubGUI2)
			GUISetState(@SW_HIDE, $SubGUI3)
			GUISetState(@SW_HIDE, $SubGUI4)
            GUISetState(@SW_SHOW, $MainGUI)     
;####################################################### Zu Button Neuen Kunden anlegen / Bis hier ##############################
;####################################################### Zu Button Kunden-Daten übersicht / Ab hier #############################
		Case $mverwalten3
			If $beide = 1 Then
				GUISetState(@SW_HIDE, $SubGUI2)	
				GUISetState(@SW_HIDE, $SubGUI4)
				GUISetState(@SW_SHOW, $SubGUI3)
            Else
                GUISetState(@SW_HIDE, $MainGUI)
				GUISetState(@SW_HIDE, $SubGUI2)
				GUISetState(@SW_HIDE, $SubGUI4)
                GUISetState(@SW_SHOW, $SubGUI3)
				$Auslesen1 = GUICtrlRead($KundenDaten)
			If $Auslesen1 = 0 Then
    MsgBox(16, "       Fehler ", "  Fehler  " & @CRLF & @CRLF & "  Bitte Kundennummer Scannen  ")	
	Else
	GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
	GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
	GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
	GUICtrlSetFont(-5, 15, 100, 1, "Arial")
	$KundenDaten2 = GUICtrlRead($KundenDaten)
		$KundenDaten3 = $KundenDaten2 & ".ini"
	 $IniSections = IniReadSectionNames($KundenDaten3)
Global $P[UBound($IniSections)]
For $i = 1 To UBound($IniSections) - 1
    $P[$i] = IniRead($KundenDaten3, $IniSections[$i], "ShowMe", "Bitte warten")
Next
_GUICtrlListView_DeleteAllItems($Listview_User)    
	_FillListView()
EndIf
EndIf
        Case $bBack3
			GUISetState(@SW_HIDE, $SubGUI2)
            GUISetState(@SW_HIDE, $SubGUI3)
			GUISetState(@SW_HIDE, $SubGUI4)
            GUISetState(@SW_SHOW, $MainGUI)     
;####################################################### Zu Button Kunden-Daten übersicht / Bis hier #############################
;####################################################### Zu Button Leer / Ab hier ################################################
		Case $mverwalten4
            If $beide = 1 Then
				GUISetState(@SW_HIDE, $SubGUI2)	
				GUISetState(@SW_HIDE, $SubGUI3)	
				GUISetState(@SW_SHOW, $SubGUI4)
            Else
                GUISetState(@SW_HIDE, $MainGUI)
				GUISetState(@SW_HIDE, $SubGUI2)
				GUISetState(@SW_HIDE, $SubGUI3)
                GUISetState(@SW_SHOW, $SubGUI4)
            EndIf
        Case $bBack4
            GUISetState(@SW_HIDE, $SubGUI2)
			GUISetState(@SW_HIDE, $SubGUI3)
			GUISetState(@SW_HIDE, $SubGUI4)
            GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Leer / Bis hier ###############################################
;******************************************* Neukunden INI wird angelegt / Ab hier *******************************************
		Case $speichern
$lastNum += 1
$Anrede2 = GUICtrlRead($Anrede)
$Name2 = GUICtrlRead($Name)
$Vorname2 = GUICtrlRead($Vorname)
$Strasse2 = GUICtrlRead($Strasse)
$Nr2 = GUICtrlRead($Nr)
$Nr3 = GUICtrlRead($Nrz)
$Plz2 = GUICtrlRead($Plz)
$Ort2 = GUICtrlRead($Ort)
$Tel2 = GUICtrlRead($Tel)
$INI = $lastNum & ".INI"
$Auslesen1 = $lastNum
$ShowMe = "ShowMe="
$Uhr = _NowCalcDate()&"  "&@Hour&":"&@Min&":"&@SEC
	GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
	GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
	GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
	GUICtrlSetFont(-5, 15, 100, 1, "Arial")
	 IniWrite($INI2, "Numbers", "last", $lastNum)
            IniWrite($INI, "No", $lastNum, $lastNum)
			IniWriteSection($INI, "Kunden-Daten", $Anrede2 &"|"& $Vorname2 &"|"& $Name2 &"|"& $Strasse2 &"|"& $Nr2 &"|"& $Nr3 &"|"& $Plz2 &"|"& $Ort2 &"|"& $Tel2 &"|"& $Auslesen1)
			IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt")
;~ 			IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
			GUICtrlSetData($Name, "")
            GUICtrlSetData($Vorname, "")
            GUICtrlSetData($Strasse, "")
            GUICtrlSetData($Nr, "")
            GUICtrlSetData($Nrz, "")
            GUICtrlSetData($Plz, "")
            GUICtrlSetData($Ort, "")
            GUICtrlSetData($Tel, "")
			GUICtrlSetData($Uhr, "")
		Beep(740,500)
;~ 		   IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
;******************************************* Neukunden INI wird angelegt / Bis hier *******************************************
;******************************************* Einkäufe werden in INI geschrieben / Ab hier *************************************
	   Case $hinzubutton
		   $Uhr = _NowCalcDate()&"  "&@Hour&":"&@Min&":"&@SEC
			$ShowMe = "ShowMe="
	$So1 = GUICtrlRead($summealt)	
	$So2 = StringReplace($So1, ",", ".")
	$So3 = GUICtrlRead($summehinzu)	
	$So4 = StringReplace($So3, ",", ".")
	GUICtrlSetData($OutputGesamtpreis, StringFormat("%.2f", $So2 + $So4))	
	$OutputGesamtpreis2 = GUICtrlRead($OutputGesamtpreis)
	$freitext2 = GUICtrlRead($freitext)
$summehinzu2 = GUICtrlRead($summehinzu)
$summehinzu2 = StringReplace($summehinzu2, ",", ".")
			IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& $freitext2 &"|"& $summehinzu2 &"|"& $OutputGesamtpreis2&"|aaaaaaa")
			GUICtrlSetData($summehinzu, "")
			GUICtrlSetData($summehinzu2, "")
			GUICtrlSetData($freitext, "")
			GUICtrlSetData($freitext2, "")
			GUICtrlSetData($summealt, "")
			GUICtrlSetData($OutputGesamtpreis2, "")
			 GUICtrlSetData($Uhr, "")
		Beep(740,500)
;******************************************* Einkäufe werden in INI geschrieben / Bis hier ************************************
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
		Case $Suchen
		$KundenDaten2 = GUICtrlRead($KundenDaten)
		Local $INI = @ScriptDir & "\" & $KundenDaten2 & ".ini"
		$File = $INI    
If FileExists($File) Then
    ;Datei einlesen
    $String = FileRead($File)
    ;Zeilenumbrüche durch | ersetzen und String spliten:
    $Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
	GUICtrlCreateLabel($KundenDaten2, 300, 30, 110, 30)
	GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
	GUICtrlCreateLabel($KundenDaten2, 300, 60, 100, 30)
	GUICtrlSetFont(-5, 15, 100, 1, "Arial")
Else
    MsgBox(16, "       Fehler ", "  Kundennummer  " & @CRLF & @CRLF & "  nicht gefunden  ")
	$String = FileRead("0.ini")
	$Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
	GUICtrlCreateLabel(" ", 300, 30, 250, 30)
	GUICtrlSetFont(-5, 100, 100, 1, "Arial")
	GUICtrlCreateLabel(" ", 300, 60, 100, 30)
	GUICtrlSetFont(-5, 15, 100, 1, "Arial")
	EndIf
GUICtrlCreateLabel("Anrede:", 25, 140, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Anredeausgelesen = GUICtrlCreateLabel($Split[4], 25, 160, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Vorname:", 25, 190, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vornameausgelesen = GUICtrlCreateLabel($Split[5], 25, 210, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Name:", 25, 240, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nameausgelesen = GUICtrlCreateLabel($Split[6], 25, 260, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 290, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasseausgelesen = GUICtrlCreateLabel($Split[7], 25, 310, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 340, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nrausgelesen = GUICtrlCreateLabel($Split[8],25, 360, 124, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrzausgelesen = GUICtrlCreateLabel($Split[9],151, 360, 123, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 410, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZausgelesen = GUICtrlCreateLabel($Split[10], 25, 430, 250, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 460, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ortausgelesen = GUICtrlCreateLabel($Split[11], 25, 480, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 510, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Telausgelesen = GUICtrlCreateLabel($Split[12], 25, 530, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Group4 = GUICtrlCreateGroup("  Alter Einkauf hier ", 415, 150, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 190, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summealt = GUICtrlCreateLabel($Split[17], 685, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 190, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitextalt = GUICtrlCreateLabel($Split[16], 430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$datumangelegt = GUICtrlCreateLabel($Split[15], 3430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Group5 = GUICtrlCreateGroup("  Gesamtsumme hier ", 415, 280, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 320, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$OutputGesamtpreis = GUICtrlCreateLabel("", 685, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
Case $ButtonDrucken
            $KundenDaten2 = GUICtrlRead($KundenDaten)
            _FilePrint(@ScriptDir & "\" & $KundenDaten2 & ".ini") ; Drucken :-)
;~             FileDelete($File) ; Aufräumen
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
    EndSwitch
WEnd
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func _FillListView()
    For $i = 1 To UBound($P) - 1
		GUICtrlCreateListViewItem($P[$i],$Listview_User)
		_GUICtrlListView_SetColumnWidth($Listview_User, 0, $LVSCW_AUTOSIZE)
Next
EndFunc
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[/spoiler]

Alles anzeigen

Code

HGF

Zitat von hauke96

ps.: konkretisier deine frage(n) wenn möglich, vielen dank.

Hallo Hauke96,

???

Wie soll ich das denn noch konkretisieren ??

Habe jetzt noch ein Bild hinzugefügt...

Danke an alle.

HGF

Hallo zusammen,

Zitat von HGF

Ich möchte eine "Datenbank" erstellen, in dem nicht nur die Kundendaten sondern auch ein "Freitext" und ein Betrag (Letzter Einkauf) gespeichert wird.

Das die INI Datei anhand der Kundennummer aufgerufen wird.

Der neue Einkauf mit Freitext hinzugefügt wird.

Im GUI dargestellt wird.

Heutiger Einkauf : 15,33 Euro
Betrag von letzten Einkauf: 20,00 Euro
Gesamtsumme bisher: 35,33 Euro

Das diese Werte alle in die Ini Datei geschrieben, bei bedarf gelesen werden, und weiter beschrieben werden.

Das die die Werte:
Datum, Freitext, Letzter Einkauf Betrag, Summe Gesamtbetrag
in Listview angezeigt werden...

Alles anzeigen

Habe jetzt auch ein bIld angehängt !

@Cheate Dieter: Is OK!

BLinz: Is OK!

chip: Siehe Bild, alles "Rot" Markierte funktioniert nicht, grün ist soweit ok...

HGF

Hallo zusammen,

ich benötige Eure hilfe!

Ich möchte eine "Datenbank" erstellen, in dem nicht nur die Kundendaten sondern auch ein "Freitext" und ein Betrag (Letzter Einkauf) gespeichert wird.

Das die INI Datei anhand der Kundennummer aufgerufen wird.

Der neue Einkauf mit Freitext hinzugefügt wird.

Im GUI dargestellt wird.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <file.au3>
Hotkeyset("{ENTER}", "_Suchen")
Local $INI2 = @ScriptDir & "\Nr.ini"
Local $lastNum = IniRead($INI2, "Numbers", "last", 9999)
#Region ### START Koda GUI section ### Form=
Dim $beide
Dim $lastNum
;_______________________________________________________________________________________________________________Gui 1 ab hier
$MainGUI = GUICreate("Kunden", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group1 = GUICtrlCreateGroup(" Kunde suchen ", 10, 10, 280, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Bitte Kundennummer Scannen:", 27, 40, 200, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$KundenDaten = GUICtrlCreateInput("", 25, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Suchen = GUICtrlCreateButton( "Kunde Suchen", 25, 90, 250, 25, BitOR($BS_DEFPUSHBUTTON, $BST_UNCHECKED))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Group2 = GUICtrlCreateGroup(" Neuen Einkauf hinzufügün ", 415, 10, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summehinzu = GUICtrlCreateInput("", 685, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 40, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitext = GUICtrlCreateInput("", 430, 60, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$hinzubutton = GUICtrlCreateButton("Hizufügen", 430, 90, 505, 25)
$Group3 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$mverwalten2 = GUICtrlCreateButton("Leer", 1450, 50, 160, 28, 0)
$mverwalten3 = GUICtrlCreateButton("Kunden-Daten Übersicht", 1280, 50, 160, 28, 0)
$mverwalten4 = GUICtrlCreateButton("Neuen Kunden anlegen", 1110, 50, 160, 28, 0)
$OutputGesamtpreis = GUICtrlCreateInput("", 222430, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;_______________________________________________________________________________________________________________Gui 1 bis hier
;_______________________________________________________________________________________________________________Gui 2 ab hier
$SubGUI2 = GUICreate("Leer", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group21 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack2 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
$ButtonDrucken = GUICtrlCreateButton("Drucken!", 50, 28, 483, 49)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui 2 bis hier
;_______________________________________________________________________________________________________________Gui 3 ab hier
$SubGUI3 = GUICreate("Kunden-Daten Übersicht", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Listview_User = GUICtrlCreateListView("Datum|Freitext|Letzter Einkauf (Betrag)|Gesamt Einkauf (Betrag)", 10, 135, 1610, 580, $LVS_REPORT)
;~ GUICtrlRegisterListViewSort(-1, "LVSort")
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
;~ _GUICtrlListView_DeleteAllItems($Listview1)
;~ _FillListView()
$Group31 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack3 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui3 bis hier
;_______________________________________________________________________________________________________________Gui 4 ab hier
$SubGUI4 = GUICreate("Neuen Kunden anlegen", 1631, 749, 192, 164)
$programm = GUICtrlCreateMenu("Programm")
$speichern = GUICtrlCreateMenuItem("Speichern", $programm)
$beenden = GUICtrlCreateMenuItem("Beenden", $programm)
$mverwalten = GUICtrlCreateMenu("Kunden Verwaltung")
$msuchen = GUICtrlCreateMenuItem("Kunden suchen", $mverwalten)
$manlegen = GUICtrlCreateMenuItem("Kunden anlegen", $mverwalten)
$Group41 = GUICtrlCreateGroup(" Zu den Anwendungen ", 1100, 10, 520, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$bBack4 = GUICtrlCreateButton("Zurück", 1450, 50, 160, 28, 0)
$lastNumNeuKunde = $lastNum
$lastNumNeuKunde += 1
GUICtrlCreateLabel($lastNumNeuKunde, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($lastNumNeuKunde, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
$Group42 = GUICtrlCreateGroup(" Neuen Kunden anlegen ", 10, 10, 280, 460)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Anrede = GUICtrlCreateCombo("Bitte wählen", 25, 38, 90, 50)
GUICtrlSetData($Anrede, "Herr|Frau|Familie|Firma")
GUICtrlCreateLabel("Vorname:", 25, 70, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vorname = GUICtrlCreateInput("", 25, 90, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Name:", 25, 120, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Name = GUICtrlCreateInput("", 25, 140, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 170, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasse = GUICtrlCreateInput("", 25, 190, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 220, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nr = GUICtrlCreateInput("",25, 240, 124, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrz = GUICtrlCreateInput("",151, 240, 123, 25)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 270, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZ = GUICtrlCreateInput("", 25, 290, 250, 25, 0x2000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 320, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ort = GUICtrlCreateInput("", 25, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 370, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Tel = GUICtrlCreateInput("", 25, 390, 250, 25, 0x2000)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$speichern = GUICtrlCreateButton( "Speichern", 25, 430, 250, 25)
GUISetState(@SW_SHOW, $MainGUI)
Dim $Form1_AccelTable[4][2] = [["^s", $speichern],["^e", $beenden],["^b", $msuchen],["^a", $manlegen]]
GUISetAccelerators($Form1_AccelTable)
;_______________________________________________________________________________________________________________Gui4 bis hier
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $beenden
Exit
;####################################################### Zu Button Neuen Kunden anlegen / Ab hier ##############################
Case $mverwalten2
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI2)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI2)
EndIf
Case $bBack2
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Neuen Kunden anlegen / Bis hier ##############################
;####################################################### Zu Button Kunden-Daten übersicht / Ab hier #############################
Case $mverwalten3
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $SubGUI3)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $SubGUI3)
$Auslesen1 = GUICtrlRead($KundenDaten)
If $Auslesen1 = 0 Then
MsgBox(16, " Fehler ", " Fehler " & @CRLF & @CRLF & " Bitte Kundennummer Scannen ")
Else
GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
$KundenDaten2 = GUICtrlRead($KundenDaten)
$KundenDaten3 = $KundenDaten2 & ".ini"
$IniSections = IniReadSectionNames($KundenDaten3)
Global $P[UBound($IniSections)]
For $i = 1 To UBound($IniSections) - 1
$P[$i] = IniRead($KundenDaten3, $IniSections[$i], "ShowMe", "Bitte warten")
Next
_GUICtrlListView_DeleteAllItems($Listview_User)
_FillListView()
EndIf
EndIf
Case $bBack3
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Kunden-Daten übersicht / Bis hier #############################
;####################################################### Zu Button Leer / Ab hier ################################################
Case $mverwalten4
If $beide = 1 Then
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI4)
Else
GUISetState(@SW_HIDE, $MainGUI)
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_SHOW, $SubGUI4)
EndIf
Case $bBack4
GUISetState(@SW_HIDE, $SubGUI2)
GUISetState(@SW_HIDE, $SubGUI3)
GUISetState(@SW_HIDE, $SubGUI4)
GUISetState(@SW_SHOW, $MainGUI)
;####################################################### Zu Button Leer / Bis hier ###############################################
;******************************************* Neukunden INI wird angelegt / Ab hier *******************************************
Case $speichern
$lastNum += 1
$Anrede2 = GUICtrlRead($Anrede)
$Name2 = GUICtrlRead($Name)
$Vorname2 = GUICtrlRead($Vorname)
$Strasse2 = GUICtrlRead($Strasse)
$Nr2 = GUICtrlRead($Nr)
$Nr3 = GUICtrlRead($Nrz)
$Plz2 = GUICtrlRead($Plz)
$Ort2 = GUICtrlRead($Ort)
$Tel2 = GUICtrlRead($Tel)
$INI = $lastNum & ".INI"
$Auslesen1 = $lastNum
$ShowMe = "ShowMe="
$Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC
GUICtrlCreateLabel($Auslesen1, 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($Auslesen1, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
IniWrite($INI2, "Numbers", "last", $lastNum)
IniWrite($INI, "No", $lastNum, $lastNum)
IniWriteSection($INI, "Kunden-Daten", $Anrede2 &"|"& $Vorname2 &"|"& $Name2 &"|"& $Strasse2 &"|"& $Nr2 &"|"& $Nr3 &"|"& $Plz2 &"|"& $Ort2 &"|"& $Tel2 &"|"& $Auslesen1)
IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt" &"|"& "Stamdaten für Neukunden angelegt")
;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
GUICtrlSetData($Name, "")
GUICtrlSetData($Vorname, "")
GUICtrlSetData($Strasse, "")
GUICtrlSetData($Nr, "")
GUICtrlSetData($Nrz, "")
GUICtrlSetData($Plz, "")
GUICtrlSetData($Ort, "")
GUICtrlSetData($Tel, "")
GUICtrlSetData($Uhr, "")
Beep(740,500)
;~ IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& "Stamdaten wurden angelegt" &"|"& "0.00" &"|"& "0.00")
;******************************************* Neukunden INI wird angelegt / Bis hier *******************************************
;******************************************* Einkäufe werden in INI geschrieben / Ab hier *************************************
Case $hinzubutton
$Uhr = _NowCalcDate()&" "&@Hour&":"&@Min&":"&@SEC
$ShowMe = "ShowMe="
$So1 = GUICtrlRead($summealt)
$So2 = StringReplace($So1, ",", ".")
$So3 = GUICtrlRead($summehinzu)
$So4 = StringReplace($So3, ",", ".")
GUICtrlSetData($OutputGesamtpreis, StringFormat("%.2f", $So2 + $So4))
$OutputGesamtpreis2 = GUICtrlRead($OutputGesamtpreis)
$freitext2 = GUICtrlRead($freitext)
$summehinzu2 = GUICtrlRead($summehinzu)
$summehinzu2 = StringReplace($summehinzu2, ",", ".")
IniWriteSection($INI, $Uhr, $ShowMe & _NowCalcDate() &"|"& $freitext2 &"|"& $summehinzu2 &"|"& $OutputGesamtpreis2&"|aaaaaaa")
GUICtrlSetData($summehinzu, "")
GUICtrlSetData($summehinzu2, "")
GUICtrlSetData($freitext, "")
GUICtrlSetData($freitext2, "")
GUICtrlSetData($summealt, "")
GUICtrlSetData($OutputGesamtpreis2, "")
GUICtrlSetData($Uhr, "")
Beep(740,500)
;******************************************* Einkäufe werden in INI geschrieben / Bis hier ************************************
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case $Suchen
$KundenDaten2 = GUICtrlRead($KundenDaten)
Local $INI = @ScriptDir & "\" & $KundenDaten2 & ".ini"
$File = $INI
If FileExists($File) Then
;Datei einlesen
$String = FileRead($File)
;Zeilenumbrüche durch | ersetzen und String spliten:
$Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
GUICtrlCreateLabel($KundenDaten2, 300, 30, 110, 30)
GUICtrlSetFont(-5, 100, 100, 1, "barcode font")
GUICtrlCreateLabel($KundenDaten2, 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
Else
MsgBox(16, " Fehler ", " Kundennummer " & @CRLF & @CRLF & " nicht gefunden ")
$String = FileRead("0.ini")
$Split = StringSplit(StringReplace($String, @CRLF, "|"), "|", 1)
GUICtrlCreateLabel(" ", 300, 30, 250, 30)
GUICtrlSetFont(-5, 100, 100, 1, "Arial")
GUICtrlCreateLabel(" ", 300, 60, 100, 30)
GUICtrlSetFont(-5, 15, 100, 1, "Arial")
EndIf
GUICtrlCreateLabel("Anrede:", 25, 140, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Anredeausgelesen = GUICtrlCreateLabel($Split[4], 25, 160, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Vorname:", 25, 190, 60, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Vornameausgelesen = GUICtrlCreateLabel($Split[5], 25, 210, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Name:", 25, 240, 50, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nameausgelesen = GUICtrlCreateLabel($Split[6], 25, 260, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Strasse:", 25, 290, 250, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Strasseausgelesen = GUICtrlCreateLabel($Split[7], 25, 310, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Nr:", 25, 340, 20, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Nrausgelesen = GUICtrlCreateLabel($Split[8],25, 360, 124, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nrzausgelesen = GUICtrlCreateLabel($Split[9],151, 360, 123, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 2)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Plz:", 25, 410, 30, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$PLZausgelesen = GUICtrlCreateLabel($Split[10], 25, 430, 250, 25, $ES_READONLY)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Ort:", 25, 460, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Ortausgelesen = GUICtrlCreateLabel($Split[11], 25, 480, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Tel:", 25, 510, 26, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Telausgelesen = GUICtrlCreateLabel($Split[12], 25, 530, 250, 25, $ES_READONLY)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Group4 = GUICtrlCreateGroup(" Alter Einkauf hier ", 415, 150, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 190, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$summealt = GUICtrlCreateLabel($Split[17], 685, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlCreateLabel("Freitext:", 430, 190, 60, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$freitextalt = GUICtrlCreateLabel($Split[16], 430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$datumangelegt = GUICtrlCreateLabel($Split[15], 3430, 210, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Group5 = GUICtrlCreateGroup(" Gesamtsumme hier ", 415, 280, 535, 120)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Summe:", 685, 320, 160, 30)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$OutputGesamtpreis = GUICtrlCreateLabel("", 685, 340, 250, 25)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Kunden suchen / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Von hier ++++++
Case $ButtonDrucken
$KundenDaten2 = GUICtrlRead($KundenDaten)
_FilePrint(@ScriptDir & "\" & $KundenDaten2 & ".ini") ; Drucken
;~ FileDelete($File) ; Aufräumen
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Drucken, funktioniert nicht ! ++++++ Bis hier ++++++
EndSwitch
WEnd
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Ab hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func _FillListView()
For $i = 1 To UBound($P) - 1
GUICtrlCreateListViewItem($P[$i],$Listview_User)
_GUICtrlListView_SetColumnWidth($Listview_User, 0, $LVSCW_AUTOSIZE)
Next
EndFunc
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListView wird mit Daten gefüllt / Bis hier ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[/autoit]

Heutiger Einkauf : 15,33 Euro
Betrag von letzten Einkauf: 20,00 Euro
Gesamtsumme bisher: 35,33 Euro

Das diese Werte alle in die Ini Datei geschrieben, bei bedarf gelesen werden, und weiter beschrieben werden.

Das die die Werte:
Datum, Freitext, Letzter Einkauf Betrag, Summe Gesamtbetrag
in Listview angezeigt werden...

HGF

Dank UEZ !

Das war genau das was ich gesucht habe!

Ich kann beinen Beitrag wieder schließen.

Mit freundlichen Grüßen
HGF

HGF

Hallo Name22!

Zitat von name22

Zitat

Ich möchte die Bilder genau so speichern wie Sie in dem GUI angezeigt werden!

Wie abspeichern? Als Bild? Das ist schwer vorstellbar ohne funktionsfähiges Script.

Die beiden Bilder werden zur Zeit abgespeichert!
Das Script ist funktionsfähig!
Es klappt, jedoch nicht so wie es im GUI angezeigt wird!

Soll zustand:
Also Bild 1 soll als Hintergrund / Untergrund und Bild 2 da drauf auf festgesetzten Bereich gespeichert werden.

Ist zustand:
Bild 1 wird als Hintergrund / Untergrund und Bild 2 da drauf gespeichert.
Aber beide Bilder werden in tatsächlicher Größe gespeichert ich kann zur Zeit die Größe nicht beeinflussen (Höhe und Breite) !!!

HGF

Zitat von name22

HGF Du brauchst für gewöhnlich nur 1 _GDIPlus_Startup pro Script und nicht 3 ;).

??????
mit 3x läufts doch auch...

Zitat von stayawayknight

Bilderposition in Ini speichern!

stayawayknight ohne worte....

HGF

Erst einmal einen einen lieben Dank und Gruß an UEZ!
Ohne seine Hilfe wäre ich wahrscheinlich noch gar nicht soweit!

So nun benötige ich noch eine kleine Hilfe!

Thema Speichern:

Ich möchte die Bilder genau so speichern wie Sie in dem GUI angezeigt werden!

Spoiler anzeigen

[autoit]

; #DANKE# ====================================================================================================================
;
; Ersteinmal Vielen Dank an ....: UEZ
; Author (Hauptprogramm)........: UEZ
; Author (Function).............: UEZ
; Weiterentwickelt von .........: GHF
; Natürlich mit Hilfe von.......: UEZ und den AutoIt Forum Mitgliedern
;
; #DANKE# ====================================================================================================================
#include <Array.au3>
#include <GDIPlus.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#Include <WinAPIEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
$hGUI1 = GUICreate("Daten werden geladen ...", 400, 80)
GUISetBkColor(0xFFFFFF)
GuiCtrlCreateProgress(100, 20, 150, 20)
GuiCtrlSetData(-1, 5)
GuiCtrlSetData(-1, 10)
GuiCtrlSetData(-1, 15)
GuiCtrlSetData(-1, 20)
GuiCtrlSetData(-1, 40)
GuiCtrlSetData(-1, 60)
GuiCtrlSetData(-1, 75)
GuiCtrlSetData(-1, 80)
GuiCtrlSetData(-1, 85)
GuiCtrlSetData(-1, 96)
GuiCtrlCreateLabel("Status:", 10, 22, 100)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("26.10.2010"&@CRLF&"Version: 0.0.1", 240, 9, 150, -1, $ES_RIGHT)
GUICtrlSetFont(-1, 10, 400, 4, "Arial")
GuiCtrlCreateLabel("(Daten werden geladen bitte haben Sie etwas geduld)", 10, 55, 400, 30)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$image_path = (@ScriptDir & '\include01\')
$image_pathover = (@ScriptDir & '\include02\')
Global $hPic = -99
Global $hPicover = -99
$count = _FileListToArray($image_path, "*.gif", 1)
$countover = _FileListToArray($image_pathover, "*.gif", 1)
If Not IsArray($count) Then Exit MsgBox(16, "Fehler", "Fehlende Dateien in " & $image_path, 10)
If Not IsArray($countover) Then Exit MsgBox(16, "Fehler", "Fehlende Dateien in " & $image_pathover, 10)
$hGUI = GUICreate("Bild1 und Bild2 - Vorschau", 798, 655)
GUISetBkColor(0xFFFFFF)
$hComboover = _GUICtrlComboBoxEx_Create($hGUI, "", 640, 15, 70, 335, $CBS_DROPDOWNLIST)
Dim $bitmap_from_file[$countover[0] + 1]
_GDIPlus_Startup()
$iCX = 48
$iCY = 48
$hImageover = _GUIImageList_Create(48, 48, 5, 1)
For $i = 1 To $countover[0]
_GUIImageList_AddBitmapEx($hImageover, $image_pathover & "\" & $countover[$i], $iCX, $iCY)
Next
_GUICtrlComboBoxEx_SetImageList($hComboover, $hImageover)
For $i = 0 To $countover[0] - 1
_GUICtrlComboBoxEx_AddString($hComboover, $image_pathover & "\" & $countover[$i], $i, $i)
Next
_GUICtrlComboBoxEx_SetItemHeight($hComboover, 0, 51)
_GUICtrlComboBoxEx_SetCurSel($hComboover, 0)
$bottonover = GUICtrlCreateButton("Bild1 anzeigen", 715, 14, 60, 56, $BS_MULTILINE)
$hCombo = _GUICtrlComboBoxEx_Create($hGUI, "", 640, 76, 70, 335, $CBS_DROPDOWNLIST)
Dim $bitmap_from_file[$count[0] + 1]
_GDIPlus_Startup()
$iCX = 48
$iCY = 48
$hImage = _GUIImageList_Create(48, 48, 5, 1)
For $i = 1 To $count[0]
_GUIImageList_AddBitmapEx($hImage, $image_path & "\" & $count[$i], $iCX, $iCY)
Next
_GUICtrlComboBoxEx_SetImageList($hCombo, $hImage)
For $i = 0 To $count[0] - 1
_GUICtrlComboBoxEx_AddString($hCombo, $image_path & "\" & $count[$i], $i, $i)
Next
_GUICtrlComboBoxEx_SetItemHeight($hCombo, 0, 51)
_GUICtrlComboBoxEx_SetCurSel($hCombo, 0)
$botton = GUICtrlCreateButton("Bild2 anzeigen", 715, 75, 60, 56, $BS_MULTILINE)
$Textanzeigen1 = GUICtrlCreateButton("Text 1", 640, 350, 150, 25, $BS_CENTER)
$Textanzeigen2 = GUICtrlCreateButton("Text 2", 640, 380, 150, 25, $BS_CENTER)
$SaveButton = GUICtrlCreateButton("SAVE", 640, 410, 150, 25, $BS_CENTER)
$Software1 = GUICtrlCreateButton(" Soft1 Starten", 640, 440, 150, 25, $BS_CENTER)
$Info = GUICtrlCreateButton(" Info zur Software", 640, 470, 150, 25, $BS_CENTER)
$Button1 = GUICtrlCreateButton(" ", 640, 500, 150, 25, $BS_CENTER)
$Button2 = GUICtrlCreateButton(" ", 640, 530, 150, 25, $BS_CENTER)
$Button3 = GUICtrlCreateButton(" ", 640, 560, 150, 25, $BS_CENTER)
GUICtrlCreateLabel("Version: 0.0.1", 640, 630, 100, -1, $ES_LEFT)
GUICtrlSetFont(-1, 10, 400, 4, "Arial")
GUISetState(@SW_HIDE, $hGUI1)
GUISetState(@SW_SHOW, $hGUI)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
_GDIPlus_Shutdown()
GUIDelete($hGUI)
Exit
Case $msg = $bottonover
$iItemover = _GUICtrlComboBoxEx_GetCurSel($hComboover)+1
$aItemover = _GUICtrlComboBoxEx_GetItem($hComboover,$iItemover)
$hImageover = _GDIPlus_BitmapCreateFromFile ($aItemover[0])
$iX = _GDIPlus_ImageGetWidth($hImageover)
$iY = _GDIPlus_ImageGetHeight($hImageover)
_GDIPlus_BitmapDispose($hImageover)
$iRatio = $iX / $iY
if $iRatio >= 1 Then
$iX = 300
$iY = 300
Else
$iY = 300
$iX = 300
EndIf
if $hPicover <> -99 then GUICtrlDelete($hPicover)
$hPicover = GUICtrlCreatePic($aItemover[0], 175, 110, $iX , $iY)
Case $msg = $botton
$iItem = _GUICtrlComboBoxEx_GetCurSel($hCombo)+1
$aItem = _GUICtrlComboBoxEx_GetItem($hCombo,$iItem)
$hImage = _GDIPlus_BitmapCreateFromFile ($aItem[0])
$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_BitmapDispose($hImage)
$iRatio = $iX / $iY
if $iRatio >= 1 Then
$iX = 650
$iY = 600
Else
$iY = 650
$iX = 600
EndIf

if $hPic <> -99 then GUICtrlDelete($hPic)
$hPic = GUICtrlCreatePic($aItem[0], 0, 20, $iX, $iY)
Case $msg = $Info
If $Info Then ContinueLoop MsgBox(64, "Info: Bitte Lesen", "Bedienungsanleitung:"&@CRLF&""&@CRLF&"1. Motiv auswählen"&@CRLF&"Motiv anzeigen Button anklicken"&@CRLF&" "&@CRLF&"2. Produkt auswählen"&@CRLF&"Produkt anzeigen Button anklicken"&@CRLF&" "&@CRLF&" "&@CRLF&" ")
Exit
Case $msg = $Software1
ShellExecute("Soft1.exe")
Case $msg = $SaveButton

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

$himg2 = _GDIPlus_ImageLoadFromFile($aItem[0])
$himg3 = _GDIPlus_ImageLoadFromFile($aItemover[0])
$Save = FileSaveDialog("Speichere Bild", @ScriptDir, "JPG (*.JPG)")
$ToBild2 = _GDIPlus_ImageGetGraphicsContext ($himg2)
$iX = _GDIPlus_ImageGetWidth ($himg2)
$iY = _GDIPlus_ImageGetHeight ($himg2)
$iX2 = _GDIPlus_ImageGetWidth ($himg3)
$iY2 = _GDIPlus_ImageGetHeight ($himg3)
$a=_GDIPlus_GraphicsDrawImage ($ToBild2,$himg3, 400, 210)
_GDIPlus_ImageSaveToFile($himg2, $Save & "")
_GDIPlus_ImageDispose($himg2)
_GDIPlus_ImageDispose($himg3)
_GDIPlus_ImageDispose($himg3)
EndSelect
WEnd
; #FUNCTION# ====================================================================================================================
; Name...........: _GUIImageList_AddBitmapEx
; Description ...: Creates a bitmap from an image file (JPG, PNG, BMP, GIF, etc.) and adds it to the _GUIImageList control
; Syntax.........: _GUIImageList_AddBitmapEx($hWnd, $sFile, $iWidth, $iHeight)
; Parameters ....: $hWnd - file name where the icon should be extracted from (*.dll, *.ico, *.exe)
; $sFile - path to the bitmap that contains the image
; $iWidth - width of the _GUIImageList
; $iHeight - height of the _GUIImageList
; Return values .: Success - Returns 1
; Failure - @error
; Author ........: UEZ
; Version .......: 0.5 Build 2010-06-22
; Remarks .......: <GDIPlus.au3> must be included and _GDIPlus_Startup() must be started to use GDI+ functions.
; Don't forget the _GDIPlus_Shutdown() when closing
; ===============================================================================================================================
Func _GUIImageList_AddBitmapEx($hWnd, $sFile, $iWidth = 48, $iHeight = 48)
If $hWnd = 0 Or $sFile = "" Or Not IsDeclared("ghGDIPDll") Then Return SetError(1, 0, 0)
Local $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0
Local $bitmap_from_file = _GDIPlus_BitmapCreateFromFile($sFile)
If @error Then Return SetError(@error, @extended, 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Local $hClone = $aResult[6]
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hClone)
_GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap_from_file, 0, 0, $iWidth, $iHeight)
$hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hClone)
_GUIImageList_Add($hWnd, $hBmp)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_BitmapDispose($bitmap_from_file)
_GDIPlus_BitmapDispose($hClone)
_WinAPI_DeleteObject($hBmp)
Return SetError(0, 0, 1)
EndFunc

[/autoit]

HGF

Herzlich willkommen

HGF

Herzlich willkommen, Marius

Beiträge von HGF

Alle Beträge von Textdatei auslesen und addieren

Alle Beträge von Textdatei auslesen und addieren

Alle Beträge von Textdatei auslesen und addieren

TXT-Datei auslesen und nach Betrag Sortieren

TXT-Datei auslesen und nach Betrag Sortieren

TXT-Datei auslesen und nach Betrag Sortieren

Text Datei auslesen, nach Datum sortieren und wieder speichern

Text Datei auslesen, nach Datum sortieren und wieder speichern

Benötige hilfe zu, IniWrite; Section; Key

Benötige hilfe zu, IniWrite; Section; Key

Anfänger fragen, benötige Hilfe

Anfänger fragen, benötige Hilfe

Anfänger fragen, benötige Hilfe

Anfänger fragen, benötige Hilfe

Gui in dem Bilder angezeit werden

Gui in dem Bilder angezeit werden

Gui in dem Bilder angezeit werden

Gui in dem Bilder angezeit werden

Und wieder ein Neuer

Ich bin der "Neue" ...