SoloCodigo

Hola amigos, ojala y alguien pueda orientarme.

He leido que se utiliza Crystal report para graficar; pero no hay algun otro metodo para lograrlo??

Crystal report viene en el Visual Basic 6.0???

Gracias. Saludos para todos.

Hola amigos, espero y me puedan ayudar. Ya tengo mi proyecto listo pero al instalarlo y enviar los datos del Msflexgrid a excel me sale un error. Run Time error '1004': Application - defined or object - defined error.

Ese error me aparece porque hice un macro que tiene una imagen en Excel. Y al darle click al boton de enviar a excel no encuentra la imagen porque al instalarlo no la crea.


La unica forma en que si me funciona es instalado primero el proyecto y de ahi tengo que copiar la imagen aparte a la carpeta donde fue instalado y ya no me da el error.

Como puedo hacerle para que al instalarlo me aparezca la imagen en la misma carpeta donde quiero instalar la aplicacion, sin tener que hacerlo manualmente?

Espero y puedan ayudarme. Gracias

Hola amigos, tengo el siguiente problema. Realizo unos calculos en varias celdas de un msflexgrid. Pero en la ultima columna, me incrementa varias columnas vacias, las cuales no deberian aparecer.

Les muestro el codigo por si alguien encuentra el error.


Gracias por su ayuda

Hola amigos tengo el siguiente codigo el cual me muestra el label 12 cuando posiciono el puntero del mouse sobre el label11. Mi pregunta es:
¿Como puedo hacerle si al quitar el puntero del label11 el label12 sea invisible otra vez?  

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label12.Visible = True
End Sub

Gracias.

Saludos a todos

Hola amigos.
He utilizado las propiedades de borderstyle para que los formularios de mi aplicacion aparezcan maximizados al momento de ejecutarla. Y que me aparezca el boton de minimizar, y cerrar, pero no lo he logrado.

Alguien puede orientarme.

Gracias.

Hola amigos.
Mi duda es la siguiente:
Quiero comparar 2 numeros, en 2 textbox diferentes y si el numero que se meto en el text1.text es mayor al que meto en el text2.text me salga un mensaje.

Me sale bien, pero cuando pongo en el text1.text 93 y en el text2.text  100 me sale el mensaje de que el valor minimo es mayor al maximo cuando no es asi, les pongo el codigo para que me entiendan mejor:

Private Sub Command1_Click()    
       
    If (Text1.Text > Text2.Text) Then
    res = MsgBox("El valor minimo es mayor al maximo", , "Advertencia")
    Text1.Text = ""
    Text2.Text = ""
    End If  
       
End Sub

Me pueden decir en que estoy fallando si no es mucha molestia. Gracias

Hola amigos, tengo el siguiente codigo el cual me incrementa las columnas del Msflexgrid en .5 pero quiero que me las incremente en 0.0020 No he podido lograrlo espero y alguien pueda darme un tip.

Codigo:

Private Sub Command3_Click(Index As Integer)
tabla.Clear
Command2.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Label7.Visible = True
Label8.Visible = True
Label3.Visible = True
Label4.Visible = True
tabla.Visible = True

Dim SG2, SG602 As Single
Dim T As Single
Dim C, R As Integer
Dim BT As Integer

BT = 60

If ((a1.text <> "") And (a2.text <> "") And (t1.text <> "") And (t2.text <> "")) Then

    tabla.Cols = (a2 - a1) * 2 + 2
    tabla.Rows = (t2 - t1) * 2 + 2
   
    T = t1
    R = 0
    While (T <= t2)
       
        SG2 = a1
        C = 0
        While (SG2 <= a2)
   
            If (C = 0) Then
                tabla.Col = C
                tabla.Row = R + 1
                tabla.text = T
            End If
            If (R = 0) Then
                tabla.Col = C + 1
                tabla.Row = R
                tabla.text = SG2
            End If
               
            SG602 = calcular_SG2(SG2, T)
           
                           
            tabla.Col = C + 1
            tabla.Row = R + 1
            tabla.text = SG602
            tabla.text = Format(tabla.text, "#,##0.0000")
               
                If ((SG2 >= 0.6535) And (SG2 <= 0.7795) And (T >= 150) And (T <= 200)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
               
                If ((SG2 >= 0.7795) And (SG2 <= 0.825) And (T >= 200) And (T <= 250)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
               
                If ((SG2 >= 0.825) And (SG2 <= 1.076) And (T >= 250) And (T <= 300)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
                       
               
           
            SG2 = SG2 + 0.5
            C = C + 1
        Wend
   
   
        T = T + 0.5
        R = R + 1
    Wend
   
   



Else
MsgBox ("Faltan datos por capturar")
End If







End Sub

Hola que tal. Quisiera saber como puedo fijar una variable en este caso RHOT del siguiente codigo:

Function calcular_SG(SG, T)

'Aceite Combustible

Dim DELTA As Single
Dim BT As Single
Dim HYC As Single
Dim RHO As Single
Dim RHOT As Single
Dim RHO60 As Single
Dim ALPHA As Single
Dim VCF As Single
Dim SG60 As Single

Const C1 = 0.00001278
Const C2 = 0.0000000062
Const C3 = 141360.198
Const C4 = 131.5
Const C5 = 141.5
Const C6 = 2.7
Const C7 = 999.012
Const K0 = 103.872
Const K1 = 0.2701
Const e = 2.718281828459


'Diferencia Temperatura Observada y Base de Temperatura
DELTA = T - 60

'Termino de Correccion de Hidrometro
HYC = 1# - C1 * DELTA - C2 * DELTA ^ 2

'Conversion Densidad Relativa a Densidad
RHO = SG * C7

'Aplicacion de Correccion de Hidrometro
RHOT = RHO * HYC

'Inicializa la Densidad a 60 F
RHO60 = RHOT

'Coeficiente de Expansion Termica
T11 = K0 / RHO60
T12 = CSng(T11) / CSng(RHO60)
T13 = K1 / RHO60
ALPHA = CSng(T12) + CSng(T13)

'Factor de Correccion de Volumen
T16 = (-ALPHA * DELTA - 0.8 * ALPHA ^ 2 * DELTA ^ 2)
T15 = T16 / 1#
VCF = T15

T17 = e ^ T15

'Calculo de Densidad a 60 F
T18 = RHOT / T17


T20 = T18 / C7

SG60 = T20

calcular_SG = SG60

El problema es que quiero repetir este codigo 10 veces fijando esa variable RHOT y hacer una comparacion final de los 10 resultados y si tienen una diferencia de 0.005 que me tome el ultimo.

Espero y alguien pueda orientarme.

Saludos para todos.

Hola amigos, alguien sabe como realizar iteraciones?? he utilizado los textboxs pero me da muchos problemas. De hecho un textbox para cada operacion y de ahi voy sumndolos, multiplicandolos, etc.

Alguien me podria guiar??
Gracias