Matlab GUI to fill form in matlab to excel -Can be incorporaed with any project

function gui_excel()
%MATLAB example to demonstrate the GUI and export the values to spreadsheet.
%The sample registration form will get the data and store it in a excel sheet.
%NOTE: Do not open sample.xls while executing because data inconsistency may occur.
%While executing, a warning message will appear to notify the user that
%addition of new spreadsheet by name SAMPLE FORM is created.
%Delete the file if exists already.
if('sample.xls')
    delete sample.xls;
end
%To clear all the values present in the global varibles.
clear all;
global file_handler  file_string  Nxt  dd  mm  year  age_today;
file_handler=2;
%Export the column names to the excel sheet.

A={'NAME','DATE OF BIRTH','AGE','ADDRESS','EMAIL ID','PHONE NUMBER'};
%Here sample.xls is created and it will be in the MATLAB current directory
xlswrite('sample.xls',A,'SAMPLE FORM','A1');%filename, matrix,sheetname and the range is specified
figure('units','pixels','position',[250 100 500 450],'menubar','none','numbertitle','off',...
            'name','Fill the form @abhi','resize','off');
        title('Database @abhi','fontsize',10,'fontname','Time New Roman','color','r');
        axis off;
        Rform();%call the function Rform to fill the form
    function Rform(source,eventdata)
 uicontrol('style','push','units','pixels','position',[15 380 150 30],...
                 'fontsize',8,'string','ENTER YOUR NAME');
 uicontrol('style','push','units','pixels','position',[15 300 150 30],...
                 'fontsize',8,'string','DATE OF BIRTH');
  uicontrol('style','push','units','pixels','position',[15 250 150 30],...
                 'fontsize',8,'string','AGE');
  uicontrol('style','push','units','pixels','position',[15 200 150 30],...
                 'fontsize',8,'string','ADDRESS');
  uicontrol('style','push','units','pixels','position',[15 100 150 30],...
                 'fontsize',8,'string','EMAIL ID');
  uicontrol('style','push','units','pixels','position',[15 50 150 30],...
                 'fontsize',8,'string','PHONE NUMBER');

   
        file_string=num2str(file_handler);
   
   uicontrol('style','edit','units','pixels','position',[200 380 250 30],...
                 'fontsize',14,'callback',{@nam_call});
             uicontrol('style','text','position',[200 340 50 20],'fontsize',9,'string','DD');
 uicontrol('style','edit','units','pixels','position',[200 300 50 30],...
                 'fontsize',14,'callback',{@dob_call1});
             uicontrol('style','text','position',[280 340 50 20],'fontsize',9,'string','MM');
        uicontrol('style','edit','units','pixels','position',[280 300 50 30],...
                 'fontsize',14,'callback',{@dob_call2});
             uicontrol('style','text','position',[360 340 50 20],'fontsize',9,'string','YYYY');
             uicontrol('style','edit','units','pixels','position',[360 300 90 30],...
                 'fontsize',14,'callback',{@dob_call3});
 uicontrol('style','text','units','pixels','position',[200 250 250 30],...
                 'fontsize',14);
 uicontrol('style','edit','units','pixels','position',[200 150 250 80],...
                 'fontsize',14,'callback',{@add_call});
  uicontrol('style','edit','units','pixels','position',[200 100 250 30],...
                 'fontsize',14,'callback',{@email_call});
  uicontrol('style','edit','units','pixels','position',[200 50 250 30],...
                 'fontsize',14,'callback',{@phone_call});
   okButton=uicontrol('style','push','position',[200,10,30,30],'string','OK','callback',{@finish});
   Nxt=uicontrol('style','push','position',[400,10,50,30],'string','NEXT','callback',{@next_call});
   set(Nxt,'Visible','off');

   %writing to the excel sheet
    function phone_call(source,eventdata)
       pno=get(source,'String');
       pnum={pno};
       xlswrite('sample.xls',pnum,'SAMPLE FORM' ,strcat('F',file_string));
    end

function email_call(source,eventdata)
       mail=get(source,'String');
       e={mail};
       xlswrite('sample.xls',e,'SAMPLE FORM' ,strcat('E',file_string));
end
    function add_call(source,eventdata)
       address=get(source,'String');
       add1={address};
       xlswrite('sample.xls',add1,'SAMPLE FORM' ,strcat('D',file_string));
    end
    function  age_call(source,eventdata)
       age=get(source,'String');
   
    end


    function dob_call1(source,eventdata)
       dd=get(source,'String');
    end
    function dob_call2(source,eventdata)
       mm=get(source,'String');
    end

        function dob_call3(source,eventdata)
       year=get(source,'String');
       year1=get(eventdata,'value');
           dob=strcat(dd,'-', mm,'-', year);
           b={dob};
     xlswrite('sample.xls',b,'SAMPLE FORM' ,strcat('B',file_string));
     age_calculator();
    end
   



    function nam_call(source,eventdata)
       names=get(source,'String');
       nam1={names};
     xlswrite('sample.xls',nam1,'SAMPLE FORM',strcat('A',file_string));
        end


    function finish(source,eventdata)
        set(Nxt,'Visible','on');
        set(okButton,'Visible','off');
    end
    end

%Pushbutton NEXT calls the Rform to fill another form
    function next_call(source,eventdata)
        set(Nxt,'Visible','off');
        file_handler=file_handler+1;%handle is incremented to point the next position in the excel sheet
        Rform();
    end

%calcute the age automatically
    function age_calculator()
        now=date;
        dv=datevec(now);% date vector returns in yyyy mm dd format
   
        dd1=str2num(dd);
        dd_diff=dv(3)-dd1;
   
       mm1=str2num(mm);
       mm_diff=dv(2)-mm1;
   
       years=str2num(year);
       year_diff=dv(1)-years;
   
       if(mm_diff <= 0)
           if(dd_diff <= 0)
               age_today=year_diff-1;
           end
       else
           age_today=year_diff;
       end
       uicontrol('style','text','units','pixels','position',[200 250 250 30],...
                 'fontsize',10,'string',age_today);
             age1={age_today};
       xlswrite('sample.xls',age1,'SAMPLE FORM' ,strcat('C',file_string));
    end
      end