• 0
Sign in to follow this  
mauriciolimax

[Ajuda]correção de erros em programa

Question

Olá pessoal, eu sou engenheiro civil e não entendo muita coisa sobre programação, mas simpatizo muito com esta área. Na engenharia sempre precisamos de rotinas de cálculo
para fazer processos repetitivos que se não tivermos um programa precisamos fazer a mão. Eu possuo muitos arquivos do excel com programações que eu faço, mas gostaria
de fazer algo mais profissional, então resolvi usar o visual basic. Estou fazendo um programinha para cálculo de compressão em bielas de concreto, basicamente é ver se o concreto
resiste ou não a forças de compressão, o que eu consegui fazer até agora foi só calcular a distância entre dois pontos e calcular o ângulo da biela que geométricamente é analoga a
um triângulo. Eu pretendo seguir em frente e fazer todo o programa (falta muito) mas eu fiquei com uma dúvida cruel hoje, quando rodo o programa e não insiro nenhum dado nas textbox
e clico no botão verificar, o meu programa trava, gostaria de resolver isto antes de prosseguir. Se puderem analisar se estou fazendo muita coisa errada e também me ajudar com esta questão
de não travar quando o usuário tenta verificar o programa sem digitar nenhum dado seria ótimo. Eu imagino que poderia colocar alguma condição para quando faltam dados para as variáveis
na qual o programa mostraria uma mensagem, "preencha todos os campos para realizar o cálculo", vou colar o código abaixo.

Public Class Form1
Dim x As Double
Dim y As Double
Dim m As Double
Dim d As Double
Dim theta As Double
Private Sub btn_verificar_Click(sender As Object, e As EventArgs) Handles btn_verificar.Click 'Evento click no botão verificar
x = (CDbl(txt_x.Text)) 'Atribui a variável x o que foi digitado na textbox
y = (CDbl(txt_y.Text)) 'Atribui a variável y o que foi digitado na textbox
m = Math.Sqrt(Math.Pow(x, 2) + Math.Pow(y, 2)) 'Calcula o valor de m distância entre as coordenadas x e y - (x²+y²)¹/²
d = (CDbl(txt_d.Text)) 'Atribui a variável d o que foi digitado na textbox
txt_m.Text = m.ToString
txt_theta.Text = (Math.Atan2(d, m) * 180 / Math.PI).ToString
End Sub
End Class

i5XjH0.jpg

Edited by mauriciolimax

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this