none
Visual Basic 2010 RRS feed

  • Discussão Geral

  • alguém me ajuda ??? poderia transformar esses códigos do vb 1997, para vb 2010 !!!

    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

    Obrigado !

    quinta-feira, 2 de junho de 2016 04:07