Programa de palabras agudas

[Hildergarn]

Saludos que tal. Alguien conoce de VB algún programa sencillo que al introducir una palabra me diga si una palabra es aguda o no, asi de simple. He tratado de elaborarlo hasta donde se de VB pero no he podido. Cualquier ayuda se le agradece de antemano.

[Eternal Idol]

No creo que se sencillo, siempre vas a necesitar que la palabra que lleve tilde lo tenga escrito de lo contrario el resultado sería falso. Hay que separar en silbaras (teniendo en cuenta diptongos, triptongos, hiatos, etc) y determinar donde se encuentra el acento y si esta escrito.

[Hildergarn]

jeje ya veo que si. Por lo menos no conocés algun site donde puedan darme al menos tips de esta indole

[Instru]

Donde puedas encontrarlo no.
Pero puedes hacerlo tu.
Crea una lista de todas las palabras agudas existentes, y luego crea una funcion que compare la palabr que tu quieras con todas las de la lista y si una cincide entonces es aguda.

Saludos

[Eternal Idol]

Instru : Eso ya seria mucho mas aburrido je.

Hildergarn : Despues cuando tenga tiempo te voy a pasar un programita que te va a servir.

[jrp01]

Seria mejor compara la cadena ingresada con las reglas de las agudas, si termina en n,s o vocal y tiene acento en la ultima vocal (ó,á,é,ú).

En pocas palabras comparar la ultima letra si es n,s o vocal si es n o s ir a la penultima letra y ver si es vocal y si tiene ´ si no simplemente comparar si la ultima tiene ´ si no lo tiene de todas manera hay que comparala para ver si cabe dentro de las reglas. A unque claro va a ver lio en los tiempos si es pasado o presente mejor guiate por el ´ y las reglas.

[Eternal Idol]

Brújula: termina en vocal y no tiene acento en la ultima vocal, es grave si no separas en silabas.

Aunque si solo se quiere saber si es aguda o no, funcionaria bien.

[Eternal Idol]

Bueno, este codigo debe tener como un lustro pero funciona y supongo que te servira para guiarte:

Código:

Function UltimaSilaba(Data As String) As String
On Error Resume Next
For a = 1 To Len(Data)
  If EsVocal(Mid(Data, Len(Data) - a, 1)) = True And EsVocal(Mid(Data, Len(Data) - a - 1, 1)) = True Then
    If Debil(Mid(Data, Len(Data) - a, 1)) = False And Debil(Mid(Data, Len(Data) - a - 1, 1)) = False Then
      UltimaSilaba = Right(Data, a + 1)
      Exit Function
    End If
  End If
  If EsVocal(Mid(Data, Len(Data) - a, 1)) = False And EsVocal(Mid(Data, Len(Data) - a - 1, 1)) = True Then
    UltimaSilaba = Right(Data, a + 1)
    Exit Function
  End If
Next
End Function

Function UltimaVocal(Data As String) As String
On Error Resume Next
Dim TempA As Integer
For a = 0 To Len(Data) - 1
  If EsVocal(Mid(Data, Len(Data) - a, 1)) = True And EsVocal(Mid(Data, Len(Data) - a + 1, 1)) = False Then
    TempA = a + 1
  End If
Next
UltimaVocal = Right(Data, TempA)
End Function

Function EsVocal(Letra As String) As Boolean
On Error Resume Next
If LCase(Letra) = "a" Then EsVocal = True
If LCase(Letra) = "e" Then EsVocal = True
If LCase(Letra) = "i" Then EsVocal = True
If LCase(Letra) = "o" Then EsVocal = True
If LCase(Letra) = "u" Then EsVocal = True
If LCase(Letra) = "á" Then EsVocal = True
If LCase(Letra) = "é" Then EsVocal = True
If LCase(Letra) = "í" Then EsVocal = True
If LCase(Letra) = "ó" Then EsVocal = True
If LCase(Letra) = "ú" Then EsVocal = True
End Function

Function EsVocalAcentuada(Letra As String) As Boolean
On Error Resume Next
If LCase(Letra) = "á" Then EsVocalAcentuada = True
If LCase(Letra) = "é" Then EsVocalAcentuada = True
If LCase(Letra) = "í" Then EsVocalAcentuada = True
If LCase(Letra) = "ó" Then EsVocalAcentuada = True
If LCase(Letra) = "ú" Then EsVocalAcentuada = True
End Function

Function Debil(Letra As String) As Boolean
On Error Resume Next
If LCase(Letra) = "u" Then Debil = True
If LCase(Letra) = "i" Then Debil = True
If LCase(Letra) = "ú" Then Debil = True
If LCase(Letra) = "í" Then Debil = True
End Function

[jrp01]

Brújula es esdrujula todas las esdrujulas tienen acento, termina en a pero a no esta acentuada para ser aguda tendría que ser Brujulá tener la sílaba tonica en la antepenultima silaba a lo que mereferia es que por ejemplo pones jalo es presente pero jaló es pasado asi que se debe de indicar el acento para poder comparar correctamente.

[Eternal Idol]

Todas las palabras tienen acento, brujula lleva tilde. Si solo queremos sabes si es aguda podemos no separar en silabas y comparar las ultimas letras, sino no.

[Instru]

Ahi les va.

Aguda. Se acentua si la silaba tonica esta en la ultima silaba y si termina en N, S o vocal(a, e, i, o, u)
Grave. Se acentua cuando la silaba tonica esta en la penultima silaba y la palabra no termina en N, S o vocal.
ESDRÚJULA(no brujula ): Se acentua cunado la silaba tonica cae en la antepenultima silaba.
y despues sigue la sobre esdrujula que es en la anteantepenultima

Ahora puedes guiarte con esto:
Si la palabra termina en n, s, o vocal y no lleva ningun acento, entonces es grave. Si tiene acento es aguda.
Ahora, si termina en cualquier cosa que no sea n, s o vocal y no lleva acento, entonces es aguda. si lleva acento entonces es grave.

Ahora si el acento lo encuentras en la antepenutima silaba, entonces es esdrujula.
Con eso solo lo pasas a cidog y isto.

Saludos

[andres_73]

hay palabras agudas con y sin tilde dependiendo de la letra con que terminen, igual con las graves.

azul es aguda, pero como no termina en vocal, n, no lleva tilde

camión es aguda, termina en n, lleva tilde

para las palabras graves, la regla es al contrario:

mármol es grave, termina en l, lleva tilde

casa es grave, termina en vocal, no lleva tilde

pero lo más grave es las cosas que leí en este post (juego de palabras poco agudo)

saludos y suerte