VBA intersecções
Em Visual Studio, para calcular os pk e cotas de valor inteiro entre dois pontos da rasante...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PKi As Double
Dim Vi As Double
Dim PKf As Double
Dim Vf As Double
Dim DistPK As Double
Dim arred_pk, arred_cota As Double
Dim quadroV1(6, 19) As Double
Dim quadroV2(6, 19) As Double
Dim quadro_int(4, 361) As Double
Dim linha As Integer
Dim i As Double
Dim angulo As Double
Dim pkt, Vt As Double
...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PKi As Double
Dim Vi As Double
Dim PKf As Double
Dim Vf As Double
Dim DistPK As Double
Dim arred_pk, arred_cota As Double
Dim quadroV1(6, 19) As Double
Dim quadroV2(6, 19) As Double
Dim quadro_int(4, 361) As Double
Dim linha As Integer
Dim i As Double
Dim angulo As Double
Dim pkt, Vt As Double
...
Comentários
Enviar um comentário
Obrigado pelo seu contacto.