Hallihallo,
Also nachdem mit Raupi bisher so wunderbar in der Shoutbox geholfen hat, hier jetzt mal ein (wenig) lauffähiger Code und gleich dazu eine Frage. (Ja ich weiss, die ganzen Funktionen fehlen, aber die sind für das Problem gerade nicht wichtig) Nach und nach werde ich hier wohl meine offenen Fragen posten und zum Schluss poste ich gerne das fertige Programm
Wie bekomm ich das unschöne Flackern der aus- bzw. eingeblendeten Label- & Input-Boxen weg?
Der Fehler dürfte wohl irgendwo bei Zeile 77-82 oder 118-128 liegen ... aber ich finds einfach nicht.
Spoiler anzeigen
; ###################################################################################################
; # Tool-Name:WADEM (xxxxx)#
; # Version:0.6#
; # Autor:na ich ^^#
; # Datum:06.01.2011#
; # Info:mit grafischer Benutzeroberfläche - ca. 1125 code-Zeilen oder noch mehr #
; ###################################################################################################
; 'include' von AutoIt-Funktionen
#include <GUIConstants.au3>; für GUI
#include <EditConstants.au3>; für weiterreichendes GUI-Handling
#include <WindowsConstants.au3>
#Include <File.au3>; für FileListToArray
#Include <Array.au3>; für "_ArrayDisplay" in func "read_Textfiles()"
;#include <Excel.au3>
#Include <GuiComboBox.au3>
; 'include' von Programm-Funktionen
;#include <funktionen_main.au3>; Funktionen des Programms
;#include <funktionen_einlesen.au3>; Funktionen des Programms
;#include <funktionen_diags.au3>; Funktionen des Programms
;#include <dummy_run.au3>; TESTWEISE z.B. für Startbutton-Tests
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Daten für Main-Funktion (GUI) einlesen
;pre_GUI_Vars()
; GUI erzeugen
#Region ### START Koda GUI section ### Form=c:\temp\projekt_wafer\wadem v0.6\main_maske.kxf
$Main_Form = GUICreate("WADEM " & "$GUI_vers" , 634, 448, 194, 126)
$Label_Toolname_1 = GUICtrlCreateLabel("WADEM", 248, 16, 107, 36)
GUICtrlSetFont(-1, 20, 800, 4, "Arial")
$Label_Toolname_2 = GUICtrlCreateLabel("Waferweise, automatisierte Diagrammerstellung elektrischer Messungen", 136, 56, 341, 17)
$Tab_WADEM = GUICtrlCreateTab(8, 80, 617, 257)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Tab1_Main = GUICtrlCreateTabItem("Hauptseite")
GUICtrlSetState(-1,$GUI_SHOW)
[/autoit] [autoit][/autoit] [autoit]$Label_FKT = GUICtrlCreateLabel("FKT", 52, 137, 33, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$FKT_Input = GUICtrlCreateInput("", 92, 137, 217, 21)
;$LabelWaferzahl = GUICtrlCreateLabel("Waferanzahl", 52, 169, 94, 24)
;GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
;$WaferzahlInput = GUICtrlCreateInput("", 228, 169, 81, 21)
$LabelWaferzahl = GUICtrlCreateLabel("Waferanzahl", 444, 122, 94, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$WaferzahlInput = GUICtrlCreateInput("", 548, 122, 33, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$LabelSavePathInfo = GUICtrlCreateLabel("Speicherpfad zu den Tests:", 52, 241, 198, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$TestPathInput = GUICtrlCreateInput("", 52, 273, 200, 21)
$RezeptOrdner_Selector = GUICtrlCreateButton("Suche", 272, 272, 41, 25, 0)
$LabelRezeptListe = GUICtrlCreateLabel("Chip-Typ", 52, 201, 66, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$RezeptListe = GUICtrlCreateCombo("", 132, 201, 177, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_SORT))
GUICtrlSetData(-1, "$DropDownFileList" )
$Label_Antest_Select = GUICtrlCreateLabel("Antest-FKT mit auswählen:", 408, 160, 153, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox_Antest = GUICtrlCreateCheckbox("", 568, 160, 17, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_AntestFKT = GUICtrlCreateInput("", 504, 184, 81, 22, $ES_RIGHT)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($Input_AntestFKT, $GUI_HIDE)
$LabelAntestFKT = GUICtrlCreateLabel("Antest-FKT:", 408, 184, 87, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetState($LabelAntestFKT, $GUI_HIDE)
$Tab2_Extras = GUICtrlCreateTabItem("Extras")
[/autoit] [autoit][/autoit] [autoit]$createBTN = GUICtrlCreateButton("erzeugen", 496, 288, 97, 33, 0)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetState(-1,$GUI_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICtrlCreateTabItem("")
[/autoit] [autoit][/autoit] [autoit]$StartBTN = GUICtrlCreateButton("Start", 96, 344, 161, 49)
GUICtrlSetFont(-1, 18, 400, 0, "Arial")
$ExitBTN = GUICtrlCreateButton("Exit", 272, 344, 161, 49)
GUICtrlSetFont(-1, 18, 400, 0, "Arial")
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$dummy = GUICtrlRead($Checkbox_Antest)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; GUI starten
While 1
$nMsg = GUIGetMsg()
;UpdateWaferAnzahl()
$dummy = GUICtrlRead($Checkbox_Antest)
If $dummy = 4 Then
GUICtrlSetState($LabelAntestFKT, $GUI_HIDE)
GUICtrlSetState($Input_AntestFKT, $GUI_HIDE)
ElseIf $dummy = 1 Then
GUICtrlSetState($LabelAntestFKT, $GUI_SHOW)
GUICtrlSetState($Input_AntestFKT, $GUI_SHOW)
Else
MsgBox(64, 'Info:', "Undefinierter Fehler in 'GUICtrlRead($Checkbox_Antest)'. ")
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ExitBTN
Exit
Case $RezeptOrdner_Selector
;Messungsordner_auswaehlen()
Case $createBTN
;pre_run_check(); Prüfen, ob in allen Feldern Werte eingegeben/ausgewählt wurden --> sonst Fehlermeldung
;pre_set_vars(); Variabeln vor Start setzen
;INIs_einlesen(); ini-Dateien einlesen
;read_Textfiles()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Case $StartBTN
[/autoit] [autoit][/autoit] [autoit];pre_run_check(); Prüfen, ob in allen Feldern Werte eingegeben/ausgewählt wurden --> sonst Fehlermeldung
;INIs_einlesen(); ini-Dateien einlesen
;pre_set_vars(); Variabeln vor Start setzen
;get_desk_res(); Bildschirmauflösung ermitteln und die Position des Textfeldes bestimmen
;pre_run_funcs(); Excel zum aktiven Fenster machen
;Tabellenblaetter_loeschen(); die ersten 2 Tabellenblätter löschen
;Wafer_einlesen_loop()
;Klassenwerte()
;diag_pre_pre_run(); zwischen Klassenwerten & diag_loop_all einfügen
;Diag_Loop_all(); alle Diagramme aller Wafer erzeugen !!Achtung!! Fehler bei leeren Tests-Files
;run_ready_Meldung()
EndSwitch
WEnd
Vielen Dank schon mal für eure Hilfe.
MfG Freddy