s=serial('COM1','BaudRate',9600); //Port Olustur 
  fopen(s);                                     // Portu Aç 
  fwrite(s,'i');                                 // Porta Örnek olarak ileri için i karakteri gir ( pic kodunda porttan gelen veri 'i' ise ileri hareketi yaptrıyorum simulasyonda) 
  fclose(s)                                     //Portu kapat 
   
  

img = imread ('proje1.jpg'); 
  img_gri = rgb2gray(img); 
  kenarlarGri = edge(img_gri ,'log'); 
  level = graythresh(img_gri); 
  imgebw=im2bw(img_gri,level); 
  [x y] = size(imgebw); 
   
  %Resim uzerindeki kose noktalarinin belirlenmesi 
      %Satirlarin sirasiyla taranmasi 
      k=1; 
      for i =1:x 
          for j=1:y 
                if ( k == 1) 
                    if (imgebw(i,j) == 1)  
                       x1=i; 
                       y1=j; 
                       k=0; 
                    end  
                end 
                if ( k == 0) 
                    if (imgebw(i,y1)== 0) 
                        x3=i; 
                        k=2; 
                    end     
                end 
          end     
      end 
       
          %Sutunlarin sirasiyla taranmasi 
     t=1; 
     for z=1:y 
         for k=1:x 
             if(t==1) 
                 if(imgebw(k,z)==1) 
                     x2=k; 
                     y2=z; 
                     t=0; 
                 end    
             end 
             if ( t==0) 
                 if(imgebw(x2,z)==0) 
                     y4=z; 
                     t=2; 
                 end     
             end 
         end 
     end