• Jueves 18 de Agosto de 2022, 18:05

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.


Mensajes - Jimbenit

Páginas: [1] 2 3 ... 15
1
Cita de: "Nebire"
Perdonad que no haya terminado... pero he estado bastante ocupado.

En las próximas semanas espero encontrar el tiempo suficiente para terminar las partes que quedan...
Tranquilo amigo, este tema es un buen manual de consulta.

2
La taberna del BIT / Re: Feliz Navidad ! - desde Mexico
« en: Lunes 3 de Enero de 2011, 18:54 »
Que tengan un año lleno de Bendiciones  :lol: , Feliz 2011 !!!

3
La taberna del BIT / Re: De vuelta
« en: Jueves 30 de Diciembre de 2010, 14:58 »
;) Claro que me acuerdo de ti, perfectamente !!, como si fuese ayer  :lol:

Yo tambien estoy alejado un poco, de vez en cuando leo algo, es debido a que cambie de trabajo, ahora estoy de constructor de carreteras y muy poco paso en la oficina... En la oficina de vez en cuando me invento algunos formatos en VBA excel que hagan practicamente todo, los nuevos compañeros se impresionan con los "nuevos" formatos de la obra  B) , en mi nuevo trabajo, me va muy bien.

Saludos.

4
Visual Basic para principiantes / Re: Guía: Crear controles de usuario en VB
« en: Miércoles 8 de Septiembre de 2010, 19:05 »
Hice una pregunta estupida  ^_^ , asi que mejor la borro.

P.D.
"(el control una vez compilado pesa más)."
Pensaba lo contrario.  :blink:

Cita de: "F_Tanori"
Movido de viewtopic.php?f=143&t=44068
Motivo : Imprudencia al publicar una duda en una FAQ o Guia  :brickwall:
 

5
Me parece perfecto que hagas un nuevo hilo con la explicacion completa, asi será mas fácil en la busqueda, ayudando mejor a todos y no solo a mi  :good:  :good:

Aunque considero que un hilo asi, debería quedar como fijo, ya que es un tutorial muy util diferente a los que encuentras normalmente en otras páginas. Ojala el MOD de la sección lo coloque como fijo, me hubiese gustado que tu fueras un MOD  :lol: ... asi colocar el tema como fijo seria mas sencillo.

Bueno, a estudiar !!, necesito aprender bien este tema  ^_^

6
Citar
también conviene que el código lo vayas redactando a la par que yo me explico para que puedas ir probando...
Me parece bien.
Pero te pedire que pares 1 día para ir probando. Mañana no publiques nada para que me de tiempo de alcanzarte  ^_^ ....
El día de mañana probare todas las cosas minuciomente para luego hacerte las preguntas que me asalten.

Eres muy valioso Nebire, ya impresionaste a mi novia que también te lee  :lol:

7
Volviste de las vacaciones con todas las baterias puestas (espero que sigas asi por mucho mas tiempo)  :lol:  
(aun te sigo leyendo, con tu explicacion se me vienen muchas ideas a la cabeza, pero no me apresuraré, esperaré ver el final de tu artículo antes de hacer cualquier cosa)...

Espero mas de tu valiosa explicacion.  :good:

8
Visual Basic para principiantes / Re: Como alinear el texto de un ListBox?
« en: Lunes 6 de Septiembre de 2010, 13:58 »
Cita de: "Nebire"
Cuando acabemos con el control del botón si quieres hacemos uno de tipo listbox con estas ideas en mente.

Claro que si, amigo Nebire.
Me parecería perfecto, en los libros aveces se quedan cortos con algunos ejemplos sobre controles, veo que tu explicacion es muy completa y me gustaria muchisimo leerla con atencion.

Saludos.

9
Visual Basic para principiantes / Re: Como alinear el texto de un ListBox?
« en: Sábado 4 de Septiembre de 2010, 06:44 »
Si, amigo Nebire, te comprendo, pero al mismo tiempo veo que no es corto, y complica mas el codigo.
Entomnces, lo recomendable es no usar alineacion en los Textos del List box pero en caso de que sea absolutamente necesario, lo que se hace es aplicar esto.
Pense que se podria hacer mas corto, usando algun metido o propiedad que no conocia.

