Mensajes

[Lekim]

Lekim, funciona 100%... gracias!! 

Amigos como puedo cambiar el color del fondo por 5 segundos?

cada vez que presiono un botton llamado Error, este cambiara el color de fondo del form por 5 segundos. y que despues vuelva al color original

Código (vbnet) [Seleccionar] Expandir


Me.BackColor = System.Drawing.Color.OrangeRed


Oye....! Gracias me ha servido bastante......

algo asi fue lo que hice, claro esta es una prueba, pero lo hace.

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    Dim vt(10) As String
    Dim cont As Integer = 0

    Private Sub cargar(ByRef vt() As String)

        vt(0) = "algo"
        vt(1) = "otro"
        vt(2) = "otro algo"
        vt(3) = "algo mas"
        vt(4) = "mucho mas"
        vt(5) = "otro mucho mas"
        vt(6) = "muchas cosas mas"
        vt(7) = "infinitas cosas"
        vt(8) = "infinitas cosas mas"
        vt(9) = "Fin de cosas"


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cargar(vt)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Button1.Text = ""
        Button2.Text = ""

        If cont = 9 Then
            'generar Salir
        Else
            cont = cont + 2
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Text = vt(cont)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button2.Text = vt(cont + 1)
    End Sub
End Class


[text]

Si pones tex, lógico que te de error porque es text.

jajaja 

fijate lo que quiero hacer, tengo una serie de respuestas; ejemplo:

Código (vbnet) [Seleccionar] Expandir


vector(0) = "amarrillo"
vector(1) = "rojo"
vector(3) = "naranja"
vector(4) = "negro"


entonces en un boton(botton_siguiente).
por otro lado tengo 2 botones mas(botton_resp1 y botton_resp2), tengo estos botones para cuando le den clic sobre cada botton(botton_resp1 y botton_resp2) salga:

Código (vbnet) [Seleccionar] Expandir


botton_resp1 ="amarrillo"
botton_resp2 = "rojo"


y cuando presione el boton_siguinte salga=

Código (vbnet) [Seleccionar] Expandir


botton_resp1 ="naranja"
botton_resp2 = "negro"


como puedo hacer eso?....

me tiene loco por que no he podido....

si quiero mostrar un dato al dar clic en un botton, como lo haria?

el funcionamiento es el siguiente, cada vez que le de clic a el mismo boton el cambie la informacion que se muestra alli dentro del boton, crei que si pasaba por parametro el dato a la funcion me funcionaria, pero no funciono, hice esto ps:

Código (vbnet) [Seleccionar] Expandir


Private Sub button_resp1_Click(sender As Object, e As EventArgs, byref res as string) Handles button_resp1.Click
button_resp1.tex = res
end sub


pero me arroja un error:

Código (vbnet) [Seleccionar] Expandir


Error 1 El método 'Private Sub button_resp1_Click(sender As Object, e As System.EventArgs, ByRef res As String)' no puede controlar el evento 'Public Event Click(sender As Object, e As System.EventArgs)' porque no tienen una firma compatible.



que me recomiendadn?

gracias!

[Lekim]

Lekim muy buenas tus ayudas gracias......

para acotar!; segun el profesor el codigo si esta bueno, y para que funcione al 100% tenia que agregarle un espacio al final de la oración, es decir, tenia esto:

Código (vbnet) [Seleccionar] Expandir

Dim oracion As String = "Hola Mundo Como estas?"

agregandole un espacio al final:

Código (vbnet) [Seleccionar] Expandir

Dim oracion As String = "Hola Mundo Como estas?  "

si funciona bien....... jajajaja quede lol....

gracias!

[cambiar_palabra(palabra)]

No entiendo muy bien que es lo que quiere hacer. Además hay lo que parece un Array que no defines cambiar_palabra().

cambiar_palabra(palabra), es una funcion que cambia letras de mayuscula a minuscula y viceversa, pero eso no viene al caso.... esa funcion funciona bien.

[Hola Mundo como estas?]

el problema es el siguiente:

tengo la siguiente oracion: "Hola Mundo como estas?"
y el problema me pide que saque las palabras usando cadena de caracteres,
es decir, me imprima algo haci:
"Palabra1 = Hola"
"Palabra2 = Mundo"
"Palabra3 = como"
"Palabra4 = estas?"

para este caso, tengo que usar las funciones(InStr() y Mid()),  y no puedo usar nada de vectores, matrices ya que se vuelve simple el ejercicio,  me piden que usen las funciones que les indique atras,....

gtacias por su atencion!

[estas]

Saludos!

tengo el siguiente codigo:

Código (vbnet) [Seleccionar] Expandir


       Dim oracion As String = "Hola Mundo Como estas?"  'Trim(TextBox_oracion.Text())
       Dim i As Integer = 1
       Dim posicion As Integer
       Dim palabra As String

       Do
           posicion = InStr(i, oracion, " ")
           If posicion > 0 Then
               palabra = Mid(oracion, i, posicion - i)
               ListBox_separar.Items.Add(cambiar_palabra(palabra))
               posicion = posicion + 1
               i = posicion
           End If
       Loop Until posicion = 0

y quiero que me separe las palabras y me las imprima una por una, pero me imprime esto:

Código (vbnet) [Seleccionar] Expandir


Hola
Mundo
Como

no me esta imprimiendo la palabra estas, donde tendre mi error?....

gracias!

Gracias! me ayudo bastante...... practicamente hicistes todo, solo falto mostrar

Código (vbnet) [Seleccionar] Expandir


        Dim oracion() As String
        Dim contar_vocal As Integer = 0

        oracion = Split(TextBox1.Text)
        For i = 0 To oracion.Count() - 1
            If oracion(i) <> " " Then
                For j = 0 To oracion(i).Length - 1
                    If oracion(i)(j) = "a" Or oracion(i)(j) = "A" Or
                       oracion(i)(j) = "e" Or oracion(i)(j) = "E" Or
                       oracion(i)(j) = "i" Or oracion(i)(j) = "I" Or
                       oracion(i)(j) = "o" Or oracion(i)(j) = "O" Or
                       oracion(i)(j) = "u" Or oracion(i)(j) = "U" Then
                        contar_vocal = contar_vocal + 1
                    End If
                Next
                mostrar.Items.Add(oracion(i) & " Nº Vocales: " & contar_vocal)
                contar_vocal = 0
            End If
        Next