Matlab - Usar funciones de un paquete en una GUI

function varargout = Xplot(varargin)

% XPLOT MATLAB code for Xplot.fig

%      XPLOT, by itself, creates a new XPLOT or raises the existing

%      singleton*.

%

%      H = XPLOT returns the handle to a new XPLOT or the handle to

%      the existing singleton*.

%

%      XPLOT('CALLBACK',hObject,eventData,handles,...) calls the local

%      function named CALLBACK in XPLOT.M with the given input arguments.

%

%      XPLOT('Property','Value',...) creates a new XPLOT or raises the

%      existing singleton*.  Starting from the left, property value pairs are

%      applied to the GUI before Xplot_OpeningFcn gets called.  An

%      unrecognized property name or invalid value makes property application

%      stop.  All inputs are passed to Xplot_OpeningFcn via varargin.

%

%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one

%      instance to run (singleton)".

%

% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help Xplot

% Last Modified by GUIDE v2.5 15-Jul-2016 08:43:41

% Begin initialization code - DO NOT EDIT

gui_Singleton = 1;

gui_State = struct('gui_Name',       mfilename, ...

                   'gui_Singleton',  gui_Singleton, ...

                   'gui_OpeningFcn', @Xplot_OpeningFcn, ...

                   'gui_OutputFcn',  @Xplot_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

% End initialization code - DO NOT EDIT

% --- Executes just before Xplot is made visible.

function Xplot_OpeningFcn(hObject, eventdata, handles, varargin)

% This function has no output args, see OutputFcn.

% hObject    handle to figure

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% varargin   command line arguments to Xplot (see VARARGIN)

% Choose default command line output for Xplot

handles.output = hObject;

handles.cdir = pwd;

addpath(genpath('D:\data\elaverde\my documents\MATLAB\Xplots_Well\SeisLab_10.0301'));

set(handles.Lista,'enable','off');

% Update handles structure

guidata(hObject, handles);

% --- Outputs from this function are returned to the command line.

function varargout = Xplot_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;

% --- Executes on button press in Abrir.

function Abrir_Callback(hObject, ~, handles)

%Para abrir un directorio

fn = uigetdir(handles.cdir,'Select directory');

if fn ~= 0

    handles.cdir = fn;

    las = dir(fullfile(handles.cdir,'*.las'));

    if length(las) ~= 0, set(handles.Lista,'enable','on');

    else, set(handles.Lista,'enable','off');

    end

    set(handles.Ruta,'String',handles.cdir);

    set(handles.Lista,'String',{las.name});

end

guidata(hObject, handles);

%var=set(handles.Abrir,'String',PathFile) %carpeta seleccionada 

% hObject    handle to Abrir (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% --- Executes on selection change in Lista.

function Lista_Callback(hObject, eventdata, handles)

contents = cellstr(get(hObject,'String'));

x=get(hObject,'Value');

item_selected = contents{x};

iprint=0;

filename=fullfile(handles.cdir,item_selected);

[wlog,las_header]=read_las2_file(filename,iprint);

% hObject    handle to Lista (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns Lista contents as cell array

%        contents{get(hObject,'Value')} returns selected item from Lista

% --- Executes during object creation, after setting all properties.

function Lista_CreateFcn(hObject, eventdata, handles)

% hObject    handle to Lista (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.

%       See ISPC and COMPUTER.

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

% --- Executes during object creation, after setting all properties.

function Ruta_CreateFcn(hObject, eventdata, handles)

% hObject    handle to Ruta (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    empty - handles not created until after all CreateFcns called