Pero es muy interesante lo que dices. Por fin conoci la solución y eso es gracias a ti.
saludos amigo Nebire.

10
Estare en primera fila siguiendo este pequeño curso que preparas para mi.  B)
Ufff, no sabes cuanto te lo agradezco !!

Leyendoooo  y aprendiendo mas ^_^
Y claro que tendré paciencia, creo que soy el que la pide amigo !!!

11
La taberna del BIT / Re: Feliz Cumpleaños
« en: Viernes 27 de Agosto de 2010, 00:51 »
Cita de: "juez"
muchas gracias amigos!! :good:  :good:

Yo tambien me sumo a felicitarte. Mejor es tarde que nunca  :good:

12
Dudas informáticas / Voy a Crear una Emisora OnLine, Alguna sugerencia ?
« en: Viernes 27 de Agosto de 2010, 00:34 »
Hola amigos.

Quiero pedirles una sugerencia. Que herramientas o bajo que cosa me recomiendan hacer la emisora?
(iba a empezar con ShoutCast de Winamp, es gratis y muy sencillo pero quiero ver mas opciones)
saludos.

13
Visual Basic para principiantes / Como alinear el texto de un ListBox?
« en: Martes 24 de Agosto de 2010, 22:07 »
Hola amigos, alguien sabe bajo que propiedad o comando se puede alinear el texto mostrado en un list box ?  :mellow:


saludos.

14
Visual Basic para principiantes / Re: Este codigo me genera un Error
« en: Jueves 19 de Agosto de 2010, 18:02 »
Lee las indicaciones en el siguiente codigo

Código: Visual Basic
  1. Option Explicit
  2. Dim x, y As Integer     '<---- Aqui "x" es variant y "y" es Integer. Si quieres decir que las dos son Integer, haz asi: Dim x as integer, y as integer
  3.  
  4. Private Sub cmdComenzar_Click()
  5. x = CInt(Rnd() * (9 - 1) + 1)
  6. End Sub
  7.  
  8. Private Sub cmdComparar_Click()
  9. txty = y                    '<--- inicialmente "y" vale cero (0), el valor en el txty es el que el usuario digita pero éste es borrado por el valor de y = 0 (aqui hay un error de tu logica). Si yo fuera tu, yo haria en esta linea: y = txty
  10. If x > y Then MsgBox " Intente de nuevo el numero es Mayor"
  11. If x < y Then MsgBox " Intente de nuevo el numero es Memor"
  12. else x = y Then MsgBox "Enhorabuena aceptaste vuelve a jugar"     '<---  Error. Comando Else de una sola linea? y que incluye una condicion? (No confundas con el "Elseif"), te recomiendo estudiar mas el if ... then .... else... [end if]
  13.  
  14.  
  15. End Sub
  16.  
  17. Private Sub cmdLimpiar_Click()
  18. txty = Empty
  19. txty.SetFocus
  20. End Sub
  21.  
  22.  
  23.  
  24. Private Sub Form_Activate()
  25. Randomize
  26. cmdLimpiar.Enabled = False
  27. cmdComparar.Enabled = False
  28. End Sub
  29. Private Sub txty_Change()
  30. cmdLimpiar.Enabled = True
  31. cmdComparar.Enabled = True
  32. End Sub
  33.  
  34.  

15
Visual Basic para principiantes / Re: Leer item de ComboBox de otra aplicación
« en: Jueves 19 de Agosto de 2010, 17:50 »
Cita de: "F_rank_cisco"
Despues de muchas pruebas, lo he solucionado.
podrias decir como lo hiciste ?

16
Visual Basic 6.0 e inferiores / Re: mascara de entrada
« en: Miércoles 18 de Agosto de 2010, 01:27 »
Lo que se me ocurre es que uses el evento keypress en dicha mascara y uses codigo para saltar los espacios que dices.  :mellow:

17
Cita de: "Nebire"
Creando un control OCX.
Ahora estoy de vacaciones así que sólo me pao de tanto en tanto por el foro ni puedo dedicarle tiempo.
Para finales de agosto regreso, si no tienes mucha prisa para entonces te pongo un ejemplo...
Perfecto... disfruta de las vacaciones amigo...  ^_^   :good:

