Új hozzászólás Aktív témák

• joufiu csendes tag

  #3349

  #3345 B-L-A-C-K

  2008-05-14 06:48:40

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  joufiu

  csendes tag

  #3345 B-L-A-C-K

  Joufiu kolleganak nem volt ideje erdemben foglalkozni a dologgal, csak a HM interfest csinalta meg, de azt megosytja barkivel

  function gyakorlat(action);
  
  if nargin<1
  action='Start';
  uicontrol('Style','Pushbutton','Units','Normalized','Position',[.83 .1 .16 .06],...
  'Callback','close','String','Cancel');
  uicontrol('Style','Pushbutton','Units','Normalized','Position',[.63 .1 .16 .06],...
  'String','Open','CallBack','gyakorlat(''Open'')');
  uicontrol('Style','Pushbutton','Units','Normalized','Position',[.43 .1 .16 .06],...
  'String','Ok','CallBack','gyakorlat(''Ok'')');
  end
  if strcmp(action,'Start')
  elseif strcmp(action,'Open')
  myopen;
  end
  
  function myopen
  [file,path]=uigetfile('terkep.be*');
  F=fopen([path,file],'r');
  s=fread(F);
  [o,i]=beolvas(s,2,1)
  N=o(1);M=o(2);
  
  function [o,i]=beolvas(s,k,i)
  for j=1:1:k
  o(j)=0;
  end
  while ((s(i)<48)&(s(i)>57))
  i=i+1;
  end
  for j=1:1:k
  while ((s(i)>=48)&(s(i)<=57))
  o(j)=o(j)*10+s(i)-48;
  i=i+1;
  end
  i=i+1;
  end

  Matlab

Új hozzászólás Aktív témák