cdf =Manipulate[Column[{Calcule[num] }],Style[proposito,Bold,10],Spacer[{100,3}],
 {{num,0.0000123456789,"Número real a convertir:"},ControlType->InputField},Button["Pasar a forma normalizada"]
,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 a notación científica normalizada. ", Bold,14, RGBColor[0,0.33,0.33]]}},Initialization:>(
proposito ="Propósito: Convertir un número real a su forma en notación científica normalizada ";
($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));
Calcule[num_ ]:=  Module[{}, ToString@MantissaExponent[num][[1]]<> " * 10^"<>ToString@MantissaExponent[num][[2]]];

)
]