\documentclass[openany, 12pt]{book} 

\usepackage{color}
\usepackage{xcolor} 
\usepackage{listings}
\usepackage{xepersian}


%---listings colors 
\definecolor{codegreen}{rgb}{0,0.6,0}
\definecolor{codegray}{rgb}{0.5,0.5,0.5}
\definecolor{codepurple}{rgb}{0.58,0,0.82}
\definecolor{backcolour}{rgb}{0.95,0.95,0.92}
%---listings colors 
 
\lstdefinestyle{mystyle}{
	tabsize=4,
	breaklines=true,
	breakatwhitespace=true,
	basicstyle=\footnotesize\ttfamily,
	numberstyle=\footnotesize\ttfamily,
	aboveskip=\baselineskip,
	captionpos=b,
	columns=fullflexible,
	showstringspaces=false,
	extendedchars=true,
	breaklines=true,
	showtabs=false,
	showspaces=false,
	showstringspaces=false,
	identifierstyle=\ttfamily,
    backgroundcolor=\color{backcolour},   
    commentstyle=\scriptsize\ttfamily,
    numberstyle=\tiny\color{codegray},
    stringstyle=\bfseries\ttfamily,
    basicstyle=\LSTfont,
    breakatwhitespace=false,         
    breaklines=true,                 
    captionpos=b,                    
    keepspaces=true,                 
    numbers=none,                    
    numbersep=5pt,                  
    showspaces=false,                
    showstringspaces=false,
    showtabs=false,                  
    tabsize=2,
    escapechar=|,
    %frame=trBL
    basicstyle=\footnotesize\ttfamily,
	keywordstyle=\bfseries\ttfamily
}

\setlatinmonofont[ExternalLocation,BoldFont={cmuntb},ItalicFont={cmunti},BoldItalicFont={cmuntx}]{cmuntt} 
\setlatinmonofont[ExternalLocation,BoldFont={pcrb8a},ItalicFont={pcri8a},BoldItalicFont={pcrbi8a}]{pcrr8a}
\def\lstlistingname{برنامه}
\lstset{style=mystyle}





\setdigitfont[Scale=1.1]{ParsiDigits}
\settextfont[Scale=1.2]{XB Yas}
\defpersianfont\nastaliq[Scale=1.6]{IranNastaliq}
\defpersianfont\persiantitle[Scale=1.6]{XB Yas}
\defpersianfont\authername[Scale=1.3]{XB Yas}


\begin{document}

چطور میشه عنوان رو درست کرد. یعنی الان عنوان باید باشه 

برنامه 1: کد جاوا

\begin{LTR}
\lstset{language=JAVA, inputencoding={utf8}}
\begin{lstlisting}[texcl,caption=\rl{کد جاوا} ]
some code...
\end{lstlisting}
\end{LTR}



\end{document}