Variablen übertragen

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

Gorbi

Gast


	Beiträge: ---

	Anmeldedatum: ---

	Wohnort: ---

	Version: ---

Verfasst am: 31.07.2008, 11:14 Titel: Variablen übertragen

Sehr geehrte Matlab-"Profis",

erst seit kurzem arbeite ich mit diesem mächtigen und vielseitigen Hilfsmittel und komme, Dank der eingebauten Hilfe und diesem Forum, zunehmend voran. Allerdings komme ich bei einer Sache noch nicht voran, obwohl ich hier schon mindestens 30 Beiträge durchforstet, die Suche bemüht ("function", "handles" usw.) und einiges ausprobiert habe: Ich schaffe es nicht, Variablen von einem Hauptprogramm (*.m) in eine GUI-Datei (auch *.m, aber mit zugehöriger, in GUIDE erstellter *.fig-Datei) zu übergeben und umgekehrt.

Konkret sieht das so aus:
im Hauptprogramm.m wird eine Datei eingelesen, aus der einige Variablen bestimmt werden, min_y, max_y, min_z und max_z.

Danach möchte ich, daß ein GUI namens Unterprogramm.m aufgeht, das mir diese Parameter anzeigt, in dem ich aber noch zusätzliche Werte und Optionen für die nachfolgenden Berechnungen eingeben kann.
Das GUI alleine funktioniert auch (wenn ich "Unterprogramm.m" im Editor-Fenster mit F5 starte).

Aufgerufen wird das GUI im Hauptprogramm mit der Zeile
PP=Unterprogramm(min_y, max_y, min_z, max_z);
uiwait(PP);
in der Hoffnung, daß das Feld "PP" alle Variablen enthält, die das Unterprogramm zurückgibt, in diesem Fall "y_min_neu", "y_max_neu", "z_min_neu" und "z_max_neu"). Ohne "uiwait" würde das Hauptprogramm einfach weiterlaufen, ohne sich um das Unterprogramm zu scheren.
Lasse ich im Hautprogramm probeweise "PP" ausgeben (disp(PP);), erscheint nur die Zahl "158.0281".
Dann habe ich es mit "FFF = getappdata(0,'Unterprogramm');" versucht, doch "disp(FFF);" gibt überhaupt nichts aus.

So, wie ich es verstanden habe, müßte "PP" sowieso ein Feld sein, das alle Variablen enthält, die das Unterprogramm zurückgibt, doch
der Versuch, eine dieser Variablen mit "disp(PP{2})" anzuzeigen, ergibt die Fehlermeldung "Cell contents reference from a non-cell array object."
Der Versuch "y_max_neu=PP{2};" liefert mir natürlich die gleiche Fehlermeldung.

Das Unterprogramm beginnt mit "function varargout = Unterprogramm(varargin)", dann folgt die GUI-Initialisierung. Bevor die einzelnen Callback-Funtionen auftauchen, hätte ich gerne die Variablen aus dem Hauptprogramm im Unterprogramm, damit sie dort (z. B. mit "set(handles.Y1, 'String', min_y);") in Textfeldern angezeigt oder anderweitig verwertet werden können.

Da nach meinem Verständnis das Feld "varargin" die Variablen aus dem Hauptprogramm enthalten, versuche ich es mit
"y_min = varargin{1}; y_max = varargin{2}; z_min = varargin{3}; z_max = varargin{4};", und zwar nach der Initialisierung und vor
"function Unterprogramm_OpeningFcn(hObject, eventdata, handles, varargin)" und
"function varargout = Unterprogramm_OutputFcn(hObject, eventdata, handles)", schließlich sollen die Variablen ja in der ganzen GUI gelten.
Doch diese Art der Zuordnung liefert unsinnige Werte für die Variablen und letztendlich die Fehlermeldung "Index exceeds matrix dimensions."
Das einzige was ich daraus schließen konnte, ist, daß die GUI anscheinend bei jeder Benutzeraktion (Anklicken eines Knopfen o. ä.) erneut komplett durchlaufen wird.
Beendet wird das GUI mit einem "Weiter"-Knopf und den Befehlen
guidata(hObject, handles);
setappdata(0,'handles_Eingabemaske6',handles);
delete(Eingabemaske6); %Schließen des Eingabefensters.

Im Anschluß findet Ihr das komplette Listing des Unterprogramms.
Danke im voraus für Eure Hilfe! Smile

Viele Grüße
Gorbi

function varargout = Eingabemaske6(varargin)

% Initialisierung:
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @Eingabemaske6_OpeningFcn, ...
'gui_OutputFcn', @Eingabemaske6_OutputFcn, ...
'gui_LayoutFcn', [], ...
'gui_Callback', []);
if nargin && ischar(varargin{1})
gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State, varargin{:});
end
% Ende der Initialisierung.

%y_min = varargin{1}; y_max = varargin{2}; z_min = varargin{3}; z_max = varargin{4};
%minimales_y = varargin{5}; maximales_y = varargin{6}; minimales_z = varargin{7}; maximales_z = varargin{8};
%display (y_min); %display (minimales_z);

