Moin allerseits...
bräuchte mal wieder einen kleinen Denkanstoß..
Undzwar folgendes: Geplant ist ein Inventurprogramm..
Bisher ist die GUI erstellt: Dropdownmenü mit den einzelnen Artikeln, daneben ein Inputfeld, indem die Anzahl der Artikel angezeigt werden soll, dieser Wert soll jedoch aus einer Exceltabelle oder auch Access Db ausgelesen werden, je nachdem was mehr Vorteile bieten würde im Bezug auf die Programmierung..
Daneben wiederrum zwei Buttons mit Plus und Minus. Die Werte sollen dabei jedoch in Excel geändert werden.
Es wird jedoch auch ohne die Excelanbindung der Wert nicht erhöht bei einfacher Plus 1 Rechnung.. Ich denke wahrscheinlich gerade einfach nur viel zu kompliziert, aber ich komme einfach nicht auf den Fehler..
Ich wäre erstmal über Hilfe, warum das simple Plus 1 Rechnen nicht funktioniert, sehr dankbar. Noch dankbarer wäre ich, wenn mir jemand vielleicht auch so 1 oder 2 Tipps bzgl. der Excelanbindung geben kann, muss nicht direkt der ausgeschriebene Code sein, mir reichen schon nur ein, zwei kleine Tipps was zu beachten wäre etc.
#NoTrayIcon ; Trayicon erstmal verstecken
#include<EditConstants.au3>
#include<StaticConstants.au3>
#include<GUIConstantsEx.au3>
#include<GUIConstants.au3>
#include<WindowsConstants.au3>
#include<ComboConstants.au3>
Opt('GUIOnEventMode', 1) ; OnEventMode für die GUI
Opt('TrayOnEventMode', 1) ; OnEventMode für das Traymenü
Opt('TrayMenuMode', 1) ; Standard-Traymenü entfernen
;Sonstige Variablen
Global $AnzahlAusExcel = 1234
;GUI Variablen
$sTitle = 'INVENTUR'
$hGui = GUICreate($sTitle, 600, 240, Default, Default)
;GUI Events
GUISetOnEvent($GUI_EVENT_CLOSE, '_End') ; [ESC] beendet das Programm
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')
;Kosmetik
Global $font = "Calibri Fett"
$BgColor = 0xf9dd91
GUISetBkColor($BgColor) ; Hintergrundfarbe setzen
GUICtrlSetBkColor(-1, $BgColor) ; Hintergrundfarbe setzen
;Label
GUICtrlCreateLabel('INVENTUR', 10, 10, 580, 30, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) ;Label für Überschrift
GUICtrlSetFont (-1, 18, 700, -1, $font)
GUICtrlCreateLabel('Artikel', 10, 50, 150, 20, $SS_CENTER) ;Label für Beschriftung der Artikel
GUICtrlSetFont (-1, 14, 700, -1, $font)
GUICtrlCreateLabel('Anzahl', 200, 50, 100, 20, $SS_CENTER) ;Label für Beschriftung der Anzahl
GUICtrlSetFont (-1, 14, 700, -1, $font)
;Menüführung
GUICtrlCreateCombo("Netzwerkkabel", 10, 75, 150, -1,$CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "Stromkabel|Verlängerungsstromkabel|weiteres auf Anfrage", "Netzwerkkabel")
GUICtrlCreateInput($AnzahlAusExcel, 200, 75, 100, 20,BitOR($ES_CENTER, $ES_NUMBER, $ES_READONLY))
GUICtrlCreateButton("+", 320, 75, 30, 20)
GUICtrlSetOnEvent(-1, "_plus")
GUICtrlCreateButton("-", 360, 75, 30, 20)
;GUI Statements
GUISetState() ; GUI anzeigen
WinSetOnTop($sTitle, '', 1) ; Fenster immer im Vordergrund
;GUI Schleifen und Funktionen
While True ; Endlosschleife, damit Fenster geöffnet bleibt
Sleep(20) ; Prozessor entlasten
WEnd
Func _End()
Exit
EndFunc
Func _Minimize()
GUISetState(@SW_HIDE, $hGui) ; GUI minimieren
TraySetState(1) ; Trayicon anzeigen
EndFunc
Func _Restore()
GUISetState(@SW_SHOW, $hGui) ; GUI wiederherstellen
TraySetState(2) ; Trayicon verstecken
EndFunc
;Funktionen für das Auslesen und Eingeben
Func _plus()
$AnzahlAusExcel = $AnzahlAusExcel + 1
EndFunc
Alles anzeigen