{"id":54973,"date":"2008-10-27T11:14:00","date_gmt":"2008-10-27T11:14:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2008\/10\/27\/hey-scripting-guy-how-can-i-create-an-hta-to-do-temperature-conversions\/"},"modified":"2008-10-27T11:14:00","modified_gmt":"2008-10-27T11:14:00","slug":"hey-scripting-guy-how-can-i-create-an-hta-to-do-temperature-conversions","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-create-an-hta-to-do-temperature-conversions\/","title":{"rendered":"Hey, Scripting Guy! How Can I Create an HTA to Do Temperature Conversions?"},"content":{"rendered":"

\"Hey, <\/h2>\n

Hey, Scripting Guy! I read with interest your “blog from down under,” and I was interested in your function that converts Fahrenheit to Celsius. My wife and I are going on vacation to Germany, and I want to be able to do metric conversions. The problem, however, is that I do not want to install Windows PowerShell on my wife’s laptop. Can you change the Windows PowerShell script into an HTA that would be easy to use?<\/p>\n

– MH<\/p>\n

\"Spacer\"\"Hey, <\/p>\n

Hi MH,<\/p>\n

You do not want to install Windows PowerShell on your wife\u2019s laptop? I thought that was what the scripting wife’s laptop was for\u2014as a test bed for learning new applications. The scripting wife’s laptop is currently running the community technology preview of Windows 7. She loves being on the forefront of technology. Her scripting computer in the kitchen is running the beta of Internet Explorer 8 (which she absolutely loves by the way).<\/p>\n

I really believe your wife would thank you if you upgraded her to Windows PowerShell. However, I really don’t do marriage counseling anymore, but I do still dabble from time to time. Remind me to show you the “Love-O-Matic”\u2014it’s like the Script-O-Matic I wrote, only it sends little love messages to the script wife via e-mail. It\u2019s part of our \u201cBetter living through scripting\u201d series of scripts. Maybe I will show you the Love-O-Matic for Valentine’s Day.<\/p>\n

Okay, MH, so you want a good old-fashioned HTML application (HTA) file that you can simply double-click and run to do temperature conversion? Happy to oblige. Here you go:<\/p>\n

<head>\n<title>Convert Temperatures<\/title>\n<HTA:APPLICATION \n     ID=\"objTest\" \n     APPLICATIONNAME=\"Convert Temp\"\n     SCROLL=\"yes\"\n     SINGLEINSTANCE=\"yes\"\n>\n<\/head>\n<SCRIPT LANGUAGE=\"VBScript\">\n' PUT YOUR SUBROUTINES HERE\nSub SubChoose\n        For Each objButton in RadioOption\n            If objButton.Checked Then\n                Select Case objButton.Value\n                \tCase 1\n                \tstrString = \"the temperature is \" & funCelsius(txtBox.value)\n                \tDataArea.innerHTML = strString\n                \tCase 2\n                \tstrString = \"The temperature is \" & funFahrenheit(txtBox.value)\n                \tDataArea.innerHTML = strString\n                \tCase Else\n                \tMsgBox \"who knows\"\n                End Select\n            End If\n        Next\nEnd Sub\nFunction funCelsius(strIn)\nfunCelsius = formatNumber((strIN * 1.8) + 32)\nEnd Function \nFunction funFahrenheit(strIn)\nfunFahrenheit = formatNumber((5\/9) * (strIN - 32))\nEnd Function \n<\/SCRIPT>\n<body>\n<input type=\"text\" name=\"TxTbox\" size=\"30\" value=72> Temperature to convert<br>\n\t<p>\n\t<input type=\"radio\" name=\"RadioOption\" value=1>Fahrenheit<BR>\n    <input type=\"radio\" name=\"RadioOption\" value=2>Celsius<BR>\n    <input id=runbutton  class=\"button\" type=\"button\" value=\"Convert\"_\n    \t name=\"run_button\"  onClick=\"SubChoose\">\n<p>\n<Span ID = \"DataArea\"><\/Span>\n<\/body><\/pre>\n
We begin the script by setting the head section of the script. In the head section we specify the title of the application, an ID, and the application name. We also determine if the application can scroll and if only one instance of it is allowed to run at a time. We set both of these values to yes<\/b>. This section of the script is seen here:<\/p>\n
<head>\n<title>Convert Temperatures<\/title>\n<HTA:APPLICATION \n     ID=\"objTest\" \n     APPLICATIONNAME=\"Convert Temp\"\n     SCROLL=\"yes\"\n     SINGLEINSTANCE=\"yes\"\n>\n<\/head><\/pre>\n
Once we are finished with the head section of the script, we specify the language for our application\u2014VBScript in this case\u2014by using this tag:<\/p>\n
<SCRIPT LANGUAGE=\"VBScript\"><\/pre>\n
Now we create a subroutine that is used to evaluate the buttons that are selected. If you click Celsius<\/b>, the temperature will be converted from Fahrenheit to Celsius (case 1). The value is taken from the text box and passed to the funCelsius<\/b> function to do the conversion. If you click Fahrenheit<\/b>, the temperature will be converted from Celsius to Fahrenheit (the case 2). The value is passed from the text box to the funFahrenheit<\/b> function. In either case, we write the value of the strString<\/b> to the innerHTML<\/b> property of the DataArea<\/b>. If neither case is selected, we have a case else<\/b> that simply displays a message that says, “Who Knows.” As the script is written, it is very unlikely to reach the case else<\/b>. The SubChoose<\/b> subroutine is seen here:<\/p>\n
Sub SubChoose\n\n        For Each objButton in RadioOption\n            If objButton.Checked Then\n                Select Case objButton.Value\n                \tCase 1\n                \tstrString = \"the temperature is \" & funCelsius(txtBox.value)\n                \tDataArea.innerHTML = strString\n                \tCase 2\n                \tstrString = \"The temperature is \" & funFahrenheit(txtBox.value)\n                \tDataArea.innerHTML = strString\n                \tCase Else\n                \tMsgBox \"who knows\"\n                End Select\n            End If\n        Next\nEnd Sub<\/pre>\n
We now have two functions that end the script section of the HTA. The first function is called funCelsius<\/b>, which is called by passing an integer to it. We then use the FormatNumber<\/b> function that is built into VBScript to display the number to two decimal points. By default, FormatNumber<\/b> displays two decimal points. We take the value passed to the funcelsius<\/b> function, multiply it by 9\/5, and then add 32. This will convert Celsius to Fahrenheit. The function is seen here:<\/p>\n
Function funCelsius(strIn)\nfunCelsius = formatNumber((strIN * 1.8) + 32)\nEnd Function<\/pre>\n
The second function is very similar. We pass a value to the funFahrenheit<\/b> function. The parentheses require that 32 be subtracted from strIN<\/b> with the result multiplied by 5\/9. We use the VBScript FormatNumber<\/b> function to display only two decimal places. This function is seen here:<\/p>\n
Function funFahrenheit(strIn)\nfunFahrenheit = formatNumber((5\/9) * (strIN - 32))\nEnd Function <\/pre>\n
We need to end the script section by closing the script tag as shown here:<\/p>\n
<\/SCRIPT><\/pre>\n
The body section of the HTA script is used to create the form we see. We first create a text box named Txtbox<\/b>, set its size and default value. We also add text at the end of the text box to tell us what the text box is used for. We then create two options buttons. When the first option button is clicked, we set the value to 1. This is what we evaluate in our select<\/b> case section we looked at earlier. If the second option button is clicked, we set the value to 2. When the Convert<\/b> button is pressed, it generates an onClick<\/b> event, and we then call the SubChoose<\/b> subroutine, which will then perform our calculations. The other thing we do is create a DataArea<\/b> span that will contain the text we write to the application from within our subroutine. This section of the script is seen here:<\/p>\n
<body>\n<input type=\"text\" name=\"TxTbox\" size=\"30\" value=72> Temperature to convert<br>\n\t<p>\n\t<input type=\"radio\" name=\"RadioOption\" value=1>Fahrenheit<BR>\n    <input type=\"radio\" name=\"RadioOption\" value=2>Celsius<BR>\n    <input id=runbutton  class=\"button\" type=\"button\" value=\"Convert\"_\n    \t name=\"run_button\"  onClick=\"SubChoose\">\n<p>\n<Span ID = \"DataArea\"><\/Span>\n<\/body><\/pre>\n
The Convert Temperatures HTA is seen here:<\/p>\n
\"The <\/p>\n
 <\/p>\n
To use the Convert Temperatures HTA, all you do is type the temperature value in the Temperature to convert<\/b> box. Click either the Fahrenheit<\/b> or the Celsius<\/b> option button, and then click Convert<\/b>. As you can see above, 72 degrees Fahrenheit is 22.22 degrees Celsius.<\/p>\n
MH, I hope this helps you to have fun on your vacation to Europe. Take lots of pictures.<\/p>\n
Ed Wilson and Craig Liebendorfer, Scripting Guys<\/b><\/b><\/span><\/font><\/p>\n
<\/b><\/font><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I read with interest your “blog from down under,” and I was interested in your function that converts Fahrenheit to Celsius. My wife and I are going on vacation to Germany, and I want to be able to do metric conversions. The problem, however, is that I do not want to install […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[3,4,5,30],"class_list":["post-54973","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-vbscript","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I read with interest your “blog from down under,” and I was interested in your function that converts Fahrenheit to Celsius. My wife and I are going on vacation to Germany, and I want to be able to do metric conversions. The problem, however, is that I do not want to install […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/54973","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=54973"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/54973\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=54973"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=54973"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=54973"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}