Boa tarde
Pessoal,Como faco para tirar o seno e coseno de um angulo que nao esteja em radiano

Obrigado

Veja se esta função ajuda, deixe em vermelho a parte que converte para radiano :

Private Sub Azymuth(AngleGraus As Single)
        '-----> esta rotina recebe o angulo em graus
Dim Raio As Integer
Dim RaioEx As Integer
Dim AngleRad As Single
Dim Angle As Single
Dim CentroX As Integer
Dim CentroY As Integer
Dim AngleIni As Single
Dim AngleFim As Single
Dim Temp As Single

Raio = 500
CentroX = Me.ScaleWidth  2
CentroY = Me.ScaleHeight  2
RaioEx = 1000
Angle = 90 - AngleGraus
AngleRad = Angle * 3.1415 / 180 'converte para radiano
AngleIni = 3.1415 / 2 'inicio do arco (90 graus do VB)
'----> o angulo final deve ser positivo (senao o VB desenha o raio)
If AngleRad < 0 Then AngleRad = 6.283 + AngleRad
'----> Vou usar o ME para desenhar no formulario
'----> pode-se usar um PictureBox tb, use Picture1.Line ou Picture1.Circle

'---->   desenhar no PictureBox
'----> Desenha o circulo externo
Me.Circle (CentroX, CentroY), RaioEx
'----> Desenha os eixos
Me.Line (CentroX - 1500, CentroY)-(CentroX + 1500, CentroY)
Me.Line (CentroX, CentroY - 1500)-(CentroX, CentroY + 1500)
'----> Desenha o arco
Me.Circle (CentroX, CentroY), Raio, vbRed, AngleRad, 3.1415 / 2
'----> Desenha a reta
Me.Line (CentroX, CentroY)-(CentroX + (RaioEx + 500) * Cos(AngleRad), _
CentroY - (RaioEx + 500) * Sin(AngleRad))
End Sub

Private Sub Command1_Click()
    Dim angulo As Integer
        angulo = InputBox("Qual o ângulo?")
        Azymuth (angulo)
End Sub 

veja, se você quer inserir um ângulo em graus e obter o seno e o coseno use:

 

sin(ângulo*(PI()/180))

 

nosso amigo já respondeu, só quis deixar mais claro.