|
Página 1 de 1
|
| Autor |
Mensaje |
 Shell 
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación:  Al otro lado de la pantalla
|
 Frases Locas!
Buenas!.
No es un ejemplo nuevo. En revistas como la Microhobby hubo una aplicación la que se llamaba, caos histórico
o algo parecido en la que se conjugaban frases históricas o momentos historicos y salían toda clase de disparates.
Como amante del caos (no tanto) y de los disparates, nada mejor que crear un generador de frases.
Lo podéis adaptar y crear peores frases locas. Incluso mejorarlo para frases que usen articulo femenino y masculino.
Como mínimo he visto una aplicación como esta dos veces. Era típica de la época.
Private articulos As String[] = ["El", "Un"]
Private sujetos As String[] = ["gato", "hombre", "perro", "pajaro"]
Private verbos As String[] = ["cantó", "bailó", "saltó", "corrió"]
Private adverbios As String[] = ["ruidosamente", "tranquilamente", "silenciosamente", "bien", "mal"]
Private frase1 As String[][] = [articulos, sujetos, verbos, adverbios]
Private frase2 As String[][] = [articulos, sujetos, verbos]
Private frase As String
Public Sub Main()
Randomize
Ejemplo()
End
Public Sub Ejemplo()
Dim n As Integer
Dim tipo_frase As Integer
Dim tipo As String[]
For n = 0 To 4
tipo_frase = Int(Rand(1))
Select Case tipo_frase
Case 1
For Each tipo In frase1
frase &= tipo[Int(Rnd(0, tipo.Max))] & " "
Next
Case 0
For Each tipo In frase2
frase &= tipo[Int(Rnd(0, tipo.Max))] & " "
Next
End Select
frase &= "\n"
Next
Print frase
End
Una salida podría ser algo como esta:
Citar:
El hombre saltó ruidosamente
El perro bailó
El gato saltó
El hombre bailó silenciosamente
El hombre bailó bien
Ya veis. Un perro que baila y un hombre que baila silenciosamente. Todo un prodigio!.
He de decir que este ejemplo lo habré sacado de algún libro de Python. Pero ya no recuerdo cual.
Probando otra vez...
Citar:
El hombre cantó bien
El gato saltó
El hombre saltó bien
El hombre bailó
El perro cantó bien
Un perro que canta!. 
Claro que esta es mejor...
Citar:
El perro cantó tranquilamente
Toma del frasco..
Lógicamente que pueda parecer un disparate (Para nadaaaaa). Se podrían crear frases con más sentido. 
Saludos
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
ConstruyeFrases.tar.gz |
| Tamaño: |
12.31 KB |
| Descargado: |
18 veces |
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
ConstruyeFrases.tar.gz |
| Tamaño: |
12.31 KB |
| Descargado: |
18 veces |
|
| Descripción: |
|
Descargar |
| Nombre del archivo: |
ConstruyeFrases.tar.gz |
| Tamaño: |
12.31 KB |
| Descargado: |
18 veces |
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Jueves, 24 May 2018, 12:53; editado 2 veces |
#1 Jueves, 24 May 2018, 12:16 |
|
 |
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Frases Locas!
===================
No podemos regresar
|
#2 Jueves, 24 May 2018, 12:24 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Frases Locas!
Citar:
En ese sentido había algunos generadores de frases para políticos que molaban un montón.
Jeje, se podría crear.
He visto que tiene un problema. No se puede usar .Max en los array, debemos usar .Length
Si queremos que se genere un elemento al azar desde el primer indice hasta el último de cada array.
Recordemos que si generamos número entero aleatorio. Si es entre 1 y 6, debemos poner 7 en la instrucción.
De ahí a poner .Length
Una variación rápida y que funciona mejor.
Private sujetos As String[] = ["Vuott", "Shell", "Shordi", "Julio"]
Private verbos As String[] = ["programó", "depuró"]
Private palabras1 As String[] = ["una buena aplicación", "una mala aplicación", "una fantástica aplicación", "bien", "mal"]
Private palabras2 As String[] = ["en gambas", "en Python", "en C"]
Private frase1 As String[][] = [sujetos, verbos, palabras1, palabras2]
Private frase2 As String[][] = [sujetos, verbos, palabras1]
Private frase As String
Public Sub Main()
Randomize
Ejemplo()
End
Public Sub Ejemplo()
Dim n As Integer
Dim tipo_frase As Integer
Dim tipo As String[]
For n = 0 To 4
tipo_frase = Int(Rand(1))
Select Case tipo_frase
Case 1
For Each tipo In frase1
frase &= tipo[Int(Rnd(0, tipo.Length))] & " "
Next
Case 0
For Each tipo In frase2
frase &= tipo[Int(Rnd(0, tipo.Length))] & " "
Next
End Select
frase &= "\n"
Next
Print frase
End
Ademas tienen su picardia...jejeje.
Citar:
Vuott depuró mal en Python
Julio depuró una fantastica aplicación
Vuott depuró una buena aplicación
Vuott depuró mal en Python
Shell programó una mala aplicación
Como veis Vuott es incompatible al 200% con Python!.
Por mi no os preocupéis que la depuro. 
Subo de nuevo el ejemplo original
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#3 Jueves, 24 May 2018, 12:52 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
Re: Frases Locas!
Un perro que canta!.
Claro que esta es mejor...
Citar:
El perro cantó tranquilamente
Porque no ?
En latin "perro" = CANis
"Cantar" = CANere
Como veis Vuott es incompatible al 200% con Python!
Por supuesto !
Vox informatica, vox Dei !
última edición por vuott el Jueves, 24 May 2018, 14:35; editado 1 vez |
#4 Jueves, 24 May 2018, 14:34 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Frases Locas!
===================
No podemos regresar
|
#5 Jueves, 24 May 2018, 19:27 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Frases Locas!
Vuott:
Citar:
Porque no ?
En latin "perro" = CANis
"Cantar" = CANere
Esto ocurre en muchas lenguas. Palabras que tienen cierta semejanza pero que no tienen nada que ver. 
Citar:
Vox informatica, vox Dei !
Ahora entiendo el sentido de aquel diccionario enciclopédico de antaño que vendían de la marca "Vox".
Shordi:
Citar:
Prueba con éstas frases.
Si, pero es que son dialogo para besugos. Vamos de oradores que hablan y hablan y no dicen nada.
Cuanto me recuerda a lideres de partidos de antes y de ahora de ambos bandos...
"Es el vecino el que elige al acalde y alcalde el que quiere que sean los vecino el alcade"...Toma!. 
Otra, otra...
"Los españoles son muy españoles y son muchos españoles"..
Y ahora la frase top!.
"No podemos gastar más de lo que tenemos porque entonces tenemos que pedirlo prestado".
La mejor y con sentido común.
"Los que me sientan muy mal son los cínicos. Y hoy esos en España son legión".
En fin. Una aplicación de un generador de frases podría ser usado en un programa de inteligencia artificial. Si es que existe eso.
La inteligencia me refiero. 
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#6 Viernes, 25 May 2018, 08:02 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 2 invitados
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
