Comunidad Gambas-es

vuott 15-09-2020, 18:11

Os dejo este simple codigo para dibujar la Espiral de Arquímedes:

Código:
Private DrAr As DrawingArea

Private Const A As Float = 4.0

Private Const B As Float = 4.0

Private Const KYKLOS As Float = 26.0

Private Const PASOS As Integer = 200

Private incr As Float = 1.0 / PASOS

Public Sub Form_Open()

  With Me

    .W = Screen.AvailableWidth

    .H = Screen.AvailableHeight

    .Center

  End With

  With DrAr = New DrawingArea(Me) As "DrAr"

    .X = 0

    .Y = 0

    .W = Me.W

    .H = Me.H

    .Background = Color.White

  End With

End

Public Sub DrAr_Draw()

  Dim x, y As Integer

  Dim i As Float

  x = DrAr.W / 2

  y = DrAr.H / 2

  With Paint

    While i <= KYKLOS * Pi

      .FillRect(x + (A + B * i) * Cos(i), y + (A + B * i) * Sin(i), 2, 2, Color.Red)

      i += incr

    Wend

    .End

  End With

End

Aplicaciones/Fragmentos de Código Respuestas 3

Simpático efecto caleidoscópico de una imagen PNG con el Componente gb.media

vuott 15-09-2020, 17:14

Para obtener un efecto caleidoscópico de una imagen de formato PNG con los recursos del Componente gb.media, es necesario utilizar el elemento "kaleidoscope" de la libreria de Gstreamer.

Ejemplo práctico muy sencillo:

Código:
Private tb As ToggleButton

Private dr As DrawingArea

Private imm As String

Private pl As MediaPipeline

Public Sub _new()

  Dim w As Integer

  Dim h As Integer

   imm = "/ruta/del/archivo/imagen.png"

   w = ImageStat(imm).Width

   h = ImageStat(imm).Height

   With Me

     .W = w + 200

     .H = w + 100

   End With

   With tb = New ToggleButton(Me) As "Tasto"

     .X = Me.w - 30

     .Y = 10

     .W = 30

     .H = 40

     .Text = "Start"

   End With

   With dr = New DrawingArea(Me)

     .X = 0

     .Y = 0

     .W = w

     .H = h

   End With

End

Public Sub Form_Open()

  Dim src, pdc, kal, con1, frz, con2, snk As MediaControl

   pl = New MediaPipeline

   src = New MediaControl(pl, "filesrc")

   src["location"] = imm

   pdc = New MediaControl(pl, "pngdec")

   kal = New MediaControl(pl, "kaleidoscope")

   kal["angle"] = Rad(45)

   kal["angle2"] = Rad(140)

   kal["sides"] = 10

   con1 = New MediaControl(pl, "videoconvert")

   frz = New MediaControl(pl, "imagefreeze")

   con2 = New MediaControl(pl, "videoconvert")

   snk = New MediaControl(pl, "xvimagesink")

   src.LinkTo(pdc)

   pdc.LinkTo(kal)

   kal.LinkTo(con1)

   con1.LinkTo(frz)

   frz.LinkTo(con2)

   con2.LinkTo(snk)

   snk.SetWindow(dr)

End

Public Sub Tasto_Click()          ' _

 If tb.Value Then

   pl.Play()

   tb.Text = "Stop"

 Else

   pl.Stop()

   pl.Close()

   Me.Close

 Endif

End

Aplicaciones/Fragmentos de Código Respuestas 2

GAMBAS - ARDUINO Grabador de EEPROM

seta43 15-09-2020, 09:34

He desempolvado el viejo ZX Spectrum y he visto algún artículo sobre como realizar cartuchos ROM para instalar en el Interface 2.
http://trastero.speccy.org/cosas/droy/ca...chos_s.htm
Yo poseo muchas memorias EEPROM procedentes de BIOS de placas base estropeadas.
En este caso voy a utilizar unas EEPROM de 256 Kytes (49F002 o 39SF020), por lo cual se conseguirán 16 páginas de 16 Kbytes, que serán las que sustituyan a la ROM original del Spectrum.
[Imagen: ardrom9.png]