<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Spec = Server.Mappath("counter1.txt")
Set File = fso.OpenTextFile(Spec, 1)
Do While not File.AtEndOfStream
tal = File.ReadLine
Loop
tal = tal+1
File.Close
Set FSO = CreateObject("Scripting.FileSystemObject")
Spec = Server.Mappath("counter1.txt")
Set File = fso.OpenTextFile(Spec, 2)
File.WriteLine tal
File.Close
Set FSO = Nothing
%>
Startside-ror
Antal besøgende som har besøgt denne side: 9165 |
Startside for rør- beregninger m.m.:
Tabel
Vejledning til tabel
Tilbage til startsiden
Vær opmærksom på at installationsfilen pakkes ud i en tom mappe,
fordi exefilen fremstiller i alt 58 enkeltfiler.
Download programmet Rorberegning.exe
Download kildekoden i C++ til programmet Rorberegning.exe
Download kildekoden i Java til programmet Rorberegning
Download samlet tabel som et Microsoft Word dokument
Alle filerne er pakket som zip filer.
For at åbne filerne skal man have WinZip eller et andet pakkeprogram installeret!
Her kan du downloade WinZip
Spørgsmål vedrørende rørberegningstabellen kan rettes til:
Tommy Balle