Pasar a Visual basic
Hola amigos , no conozco este maravilloso y hermetico mundo de la programacion. Y les pido por favor si pueden ayudarme en lo siguiente:
Tengo un programa escrito en BASIC que calcula el area de un poligono irregular en base a la lectura manual de azimuths y distancias. Este corre en una calculadora Casio. Ahora les consulto si es posible convertirlo o pasarlo a visual basic y que corra en una PDA con Windows mobile 6,5?
ESTE ES PROGRAMA:
PROGRAMA DE CORRECCION DE POLIGONOS
5 CLEAR
6 PRINT “CORRECCION DE ANGULOS”
7 BEEP 0 :BEEP 1:BEEP 0
RINT
20 INPUT “ # D pts.”,Z
30 DIM A(Z),N(Z+1),F(Z),E(Z+1),M(Z),G(Z),D(Z)
40 FOR I=1 TO Z
50 PRINT “AZ (“;I;”)”;
55 INPUT A(I)
60 PRINT “DS(“;I;”)”;
65 INPUT D(I)
67 D=D+D(I):Y=0
70 NEXT I
80 N(1)=500:E(1)=500
81 IF Y<>0 THEN 82 ELSE 108
82 INPUT “POS.1er.CAMBIO ?”,H
83 PRINT “AZ(“;H;”)”;
84 INPUT A(H)
85 FOR I=1 TO Z
86 IF H=I THEN 87 ELSE 89
87 A(I)=A(H)
89 NEXT I
90 INPUT “POS. 2do.CAMBIO?” ,H1
91 IF H1<>0 THEN 92 ELSE 108
92 PRINT “AZ(“;H1;”)”,
93 INPUT A(H1)
94 FOR J=1 TO Z
95 IF H1=J THEN 96 ELSE 97
96 A(J)=A(H1)
97 NEXT J
108 FOR I=1 TO Z
110 M(I)=D(I)*cosA(I):F(I)=D(I)*sinA(I)
120 N(1+I)=N(I)+M(I):E(1+I)=E(I)+F(I)
130 NEXT I
140 E=E(Z+1)-E(1):N=N(Z+1)-N(1)
145 CLS
150 PRINT “ERROR X=”;N
155 PRINT “ERROR Y=”;E
156 ER=(N*N+E*E):K=0
157 PRINT “ERROR S=”;ER
158 IF ER<>0 THEN PRINT”PRES.1:”D/ER ELSE 290
210 E=-E/D:N=-N/D
220 M(1)=D(1)*N:F(1)=D(1)*E
230 FOR I=2 TO Z
240 M(I)=M(I-1)+D(I)*N:F(I)=F(I-1)+D(I)*E
250 NEXT I
260 FOR I=1 TO Z
270 N(I+1)=N(I+1)+M(I):E(I+1)=E(I+1)+F(I)
280 NEXT I
290 FOR I=1 TO Z
300 K=N(I)*E(I+1)-E(I)*N(I+1)+K
310 NEXT I
311 K=N(Z+1)+E(1)-E(Z+1)*N(1)+K:Y=1
315 BEEP 0:BEEP 1:BEEP 0
RINT
320 PRINT “AREA =”;K/2
322 IF D/ER<4000 THEN 81 ELSE 498
498 CLEAR
500 CLS
Gracias de antemano y reciban saludos cordiales desde Bolivia