All pastes #367070 Raw Edit

Something

public text v1 · immutable
#367070 ·published 2007-02-22 02:41 UTC
rendered paste body
function EnterDataWindow

set(gcf, 'MenuBar', 'none');
set(gcf, 'Name', 'Statistics Calculator');
set(gcf, 'NumberTitle', 'off');

EnterDataButton=uicontrol;
set(EnterDataButton, 'String', 'Enter Data');
set(EnterDataButton, 'FontSize', 25)
set(EnterDataButton, 'Position', [30 250 500 50]);
set(EnterDataButton, 'Callback', {@EnterDataButtonCallback});

AnalyzeDataButton=uicontrol;
set(AnalyzeDataButton, 'String', 'Analyze Data');
set(AnalyzeDataButton, 'FontSize', 25)
set(AnalyzeDataButton, 'Position', [30 150 500 50]);
set(AnalyzeDataButton, 'Callback', {@AnalyzeDataButtonCallback});

    function EnterDataButtonCallback(EnterDataButton, eventdata, handles)
        set(EnterDataButton, 'Visible', 'off');
        set(EnterDataButton, 'Enable', 'off');
        
        set(AnalyzeDataButton, 'Visible', 'off');
        set(AnalyzeDataButton, 'Enable', 'off');
        
        set(Directions, 'Visible', 'on');
        
        set(TitleTitle, 'Visible', 'on');
        
        set(TitleEntry, 'Visible', 'on');
        set(TitleEntry, 'Enable', 'on');
        
        set(TextEnterButton, 'Visible', 'on');
        set(TextEnterButton, 'Enable', 'on');
    end

    function AnalyzeDataButtonCallback(AnalyzeDataButton, eventdata, handles)
        set(EnterDataButton, 'Visible', 'off');
        set(EnterDataButton, 'Enable', 'off');
        
        set(AnalyzeDataButton, 'Visible', 'off');
        set(AnalyzeDataButton, 'Enable', 'off');
    end

Data=[];

Directions=uicontrol;
set(Directions, 'style', 'Edit');
set(Directions, 'String', 'Enter the title of the data set in the box indicated below. When finished press the "Enter" button.');
set(Directions, 'Enable', 'inactive');
set(Directions, 'Position', [50 300 470 50]);
set(Directions, 'Visible', 'off');

TitleTitle=uicontrol;
set(TitleTitle, 'enable', 'inactive');
set(TitleTitle, 'String', 'Title:');
set(TitleTitle, 'Position', [170 200 50 20]);
set(TitleTitle, 'Visible', 'off');

TitleEntry=uicontrol;
set(TitleEntry, 'style', 'edit');
set(TitleEntry, 'Position', [220 200 140 20]);
set(TitleEntry, 'Visible', 'off');
set(TitleEntry, 'Enable', 'off');

TextEnterButton=uicontrol;
set(TextEnterButton, 'Position', [380 200 50 20]);
set(TextEnterButton, 'String', 'Enter');
set(TextEnterButton, 'Callback', {@TextEnterButtonCallback});
set(TextEnterButton, 'Visible', 'off');
set(TextEnterButton, 'Enable', 'off');

DataElementTitle=uicontrol;
set(DataElementTitle, 'enable', 'inactive');
set(DataElementTitle, 'String', ['Data Element :']);
set(DataElementTitle, 'Position', [120 150 100 20]);
set(DataElementTitle, 'Visible', 'off');

DataEntry=uicontrol;
set(DataEntry, 'style', 'edit');
set(DataEntry, 'Position', [220 150 140 20]);
set(DataEntry, 'Visible', 'off');
set(DataEntry, 'Enable', 'off');

DataEnterButton=uicontrol;
set(DataEnterButton, 'Position', [380 150 50 20]);
set(DataEnterButton, 'String', 'Enter');
set(DataEnterButton, 'Callback', {@DataEnterButtonCallback});
set(DataEnterButton, 'Visible', 'off');
set(DataEnterButton, 'Enable', 'off');

EnterDataDoneButton=uicontrol;
set(EnterDataDoneButton, 'Position', [500 20 50 20]);
set(EnterDataDoneButton, 'String', 'Done');
set(EnterDataDoneButton, 'Callback', {@EnterDataDoneButtonCallback});
set(EnterDataDoneButton, 'Visible', 'off');
set(EnterDataDoneButton, 'Enable', 'off');

function TextEnterButtonCallback(TextEnterButton, eventdata, handles)
    
    x=10;

    set(Directions, 'String', 'Enter the value of each successive data element, each one followed by the "Enter" button.');
    set(TitleEntry, 'enable', 'off');
    set(TitleTitle, 'enable', 'off');
    set(TextEnterButton, 'enable', 'off');
    
    set(DataElementTitle, 'enable', 'inactive');
    set(DataElementTitle, 'Visible', 'on');

    set(DataEntry, 'Visible', 'on');
    set(DataEntry, 'Enable', 'on');
    
    set(DataEnterButton, 'Enable', 'on');
    set(DataEnterButton, 'Visible', 'on');
    
    set(EnterDataDoneButton, 'Visible', 'on');
    set(EnterDataDoneButton, 'Enable', 'on');
    
    
    Title=get(TitleEntry, 'String');
    set(TextEnterButton, 'UserData', Title);
    
end

    function DataEnterButtonCallback(DataEnterButton, eventdata, handles)
        
        Title=get(TextEnterButton, 'UserData');
        
        x=[1 2 3];
        
        assignin('caller', Title, x)
        
        whos
    end

    function EnterDataDoneButtonCallback(EnterDataDoneButton, eventdata, handles)
        
    end

end