tcal

function tcal
h1=findobj(0,'tag','ttt');
m=findobj(h1,'tag','EditText1');
trnk=get(m,'string');
trn=str2num(trnk)
m2=findobj(h1,'tag','EditText2');
tak=get(m2,'string');
ta=str2num(tak)
if strcmp(trnk,'')|strcmp(tak,'')
 msgbox('you should enter both houre and day')
else
   t=ta*trn
   msgbox(num2str(t),'solar transmittance')
   end