Pero mi intención era ver si era capaz de hacerlo , y lo logre menudo sorpreson me lleve al ver que funcionaba y que no habia podido ni abrir una ayuda de la web...
Aqui os lo dejo el código, (tiene un problema que no acepta números con coma por ejemplo 1.5 de entrada pero creo que esto esta conectado al usar yo el tipo Float )
' gambas class file
Public Sub ValueBox1_MouseDown()
End
Public Sub ValueBox2_MouseDown()
End
Public Sub Button1_Click()
Dim final As String
Dim um As Float
Dim dois As Float
um = ValueBox1.Text
dois = ValueBox2.Text
final = (um + dois) / 2
TextBox1.text = final
End
Public Sub TextBox1_KeyPress()
End
Public Sub ValueBox1_MouseDown()
End
Public Sub ValueBox2_MouseDown()
End
Public Sub Button1_Click()
Dim final As String
Dim um As Float
Dim dois As Float
um = ValueBox1.Text
dois = ValueBox2.Text
final = (um + dois) / 2
TextBox1.text = final
End
Public Sub TextBox1_KeyPress()
End