Programación VB: almacene la información del tamaño geométrico de la estructura como se muestra en la figura en forma de tabla lineal, lo que requiere la capacidad de dibujar tres vistas.

includelt;graphics.hgt;

int dx[20]={70, 70, 0, 0, 20, 30, 70, 70, 55, 55 ,0,0,0,0,20,10,10,55,55,30,0};

int dy[20]={0,40,40,40,40 ,40, 40, 40, 40, 0, 0, 0, 0, 0, 30, 30, 30, 30, 30, 10, 10, 10, 10, 0};

int dz[ 20]= {0, 0, 0, 27, 27, 10, 10, 10, 10, 10, 10, 42, 42, 42, 42, 27, 27, 42, 42, 42, 10, 10, 0}

int ld[34]={0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 , 18, 5, 0, 7, 1, 6, 8, 17, 9, 16, 13, 4, 12, 3, 11, 14};

int tl[34]={0, 1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0, 1,0 ,1,0,1,0,1,0,1,0,1,0,1,0,0,1};

int i, j, x, y, vh =200, vw=200, x0=400, y0=400;

main()

{

int driver=DETECT, modo =0;

initgraph(amp;controlador,amp;modo,"");

setbkcolor(AZUL);

setcolor(AMARILLO);

zu();

fu();

zo();

getch(); ();

}

zu()

{for(i=0;ilt;34;i)

{j =ld[ i];

x=x0-dx[j];

y=y0-dz[j];

if(tl[i]==0 )

moveto(x, y);

lineto(x, y

}

}

{for(i=0;ilt;34;i)

{j=ld[i];

x=x0 dy[j ]-vw;

y=y0 dx[j]-vh;

if(tl[i]==0)

moveto( x, y );

lineto(x, y);

}}

zo()

{for(i= 0;ilt ; 34; i )

{j=ld[i];

x=x0 dy[j]-vw;

y=y0 -dz[ j];

if(tl[i]==0)

movera(x, y);

líneaa(x, y) ;

p>

}}