18
Visual Basic 6.0 e inferiores / Boton Dibujado en un picture. Necesito una Sugerencia
« en: Miércoles 4 de Agosto de 2010, 23:18 »
Hola amigos de solocodigo.

En esta ocasion estoy creando un "boton de comando" pero que se dibuje en un picture.

Los codigos son los siguientes:
Modulo
Código: Visual Basic
  1. Option Explicit
  2.  
  3. Public Sub Boton(PictureKE As PictureBox, Formulario As Form, Ancho As Single, Alto As Single, _
  4. PosX As Single, PosY As Single, Color_Borde As Long, Optional Color_Fondo_PictureKE As Long = vbBlack, _
  5. Optional Texto As String = "", Optional Tamaño_Letra As Integer = 9, Optional Color_Texto As Long = vbWhite, _
  6. Optional X_MOV As Single = 0, Optional Y_MOV As Single = 0, Optional Color_Fondo_Boton As Long = vbBlack, _
  7. Optional Color_Fondo_Boton2 As Long = vbYellow, _
  8. Optional Color_Texto2 As Long = vbRed, Optional Color_Fondo_Boton3 As Long = vbYellow, _
  9. Optional Color_Texto3 As Long = vbMagenta, Optional Click_Down As Boolean = False)
  10.  
  11. 'X_MOV y Y_MOV son las coordenadas del mouse, estas variables se activaran en el evento mouse move del picture, mientras
  12. 'estaran con valor = 0
  13. 'Color_Fondo_Boton2 es el color que toma el fondo del boton cuando el mouese esta sobre él
  14. 'Color_Texto2 es el color que toma el texto cuando el mouese esta sobre el boton
  15.  
  16. 'Color_Fondo_Boton3 es el color que toma el fondo del boton cuando se ejecuta Mouse Down
  17. 'Color_Texto3 es el color que toma el texto cuando se ejecuta Mouse down
  18.  
  19.  
  20. 'Click_Down es True en el momento que se ejecute el evento Mouse_Down del picture
  21. 'Click_Up es True en el momento que se ejecute el evento Mouse_Up del picture
  22.  
  23. 'acomodando el pcicture
  24. 'Call Acomodando_Picture(PictureKE, Formulario)
  25.  
  26. Dim Long_Texto As Single 'Longitud del texto
  27. Dim Alt_Texto As Single 'Altura del texto
  28. Long_Texto = PictureKE.TextWidth(Texto)
  29. Alt_Texto = PictureKE.TextHeight(Texto)
  30.  
  31.     'Cambiando el color de fondo del boton, si el mouese esta sobre el boton
  32.     If X_MOV >= PosX And X_MOV <= (PosX + Ancho) And Y_MOV >= PosY And Y_MOV <= (PosY + Alto) Then
  33.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton2, BF
  34.         'escribimos el texto siempre y cuando quepa dentro del boton
  35.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  36.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto2, Texto)
  37.         End If
  38.    
  39.     'Cambiando el color del boton si hay click
  40.     If Click_Down = True Then
  41.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton3, BF
  42.         'escribimos el texto siempre y cuando quepa dentro del boton
  43.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  44.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto3, Texto)
  45.         End If
  46.     End If
  47.    
  48.     Else
  49.         'restableciendo el fondo del boton
  50.         PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Fondo_Boton, BF
  51.         'escribimos el texto siempre y cuando quepa dentro del boton (Boton normal)
  52.         If Long_Texto < Ancho And Alt_Texto < Alto Then
  53.             Call Escribir_Texto_V2(PictureKE, Color_Fondo_PictureKE, Tamaño_Letra, PosX + Ancho / 2 - Long_Texto / 2, PosY + Alto / 2 - Alt_Texto / 2, Color_Texto, Texto)
  54.         End If
  55.     End If
  56.    
  57.    
  58. 'dibujando el borde exterior
  59. PictureKE.Line (PosX, PosY)-(PosX + Ancho, PosY + Alto), Color_Borde, B
  60.  
  61.  
  62. End Sub
  63.  
  64. Sub Escribir_Texto_V2(PictureKE As PictureBox, Color_PictureKE As Long, TamañoLetra As Integer, _
  65. PosX As Single, PosY As Single, Color_Texto As Long, Texto As String, Optional ByRef Delta_X As Single)
  66.     Dim Delta_X_OLD As Single
  67.     Delta_X_OLD = Delta_X
  68.     'Delta_X es la coordenada X donde se termina de escribir la palabra
  69.     'Texto es la palabra escrita
  70.    
  71.     PictureKE.PSet (PosX, PosY), Color_PictureKE
  72.    
  73.    
  74.    
  75.     PictureKE.ForeColor = Color_Texto
  76.     PictureKE.FontSize = TamañoLetra
  77.     PictureKE.Print Texto;
  78.     Delta_X = PictureKE.CurrentX
  79.    
  80.     If Delta_X < Delta_X_OLD Then
  81.         Delta_X = Delta_X_OLD
  82.     End If
  83.    
  84.    
  85. End Sub
  86.  
  87. Public Sub Acomodando_Picture(PictureKE As PictureBox, Formulario As Form)
  88. 'Acomoda el picture en el form
  89. With PictureKE
  90.     .Top = 0
  91.     .Left = 0
  92.     .Width = Formulario.ScaleWidth
  93.     .Height = Formulario.ScaleHeight
  94.     .BackColor = vbBlack
  95.     .AutoRedraw = True
  96. End With
  97. End Sub
  98.  
  99.  

Y para dibujar 3 botones en el formulario, hago lo siguiente en el procedimiento Load de dicho formulario:
Código: Visual Basic
  1. Public Click_Down As Boolean
  2.  
  3. Public Ancho1 As Single, Alto1 As Single, X1 As Single, Y1 As Single
  4. Public Ancho2 As Single, Alto2 As Single, X2 As Single, Y2 As Single
  5. Public Ancho3 As Single, Alto3 As Single, X3 As Single, Y3 As Single
  6.  
  7.  
  8. Private Sub Form_Resize()
  9.    
  10. Call Acomodando_Picture(Picture1, Me)
  11.  
  12.     'Variables de tamaños de botnes
  13.     Ancho1 = Me.ScaleWidth * 0.1: Alto1 = Me.ScaleHeight * 0.05
  14.     X1 = Me.ScaleWidth * 0.1: Y1 = Me.ScaleHeight * 0.1
  15.    
  16.     Ancho2 = Me.ScaleWidth * 0.1: Alto2 = Alto1
  17.     X2 = X1 + Ancho1 * 1.5: Y2 = Y1
  18.    
  19.     Ancho3 = Me.ScaleWidth * 0.1: Alto3 = Alto1
  20.     X3 = X2 + Ancho2 * 1.5: Y3 = Y2
  21.    
  22.     Call Boton1
  23.     Call Boton2
  24.     Call Boton3
  25. End Sub
  26.  
  27. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  28.     Click_Down = True
  29.     Call Boton1(X, Y)
  30.     Call Boton2(X, Y)
  31.     Call Boton3(X, Y)
  32.    
  33.     Call Click(X, Y)
  34. End Sub
  35.  
  36. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  37.     Call Boton1(X, Y)
  38.     Call Boton2(X, Y)
  39.     Call Boton3(X, Y)
  40. End Sub
  41.  
  42. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  43.     Click_Down = False
  44.     Call Boton1(X, Y)
  45.     Call Boton2(X, Y)
  46.     Call Boton3(X, Y)
  47. End Sub
  48.  
  49.  
  50. Private Sub Boton1(Optional ByRef X As Single, Optional ByRef Y As Single)
  51.     Call Boton(Picture1, Me, Ancho1, Alto1, X1, Y1, vbGreen, , "Text1", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  52. End Sub
  53.  
  54. Private Sub Boton2(Optional ByRef X As Single, Optional ByRef Y As Single)
  55.     Call Boton(Picture1, Me, Ancho2, Alto2, X2, Y2, vbGreen, , "Text2", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  56. End Sub
  57.  
  58. Private Sub Boton3(Optional ByRef X As Single, Optional ByRef Y As Single)
  59.     Call Boton(Picture1, Me, Ancho3, Alto3, X3, Y3, vbGreen, , "Text3", , , X, Y, , vbGreen, vbBlue, , , Click_Down)
  60. End Sub
  61.  
  62. Private Sub Click(X As Single, Y As Single)
  63.     If X >= X1 And X <= (X1 + Ancho1) And Y >= Y1 And Y <= (Y1 + Alto1) Then
  64.         'Click del primer boton
  65.         MsgBox ("Boton1")
  66.     ElseIf X >= X2 And X <= (X2 + Ancho2) And Y >= Y2 And Y <= (Y2 + Alto2) Then
  67.         'Click del segundo boton
  68.         MsgBox ("Boton2")
  69.     ElseIf X >= X3 And X <= (X3 + Ancho3) And Y >= Y2 And Y <= (Y3 + Alto3) Then
  70.         'Click del tercer boton
  71.         MsgBox ("Boton3")
  72.     End If
  73.    
  74. End Sub
  75.  
  76.  
  77.  

Como resultado se visualiza los "botones" dibujados en el picture, asi:

En el codigo pueden ver que cuando el mouse pasa por encima del boton, este cambia de color, lo mismo cuando se ejecuta el evento Mouse_Down del picture.

Mi pregunta es la siguiente:
Hay alguna manera de hacer esto sin que se coloque tanto codigo en el Form_Load ?
Necesito sugerencias.


Un saludo y de verdad, muchas gracias.

19
Visual Basic para principiantes / Re: Principiante
« en: Viernes 30 de Julio de 2010, 22:35 »
Ah, ok, apenas empiezas a experimentar.
El amigo F_tanori te ha contestado correctamente, pero si estas empezando es posible que no entiendas bien eso.
Cita de: "sergiocg"
Estoy iniciándome en Visual Basic y me gustaría a ver si alguien me aporta algo de luz sobre esto. Estoy intentando pasar las coordenadas del ratón al Caption del Formulario, pero no me sale, sólo consigo pasarle una coordenada.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Caption = X + "-" + Y
End Sub

Quiero seguir con tu ejemplo, solo te falto el & en lugar de los signos "+", asi:
Código: Visual Basic
  1. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2.     Form1.Caption = X & "-" & Y
  3. End Sub
  4.  
  5.  

Saludos.

20
Visual Basic 6.0 e inferiores / Re: Coordenadas (x,y) cuando escribo en picture
« en: Miércoles 28 de Julio de 2010, 00:59 »
Gracias Nebire  B)

(posteo de nuevo, para que veas los resultados ya que edite el post   :P )

21
Visual Basic 6.0 e inferiores / Re: Coordenadas (x,y) cuando escribo en picture
« en: Martes 27 de Julio de 2010, 17:48 »
Ya las probe y funcionan excelente, me gusto mucho el metodo textwidth para este caso...
Que te puedo decir?, muchas gracias amigo Nebire  :good:



Código: Visual Basic
  1. Sub Escribir_Texto_ConLinea(PictureKE As PictureBox, Color_PictureKE As Double, TamañoLetra As Integer, _
  2. PosX As Single, PosY As Single, Color_Texto As Double, Texto As String, Optional ByRef Delta_X As Single)
  3.     Dim Delta_X_OLD As Single
  4.     Delta_X_OLD = Delta_X
  5.     'Delta_X es la coordenada X donde se termina de escribir la palabra
  6.    'Texto es la palabra escrita
  7.    
  8.     PictureKE.PSet (PosX, PosY), Color_PictureKE
  9.    
  10.    
  11.    
  12.     PictureKE.ForeColor = Color_Texto
  13.     PictureKE.FontSize = TamañoLetra
  14.     PictureKE.Print Texto;
  15.     Delta_X = PictureKE.CurrentX
  16.    
  17.     If Delta_X < Delta_X_OLD Then
  18.         Delta_X = Delta_X_OLD
  19.     End If
  20.    
  21.    
  22. End Sub
  23.  

Luego hago lo siguiente en donde llamo a este procedimiento:
Código: Visual Basic
  1. 'INCORPORANDO TEXTOS
  2.         Dim XF As Single 'XF almacen al coordenada X despues de escribir el texto
  3.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, Y, Color_Text, "Flow Rate: ", XF)
  4.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 1.3 * Y, Color_Text, "Temperatura (ºC): ", XF)
  5.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 1.6 * Y, Color_Text, "Liquid Max Flux : ", XF)
  6.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 1.9 * Y, Color_Text, "Desired Effluent Oxygen : ", XF)
  7.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 2.2 * Y, Color_Text, "Desired Effluent CO2 : ", XF)
  8.        
  9.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 2.8 * Y, Color_Text, "Diameter : ", XF)
  10.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 3.1 * Y, Color_Text, "Packing Height : ", XF)
  11.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 3.4 * Y, Color_Text, "Reservoir : ", XF)
  12.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 3.7 * Y, Color_Text, "Inlet : ", XF)
  13.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 4 * Y, Color_Text, "Outlet : ", XF)
  14.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 4.3 * Y, Color_Text, "Vacuum : ", XF)
  15.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 4.6 * Y, Color_Text, "Relationship Vaccum : ", XF)
  16.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, X + 1.25 * Ancho_TOW, 4.9 * Y, Color_Text, "Packing Type : ", XF)
  17.        
  18.        
  19.        
  20.         'Resultados de los textos anteriores
  21.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, Y, Color_Resultados, Valor_Flow_Rate & " m^3/s")  'flow rate
  22.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 1.3 * Y, Color_Resultados, Valor_Temperatura & " ºC") 'temperatura
  23.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 1.6 * Y, Color_Resultados, Valor_Liquid_Max_Flux & " Kg/m^2/s") 'liquid Max Flux
  24.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 1.9 * Y, Color_Resultados, Valor_Desired_Effluent_Oxygen & " mg/L") 'desired oxygen
  25.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 2.2 * Y, Color_Resultados, Valor_Desired_Effluent_CO2 & " mg/L") 'desired co2
  26.        
  27.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 2.8 * Y, Color_Resultados, Valor_Diameter & " m") 'diametro
  28.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 3.1 * Y, Color_Resultados, Valor_Packing_Height & " m") 'altura del shell
  29.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 3.4 * Y, Color_Resultados, Valor_Reservoir & " m") 'altura reserva
  30.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 3.7 * Y, Color_Resultados, Valor_inlet & " m^3") 'entrada de liquido ??? es m^3 ?
  31.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 4 * Y, Color_Resultados, Valor_Outlet & " m^3") 'salida de liquido ??? es m^3 ?
  32.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 4.3 * Y, Color_Resultados, Valor_Vacuum & " mm Hg") 'vacuum presion
  33.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 4.6 * Y, Color_Resultados, Valor_Relationship_Vacuum) 'vacuum ralacion
  34.         Call Escribir_Texto_ConLinea(PictureKE, Color_PictureKE, 9, XF + 2 * D_Dist, 4.9 * Y, Color_Resultados, Packing_Type) 'Packing type
  35.  

y bueno, me funciono bien...  :P

22
Visual Basic 6.0 e inferiores / Re: Coordenadas (x,y) cuando escribo en picture
« en: Sábado 24 de Julio de 2010, 20:42 »
jajjaja gracias amigo Nebire, pero juraria que con currentx me dio un valor que no esperaba, pero de inmediato reviso...

23
Visual Basic 6.0 e inferiores / Coordenadas (x,y) cuando escribo en picture
« en: Miércoles 21 de Julio de 2010, 22:43 »
Saludos amigos de solocodigo.

Mi duda es cuando escribo en un picture por medio del siguiente sub:

Código: Visual Basic
  1. Sub Escribir_Texto(PictureKE As PictureBox, Color_PictureKE As Long, TamañoLetra As Integer, _
  2. PosX As Single, PosY As Single, Color_Texto As Long, Texto As String)
  3.  
  4.     'Colocamos un punto de igual color del fondo del pictureke, esto hará que el punto se "pierda"
  5.     'Esto se hace para ganar la posicion del cursor a la hora de escribir el texto
  6.     PictureKE.PSet (PosX, PosY), Color_PictureKE
  7.  
  8.     PictureKE.ForeColor = Color_Texto
  9.     PictureKE.FontSize = TamañoLetra
  10.     PictureKE.Print Texto
  11.  
  12. End Sub
  13.  

Necesito saber la coordenada x una vez termino de escribir en el picture.
La siguiente imagen explica mejor lo que deseo:


En la imagen, yo escribo en el picture en la coordenada (x,y), alli empiezo a escribir la palabra "Temperatura", una vez termino de escribir, el cursor se desplaza automaticamente a la derecha cada vez que escribe las letras de la palara "Temperatura", la pregunta es:
Como saber cual es la distancia que se desplazo el cursor cuando termino de escribir " Temperatura"?
es decir, Como saber cual es la nueva coordenda (X + delta X , Y)?
siendo delta X la distancia de la palabra "Temperatura" ?


Alguna idea?

Saludos.

24
VB .NET / Duda con StreamReader: Concepto, alguien me explica?
« en: Jueves 17 de Junio de 2010, 00:05 »
Hola compañeros de solocodigo

En esta ocasión me gustaria que alguien me explicará el porque del siguiente error, lo solucioné pero aun no se la explicación.

Lo que quiero hacer es escribir unos lineas de texto en un archivo de txt, esto se hace asi:
Código: vb.net
  1. Imports System
  2. Imports System.IO
  3.  
  4.  
  5. Module Module1
  6.  
  7.     Sub Main()
  8.  
  9.         Dim FS As FileStream
  10.         Dim SW As StreamWriter
  11.         Dim STR As String
  12.  
  13.         Try
  14.             'crear un flujo hacie el ficher txt
  15.             FS = New FileStream("d:doc.txt", FileMode.Append, FileAccess.Write)
  16.             SW = New StreamWriter(FS)
  17.  
  18.             Console.WriteLine("Escriba una linea y pulse enter, para terminar solo pulse enter")
  19.             STR = Console.ReadLine
  20.             While STR <> Nothing
  21.                 'escribe la linea en el fichero
  22.                 SW.WriteLine(STR)
  23.                 'siguiente linea
  24.                 STR = Console.ReadLine
  25.             End While
  26.  
  27.         Catch ex As IOException
  28.             Console.WriteLine("Error : " & ex.Message)
  29.         Finally
  30.             If (Not SW Is Nothing) Then SW.Close()
  31.         End Try
  32.  
  33.     End Sub
  34.  
  35. End Module
  36.  

el codigo anterior funciona bien, ahora miren el siguiente codigo:
Código: vb.net
  1. Imports System
  2. Imports System.IO
  3.  
  4.  
  5. Module Module1
  6.  
  7.     Sub Main()
  8.  
  9.         Dim FS As FileStream
  10.         Dim SW As StreamWriter
  11.         Dim STR As String
  12.  
  13.         Try
  14.             'crear un flujo hacie el ficher txt
  15.             FS = New FileStream("d:doc.txt", FileMode.Append, FileAccess.Write)
  16.             SW = New StreamWriter(FS)
  17.  
  18.             Console.WriteLine("Escriba una linea y pulse enter, para terminar solo pulse enter")
  19.             STR = Console.ReadLine
  20.             While STR <> Nothing
  21.                 'escribe la linea en el fichero
  22.                 SW.WriteLine(STR)
  23.                 'siguiente linea
  24.                 STR = Console.ReadLine
  25.             End While
  26.  
  27.         Catch ex As IOException
  28.             Console.WriteLine("Error : " & ex.Message)
  29.             'Finally  <== suprimida
  30.             '   If (Not SW Is Nothing) Then SW.Close()  <== y esta tambien la quite
  31.         End Try
  32.  
  33.     End Sub
  34.  
  35. End Module
  36.  
  37.  

quite dos lineas que sirven para cerrar el flujo de la clase streamwriter, se supone que el VB debe cerrar este flujo en caso de que yo no lo haga, pero tal parece que no y como resultado, las lineas de texto no se escriben.

¿Hay alguna explicación del porque sucede esto?

saludos.

25
Visual Basic 6.0 e inferiores / Re: 2 acciones en un boton
« en: Jueves 10 de Junio de 2010, 01:24 »
Cita de: "electromanuel"
q tal? tengo una duda, como puedo crear dos acciones, como por ejemplo, mostrar un label "ENCENDIDO" al presionar un boton, y al presionarlo de nuevo q diga "APAGADO"

Gracias.

seria bueno que empezaras la lectura de algun libro de VB6.0, son baratos y muy educativos, busca uno de nivel basico y luego que creas saber bien, te buscas uno mas avanzado...

saludos.

P.D.
Recuerda que esto es solocodigo no solotareas
 ^_^

Páginas: [1] 2 3 ... 15