• Sábado 20 de Julio de 2024, 09:34

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - rechy

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Como Graficar Datos?
« en: Jueves 10 de Junio de 2004, 01:46 »
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.

2
Visual Basic 6.0 e inferiores / Problemas Con Printform
« en: Miércoles 7 de Abril de 2004, 15:38 »
Hola amigos.

Tengo en mi formulario un msflexgrid y un boton que ejecuta la instruccion Printform.

Mi pregunta es la siguiente: ¿Porque sera que en algunas maquinas al ejecutar el boton (Printform) la impresion donde tengo el msflexgrid  me sale de color negro y no se ven los datos?

Espero y alguien pueda orientarme.

Saludos.

3
Visual Basic 6.0 e inferiores / Problemas Con Macro En Excel
« en: Jueves 1 de Abril de 2004, 18:35 »
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

4
Visual Basic 6.0 e inferiores / Como Insertar Gifs Animados??
« en: Miércoles 17 de Marzo de 2004, 15:49 »
Hola amigos. No he podido insertar un gif animado a un form.
Me podrian dar alguna pista de como hacerlo??
Gracias.

5
Visual Basic 6.0 e inferiores / Problemas Con Msflexgrid
« en: Martes 9 de Marzo de 2004, 17:56 »
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.

Código: Text
  1.  
  2.  
  3. Private Sub Command1_Click()
  4. Call Estado_Refrescar60
  5.  
  6. Dim SG, SG60 As Single
  7. Dim T As Single
  8. Dim c, R As Integer
  9. Dim BT As Integer
  10.  
  11. BT = 60
  12.  
  13.  
  14. Call Estado_Comp
  15.  
  16. If ((a1.text <> "") And (a2.text <> "") And (t1.text <> "") And (t2.text <> "")) Then
  17. a1.text = Format(a1.text, "#,##0.0000")
  18. a2.text = Format(a2.text, "#,##0.0000")
  19. t1.text = Format(t1.text, "#,##0.0")
  20. t2.text = Format(t2.text, "#,##0.0")
  21.  
  22.     tabla.Cols = (a2 - a1) * 1000
  23.     tabla.Rows = (t2 - t1) * 2 + 2
  24.    
  25.     tabla.TextMatrix(0, 0) = "Temp.°F"
  26.    
  27.     T = t1
  28.     R = 0
  29.     While (T <= t2)
  30.        
  31.         SG = a1
  32.         c = 0
  33.         While (SG <= a2)
  34.    
  35.             If (c = 0) Then
  36.                 tabla.Col = c
  37.                 tabla.Row = R + 1
  38.                 tabla.text = T
  39.             End If
  40.             If (R = 0) Then
  41.                 tabla.Col = c + 1
  42.                 tabla.Row = R
  43.                 tabla.text = SG
  44.             End If
  45.                
  46.             SG60 = calcular_SG(SG, T)
  47.            
  48.                            
  49.             tabla.Col = c + 1
  50.             tabla.Row = R + 1
  51.             tabla.text = SG60
  52.             tabla.text = Format(tabla.text, "#,##0.0000")
  53.                            
  54.                                      
  55.                
  56.            
  57.             SG = SG + 0.002
  58.             c = c + 1
  59.            
  60.         Wend
  61.    
  62.    
  63.         T = T + 0.5
  64.         R = R + 1
  65.     Wend
  66.    
  67.    
  68.  
  69.  
  70.  
  71. Else
  72. Call Estado_Datosporc
  73. End If
  74.  
  75. End Sub
  76.  
  77.  

Gracias por su ayuda

6
Visual Basic 6.0 e inferiores / Enviar Textbox Y Labels A Excel
« en: Jueves 26 de Febrero de 2004, 20:39 »
Hola amigos.

¿Es posible enviar textbox y labels que estan dentro de un Frame a una hoja de excel, pero que me los ponga en el Encabezado de la pagina de excel?

Saludos.

7
Visual Basic 6.0 e inferiores / 1 Duda En Evento Mousemove
« en: Martes 24 de Febrero de 2004, 17:23 »
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

8
Visual Basic 6.0 e inferiores / Como Hacer Demo Tu Proyecto??
« en: Lunes 23 de Febrero de 2004, 18:14 »
Hola amigos. Existe alguna manera de hacer shareware tu proyecto, es decir que solo se utilize durante 1 semana o determinado tiempo y que despues de ahi no puedas seguir utilizandolo una vez que ya esta instalado???

Saludos

9
Visual Basic 6.0 e inferiores / Form Maximizado
« en: Viernes 20 de Febrero de 2004, 17:24 »
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.

10
Visual Basic 6.0 e inferiores / Como Insertar Titulos En Msflexgrid
« en: Jueves 12 de Febrero de 2004, 16:30 »
Hola de nuevo.
Se puede insertar algun titulo en un msflexgrid??
Pero que no vaya dentro de las celdas del mismo, es decir hasta arriba??

Si alguien sabe como espero y pueda ayudarme.

Gracias

11
Visual Basic 6.0 e inferiores / Comparar 2 Numeros
« en: Martes 10 de Febrero de 2004, 23:32 »
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

12
Visual Basic 6.0 e inferiores / Que El Textbox Solo Admita Numeros
« en: Miércoles 4 de Febrero de 2004, 15:57 »
Hola amigos.
He intentado que mi Text1.Textbox solo admita numeros. Lo he hecho con el keypress pero sin ningun exito. Alguien podria darme alguna pista??

Gracias

13
Visual Basic 6.0 e inferiores / Incremetar Columnas Msflexgrid
« en: Lunes 2 de Febrero de 2004, 17:13 »
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

14
Visual Basic 6.0 e inferiores / Msflexgrid A Excel (commandbutton)
« en: Jueves 29 de Enero de 2004, 15:27 »
Hola amigos, quiero saber como pasar todos los datos que obtengo en el Msflexgrid a Excel mediante un Command button pero no logro tener exito.

He visto varios de los codigos que han puesto aqui pero ninguno me ha dado ideas para lograr mi objetivo. Si alguien puede ayudarme se lo agradecere.

Saludos

15
Visual Basic 6.0 e inferiores / Fijar Variables
« en: Miércoles 21 de Enero de 2004, 18:18 »
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.

16
Visual Basic 6.0 e inferiores / Borrar Datos De Un Msflexgrid
« en: Lunes 19 de Enero de 2004, 21:10 »
Que tal amigos.

Tengo un MSFlexGrid con varios datos que calculo con un boton. Quiero poner otro boton que borre todos los datos para volver a calcularlos.

Se como borrar todos los datos de un cuadro de texto mediante el siguiente codigo:

Private Sub Command1_Click()
Dim text As Object
Dim i As Integer
    For Each text In Controls
        If TypeOf text Is TextBox Then
            text.text = ""
        End If

He intentado hacerlo para el Msflexgrid sin exito.

Agradecere sus orientaciones.

Gracias.

17
Visual Basic 6.0 e inferiores / Iteraciones Y Rutinas
« en: Martes 13 de Enero de 2004, 02:33 »
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

18
hola

Antes que nada dejenme felicitarlos por este foro que es de gran ayuda. Y si puedo ayudarles en algo con mucho gusto lo hare.

Estoy realizando una factura en la cual tengo varios textbox que suman, multiplican, sacan IVA, etc. Pero el problema es que no se que instruccion utilizar para poder sumar todos los datos que ingreso en un solo Textbox (Multiline).  Se que tiene que ver con Rows pero siempre sale error. Si alguien pudiera orientarme o aconsejarme se lo agradecere.

Un saludo

De nuevo los felicito por este foro

Páginas: [1]