Przeliczanie jednostek z VBScript.

Przeliczanie stopni z Fahrenheita na Celcjusza:

<SCRIPT language="VBScript">
Sub KnwTemper()
temp = InputBox("Podaj temperaturΩ w stopniach Fahrenheita.", "Przeliczanie temperatury")
MsgBox "Temperatura ta to " & Celsius(temp) & " w stopniach Celsjusza."
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
KnwTemper()
</SCRIPT>

Zobacz
Przeliczanie warto╢ci na system szesnastkowy:

<SCRIPT language="VBScript">
Sub KnwHex()
temp = InputBox("Podaj liczbΩ w systemie dziesiΩtnym.", "Przeliczanie liczb")
MsgBox "Ta liczba w systemie szesnastkowym to: " & Hex(temp) & " ."
End Sub
KnwHex()
</SCRIPT>

Zobacz
Wyci▒ganie pierwiastka:

<SCRIPT language="VBScript">
Sub WycKwd()
temp = InputBox("Wpisz liczbΩ, z kt≤rej mam wyci▒gn▒µ pierwiastek.", "Wyci▒ganie pierwiastka")
MsgBox "Ta liczba po wyci▒gniΩciu pierwiastka to: " & Sqr(temp) & " ."
End Sub
WycKwd()
</SCRIPT>

Zobacz