(2.400)  Login

English
Source / code snippets

celsius fahrenheit Kelvin Reaumur temperatures transfiguring

 
- Page 1 -



CompileMarkSeparation
!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln
Declare Result$,Value$
Decimals 2

Proc CelsiusToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 1.8 + 32
    Print Result$

EndProc

Proc CelsiusToKelvin

    Parameters Value$
    Result$ = @VAL(Value$) + 273.15
    Print Result$

EndProc

Proc CelsiusToReaumur

    Parameters Value$
    Result$ = @VAL(Value$) * 0.8
    Print Result$

EndProc

Proc KelvinToCelsius

    Parameters Value$
    Result$ = @VAL(Value$) - 273.15
    Print Result$

EndProc

Proc KelvinToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 1.8 - 459.67
    Print Result$

EndProc

Proc KelvinToReaumur

    Parameters Value$
    Result$ = (@VAL(Value$) - 273.15) * 0.8
    Print Result$

EndProc

Proc FahrenheitToCelsius

    Parameters Value$
    Result$ = (@VAL(Value$) - 32) / 1.8
    Print Result$

EndProc

Proc FahrenheitToKelvin

    Parameters Value$
    Result$ = (@VAL(Value$) + 459.67) / 1.8
    Print Result$

EndProc

Proc FahrenheitToReaumur

    Parameters Value$
    Result$ = (@VAL(Value$) - 32) / 2.25
    Print Result$

EndProc

Proc ReaumurToCelsius

    Parameters Value$
    Result$ = @VAL(Value$) * 1.25
    Print Result$

EndProc

Proc ReaumurToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 2.25 + 32
    Print Result$

EndProc

Proc ReaumurToKelvin

    Parameters Value$
    Result$ = @VAL(Value$) * 1.25 + 273.15
    Print Result$

EndProc

Beispielaufruf
CLS
KelvinToReaumur &
63.15" WaitInput
 
08/30/06  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 1 -



Jac
de
Lad
there are missing yet Rankine, roman and Delisle! (Parcival rule The already!!!!)
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
08/30/06  ▲
 




Michael
Wodrich
where setting one The because one?
The Formeln The now there are, any currently gebräuchliche (The so did i already heard have). The others know I do not.
[quote:ed9a4acaa1]
versions to XProfan8?
Decimals 2
Print CelsiusToFahrenheit 36.89
[/quote:ed9a4acaa1]
CompileMarkSeparation
Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
08/30/06  ▲
 



the Whole in the Wiki: [...] 
 
08/31/06  ▲
 




Jac
de
Lad
Jo, in Wiki stehts. out of Celsuis and Kelvin (and Perhaps fahrenheit in USA and so) are The others Skalen not any more important.

BTW: with strain Delisle becomes the worth the temperature small apiece higher The temperature is! Vrerückt!!!
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
08/31/06  ▲
 



[quote:5841e852d0=Jacob Liebeck]Jo, in Wiki stehts. out of Celsuis and Kelvin (and Perhaps fahrenheit in USA and so) are The others Skalen not any more important.

BTW: with strain Delisle becomes the worth the temperature small apiece higher The temperature is! Vrerückt!!! [/quote:5841e852d0]Lol - one resistance to that Siedepunkt of Wolfram?
 
08/31/06  ▲
 




Michael
Dell
beautiful thing.

Darfs something less his?
CompileMarkSeparation
!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln
Decimals 2
Def CelsiusToFahrenheit(1) (&(1) * 1.8 + 32)
Def CelsiusToKelvin(1)     (&(1) + 273.15)
Def CelsiusToReaumur(1)    (&(1) * 0.8)
Def KelvinToCelsius(1)     (&(1) - 273.15)
Def KelvinToFahrenheit(1)  (&(1) * 1.8 - 459.67)
Def KelvinToReaumur(1)     ((&(1) - 273.15) * 0.8)
Def FahrenheitToCelsius(1) ((&(1) - 32) / 1.8)
Def FahrenheitToKelvin(1)  ((&(1) + 459.67) / 1.8)
Def FahrenheitToReaumur(1) ((&(1) - 32) / 2.25)
Def ReaumurToCelsius(1)    (&(1) * 1.25)
Def ReaumurToFahrenheit(1) (&(1) * 2.25 + 32)
Def ReaumurToKelvin(1)     (&(1) * 1.25 + 273.15)
Beispielaufruf
Cls
Print KelvinToCelsius(298.15)
Print
Print CelsiusToKelvin(25.00)
WaitInput
End
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
09/01/06  ▲
 



