\documentclass[12pt]{book}
\newcounter{author}
\setcounter{author}{1}
\def\coun{$^{\arabic{author}}$%
}


\makeatletter

\newif\ifempty
\def\isempty#1{%
  \sbox0{#1}%
  \ifdim\wd0=0pt
    \emptytrue \typeout{The Box is Empty}
  \else
    \emptyfalse\typeout{The Box is FULL}
  \fi
}




%\def\Authors{}
\def\AuthorsInfo{}



\def\AuthorsInfo{}
\def\Authors{}
\def\authors{}

\def\AddAuthorF#1#2{
\ifdefined\Authors
\isempty{\authors}
  \ifempty
    \xdef\Authors{#1\coun}
    \xdef\authors{#1}
    \isempty{#2}
    \ifempty
    \else
      \xdef\AuthorsInfo{\coun{#2}\par}
    \fi
  \else
     \xdef\Authors{\Authors,  #1\coun}
    \xdef\authors{\authors,  #1}
    \isempty{#2}
    \ifempty
    \else
        \xdef\AuthorsInfo{{\AuthorsInfo}  \coun{#2}\par}
    \fi
  \fi   
\addtocounter{author}{1}
\else
\fi
}



\def\Make{
{\centering
\vspace{0.75em}
\Authors\\
\vspace{0.5em}
{\small \AuthorsInfo}}
}
\makeatother





\usepackage{xepersian}
\settextfont{XB Zar}
\setdigitfont{XB Zar}


\begin{document}


\AddAuthorF{
زین العابدین موسوی
}
{
استادیار گروه كنترل، دانشکده مهندسی برق كامپیوتر ، دانشگاه شهیدرجایی ،  
\lr{smousavi@srttu.com}
}

\AddAuthorF{
پرویز امیری
}
{
استادیار گروه الكترونیك، دانشکده مهندسی برق كامپیوتر ، دانشگاه شهید رجایی،
{pamiri@srttu.com}
}



\end{document}