% --- Executes just before Eingabemaske6 is made visible.
function Eingabemaske6_OpeningFcn(hObject, eventdata, handles, varargin)

% Choose default command line output for Eingabemaske6
handles.output = hObject;

%Hinzufügen der Variablen zur handles-Struktur:
set(handles.Maximalknopf,'Value', 0); %nicht aktiviert
set(handles.Unveraendertknopf,'Value', 0); %nicht aktiviert
set(handles.Beliebigknopf,'Value', 1); % aktiviert

% Aktualisieren der handles-Struktur:
guidata(hObject, handles);

% UIWAIT makes Eingabemaske6 wait for user response (see UIRESUME)
% uiwait(handles.figure1);

% Übernahme der Variablen aus dem Hauptprogramm:
% disp(varargin{1}); disp(varargin{2}); disp(varargin{3}); disp(varargin{4});
%min_y=varargin{1};max_y=varargin{2};min_z=varargin{3};max_z=varargin{4};

%handles.min_y=varargin{1};handles.max_y=varargin{2};handles.min_z=varargin{3};handles.max_z=varargin{4};
%disp(handles.min_y); disp(handles.max_y); disp(handles.min_z); disp(handles.max_z);

% --- Outputs from this function are returned to the command line.
function varargout = Eingabemaske6_OutputFcn(hObject, eventdata, handles)
% varargout cell array for returning output args (see VARARGOUT);
% hObject handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;

minimales_y='-3.14159265358'; maximales_y='299792458'; minimales_z='-1000'; maximales_z='1000'; % <-- Testvariablen für maximale Gittergröße
%minimales_y=-558; maximales_y=846; minimales_z=-270; maximales_z=129; % <-- Testvariablen für maximale Gittergröße
set(handles.y_minimal, 'String', minimales_y);
set(handles.y_maximal, 'String', maximales_y);
set(handles.z_minimal, 'String', minimales_z);
set(handles.z_maximal, 'String', maximales_z);
guidata(hObject, handles);

min_y='-1'; max_y='10'; min_z='-3.141'; max_z='2.717'; % <-- Testvariablen für eingelesene Gittergröße
%min_y='-558'; max_y='846'; min_z='-270'; max_z='129'; % <-- Testvariablen für eingelesene Gittergröße

set(handles.Y1, 'String', min_y);
set(handles.Y2, 'String', max_y);
set(handles.Z1, 'String', min_z);
set(handles.Z2, 'String', max_z);

guidata(hObject, handles);

% Ist wohl überflüssig, ich hatte bloß keine Lust mehr, die FIG-Datei neuzumachen:
function Auswahlmenu_Interpolation_CreateFcn(hObject, eventdata, handles)

% Auswahl des Interpolationsgrades in einem Runterklapp-Menü:
function Auswahlmenu_Interpolation_Callback(hObject, eventdata, handles)

