This is part of a bit of a basic programming course here at uni, I have the following code which is meant to replace pictures with others:
This is meant to loop every 500ms, but the problem is it does it once (case 1), then stops. This I don't understand, as Window.SetInterval("PicRotate",500) is meant to call it every half a second.Code:<script language="vbs"> Sub Window_OnLoad MyInterval = Window.SetInterval("PicRotate",500) End Sub Sub PicRotate Dim p p = (p+1) MOD 5 Select Case p Case 1 pic1.src = "images/hitler.jpg" pic2.src = "images/polpot.jpg" pic3.src = "images/saddam.jpg" pic4.src = "images/mussolini.jpg" pic5.src = "images/stalin.jpg" Case 2 pic1.src = "images/polpot.jpg" pic2.src = "images/saddam.jpg" pic3.src = "images/mussolini.jpg" pic4.src = "images/stalin.jpg" pic5.src = "images/hitler.jpg" Case 3 pic1.src = "images/saddam.jpg" pic2.src = "images/mussolini.jpg" pic3.src = "images/stalin.jpg" pic4.src = "images/hitler.jpg" pic5.src = "images/polpot.jpg" Case 4 pic1.src = "images/mussolini.jpg" pic2.src = "images/stalin.jpg" pic3.src = "images/hitler.jpg" pic4.src = "images/polpot.jpg" pic5.src = "images/saddam.jpg" Case 0 pic1.src = "images/stalin.jpg" pic2.src = "images/hitler.jpg" pic3.src = "imaes/polpot.jpg" pic4.src = "images/saddam.jpg" pic5.src = "images/mussolini.jpg" End Select End Sub </script>
Anyone got any ideas? Oh, and before you comment on the pictures, it's my terrible sense of humour.


LinkBack URL
About LinkBacks
Reply With Quote
