|
|
|
| |
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
|
'**************************************
' for :any system to another tempreature
' converter
'**************************************
just copy and paste the code , |
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: any system to another tempreatur
' e converter
' Description:converts from any system t
' o any other system,
it's also tempreature converter , but it is a new look , i think it's good ,
excuse me , i'm still a beginner To vb script ,i 'm trying to practise it as much as possible
' By: sherif rofael
'
' Assumes:see it running :
http://sherif1.netfirms.com/tem.htm
or
http://user.domaindlx.com/sherif/tem.htm
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=7749&lngWId;=4 'for details. '**************************************
<HTML>
<HEAD>
<META http-equiv="Content-Language" content="en-us">
<META http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META name="GENERATOR" content="Microsoft FrontPage 5.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<SCRIPT id=clientEventHandlersVBS language=vbscript>
<!--
Sub D1_onclick
call detect()
if convert.value="" Then convert.value=0
End Sub
Sub D2_onclick
call detect()
if convert.value="" Then convert.value=0
End Sub
function detect()
if d1.value=1 and d2.value=1 Then
t.value= convert.value & " celcius equals " & convert.value & " celcius"
End if
if d1.value=2 and d2.value=2 Then
t.value= convert.value & " fahrenhite equals " & convert.value & " fahrenhite"
End if
if d1.value=3 and d2.value=3 Then
t.value= convert.value & " kelvin equals " & convert.value & " kelvin"
End if
if d1.value=1 and d2.value=2 Then
t.value= convert.value & " celcius equals " & ((convert.value)*9/5+32) & " fahrenhite"
End if
if d1.value=2 and d2.value=1 Then
t.value= convert.value & " fahrenhite equals " & (((convert.value)-32)*5/9) & " celcius"
End if
if d1.value=3 and d2.value=1 Then
t.value= convert.value & " kelvin equals " & (convert.value)-273 & " celcius"
End if
if d1.value=1 and d2.value=3 Then
t.value= convert.value & " celcius equals " & (convert.value)+273 & " kelvin"
End if
if d1.value=2 and d2.value=3 Then
t.value= convert.value & " fahrenhite equals " & (((convert.value)-32)*5/9)+273 & " kelvin"
End if
if d1.value=3 and d2.value=2 Then
t.value= convert.value & " kelvin equals " & ((convert.value)-273)*9/5+32 & " fahrenhite"
End if
End function
Sub window_onload
call detect()
if convert.value="" Then convert.value=0
End Sub
-->
</SCRIPT>
<TITLE>tempreature converter by sherif rofael </TITLE>
</HEAD>
<BODY>
<P> </P>
<P>I WANT To CONVERT </P>
<P>CONVERT : <INPUT type="text" name="convert" size="20"></P>
<P> FROM:
TO:</P>
<P> <Select size="4" name="D1">
<OPTION value="1" selected>celcius</OPTION>
<OPTION value="2">fahrenhite</OPTION>
<OPTION value="3">kelvin</OPTION>
</Select> <SELECT size="4" name="D2">
<OPTION value="1" selected>celcius</OPTION>
<OPTION value="2">fahrenhite</OPTION>
<OPTION value="3">kelvin</OPTION>
</Select></P>
<P> <INPUT type="text" name="T" size="45"></P>
<P> </P>
<P>
<A href="mailto:ya3amo@hotmail.com?subject=tempreature converter ( second version)">
E-MAIL</A></P>
<P> </P>
</BODY>
</HTML> | |
Other 3 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
8/9/2002 9:33:42 PM:Lewis Moten
I saw your site first. Didn't realize
you posted it on PSC also. Kudos!
|
8/21/2002 12:32:04 AM:rien
how to program count using vbscript
"Peruntukan - Kos = Baki"
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
