Guilherme Mendes_749291

Caraca meu parceiro, salvou meu dia, e minha noite porque nao ia durmir sem resolver isso kkkkkkkkkkkk Muito obrigado mesmo, depois me passa o endereço pra te enviar um whysky ai pra você, kkkk Deus te abençoe meu querido e valeu pela força!

Boa noite pessoal, estou treinando um pouco de visual basic e travei na resolução de um trabalho aqui sobre triangulos, sei que para vocês deve ser coisa tola, mas fiquei o dia inteiro e nao consegui achar respostas, é o seguinte: Tenho que fazer no VB, um projeto que pedem para para inserir 3 textbox para colocar as medidas de um triangulo e exibir se o triangulo é isosceles, escaleno ou equilatero, depois se houver algum campo em branco exibir uma mensagem que tem campo em branco, e a ultima coisa que avise que o triangulo nao existe, pois a medida de um lado não pode ser maior que a soma das outras duas, eis como está meu código até o momento, esta tudo funcionando certo, só este ultimo para dar o aviso que o triangulo nao existe que nao estou conseguindo, grato pela atenção!! valeu pessoal Private Sub btnCalcular_Click()If txtA = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtB = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtC = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtA = txtB And txtA = txtC ThenMsgBox ("Triangulo Equilatero")ElseIf txtA = txtB Or txtA = txtC Or txtB = txtC ThenMsgBox ("Triangulo Isosceles")ElseMsgBox ("Triangulo Escaleno")End IfEnd Sub *Esta tudo no botão calcular esse codigo, existem os textbox txtA,txtB,txtC, não sei se é neles que tenho que fazer alterações!! Obrigado

Boa noite pessoal, estou treinando um pouco de visual basic e travei na resolução de um trabalho aqui sobre triangulos, sei que para vocês deve ser coisa tola, mas fiquei o dia inteiro e nao consegui achar respostas, é o seguinte: Tenho que fazer no VB, um projeto que pedem para para inserir 3 textbox para colocar as medidas de um triangulo e exibir se o triangulo é isosceles, escaleno ou equilatero, depois se houver algum campo em branco exibir uma mensagem que tem campo em branco, e a ultima coisa que avise que o triangulo nao existe, pois a medida de um lado não pode ser maior que a soma das outras duas, eis como está meu código até o momento, esta tudo funcionando certo, só este ultimo para dar o aviso que o triangulo nao existe que nao estou conseguindo, grato pela atenção!! valeu pessoal Private Sub btnCalcular_Click()If txtA = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtB = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtC = "" ThenMsgBox ("Todos os campos devem ser preenchidos!!!")ElseIf txtA = txtB And txtA = txtC ThenMsgBox ("Triangulo Equilatero")ElseIf txtA = txtB Or txtA = txtC Or txtB = txtC ThenMsgBox ("Triangulo Isosceles")ElseMsgBox ("Triangulo Escaleno")End IfEnd Sub *Esta tudo no botão calcular esse codigo, existem os textbox txtA,txtB,txtC, não sei se é neles que tenho que fazer alterações!! Obrigado