Visual Basic - ayuda con text box

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con text box

Publicado por Nelly Emire (6 intervenciones) el 11/08/2007 16:38:48
el problema que tengo es el siguiente :

tengo este codigo :

alt_sol = (Cos(latitudes * pi / 180) * Cos(decli_sol * pi / 180) * Cos(0 * pi / 180))
alt_sol = alt_sol + (Sin(latitudes * pi / 180) * Sin(decli_sol * pi / 180))
alt_sol = Atn(alt_sol / Sqr(-alt_sol * alt_sol + 1))
alt_sol1 = alt_sol * 180 / pi

azimut = Str(Cos(decli_sol * pi / 180) * Sin(0 * pi / 180))
azimut = azimut / Cos(alt_sol1 * pi / 180)
azimut = Atn(azimut / Sqr(-azimut * azimut + 1))
azimut = azimut * (180 / pi)
azi12 = Str(azimut)

longitud = 2 / Tan(alt_sol1 * pi / 180)
som12 = Str(longitud)

EL ULTIMO VALOR ASIGNADO AL TEXT BOX (som12) ES UNA LONGITUD DE SOMBRA QUE ESTOY ANALIZANDO PARA UNA TESIS SOBRE GEOMETRIA SOLAR EN LA CARRERA DE ARQUITECTURA.... ESTA SOMBRA LA CALCULO PARA LAS 7,8,9,10,11, Y 12 DEL DIA.... EL PROBLEMA ES QUE A LAS SIETE DE LA MAÑANA ES UNA LONGITUD Y CONFORME VA PASANDO EN TIEMPO ESA LONGITUD SE VA HACIENDO MENOR EN VALOR.. CON ESTOS VALORES OBTENIDOS GENERO UNA GRAFICA... EL PROBLEMA QUE TENGO ES QUE CUANDO LLEGA A LAS 12 EL VALOR SE VUELVE POR EJEMPLO: 0.0086.... Y EN LUGAR DE PONER ESE NUMERO ME PONE 8.60000 QUE ES EQUIVALENTE PERO ESTA ELEVADO A 10 A LA MENOS 3... Y DESEO QUE ME PONGA EL VALOR TAL CUAL, YA QUE LA GRAFICA RECONOCE 8.6 Y NO EL 0.0086 Y OBTENGO RESULTADOS ERRONEOS PARA GENERAR LA GRAFICA.... ESPERO TENER RESPUSTAS Y AYUDA PRONTO....

ESTE ES EL CODIGO SOLO PARA LAS 12, PERO A LAS 11, 10, 9, 8 Y 7 SE REPITE LO MISMO.. PERO EL PROBLEMA SE ME PRESENTA A LAS 12 DEL DIA CUANDO EL VALOR ES MUY PEQUEÑO...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder