|
|
|
|
|
|
|
|
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
|
|
|
|
|
