• Author / Uploaded
• lool lllopllo

Citation preview

///////H&WLabs////// //DESARROLLADOR: Hebert PV //PROGRAMA : vigaPRO v1.1 // CARACTERISTICAS: //1.- Calculo de vigas Hiperestaticas. //2.- Calculo re reacciones, momento felctor y ezfuerzo cortante. // Se respeta derechos del autor, ultimamente mal intensionados publican los programas con sus nombres, // el programa es de uso personal no se puede editar, copiar sin permiso del AUTOR: // PARA MAS PROGRAMAS VISITA LA PAGINA: https://www.facebook.com/HPPRIME-programar-HWLabs-1702068820036255/ #pragma mode(separator(.,;)integer(h32)) vigaPRO();VIEW "VigaPRO",START()BEGIN startview(6,1);vigaPRO();END; ICON AA 89504E470D0A1A0A0000000D494844520000000A0000000A0100000000A549F210000 0000274524E5300010194FDAE000000184944415478017DC2010D0000008320FBA77A 336D7006EE0C075211778635152C0000000049454E44AE426082; EXPORT vigaPRO()BEGIN LOCAL MENU,menu1,menu2,menu3,k,i; LOCAL NODOS,TA,FUERZA1,FUERZA,BARRAS; RECT(); WAIT(0.5);FOR i FROM 1 TO 25 DO BLIT_P(G0,"AA"); FILLPOLY_P({0,0,320,0,320,240,0,240},#FFFFFFh,255-(10.2*i)); TEXTOUT_P(("Cargando... "),119,155,1,#2E64FEh,100,#FFFFFFh); TEXTOUT_P((2*i)+("%"),171,155,1,#2E64FEh,100,#FFFFFFh); RECT_P(105,170,206,174,0,#FFFFFFh); RECT_P(106,171,106+2*i,173,#40FF00h); WAIT(0.01); END; FOR i FROM 1 TO 25 DO BLIT_P(G0,"AA"); FILLPOLY_P({0,0,320,0,320,240,0,240},#FFFFFFh,10.2*(i)); TEXTOUT_P(("Cargando... "),119,155,1,#2E64FEh,100,#FFFFFFh); TEXTOUT_P((50+2*i)+("%"),171,155,1,#2E64FEh,100,#FFFFFFh); RECT_P(105,170,206,174,0,#FFFFFFh); RECT_P(106,171,155+2*i,173,#40FF00h); WAIT(0.01); END; RECT_P(104,154,207,175,#FFFFFFh); TEXTOUT_P(" [PRESIONE AQUI O ENTER PARA CONTINUAR]",10,180,2,#228B22h,300,#FFFFFFh); WAIT(-1); RECT(); REPEAT

CHOOSE(MENU," vigaPRO v1.1 H&WLabs ",".- Datos iniciales ",".- Datos de nodos",".Datos de fuerzas ",".- Datos de barras",".- Diagrama de viga",".- ✍ Calcular",".- Diagrama MF Y EC",".- Acerca del autor",".- SALIR"); IF MENU==1 THEN INPUT({{L,[0],{50,30,1}},{A,[0],{50,30,2}},{C,[0],{50,30,3}},{F,{"kN-m","N-m","Tonm","kg-m","libras-pie"},{50,30,4}}},"DATOS INICIALES",{"Longitud Total :","Nº de Nodos :","Nº Fuerzas :","Unidad de Medida :"},{"Ingrese Longitud de viga","Ingrese numero de nodos","Ingrese numero Fuerzas"}); M4:=MAKEMAT(0,A-1,5); FOR k FROM 1 TO A-1 DO M4(k,3):=1; M4(k,5):=1; END; ELSE IF MENU==2 THEN NODOS:=MAKEMAT(0,A,2); FOR k FROM 1 TO A DO LOCAL EJEX:=0,APY:=1; MSGBOX("DATO PARA NODO "+k); INPUT({{EJEX,[0],{50,30,2}},{APY,{"LIBRE","EMPOTRADO","FIJO","MOVIL","RO TULA"},{50,30,3}}},"NODO "+k,{"Posicion X :","Tipo de Nodo :"},{"Ingrese la posicion en eje x"}); IF APY=1 THEN TA:=3; END; IF APY=2 THEN TA:=0; END; IF APY=3 THEN TA:=1; END; IF APY=4 THEN TA:=2; END; IF APY=5 THEN TA:=4; END; NODOS(k,1):=EJEX; NODOS(k,2):=TA; END; M5:=NODOS; ELSE IF MENU==3 THEN IF 1