Alberto59 28-10-2023, 17:57
Hola a todos.....
Como dije la ultima vez en como pasar un programa,cosa que ya esta solventado.
Y como dije y prometi os mando el programa facturas,para aquellos que quieran verlo o usarlo (Mi intencion es de aprendizaje..ok)
En el podeis ver las formas distintas de como programar con shell o sin el,ademas de podr ver los informes,tanto en pdf como en html.ok
Sin mas gracias a todos y al administrador tambien por su paciencia.
GRACIAS.
nota:debeis copiar la base datos clientes en directorio dbseguridad,que os lo creara las utilidades.ok
Como dije la ultima vez en como pasar un programa,cosa que ya esta solventado.
Y como dije y prometi os mando el programa facturas,para aquellos que quieran verlo o usarlo (Mi intencion es de aprendizaje..ok)
En el podeis ver las formas distintas de como programar con shell o sin el,ademas de podr ver los informes,tanto en pdf como en html.ok
Sin mas gracias a todos y al administrador tambien por su paciencia.
GRACIAS.
nota:debeis copiar la base datos clientes en directorio dbseguridad,que os lo creara las utilidades.ok
Archivos adjuntos
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
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, Ayer, 17:37
Respuestas: 2 - Vistas: 77
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 438
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 575
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 929