\' Gambas class file
Private avance As Integer = 10
Public Sub _new()
End
Public Sub Form_Open()
ComboBoxOperador.Add("suma")
ComboBoxOperador.Add("resta")
ComboBoxOperador.Add("multiplica")
ComboBoxOperador.Add("divide")
\'Recalculo en 1 segundo:
TimerCalcular.Delay = 1000 \'1 segundo
TimerCalcular.Start()
\'dibujo animado
TimerAnimacion.delay = 500 \'0.5 segundos
TimerAnimacion.Start()
End
Public Sub TimerCalcular_Timer()
Select Case ComboBoxOperador.Text
Case "suma"
ValueBoxResultado.value = ValueBox1.value + ValueBox2.Value
LabelMensaje.text = "He sumado"
Case "resta"
ValueBoxResultado.value = ValueBox1.value - ValueBox2.Value
LabelMensaje.text = "He restado"
Case "multiplica"
ValueBoxResultado.value = ValueBox1.value * ValueBox2.Value
LabelMensaje.text = "He multiplicado"
Case "divide"
If ValueBox2.value <> 0 Then
ValueBoxResultado.value = ValueBox1.value / ValueBox2.Value
LabelMensaje.text = "He dividido"
Else
LabelMensaje.text = "No puedo dividir entre cero"
Endif
End Select
End
Public Sub TimerAnimacion_Timer()
\'calculando si rebota o no al llegar a los bordes:
If (PictureBox1.x + PictureBox1.w) > Me.w Then
avance = -10
Else
If PictureBox1.x < 0 Then
avance = +10
Endif
Endif
PictureBox1.x += avance
End