Problema com resultado do calculo

International Português
1

Estou aqui faz horas a olhar a sintaxe do meu pequeno cdigo e no consigo saber porqu que o meu resultado sempre 0.
Tentei debugar o mesmo substituindo as Textfield por nmeros, e funciona tudo muito bem, apenas quando mudo para TextField d resultado 0. No sei porqu isto acontece sabendo que as mesmas teem contedo numrico.
Help!

  dim telfl as Integer = val(TextField13.Text)
  dim oa as Integer = val(TextField14.Text)
  dim fov as Integer = oa / telfl
  dim fovr as Integer = fov * val(TextField12.Text)
  Label73.Text = "Fov: " + str(fovr)
  Label73.Refresh
2

Ol Ruy,

Desculpe se falo besteira, nas estou em viagem e no consigo testar o seu cdigo no momento… Uma ideia que me ocorreu, se o seu valor resultante da diviso por zero vrgula alguma coisa, e a sua varivel que recebe o resultado est definido como Inteiro. Se for isso, pode ser que o resultado final convertido para string considere apenas o zero, que seria a parte inteira…

3

Ol,
No novo framework val(textfield.text) foi modificado. Veja uma discusso: bkeeneybriefs New Xojo Framework .

4

Obrigado Adelar.