1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Redcat

Beiträge von Redcat

  • Zelleneintrag aus Exceldatei auslesen/anzeigen und ändern

    • Redcat
    • 19. Januar 2016 um 00:51

    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. :P

    Code
    #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
  • Fehler mit Controlclick

    • Redcat
    • 29. August 2015 um 15:15

    Danke schonmal für die Hilfe, trotzdem will der einfach diesen Knopf nicht drücken.. Ich habe es jetzt damit versucht: ControlClick("Mozilla Firefox-Installation", "", "[CLASS:Button; INSTANCE:2]")

    Tut mir leid, wenn ich mich damit echt doof anstelle, aber ich bin noch ein ziemlicher Neuling was Autoit betrifft^^

    Habs auch mal mit der neueren FF Version versucht, aber gleiches Problem, dass der den Button nicht drückt..

    Code
    Run ("Firefox_neu.exe")
    WinWait ("Firefox-Installation")
    WinActivate ("Firefox-Installation")
    ControlClick("Firefox-Installation", "", "[CLASS:Button; INSTANCE:1]")

    Dateien

    Unbenannt.PNG 33,93 kB – 0 Downloads
  • Fehler mit Controlclick

    • Redcat
    • 28. August 2015 um 01:07

    Hat auch nicht funktioniert.. :huh:

    Ich schick dir jetzt einfach mal nen screen von der au info :D

    Dateien

    Unbenannt.PNG 22,39 kB – 0 Downloads
  • Fehler mit Controlclick

    • Redcat
    • 28. August 2015 um 00:12

    Nabend zusammen,

    ich habe folgendes Problem.. Ich möchte gerne eine automatisierte Installationsprozedur verschiedener Programme erstellen(bei allen Installationsdateien soweit ich weiß bedenkenlos machbar, steht zumindest nix von in den AGB's :D )

    Ich bin schon so weit, dass ich die Installation starten kann, aber bei dem ersten "Weiter" hängenbleibe..

    Hier mal mein bisheriger Code:

    Code
    Run("Firefox.exe")
    WinWait("Mozilla Firefox-Installation")
    controlclick("Mozilla Firefox-Installation", "&Weiter >", "Button2")

    Laut der Window Info scheint doch alles richtig zu sein, oder bin ich zu blind und habe 'nen falschen Wert benutzt? ?(

    Ich sitze jetzt schon mehrere Stunde an dieser Prozedur, hab verschiedene Sprachen ausprobiert, aber so weit wie jetzt war ich in jeder... Was man nicht alles tut, wenn der Chef einen um 'nen kleinen Gefallen bittet :D

    Danke schon mal im voraus!

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™