USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Operações Matemáticas)

Título da Dica:  Representando ângulos (em graus) graficamente
Postada em 31/8/2003 por Ð@®l@n            
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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página