(2.655)  Registro

Italia
Fonte/ Codesnippets

Celsius Fahrenheit Kelvin Reaumur Temperaturen Umwandeln

 
- Page 1 -



KompilierenMarkierenSeparieren
!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
 
30.08.2006  ▲
Vollständiges Zitat
Absatzweise CitazioneZeilenweise Citazione
 



 
- Page 1 -



Jac
de
Lad
Da fehlen noch Rankine, Römer und Delisle! (Parcival beherrscht die schon!!!!)
 
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
30.08.2006  ▲
 




Michael
Wodrich
Wo setzt man die denn ein?
Die Formeln die jetzt da sind, sind alle aktuell gebräuchliche (die ich auch schon gehört habe). Die anderen kenne ich nicht.
[quote:ed9a4acaa1]
Versionen vor XProfan8?
Decimals 2
Print CelsiusToFahrenheit 36.89
[/quote:ed9a4acaa1]
KompilierenMarkierenSeparieren
Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
30.08.2006  ▲
 



Das Ganze in der Wiki: [...] 
 
31.08.2006  ▲
 




Jac
de
Lad
Jo, in Wiki stehts. Außer Celsuis und Kelvin (und vielleicht Fahrenheit in USA und so) sind die anderen Skalen nicht mehr wichtig.

BTW: bei Grad Delisle wird der Wert der Temperatur kleiner je höher die Temperatur ist! 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
31.08.2006  ▲
 



[quote:5841e852d0=Jacob Liebeck]Jo, in Wiki stehts. Außer Celsuis und Kelvin (und vielleicht Fahrenheit in USA und so) sind die anderen Skalen nicht mehr wichtig.

BTW: bei Grad Delisle wird der Wert der Temperatur kleiner je höher die Temperatur ist! Vrerückt!!! [/quote:5841e852d0]Lol - ein Widerstand zum Siedepunkt von Wolfram?
 
31.08.2006  ▲
 




Michael
Dell
Schönes Ding.

Darfs etwas weniger sein?
KompilierenMarkierenSeparieren
!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! 
01.09.2006  ▲
 



[quote:6e098658e4=Michael Dell]Schönes Ding.

Darfs etwas weniger sein?[/quote:6e098658e4]
Du hast der Sache ja jede Optik genommen.
 
01.09.2006  ▲
 




Michael
Dell
. . .
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
01.09.2006  ▲
 




Nico
Madysa
Grad Öxle haben zwar nichts mit der Temperatur zu tun, klingen aber sehr schön.
Kann unter Öxle (oder Öhsle?) unter Wikipedia nachgeschlagen werden.
 
Nico Madysa
01.09.2006  ▲
 



 
- Page 2 -



Michael
Dell
[quote:5bd597ed51]Du hast der Sache ja jede Optik genommen. [/quote:5bd597ed51]
I.. I.. Ich kann einfach nicht anders, Hrrmpf!
Noch mehr Optik klau :
KompilierenMarkierenSeparieren
!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! 
02.09.2006  ▲
 




Jac
de
Lad
Grad Öxle (oder Öxel oder wie auch immer) gibt den Zuckergehalt einer Flüssgikeit an. Dabei wird der Brechungswinkel in der Flüssigkeit gemessen (daher Grad).
 
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
02.09.2006  ▲
 



[quote:5c1d76da43=Michael Dell][quote:5c1d76da43]Du hast der Sache ja jede Optik genommen. [/quote:5c1d76da43]
I.. I.. Ich kann einfach nicht anders, Hrrmpf!
Noch mehr Optik klau :[/quote:5c1d76da43]
Es reicht! - Du hast übertrieben!
 
03.09.2006  ▲
 



◄
12

Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

17.185 Views

Untitledvor 0 min.
PETER195611.02.2016
Peter Max Müller29.05.2015

Themeninformationen

Dieses Thema hat 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  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie