PROBLEMA COM SENO
gente, to com um codigo bem simples para encontrar seno e cosseno de um angulo
mas quando coloko um angulo muito baixo (de 1 a 5)
da erro, a virgula fika erradae os zeros não aparecem....
no caso, só acontece com os angulos onde o resultado teria q começar assim..
0,0xxx
do 5 pra cima esta normal (0.1xxx)
obrigado
obs: baixei o programa a pouco tempo, procurei muito sobre esse erro, e não encontrei =/
mas quando coloko um angulo muito baixo (de 1 a 5)
da erro, a virgula fika erradae os zeros não aparecem....
Private Sub Command1_Click()
Dim grau
Dim radiano
grau = Val(txtang.Text)
radiano = ((grau / 180) * 3.14159265358979)
txtseno.Text = Sin(radiano)
txtcosseno.Text = Cos(radiano)
End Sub no caso, só acontece com os angulos onde o resultado teria q começar assim..
0,0xxx
do 5 pra cima esta normal (0.1xxx)
obrigado
obs: baixei o programa a pouco tempo, procurei muito sobre esse erro, e não encontrei =/
veja se resolve
Private Sub Command1_Click()
Dim grau As Double
Dim radiano As Double
grau = txtang.Text
radiano = ((grau / 180) * 3.14159265358979)
txtseno.Text = Format(Sin(radiano), [Ô]0.##############[Ô])
txtcosseno.Text = Format(Cos(radiano), [Ô]0.##############[Ô])
End Sub
muito obrigado MARCELO-TREZE
ficou perfeito ^^
ficou perfeito ^^
Tópico encerrado , respostas não são mais permitidas