Fiz isso pra estudar
Bom faça 3 textbox , 1 comandbutton e 3 label :
selecione o button e cole isso aqui :
é so isso depois é so colocar quanto é a , b e c , nos textsbox
ps : em vez de usar SQR pra calcular a raiz quadrada do delta eu coloquei delta elevado a 1/2 ,axo que fica mais facil , exemplo:
obs: deixei os nomes de tudo padrão pra nao confundir
estou aberto a sugestões
espero que tenham gostado.
Bom faça 3 textbox , 1 comandbutton e 3 label :
selecione o button e cole isso aqui :
Dim delta As Integer 'declara a variavel delta
delta = Text2 ^ 2 - 4 * Text1 * Text3 'aqui é a equação que representa delta
Label1.Caption = "x1 =" & (Text2 + delta ^ 1 / 2) / 2 * Text1 'diz que o caption do label1 sera = a essa equação
Label2.Caption = "x2 =" & (Text2 - delta ^ 1 / 2) / 2 * Text1 'diz que o caption do label2 sera = a essa equação
Label3.Caption = "Delta=" & delta 'diz que o caption do label3 sera igual ao resultado de Text2 ^ 2 - 4 * Text1 * Text3 que é delta
delta = Text2 ^ 2 - 4 * Text1 * Text3 'aqui é a equação que representa delta
Label1.Caption = "x1 =" & (Text2 + delta ^ 1 / 2) / 2 * Text1 'diz que o caption do label1 sera = a essa equação
Label2.Caption = "x2 =" & (Text2 - delta ^ 1 / 2) / 2 * Text1 'diz que o caption do label2 sera = a essa equação
Label3.Caption = "Delta=" & delta 'diz que o caption do label3 sera igual ao resultado de Text2 ^ 2 - 4 * Text1 * Text3 que é delta
ps : em vez de usar SQR pra calcular a raiz quadrada do delta eu coloquei delta elevado a 1/2 ,axo que fica mais facil , exemplo:
x^1/n
onde
x = numero que iremos calcular a raiz
n = o tipo de raiz , 2 para raiz quadrada ,3 pra raiz cubica etc...
onde
x = numero que iremos calcular a raiz
n = o tipo de raiz , 2 para raiz quadrada ,3 pra raiz cubica etc...
estou aberto a sugestões
espero que tenham gostado.