% Korrektur des Gitternullpunktes in y-Richtung:
function y_Korrektur_Callback(hObject, eventdata, handles)
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
yKorrektur = get(hObject, 'string'); Komma = strfind(yKorrektur, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Y_Korrektur = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl
if isnan(Y_Korrektur) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

% Korrektur des Gitternullpunktes in z-Richtung:
function z_Korrektur_Callback(hObject, eventdata, handles)
% Weiße Hintergrundfarbe im editierbaren Textfeld:
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
zKorrektur = get(hObject, 'string'); Komma = strfind(zKorrektur, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Z_Korrektur = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl
if isnan(Z_Korrektur) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

% Eingabemöglichkeit beliebiger Gittereckpunkte (frei wählbare Gittergröße):
function Ymin_beliebig_Callback(hObject, eventdata, handles)
% Weiße Hintergrundfarbe im editierbaren Textfeld:
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
YminEingabe = get(hObject, 'string'); Komma = strfind(YminEingabe, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Y_min_neu = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl
if isnan(Y_min_neu) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

function Ymax_beliebig_Callback(hObject, eventdata, handles)
% Weiße Hintergrundfarbe im editierbaren Textfeld:
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
YmaxEingabe = get(hObject, 'string'); Komma = strfind(YmaxEingabe, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Y_max_neu = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl
if isnan(Y_max_neu) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

function Zmin_beliebig_Callback(hObject, eventdata, handles)
% Weiße Hintergrundfarbe im editierbaren Textfeld:
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
ZminEingabe = get(hObject, 'string'); Komma = strfind(ZminEingabe, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Z_min_neu = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl
if isnan(Z_min_neu) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

function Zmax_beliebig_Callback(hObject, eventdata, handles)
% Weiße Hintergrundfarbe im editierbaren Textfeld:
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor','white');
end
% Prüfen, ob als Dezimaltrennzeichen ein Komma eingegeben wurde:
ZmaxEingabe = get(hObject, 'string'); Komma = strfind(ZmaxEingabe, ',');
if norm(Komma)>0
errordlg('Bitte als Dezimaltrennzeichen hier einen Punkt statt einem Komma eingeben.','Bad Input','modal')
return
end
Z_max_neu = str2double(get(hObject,'string')); %Umwandlung der eingegebenen Zeichen in eine Zahl.
if isnan(Z_max_neu) % Prüft, ob fälschlicherweise Buchstaben eingegeben wurden.
errordlg('Bitte nur Zahlen eingeben','Bad Input','modal')
return
end

% Abfrage der gewünschten neuen Gittergröße über "Radioknöpfe":
function Maximalknopf_Callback(hObject, eventdata, handles)
Knopf2 = get(handles.Maximalknopf,'Value');
if (Knopf2 == 1)
handles.Y_min_neu=str2num(get(handles.y_minimal, 'String'));
handles.Y_max_neu=str2num(get(handles.y_maximal, 'String'));
handles.Z_min_neu=str2num(get(handles.z_minimal, 'String'));
handles.Z_max_neu=str2num(get(handles.z_maximal, 'String'));
% Aktualisierung der Textfelder für beliebige Gittergröße:
set(handles.Ymin_beliebig,'String', get(handles.y_minimal, 'String'));
set(handles.Ymax_beliebig,'String', get(handles.y_maximal, 'String'));
set(handles.Zmin_beliebig,'String', get(handles.z_minimal, 'String'));
set(handles.Zmax_beliebig,'String', get(handles.z_maximal, 'String'));
guidata(hObject, handles);
end

function Unveraendertknopf_Callback(hObject, eventdata, handles)
Knopf1 = get(handles.Unveraendertknopf,'Value');
if (Knopf1 == 1)
handles.Y_min_neu=str2num(get(handles.Y1, 'String'));
handles.Y_max_neu=str2num(get(handles.Y2, 'String'));
handles.Z_min_neu=str2num(get(handles.Z1, 'String'));
handles.Z_max_neu=str2num(get(handles.Z2, 'String'));
% Aktualisierung der Textfelder für beliebige Gittergröße:
set(handles.Ymin_beliebig,'String', get(handles.Y1, 'String'));
set(handles.Ymax_beliebig,'String', get(handles.Y2, 'String'));
set(handles.Zmin_beliebig,'String', get(handles.Z1, 'String'));
set(handles.Zmax_beliebig,'String', get(handles.Z2, 'String'));
guidata(hObject, handles);
end

function Beliebigknopf_Callback(hObject, eventdata, handles)

function Weiterknopf_Callback(hObject, eventdata, handles)
%uiresume;

% Abfragen des gewünschten Interpolationsgrades:
Interpolationsauswahl = get(handles.Auswahlmenu_Interpolation,'Value');
switch Interpolationsauswahl;
case 1 % ' kubisch'
handles.Interpolationsgrad = 3;
case 2 % ' quadratisch'
handles.Interpolationsgrad = 2;
case 3 % ' linear'
handles.Interpolationsgrad = 1;
case 4 % ' alle Werte auf Null'
handles.Interpolationsgrad = 0;
end

%Auslesen der Textfeldinhalte:
handles.Y_Korrektur = str2num(get(handles.y_Korrektur, 'String'));
handles.Z_Korrektur = str2num(get(handles.z_Korrektur, 'String'));
handles.Y_min_neu = str2num(get(handles.Ymin_beliebig, 'String'));
handles.Y_max_neu = str2num(get(handles.Ymax_beliebig, 'String'));
handles.Z_min_neu = str2num(get(handles.Zmin_beliebig, 'String'));
handles.Z_max_neu = str2num(get(handles.Zmax_beliebig, 'String'));
guidata(hObject, handles);

% Schreiben der neuen Parameter in die Übergabestruktur "Varargout":
varargout{2} = handles.Interpolationsgrad;
varargout{3} = handles.Y_Korrektur;
varargout{4} = handles.Z_Korrektur;
varargout{5} = handles.Y_min_neu;
varargout{6} = handles.Y_max_neu;
varargout{7} = handles.Z_min_neu;
varargout{8} = handles.Z_max_neu;

% Kontrollausgabe im Kommandozeilenfenster:
disp ('Interpolationsgrad: '); disp (handles.Interpolationsgrad);
disp ('y-Korrektur: '); disp (handles.Y_Korrektur);
disp ('z-Korrektur: '); disp (handles.Z_Korrektur);
disp ('Y min. neu = '); disp (handles.Y_min_neu);
disp ('Y max. neu = '); disp (handles.Y_max_neu);
disp ('Z min. neu = '); disp (handles.Z_min_neu);
disp ('Z max. neu = '); disp (handles.Z_max_neu);

guidata(hObject, handles);

setappdata(0,'handles_Eingabemaske6',handles);

delete(Eingabemaske6); %Schließen des Eingabefensters.

dib0r

Forum-Guru


	Beiträge: 413

	Anmeldedatum: 09.05.08

	Wohnort: ---

	Version: ---

Verfasst am: 31.07.2008, 13:28 Titel:

Hallo,
so wie es aussieht, wird dir ein Handle auf die GUI übergeben (sonst würde uiwait auch nicht funktionieren).

Code:

if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State, varargin{:});
end
% Ende der Initialisierung.