Comments on: The SQL to the Orbiting Ball http://hoopercharles.wordpress.com/2010/09/12/the-sql-to-the-orbiting-ball/ Miscellaneous Random Oracle Topics: Stop, Think, ... Understand Mon, 13 May 2013 14:10:06 +0000 hourly 1 http://wordpress.com/ By: Charles Hooper http://hoopercharles.wordpress.com/2010/09/12/the-sql-to-the-orbiting-ball/#comment-1833 Tue, 14 Sep 2010 17:14:04 +0000 http://hoopercharles.wordpress.com/?p=3252#comment-1833 The link to the original OrbitBall.zip file did not work – WordPress apparently prevented that attachment from being downloaded. For the handful of people who tried to download the old 16 bit program, please try again. I changed the secondary extension from .doc to .pdf to hopefully permit you to download the file (it now works for me).

]]> By: Charles Hooper http://hoopercharles.wordpress.com/2010/09/12/the-sql-to-the-orbiting-ball/#comment-1829 Mon, 13 Sep 2010 12:42:19 +0000 http://hoopercharles.wordpress.com/?p=3252#comment-1829 A couple of suggestions. If the oak disc does not rotate, immedaitely before this line:

Do While intQuit = False

Add the following to give the computer 2 seconds to download each of the images (increase if necessary):

 
    For i = 1 to 8
        objOrbitBallPic.Src = "http://hoopercharles.files.wordpress.com/2010/09/sqlorbitingball" & cStr(i Mod 8 ) & ".png"
        Wscript.Sleep 2000
    Next

The rotating action seems to be a bit smoother if the sleep delay in the Do loop is changed from:

Wscript.Sleep 50

To:

Wscript.Sleep 100

If the above change is made, change (i/2 Mod 8 ) to (i Mod 8 ), change from:

objOrbitBallPic.Src = "http://hoopercharles.files.wordpress.com/2010/09/sqlorbitingball" & cStr(i/2 Mod 8 ) & ".png"

To:

objOrbitBallPic.Src = "http://hoopercharles.files.wordpress.com/2010/09/sqlorbitingball" & cStr(i Mod 8 ) & ".png"
]]>