Excel Feldberechnung

[cplume]

Hallo Leute,
mir liegt ein BASIC Programmcode vor. Dieses Programm würde ich gerne für eine Feldberechnung in Excel hernehmen. Leider habe ich von VB keine Ahnung.
Die Daten für die Berechnung liegen auch alle in der Excel-Tabelle.

Suche also Unterstützung bei der Realisierung.
Wer kann mir weiterhelfen. Die Dateien Quellcode (leider bis jetzt nur als pdf - txt kommt asap) und Excel-Mappe liegen als zip-file auf meinen Webserver. http://web40.server2.dce4u.de/cp/basic.zip

Danke

so long
cplume

 

[cplume]

Quellcode

CLS
PRINT "DATA ENTRY"
INPUT " Clothing CLO";
INPUT " Metabolic rate MET";
INPUT " External Work WME";
INPUT " Air temperature TA";
INPUT " mean radiant temperature TR";
INPUT " relative air velocity VEL";
PRINT "Enter either RH or water vapour pressure but not both"
INPUT " relative humidity RH";
INPUT " water vapour pressure PA";
DEF FNPS(T)=EXP(16.6536-4030.183/(T+235))
IF PA=0 THEN PA=RH*10*FNPS(TA)
ICL = 0.155*CLO
M = MET*58.15
W = WME*58.15
MW = M-W
IF ICL < 0.078 THEN FCL=1+1.29*ICL ELSE FCL=1.05+0.645*ICL
HCF = 12.1*SQR(VEL)
TAA = TA+273
TRA = TR + 273
'calculate surface temperature of clothing by iteration
TCLA=TAA+(35.5-TA)/(3.5*(6.45*ICL+0.1))
P1=ICL*FCL
P2=P1*3.96
P3=P1*100
P4=P1*TAA
P5=308.7-0.028*MW+P2*(TRA/100)^4
XN=TCLA/100
XF=XN
N=0
EPS=0.00015
XF=(XF-XN)/2
HCN=2.38*ABS(100*XF-TAA)^0.25
IF HCF>HCN THEN HC=HCF ELSE HC=HCN
XN=(P5+P4*HC-P2*XF^4)/(100+P3*HC)
N=N+1
IF N>150 THEN GOTO 55
IF ABS(XN-XF)>EPS GOTO 35
TCL=100*XN-273
'heat loss components
HL1=3.05*0.001*(5733-6.99*MW-PA)
IF MW>58.15 THEN HL2=0.42*(MW-58.15) ELSE HL2=0!
HL3=1.7*0.00001*M*(5867-PA)
HL4=0.0014*M*(34-TA)
HL5=3.96*FCL*(XN4-(TRA/100)4)
HL6=FCL*HC*(TCL-A)
calculate PMV and PPD
TS=0.303*EXP(-0.036*M)+0.028
PMV=TS*(MW-HL1-HL2-HL3-HL4-HL5-HL6)
PPD=100-95*EXP(-0.03353*PMV4-0.2179*PMV2)
GOTO 57
PMV=999999!
PPD=100
PRINT: PRINT "Output"
PRINT "PMV";PMV
PRINT "PPD";PPD