Mensajes

No se entiende la pregunta, reformúlala y di para qué lo quieres hacer

[for]

De nada, gracias a que este año estoy aprendiendo vb en el colegio

Se me ocurre hasta podrías hacer otro textbox dándole al usuario la chance de elegir que letra quitar y que el for verifique si es distinto(<>) a esa letra, y así cuando la encuentre, que le deje quitar cualquier caracter que elija de la cadena

Veo que le estás poniendo empeño y vb es bastante bueno a mi parecer, yo el próximo año tengo C/C++ y el otro java

[e]

Todas las "e" de una cadena o sólo 1 quieres remover?

Pensandolo, en tal caso podrías hacer un for x=1 to Len(cadena) que vaya recorriendo hasta el largo de la cadena y que si el Mid de (cadena, x, 1) es distinto de "e" entonces que guarde la cadena en una variable contenedora o acumulador, luego podrías hacer un contador para controlar si quieres sacar todas las "e" o tan sólo 1

Te muestro un ejemplo que acabo de hacer:

Código (vb) [Seleccionar] Expandir

Private Sub cmdQuitar_Click()

'Declaracion de variables

Dim strCadena As String, strAux As String

'Asignacion de valor

strCadena = LCase(txtValor1.Text)

'Busqueda de "e"'s y eliminacion

For x = 1 To Len(strCadena)
    If Mid(strCadena, x, 1) <> "e" Then
        strAux = strAux + Mid(strCadena, x, 1)
    End If
Next x

'Asignacion de resultado final

lblResultado.Caption = strAux

End Sub

El proyecto por si lo quieres ver y/o probar mejor:
http://www.mediafire.com/?h0cyh53jmgv

Aunque reconozco que Google Chrome debe ser bastante modificado a favor de éste tema de recolección de datos (y no Chronium), la verdad es bastante tentador por lo buen navegador, no se si haya algo para evitar que recojan datos al menos con éste

[Ejemplos:]

Exacto, yo estoy haciendo un programa para que transforme palabras a palindromas

Ejemplos:

• Neuquen
• Anana
• Oso
• Radar

,etc

Lo modifique como me dijiste pero todavía me sigue dando mal, pongo 1 y 20 y me muestra que los pares que hay nada más es "20"

Código (vb) [Seleccionar] Expandir

Private Sub cmdBuscar_Click()

Dim intX As Integer, intY As Integer

intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)

If (intX < intY) Then
   For x = intX To intY
       If (x Mod 2 = 0) Then
           lblResultado.Caption = x & ", "
       End If
   Next x
Else
   For x = intY To intX Step -1
       If (x Mod 2 = 0) Then
           lblResultado.Caption = x & ", "
       End If
   Next x
End If

End Sub

Una imagen:

Hola chicos, bueno les vengo a plantear algo sencillo pero no sé donde está el error, la cosa es que tengo que hacer un programa para el colegio que dados 2 numeros ingresados por el usuario, muestre en un label todos los numeros pares que se encuentran entre ellos separados por una coma, el código en si para averiguar si un numero es par y eso lo tengo bien, pero no logro que me los muestre uno al lado del otro..

El código es:

Código (vb) [Seleccionar] Expandir

Private Sub cmdBuscar_Click()

Dim intX As Integer, intY As Integer, Acum1 As String, Acum2 As String


intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)

If (intX < intY) Then
    For x = intX To intY
        If (x Mod 2 = 0) Then
            Acum1 = Acum1 + x
            lblResultado.Caption = Acum1
        End If
    Next x
Else
    For x = intY To intX Step -1
        If (x Mod 2 = 0) Then
            Acum2 = Acum2 + x
            lblResultado.Caption = Acum2
        End If
    Next x
End If

End Sub



Les dejo el proyecto por si le quieren dar un revisada si es necesario:
Link: http://www.mediafire.com/?mzz1mo2m3wy

Gracias

[no es original]

Sí, exacto, te mostrará que no es original y se te pondrá la pantalla en negro y todo lo demás

[Drivers actualizados]

Sí, Drivers actualizados

Por cierto hice el seguimiento con el GPU-Z, dejo el último resultado del log no sé bien si es que está dentro del rango o no..

Acá el archivo .txt



Esto empezó a suceder una vez que puse la nueva placa de vídeo, antes usaba la onboard y no pasaba nada, la ram está en perfectas condiciones ya le limpié las celdas de memoria y está toda la pc intacta de polvo

La PC dura prendida un rango de 30 min por lo general, varía ya que hay veces que llega a estar prendida 1 hs y media con suerte, pero la mayoría dura ese tiempo

Cuando se me reinicia o mejor dicho, previamente a que se me aparezca la pantalla de color no estoy realizando nada en especial, por ejemplo abro el navegador, o abro alguna pelicula para ver, osea nada en particular..

Estoy en duda si es la gráfica EN SÍ, porque me vino con un adaptador DVI que va conectado con el de VGA del monitor (me figuro que es para convertir el tipo de señal) y no sabía donde conectarlo ya que tiene 2 entradas la placa que entran, probé en la de abajo y ni se veia el monitor, después probé en la de arriba y sí funcionaba pero no se por donde pasará el problema..

Fue después de instalar esta placa a los 2 meses que empezó a pasar, y el adaptador que me vino es así, donde ahí conecto el de VGA, antes no tenía adaptador iba directo el de VGA al mother y usaba la vídeo onboard

Ni idea que coño puede ser

Hola amigos, les vengo a plantear un problema que me viene pasando hace un tiempo y espero que me puedan ayudar porque me dan ganas de tirar la pc al diablo, les paso a comentar:

Cuando uso la pc, en algún momento que ejecuto algo por ejemplo (nada en particular, fuese lo que fuese), la pantalla se me pone toda de color verde sin ningún cartel ni nada, verde en franjas, o a veces toda celeste o de cualquier color y no puedo hacer nada, posterior a ésto se termina reiniciando a los 15 seg perdiendo todo mi trabajo por lo cual no puedo comprometerme a hacer casi nada sin que me decepcione..

Calculo que será algún problema de la placa de vídeo supongo, la verdad no tengo bien idea es por eso que se los vengo a plantear a ustedes ya que la placa de video no sigue con la garantía pero no es muy vieja la compré hace unos meses, es una ATI 5750 aunque no se si se deba a eso el problema o a que...

PD: La fuente es un thermaltake de 600W por las dudas, me figuro que anda perfecta..

Muchas gracias!