cdf =Manipulate[ BaseForm[u, 2],Style[proposito,Bold,10],Spacer[{100,3}],
 (*Inicio contadores *)
  {{u,34,"Su número en base 10:"},ControlType->InputField},
Button["Calcular equivalente binario",BaseForm[u, 2] ]
(* Fin contadores *)
,Alignment->Center,Deployed->True,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->False,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Título: Convertir de decimal a binario. ", Bold,14, RGBColor[0,0.33,0.33]]}},
Initialization:>(
($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));
proposito ="Propósito: hacer la conversión de un número dado 
 en base 10 a su equivalente dado en base 2";
SuFunc := Module[{}, "Aquí va la respuesta"];

)]
CloudDeploy[cdf, Permissions->"Public"]