Shell 27-10-2023, 14:46
Buenas!.
He probado con Firefox ( que se parece más a mi voz el sonido reproducido ) y con Chrome ( suena como más agudo, mas acelerado..más joven!! ).
En los ejercicios online que tenemos que hacer de Inglés, en algunos se tiene que grabar la voz.
Por eso lo tuve que usar.
¿ Ustedes han usado el micrófono con ambos navegadores ?.
¿ Les fue mejor en uno que en otro ?.
¿ Les pareció diferente ?.
Con el mismo hardware naturalmente.
Saludos
He probado con Firefox ( que se parece más a mi voz el sonido reproducido ) y con Chrome ( suena como más agudo, mas acelerado..más joven!! ).
En los ejercicios online que tenemos que hacer de Inglés, en algunos se tiene que grabar la voz.
Por eso lo tuve que usar.
¿ Ustedes han usado el micrófono con ambos navegadores ?.
¿ Les fue mejor en uno que en otro ?.
¿ Les pareció diferente ?.
Con el mismo hardware naturalmente.
Saludos
Shell 25-10-2023, 23:47
Buenas!
Uno de los ejercicios del curso de Inglés es conocer los países y las nacionalidades.
Lógicamente hay muchas.
Aunque hay muchas utilidades online para estas cosas, con Gambas hago algo parecido
con el fin de hacer test.
En principio el formulario es muy simple.
Puede preguntar la nacionalidad y se debe responder el país o al revés.
![[Imagen: l3IGgg5.png]](https://i.imgur.com/l3IGgg5.png)
Lo más gracioso es averiguar una estructura de datos, intercambiar la pregunta, tanto si es para país como para nacionalidad.
Que despiste, subo el código. Que es muy sencillo.
Saludos
Uno de los ejercicios del curso de Inglés es conocer los países y las nacionalidades.
Lógicamente hay muchas.
Aunque hay muchas utilidades online para estas cosas, con Gambas hago algo parecido
con el fin de hacer test.
En principio el formulario es muy simple.
Puede preguntar la nacionalidad y se debe responder el país o al revés.
Lo más gracioso es averiguar una estructura de datos, intercambiar la pregunta, tanto si es para país como para nacionalidad.
Código:
' Gambas class file
Private countriesYnationalities As New String[][]
Private answer As String
Private formtitle As String = "Countries and Nacionalities"
Private index As Integer
Public Sub Form_Open()
Me.Title = formtitle
Randomize
countriesYnationalities.Add(["Spain", "Spanish"])
countriesYnationalities.Add(["England", "English"])
countriesYnationalities.Add(["Irland", "Irish"])
countriesYnationalities.Add(["Poland", "Polish"])
countriesYnationalities.Add(["Scotland", "Scottish"])
countriesYnationalities.Add(["Turkey", "Turkish"])
countriesYnationalities.Add(["Germany", "German"])
countriesYnationalities.Add(["Mexico", "Mexican"])
countriesYnationalities.Add(["the United States", "American"])
countriesYnationalities.Add(["Italy", "Italian"])
countriesYnationalities.Add(["Argentina", "Argentinian"])
countriesYnationalities.Add(["Brazil", "Brazilian"])
countriesYnationalities.Add(["Egypt", "Egyptian"])
countriesYnationalities.Add(["Hungary", "Hungarian"])
countriesYnationalities.Add(["Russia", "Russian"])
countriesYnationalities.Add(["China", "Chinese"])
countriesYnationalities.Add(["Japan", "Japanese"])
countriesYnationalities.Add(["the Czech Republic", "Czech"])
countriesYnationalities.Add(["France", "French"])
countriesYnationalities.Add(["Switzerland", "Swiss"])
countriesYnationalities.Add(["Chile", "Chilean"])
countriesYnationalities.Add(["Peru", "Peruvian"])
countriesYnationalities.Add(["Colombia", "Colombian"])
countriesYnationalities.Add(["Morocco", "Moroccan"])
countriesYnationalities.Add(["Ecuador", "Ecuadorian"])
'Reference to country and answer nacinonality
'Print countriesYnationalities[Rand(0, countriesYnationalities.max)][0]
'Reference to nacionality and answer country
'Print countriesYnationalities[Rand(0, countriesYnationalities.max)][1]
btnQuestion.SetFocus()
End
Public Sub btnQuestion_Click()
Dim questionnumber As Integer
Dim answernumber As Integer
index = Rand(0, countriesYnationalities.max)
questionnumber = Rand(1)
answernumber = IIf(questionnumber = 0, 1, 0)
Label1.Text = countriesYnationalities[index][questionnumber]
answer = countriesYnationalities[index][answernumber]
End
Public Sub TextBox1_KeyPress()
Dim useranswer As String
If Key.Code = Key.Enter Or Key.Code = Key.Return Then
If TextBox1.Text = answer Then
'Remove the index for not repeat the same question
countriesYnationalities.Remove(index)
useranswer = "Correct!"
Else
useranswer = "Incorrect"
Endif
Me.Caption = formtitle & " : " & useranswer
Endif
EndQue despiste, subo el código. Que es muy sencillo.
Saludos
Archivos adjuntos
datobinario 24-10-2023, 13:54
Buenos días amigos, desde la última actualización tengo este problema, Gambas no inicia, y la única referencia que tengo sobre el error es:
"Error del bus (`core' generado)"
cuando lo intento arrancar por consola.
Linux Mint 21.2 Cinnamon
Linux 5.15.0-87-generic
"Error del bus (`core' generado)"
cuando lo intento arrancar por consola.
Linux Mint 21.2 Cinnamon
Linux 5.15.0-87-generic
Bienvenido, Invitado
Últimos temas
Feliz Navidad a todos los...
Foro: GeneralÚltimo mensaje por: jguardon, Ayer, 19:13
Respuestas: 1 - Vistas: 44
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 287
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 290
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 978
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 425