[quote:6e098658e4=Michael Dell]beautiful thing.

Darfs something less his?[/quote:6e098658e4]
you have the thing Yes each Optik taken.
 
09/01/06  ▲
 




Michael
Dell
. . .
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
09/01/06  ▲
 




Nico
Madysa
strain Öxle having of course nothing with the temperature To do, sound but very beautiful.
can under Öxle (or Öhsle?) under Wikipedia nachgeschlagen go.
 
Nico Madysa
09/01/06  ▲
 



 
- Page 2 -



Michael
Dell
[quote:5bd597ed51]you have the thing Yes each Optik taken. [/quote:5bd597ed51]
I.. I.. I can simply not differently, Hrrmpf!
yet More Optik klau :
CompileMarkSeparation
!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln ab Profan v6.6
Def Celsius2FKR(2)    If((&(2) = 0),(&(1) * 1.8 + 32),If((&(2) = 1),(&(1) + 273.15),If((&(2) = 2),(&(1) * 0.8),-1)))
Def Kelvin2CFR(2)     If((&(2) = 0),(&(1) - 273.15),If((&(2) = 1),(&(1) * 1.8 - 459.67),If((&(2) = 2),((&(1) - 273.15) * 0.8),-1)))
Def Fahrenheit2CKR(2) If((&(2) = 0),((&(1) - 32) / 1.8),If((&(2) = 1),((&(1) + 459.67) / 1.8),If((&(2) = 2),((&(1) - 32) / 2.25),-1)))
Def Reaumur2CFK(2)    If((&(2) = 0),(&(1) * 1.25),If((&(2) = 1),(&(1) * 2.25 + 32),If((&(2) = 2),(&(1) * 1.25 + 273.15),-1)))
Beispielaufruf
Cls
UseIcon "A"
Decimals 2
Print ("Celsius2FKR(25.00,0)   : "+Str$(Celsius2FKR(25.00,0)))
Print "---------------------------------"
Print ("Kelvin2CFR(298.15,1)   : "+Str$(Kelvin2CFR(298.15,1)))
Print "---------------------------------"
Print ("Fahrenheit2CKR(77.00,0): "+Str$(Fahrenheit2CKR(77.00,0)))
Print "---------------------------------"
Print ("Reaumur2CFK(20.00,1)   : "+Str$(Reaumur2CFK(20.00,1)))
WaitInput
End
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
09/02/06  ▲
 




Jac
de
Lad
strain Öxle (or Öxel or however) gives whom Zuckergehalt of/ one Flüssgikeit on. thereby becomes the Brechungswinkel in the liquid measured (therefore strain).
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
09/02/06  ▲
 



[quote:5c1d76there43=Michael Dell][quote:5c1d76there43]you have the thing Yes each Optik taken. [/quote:5c1d76there43]
I.. I.. I can simply not differently, Hrrmpf!
yet More Optik klau :[/quote:5c1d76there43]
it reicht! - you have exorbitant!
 
09/03/06  ▲
 



◄
12

Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

17.174 Views

Untitledvor 0 min.
PETER195602/11/16
Peter Max Müller05/29/15

Themeninformationen

this Topic has 7 subscriber:

iF (5x)
Michael Dell (3x)
Jac de Lad (3x)
Nico Madysa (1x)
Jörg Sellmeyer (1x)
Michael Wodrich (1x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie