Mensajes

[Información adicional: Índice fuera de los límites de la matriz]

Hola amigos!, estoy haciendo un codigo que me piden: dada una oracion, tomar cada palabra de dicha oracion una ves contar las vocales de cada palabra y mostrarla. He programado lo siguiente:

Código (vb) [Seleccionar] Expandir


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles procesar.Click

       Dim palabra(), oracion() As String
       Dim letra As String
       Dim indice As String = 1
       Dim contar_vocal As Integer = 0
       Dim i As Integer

       oracion = Split(TextBox1.Text)

       For i = 0 To Len(TextBox1.Text)
           If i > 0 Then
               For long_pal = 1 To Len(oracion(i)) + 1
                   letra = Mid(oracion(i), 1, long_pal)

                   Select Case letra
                       Case "a"
                           contar_vocal = contar_vocal + 1
                       Case "A"
                           contar_vocal = contar_vocal + 1
                       Case "e"
                           contar_vocal = contar_vocal + 1
                       Case "E"
                           contar_vocal = contar_vocal + 1
                       Case "i"
                           contar_vocal = contar_vocal + 1
                       Case "I"
                           contar_vocal = contar_vocal + 1
                       Case "o"
                           contar_vocal = contar_vocal + 1
                       Case "O"
                           contar_vocal = contar_vocal + 1
                       Case "u"
                           contar_vocal = contar_vocal + 1
                       Case "U"
                           contar_vocal = contar_vocal + 1
                   End Select
                   letra = ""
               Next
               '                mostrar.Items.Add(letra)
               ' mostrar.Items.Add(oracion(i))
               ' mostrar.Items.Add(" Numeros de Vocales: ")
               ' mostrar.Items.Add(contar_vocal)
               contar_vocal = 0
           Else
               '  mostrar.Items.Add(oracion(i))
           End If
           i = i + 1
       Next

   End Sub


me arroja un error en:

Código (vbnet) [Seleccionar] Expandir

For long_pal = 1 To Len(oracion(i)) + 1
el siguiente Información adicional: Índice fuera de los límites de la matriz.

me pueden ayudar?...

Gracias!!

como podria hacer  para copiar el historial de navegacion de los exploradores en W7, es decir que todo sitio web que visite quede guardarlo de modo que cuando se limpie el historial de los navegadores, quede guardado un un archivo auxiliar... es posible??

Saludos!  amigos tengo un problema con mi lapto, cuando la enciendo, los botones de de la pila y wifi encienden pero el boton de disco duro no enciende, no da video, ni siquiera muestra la imagen de arranque, y tampoco emite ningun tipo de pitidos......

cuando la enciendo el procesador y tarjeta de video integrada se calientan lo normal, pero el fan cooler no enciende, decidi probar el fan cooler por aparte y esta bien, encendio, lo conecte a un USB de un CPU funcionando..... por lo que descarto q esta malo el fan cooler,...... y repito presiono el boton de encendido, los led de bateria y wifi encienden, el procesador esta funcionando por que esta  calentando, al igual que la tarjeta integrada de video.... cual podra ser la falla???......

ayudenme por favor, ya que aqui una lapto estan muy caras y quiero arreglar la mia......

Saludos amigos y Feliz Año!!! 

tengo un lenovo A376 y el SO se puso extraño,  cambia de tema, se pega mucho y se han desaparecido opciones administrativas(ej: cuando preciono el boton de "Power" me sale solo la opcion de "Apagar" cuando al principio me salia:"Apagar, Reiniciar,Modo Avion, Vibrar, sonar.") entonces opte por formatear el telefono completo, instalarle de nuevo el S.O. pero cuando trate de entrar en Mode Recovery para instalar de nuevo un SO me sale el signo de android con un signo de interrogacion rojo. y no puedo hacer nada, he buscado aplicaciones para Flashear el celular pero ninguna funciona, he usado:
-Descargadas desde Google play: ROM Mananger, Universal androot
-descargadas desde la PC: RecoverX,

y no me han funcionado ninguna, podrian ayudarme! a flashear mi celular??,,,,, gracias!

Se pueden espiar las conversaciones de whatsapp?????

hice otras pruebas, y note que es el disco duro que esta fallando, pueda que sea algun sector del disco. 

pero lo extraño es que es un disco sata de 80 gb y anteriormente tenia windows xp,  hace 3 dias lo formatee e instale ubuntu 14 y 2 dias despues me dio esa falla.

mira lo que muestra:




ejecute el fsck /dev/sda1

y muestra un error: este_>

Código (div) [Seleccionar] Expandir


ubuntu@ubuntu:~$ sudo fsck /dev/sda1
fsck desde util-linux-ng 2.17.2
fsck: fsck.ntfs: no se encontró
fsck: Error 2 mientras se ejecutaba fsck. ntfs para /dev/sda1
ubuntu@ubuntu:~$




aplique el

Código (div) [Seleccionar] Expandir


fdisk -l


y nada, no hizo nada, ahora la Bios si me reconoce el disco duro, por otra parte tengo 2 HDD uno para  windows y datos(HDD IDE) y otro para ubuntu(HDD SATA) solo, iniciando el sistema me muestra el recuadro de ubuntu para seleccionar el sistema que voy a  usar, si selecciono windows me levanta el sistema normal y puedo trabajar en el,  pero si selecciono ubuntu me pasa lo que comente arriba.


saludos!

[CHECK NVRAM]

otra cosa que esta haciendo y que no hacia es que tarda un poco mas de lo normal cuando inicia la Bios, es decir cuando esta reconociendo los  periféricos, tarda un poco y sale al finas des escritorio CHECK NVRAM y eso no lo mostraba antes.