Ejemplo de Círculo

DrawingArea1.Cached=true

' gambas class file

' by postapase

Public Sub Form_Open()

Me.Center' centramos el formulario
Me.Title = "Ejemplo Círculo"

Paint.Begin(DrawingArea1)' con Begin indicamos que comenzamos el dibujo y le indicamos donde, en este caso en DrawingArea1 entre los paréntesis.
Paint.LineWidth = 1 ' el grosor de línea de la circunferencia
Paint.Arc(DrawingArea1.Width / 2, DrawingArea1.Height / 2, 50)' coordenadas x y, después indicamos el radio de la circunferencia
Paint.Stroke' arranca y visualiza el gráfico
Paint.End

End

Como crear un comando para Linux en Gambas

Creamos un nuevo proyecto gambas de tipo consola y pegamos este código.
luego lo copilamos, despues intalamos el paquete .deb, y despues lo probamos en la terminal.

' gambas module file
'by postapase

Public Sub Main()
 Dim modificador As String

 modificador = Application.Args[1] 'esto lo aprendi de Shell

 Select modificador
   Case "arquitectura"
     Shell "uname -m"
   Case "codename"
     Shell "uname -n"
   Case "--help"
     Print Application.Name & "-" & Application.Version
   Case Else
     Print "modificador desconocido"
     Print "escriba  'PcInfo --help'"
 End Select

End

necesario registrarse en el foro, código fuente:
http://www.gambas-es.org/download.php?id=617

Saludos, comenten....

Mis retos resueltos en Solveet!!!

Aquí dejare los enlaces a los retos que he resuelto con gambas en Solveet.

Mis soluciones

• Dato Mayor en Gambas usando Gambas-3-8-4 hace 2 horas
• Averiguar fecha de primer y último día de un mes dado de un año dado. en Gambas hace 3 horas
• Secuencia aleatoria no repetida en Gambas hace 3 días
• dav en Gambas hace 5 días
• fabrica de computadoras en Gambas usando Gambas hace 6 días
• Crear funcion de búsqueda, prefereriblemente en Python en Gambas hace 14 días
• Suma de pares e impares en Gambas usando Gambas 3 8 1 hace 7 meses
• El Numero Magico en Gambas hace 7 meses
• Dibujar un triángulo rectángulo en Gambas hace 7 meses
• Ordenamiento de Matrices en Gambas hace 7 meses
• La mina de diamantes en Gambas usando Gambas3 hace 7 meses
• Suma de pares en un rango de 2 números en Gambas hace 7 meses
• Obtener el mayor número menor a X que no contenga el dígito Y en Gambas hace 1 año
• Desglose en billetes en Gambas hace 1 año
• Kata FizzBuzz en Gambas hace 1 año
• Shin Woo en Gambas hace 1 año
• Traductor a idioma F en Gambas hace 1 año
• Juego del disparejo en Gambas hace 1 año
• numero aleatorio con sumas de sus digitos en Gambas hace 1 año
• derk en Gambas hace 1 año

24

Todas las soluciones en gambas.

Como reproducir un sonido en nuestra aplicación con gb.sdl2.audio?

Primero creamos un nuevo proyecto, despues vamos a componentes y tildamos
gb.sdl2.audio. En este ejemplo el archivo de audio esta dentro del proyecto en la carpeta datos.

' gambas class file

' by postapase


Public Sub Form_Open()
  Me.Center 'centramos el formulario
End

Public Sub Button1_Click()
Dim misonido As Sound 'declaramos la variable de sonido llamada misonido

' misonido = Sound.Load("/home/prueba1/Escritorio/camara.ogg") 'una ruta X

misonido = Sound.Load("camara.ogg") 'Asignamos el sonido a la variable
' que se encuentra en la carpeta Datos del proyecto.

misonido.Play 'reproducimos el sonido

End

Sonido-0.0.1.tar.gz

 FMain.SonidoTantos = New Sound("Sonidos/Kopete_send.ogg") 'vieja linea

 FMain.SonidoTantos = Sound.Load("Sonidos/Kopete_send.ogg")'Linea actualizada