Input Question
|
11-17-2017, 09:16 AM
Post: #1
|
|||
|
|||
Input Question
How do I read the previous ones in a new input query for this exaple?
EXPORT erfAs() BEGIN LOCAL Md,H1,b,∅Bew,∅Büg,d,as; LOCAL cnom; LOCAL m,m1,mx,my; IF I==I THEN Md:=Md;H1:=H1; INPUT({{Md,[0],{25,15,0}}, {H1,[0],{25,15,1}}, {b,[0],{25,15,2}}, {cnom,[0],{72,15,0}}, {∅Büg,[0],{72,15,1}}, {∅Bew,[0],{72,15,2}}}, "Beton-Querkraftwiderstand", {"Md [kNm]","h [mm] ","b [mm] ","cnom [mm] ","∅Büg [mm]","∅Bew [mm]"}, {"Bemessungsmoment","Höhe des Betonquerschnittes","breite des Betonquerschnittes","Betondeckung [mm]","Bügeldurchmesser [mm]","Bewehrungsdurchmesser [mm]"}); d:=H1-cnom-∅Büg-∅Bew; as:=Md*1000000/(0.9*d*435); END; RECT_P(7,135,310,200,RGB(0,0,0),RGB(0,230,255)); TEXTOUT_P("Ergebniss: ",19,140,6); //LINE_P(0,185,170,185); TEXTOUT_P("erf As",120,140,6); TEXTOUT_P("=",180,140,6); TEXTOUT_P(ROUND(as,0)+" mm²",195,140,6); //TEXTOUT_P("mm",240,140,6); REPEAT DRAWMENU("ENDE","","weiter","","","zurück"); // Get mouse data REPEAT m:=MOUSE; m1:=m(1); UNTIL SIZE(m1)>0; mx:=m1(1); my:=m1(2); // ENDE IF (my≥220 AND my≤319) AND (mx≥0 AND mx≤51) THEN Startview(-1); END; IF (my≥220 AND my≤319) AND (mx≥106 AND mx≤160) THEN I:=1;erfAs; END; //erfAs neu IF (my≥220 AND my≤319) AND (mx≥265 AND mx≤319) THEN I:=1;erfAs; END; //Close main loop UNTIL ((my≥220 AND my≤319) AND (mx≥0 AND mx≤51) or (my≥220 AND my≤319) AND (mx≥106 AND mx≤160) or (my≥220 AND my≤319) AND (mx≥265 AND mx≤319)); END; |
|||
« Next Oldest | Next Newest »
|
Messages In This Thread |
Input Question - Onieh - 11-17-2017 09:16 AM
RE: Input Question - webmasterpdx - 11-17-2017, 09:24 AM
RE: Input Question - Onieh - 11-17-2017, 09:41 AM
RE: Input Question - webmasterpdx - 11-17-2017, 10:23 AM
RE: Input Question - Onieh - 11-17-2017, 11:01 AM
RE: Input Question - webmasterpdx - 11-17-2017, 11:11 AM
RE: Input Question - Onieh - 11-17-2017, 11:29 AM
RE: Input Question - Didier Lachieze - 11-17-2017, 11:59 AM
RE: Input Question - webmasterpdx - 11-17-2017, 12:00 PM
RE: Input Question - webmasterpdx - 11-17-2017, 12:06 PM
RE: Input Question - webmasterpdx - 11-17-2017, 12:10 PM
RE: Input Question - Onieh - 11-17-2017, 12:37 PM
|
User(s) browsing this thread: 1 Guest(s)