dany_3p4u
07-10-2010, 10:10
سلام
چند خطش را اینجا می زارم
کسی می تونه بگه به چه زبونیه و باچی می شه اجراش کرد ؟؟؟
++++++++++++++++++++++++++++
GWBASIC IBM
یک جایی از متنش نوشته گویا کدش اینه
حالا من کجا این را اجرا کنم ؟
برای ویندوز 7 یا فوش ایکس پس ران شه ؟؟؟
++++++++++++++++++++++++++++++++
20 KEY OFF
30 REM Specify initial data
40 SF=.85:ETI=.9:ETS:.8:BETA1S=-60:ANU=.4:ALP2=65:R1SR2=.7:G=1.4:A$="Y"
50 CLS:PRINT"COMPRESSOR DESIGN PROGRAM.INPUT REQUIRED PRESSURE RATIO"
60 INPUT PR
70 PRINT"THE CALCULATION WILL STEP THROUGH A RANGE OF IMPELLER DISCHARGE BLADE ANGLES"
80 PRINT"INPUT THE STRATING VALUE e.g 20 OR 0 OR -10. TEHM THE STEP LENGTH e.g. 5 OR 10"
90 PRINT"AND TEN THE NUMBER OF STEPS. EXAMPLE INPUT IS 0,10,5"
100 INPUT BETAB2I,BSTEP,NSTEP:BETA2F=BETAB2I-(NSTEP-1)*BESTEP:BETAB2=BETAB2I
110 CLS
120 PRINT TAB(25);"DESIGN PRESSURE RATIO";PR
130 PRINT "KEY"
140 PRINT"Number";TAB(10);"Parameter";TAB(45);SF
=========================================
=========================================
2040 IF A$="S" OR A$="s" THEN STOP
2050 PRINT"Input key number and magnitude of parameter e.g. 4,-55.6
2060 INPUT I;IF I>7.01 THEN RETURN
2070 ON I GOTO 2080,2090,2100,2110,2120,2130,2140
2080 SF=X:GOTO 2000
2090 ETI=X:GOTO 2000
چند خطش را اینجا می زارم
کسی می تونه بگه به چه زبونیه و باچی می شه اجراش کرد ؟؟؟
++++++++++++++++++++++++++++
GWBASIC IBM
یک جایی از متنش نوشته گویا کدش اینه
حالا من کجا این را اجرا کنم ؟
برای ویندوز 7 یا فوش ایکس پس ران شه ؟؟؟
++++++++++++++++++++++++++++++++
20 KEY OFF
30 REM Specify initial data
40 SF=.85:ETI=.9:ETS:.8:BETA1S=-60:ANU=.4:ALP2=65:R1SR2=.7:G=1.4:A$="Y"
50 CLS:PRINT"COMPRESSOR DESIGN PROGRAM.INPUT REQUIRED PRESSURE RATIO"
60 INPUT PR
70 PRINT"THE CALCULATION WILL STEP THROUGH A RANGE OF IMPELLER DISCHARGE BLADE ANGLES"
80 PRINT"INPUT THE STRATING VALUE e.g 20 OR 0 OR -10. TEHM THE STEP LENGTH e.g. 5 OR 10"
90 PRINT"AND TEN THE NUMBER OF STEPS. EXAMPLE INPUT IS 0,10,5"
100 INPUT BETAB2I,BSTEP,NSTEP:BETA2F=BETAB2I-(NSTEP-1)*BESTEP:BETAB2=BETAB2I
110 CLS
120 PRINT TAB(25);"DESIGN PRESSURE RATIO";PR
130 PRINT "KEY"
140 PRINT"Number";TAB(10);"Parameter";TAB(45);SF
=========================================
=========================================
2040 IF A$="S" OR A$="s" THEN STOP
2050 PRINT"Input key number and magnitude of parameter e.g. 4,-55.6
2060 INPUT I;IF I>7.01 THEN RETURN
2070 ON I GOTO 2080,2090,2100,2110,2120,2130,2140
2080 SF=X:GOTO 2000
2090 ETI=X:GOTO 2000