Need some help with the math in a function

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Need some help with the math in a function

Logged in as: Guest

arrSession:exec spGetSession 2,2,59881

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Need some help with the math in a function
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Need some help with the math in a function - 5/6/2008 6:44:53 AM

Rischip

Posts: 379
Score: 2
Joined: 3/26/2007
Status: offline

Most of this is example code of how to use the scrolling status bar. I'm going to switch this up and make it into a class, but for now I need a little help with the math in the "moveTo" Function.
I'm trying to get a smooth 0-100 percent adjustment, but I have to start out the width of the table to the negative. In this case -65px.

Any help is greatly appreciated.
Just save as an HTA. I know, I know, the format is junk, but right now I'm focusing on the math and the graphics. The code will get cleaned up when it goes into a class.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
  <title>Scrolling Status Bar</title>

document.getElementById("moveToBtn").Disabled = True
  document.getElementById("moveSliderBtn").Disabled = True

document.getElementById("_textBox").InnerText = "Smooth increment"
  For i = 1 To 200
  scroll(1) '1 percent 200 times
  Next

document.getElementById("_textBox").InnerText = "Jumpy increment"
  For i = 1 To 100
  scroll(4) 'move 4 percent 100 times
  Next

document.getElementById("_textBox").InnerText = "Fast increment"
  For i = 1 To 100
  scroll(10) 'move 10 percent 100 times
  Next

document.getElementById("_textBox").InnerText = "Move to specific Percentage 0"
  setPer(0)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 1"
  setPer(1)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 2"
  setPer(2)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 3"
  setPer(3)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 4"
  setPer(4)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 5"
  setPer(5)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 10"
  setPer(10)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 25"
  setPer(25)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 50"
  setPer(50)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 60"
  setPer(60)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 75"
  setPer(75)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 90"
  setPer(90)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 95"
  setPer(95)

document.getElementById("_textBox").InnerText = "Move to specific Percentage 100"
  setPer(100)
  document.getElementById("_textBox").InnerText = "Try using the buttons below"

document.getElementById("moveToBtn").Disabled = False
  document.getElementById("moveSliderBtn").Disabled = False

End Sub

</script>

</head>
<body>
  <div id="_scrollDiv" style="height: 22px; width: 400px;  position:relative; left:0px; border: 1px solid #000000; overflow: hidden" >
              
      <table id="_scrollTable" style="width: 65px; position:relative; left:-65px;  overflow: hidden" cellPadding="0" cellspacing="0" border="0">
          <tr>
              <td style="width: 4px; height: 22px; background-color: white">
              </td>
              <td style="filter: progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#ffffff, endcolorstr=#339900);
                  width: 10px; height: 22px;">
              </td>
              
              <td style="width: 4px; height: 22px; background-color: white">
              </td>
              <td style="filter: progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900);
                  width: 10px; height: 22px;">
              </td>
              
              <td style="width: 4px; height: 22px; background-color: white">
              </td>
              <td style="filter: progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900);
                  width: 10px; height: 22px;">
              </td>
              
              <td style="width: 4px; height: 22px; background-color: white">
              </td>
              <td style="filter: progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#33ff00, endcolorstr=#339900);
                  width: 10px; height: 22px;">
              </td>
              
              <td style="width: 4px; height: 22px; background-color: white">
              </td>
              <td style="filter: progid:dximagetransform.microsoft.gradient(gradienttype=1, startcolorstr=#00cc00, endcolorstr=#006600);
                  width: 10px; height: 22px;">
              </td>
          </tr>
      </table>
      
      </div>
  <textarea rows="2" id="_textBox"></textarea>
<br>
<button id="moveSliderBtn" onclick=moveSlider(1)>Move</button><br>
<button id="moveToBtn" onclick=movePerText()>moveTo Percent</button><input type="text" id="_textEntryBox" onFocus="SelectText" value="Enter Percentage Here"><br>

</body>
<script type="text/vbscript">

Function moveSlider(percentage) 'adjust a percentage

currentLocation = Int(Replace(document.getElementById("_scrollTable").Style.Left, "px", ""))
  'MsgBox currentLocation
  moveToLocation = currentLocation + (percentage*((Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", ""))) / 100))
  
  percentOf = 100* (Int(Replace(document.getElementById("_scrollTable").Style.Left, "px", "")) / Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", "")))
  setPx = moveToLocation & "px"
  document.getElementById("_scrollTable").Style.Left = setPx
'    document.getElementById("_textBox").InnerText = "Position " & setPx _
'    & " Position " & Int(Replace(document.getElementById("_scrollTable").Style.Left, "px", "")) _
'    & " Width " & Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", "")) _ 
'    & "Percent " & percentOf
  
  'document.getElementById("_mover").InnerHtml = setPx
  
  If (Int(Replace(document.getElementById("_scrollTable").Style.Left, "px", ""))) > (Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", ""))) Then
      document.getElementById("_scrollTable").Style.Left = "-" & document.getElementById("_scrollTable").Style.Width
  End If

End Function

Function moveTo(percentage) 'move to a specific percentage
  If percentage < 7 Then 
  document.getElementById("_scrollTable").Style.Left = (percentage*((Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", ""))) / 100)) - ((Int(Replace(document.getElementById("_scrollTable").Style.Width, "px", "")))) & "px"
  ElseIf percentage < 93 Then
  document.getElementById("_scrollTable").Style.Left = (percentage*((Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", ""))) / 100)) - ((Int(Replace(document.getElementById("_scrollTable").Style.Width, "px", "")))/2) & "px"
  Else
  document.getElementById("_scrollTable").Style.Left = (percentage*((Int(Replace(document.getElementById("_scrollDiv").Style.Width, "px", ""))) / 100)) & "px"
  End If
End Function

Sub scroll(per) 'Just being used for the example
  
  moveSlider(per)' This is the function that would be called from "Real" Code
  SleeperSub(2) 'Just being used for the example
  
End Sub

Sub setPer(per)
  
  moveTo(per)' This is the function that would be called from "Real" Code
  SleeperSub(20) 'Just being used for the example
  
End Sub

Sub SleeperSub(num) ' just a minuscule sleep 'This code is to simulate delays which code would naturally create

Set sleeper = CreateObject("Wscript.Shell")
  'sleeper.Run "cmd /c sleep -m 20", 0, True
  For i = 1 To num
      sleeper.Run "cmd /c ", 0, True
  Next

End Sub

Sub movePerText
  'MsgBox document.getElementById("_textEntryBox").Value
  SetLocation = document.getElementById("_textEntryBox").Value
  'MsgBox SetLocation
  moveTo(SetLocation)
End Sub

Sub SelectText
  document.getElementById("_textEntryBox").select()

End Sub

moveSlider(0)
</script>

</html>

_____________________________

Rischip
Author of - The Grim Linker