(502)  Registro

Español
Fuente/ Codesnippets

Celsius Fahrenheit Kelvin Reaumur Temperaturen Umwandeln

 
- Página 1 -



KompilierenMarcaSeparación
!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 CitaZeilenweise Cita
 



 
- Página 1 -



Jac
de
Lad
Como fehlen todavía Rankine, Römer y Delisle! (Parcival beherrscht el ya!!!!)
 
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 uno el porque una?
El Formeln el ahora como son, son todos aktuell gebräuchliche (el Yo auch ya gehört habe). El otro saber Yo no.
[quote:ed9a4acaa1]
Versionen antes XProfan8?
Decimals 2
Imprimir CelsiusToFahrenheit 36.89
[/quote:ed9a4acaa1]
KompilierenMarcaSeparación
Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
30.08.2006  ▲
 



Das Ganze en el Wiki: [...] 
 
31.08.2006  ▲
 




Jac
de
Lad
Jo, en Wiki stehts. Außer Celsuis y Kelvin (y tal vez Fahrenheit en USA y así) son el otro Skalen no mehr wichtig.

BTW: en Grad Delisle se el Valor el Temperatur kleiner je höher el Temperatur es! 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, en Wiki stehts. Außer Celsuis y Kelvin (y tal vez Fahrenheit en USA y así) son el otro Skalen no mehr wichtig.

BTW: en Grad Delisle se el Valor el Temperatur kleiner je höher el Temperatur es! Vrerückt!!! [/quote:5841e852d0]Lol - una Widerstand para Siedepunkt de Wolfram?
 
31.08.2006  ▲
 




Michael
Dell
Schönes Ding.

Darfs algo weniger ser?
KompilierenMarcaSeparación
!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 algo weniger ser?[/quote:6e098658e4]
Usted hast el Sache sí 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 con el Temperatur a tun, klingen aber muy schön.
Kann bajo Öxle (oder Öhsle?) bajo Wikipedia nachgeschlagen voluntad.
 
Nico Madysa
01.09.2006  ▲
 



 
- Página 2 -



Michael
Dell
[quote:5bd597ed51]Usted hast el Sache sí jede Optik genommen. [/quote:5bd597ed51]
I.. I.. Puedo simplemente no anders, Hrrmpf!
Noch mehr Optik klau :
KompilierenMarcaSeparación
!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 sin embargo) son el Zuckergehalt uno Flüssgikeit a. Dabei se el Brechungswinkel en el Flüssigkeit gemessen (por lo tanto 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:5c1d76como43=Michael Dell][quote:5c1d76como43]Usted hast el Sache sí jede Optik genommen. [/quote:5c1d76como43]
I.. I.. Puedo simplemente no anders, Hrrmpf!
Noch mehr Optik klau :[/quote:5c1d76como43]
Lo reicht! - Usted hast übertrieben!
 
03.09.2006  ▲
 



◄
12

Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

16.725 Views

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

Themeninformationen

Dieses Thema ha 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  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie