SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: acastellanosb en Martes 8 de Junio de 2004, 09:14
-
Estoy realizando una aplicacion que lee la medicion realizada por un instrumento de datos, esta lectura la realiza en forma exponencial Ej.
2.354 Exp x, una vez que pase esta lectura a un ctrl textbox o label deseo pasarla a otra forma de lectura sin exponencial y que pueda recorrer el punto decimal para poder observar la lectura en enteros Ej. 23.54.
Gracias por su ayuda y espero me haya expresado correctamente para lo que pretendo
-
Hola,
Prueba a intentar convertir el valor que te devuelve con la función CDbl.
No se si te funcionará pero pruebalo.
Un saludo.
-
Prueba el siguiente procedimiento
sLectura=ucase(trim(text1.text))
largo=len(sLectura)
pos=instr(sLectura,"EXP")
numero1=cdbl(mid(sLectura,1,pos-1))
numero2=cdbl(mid(sLectura,pos+4,largo-pos+4))
'Ahora tienes ambos valores de tu lectura, solo falta
'transformarlos en un solo valor, de acuerdo a tu base.
-
Gracias por su ayuda