Here is another HTA script that I wrote just for fun for all of my horse owner readers and my myITforum equine friends out there to help with estimating their horse’s weight. If you are a horse owner it is important to know your horses approximate weight when giving shots, when you need to worm them each quarter or when you visit the Vet and they need to know the horse’s estimated weight before giving you their prescription.
Thanks to Dianne B. and Scott G. for testing the script against actual weights and for their suggestions.
HTA Script:
<Html>
<Head>
<Title>HTA Script</Title>
<Style>
Body {Background-Color: CornSilk}
</Style>
<HTA:Application
Caption = Yes
Border = Thick
ShowInTaskBar = No
MaximizeButton = Yes
MinimizeButton = Yes>
<script Language = VBScript>
Sub WindowsLoad
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Orange'><b></td>"
strHTML = strHTML & "</tr>"
A = xGirth.value
B = xlength.value
C = A * A * B \ 330
Window.Document.Title = "Equine Weight Calculator"
strHTML = strHTML & "<td align='center'>" & "Your Horse Weights Approximately " & C & " (Lbs)" & "</td>"
strHTML = strHTML & "</table>"
DataArea.InnerHTML = strHTML
End Sub
</script><Body>
<p><h3 align = center><font color='Orange'>Please Visit myITforum.Com</font></h3>
<div></div>
<div align="center">Girth (Inches): <Input Type = "Text" Name = "xGirth"></div><P>
<div align="center">Length (Inches): <Input Type = "Text" Name = "xLength"></div><P>
<div align="center"><Input Type = "Button" Value = "Run Script" Name = "Run_Button" onClick = "WindowsLoad"></div><P>
<Span Id = "DataArea"></Span></Body><Div Align = "Center">
<P><A Href="http://myitforum.com/cs2/blogs/dhite">Created For myITforum By Don Hite</A>
How to Measure The Girth And Length
http://www.gaitedhorses.net/Articles/HorseWeightMes.gif
Pingback from HTA Script To Estimate Your Horses Weight | Animal Breeding Resource Page