Clase Mancha

FMain:

' gambas class file

Private circulo As Mancha


Public Sub Form_Open()
Me.Center
SliderBox1.MaxValue = 1000
SliderBox1.MinValue = 1
SliderBox1.Value = 500
End

Public Sub Button1_Click()
Timer1.Start
End

Public Sub Timer1_Timer()
circulo = New Mancha(DrawingArea1)
Print Timer1.Delay
End

Public Sub Button2_Click()
Timer1.Stop
End

Public Sub Button3_Click()
DrawingArea1.Clear
End

Public Sub SliderBox1_Change()
Timer1.Delay = SliderBox1.Value
End

Clase Mancha:

' gambas class file

Property pantalla As DrawingArea
Private $pantalla As DrawingArea


Public Sub _new(device As DrawingArea)
$pantalla = device
Crear()
End

Private Function pantalla_Read() As DrawingArea
Return $pantalla
End

Private Sub pantalla_Write(Value As DrawingArea)
$pantalla = Value
End

Public Sub Crear()
Dim x, y, radio, pintura As Integer
Dim EsteColor As Integer

pintura = Rand(1, 5)
Select Case pintura
Case 1
EsteColor = Color.Red
Case 2
EsteColor = Color.Black
Case 3
EsteColor = Color.Blue
Case 4
EsteColor = Color.Green
Case 5
End Select
x = Rand(1, $pantalla.Width)
y = Rand(1, $pantalla.Height)
radio = Rand(1, 50)
' Print "X=" & x & ",Y=" & y & ",Radio=" & radio

Paint.Begin($pantalla)
Paint.LineWidth = 1
Paint.Background = EsteColor
Paint.Arc(x, y, radio)
Paint.Stroke
Paint.End

End

Código fuente: virus-0.0.1.tar.gz

Número aleatorio (ejemplo de como usar report)

El componente report no es fácil de usar, o mejor dicho de entender como funciona al menos para mi, estoy en campaña de aprender a usarlo y como siempre busco hacer cosas supersuper simples pues así se entiende.
Este ejemplo hace un reporte de un numero aleatorio.

Primero que nada creamos un proyecto nuevo y en el formulario le agregamos un botón, después vamos a componentes y agregamos gb.report2.

Creamos un nueva clase tipo report como lo muestra la imagen de abajo.

Este código lo pegamos en el formulario principal por defecto de llama FMain

' gambas class file


Public Sub Form_Open()
Me.Center
End

Public Sub Button1_Click()
Dim reportTitulo As New Report1 'aquí declaramos la clase de tipo Report1,
'que es la clase que creamos anteriormente que es un formulario especial con algunos elementos
'como label, pictures, algunos contenedores y algo mas.

Report1.Preview() ' aquí ordenamos ejecutar el formulario especial (from de report) para poder visualizar los resultados.
'Todo lo que queramos hacer o que se muestre en el reporte tenemos que hacerlo dentro de la clase Report1.
End

Este código lo pegamos en la clase report que tendrá como nombre predeterminado Report1.

' gambas class file

Public Sub Report_Open()
Dim Xnumero As Integer

Randomize
Xnumero = Rand(0, 1000)

ReportLabel2.Text = Xnumero

End

Resultado del reporte.

Bueno espero que les ayude a iniciarse a usar este complemento llamado gb.report2, saludos.

Reportes-0.0.1.tar.gz


Ejemplo 2 (variación)

' gambas class file


Public Sub Form_Open()
Me.Center
End

Public Sub Button1_Click()
Dim reportTitulo As Report1
Dim Xnumero As Integer

Randomize
Xnumero = Rand(0, 1000)

Print Xnumero

reportTitulo = New Report1(Xnumero)

reportTitulo.Preview()

End

--------------------------------------------------------------------
' gambas class file

Public Sub _new(EsteNumero As Integer)
ReportLabel2.Text = EsteNumero
End

Public Sub Report_Open()

End

Reportes-0.0.2.tar.gz


Ejemplo 3(complicando un poco ja)

FMain:

' gambas class file


Public Sub Form_Open()
Me.Center
End

Public Sub Button1_Click()
Dim ReportNumeros As Report1

ReportNumeros = New Report1(TextBox1.Text)
ReportNumeros.Preview()

End

Clase Report1:

' gambas class file

Private Xcantidad As Integer


Public Sub _new(cantidad As Integer)
Xcantidad = cantidad
End

Public Sub Report_Open()
Dim XNumeros As Integer[]
Dim a, Xnum As Integer
Dim XReportLabel As ReportLabel

Randomize

For a = 1 To Xcantidad

Xnum = Rand(1, 1000)

Print Xnum

XReportLabel = New ReportLabel(RVBox)
XReportLabel.Text = Xnum
XReportLabel.Visible = True
XReportLabel.Font.Size = 20
XReportLabel.Font.Bold = True
XReportLabel.Alignment = Align.Center

Next

End

MontonNumeros-0.0.1.tar.gz


Ejemplo 4 (report de texto de un TextArea) 

Fmain:

' gambas class file

Public Sub Form_Open()
Me.Center
End

Public Sub Button1_Click()
Dim ReportNotas As Report1
Dim TextoFormateado As String
Dim Partes As String[]

Partes = Split(TextArea1.Text, gb.NewLine)

ReportNotas = New Report1(Partes)
ReportNotas.Preview()

End

Report1

' gambas class file

Private Xtexto As String[]


Public Sub _new(parrafos As String[])
Xtexto = parrafos
End


Public Sub Report_Open()
Dim EsteParrafo As String
Dim LabelParrafo As ReportLabel

For Each EsteParrafo In Xtexto
LabelParrafo = New ReportLabel(RVBox)
LabelParrafo.Visible = True
LabelParrafo.Text = EsteParrafo
Next

End

ReportTextArea-0.0.1.tar.gz