kernelthread.com

VBScript

The Towers of Hanoi as a VBScript program. Click here if you are running a VBScript capable browser.

<!-- The Towers Of Hanoi --> <!-- VBScript Implementation --> <!-- Copyright (C) 2000 Amit Singh. All Rights Reserved --> <!-- http://hanoi.kernelthread.com --> <!-- --> <!-- Save this file as hanoi.htm and view it in IE --> <html> <head> <title>The Towers Of Hanoi</title> <script type="text/vbscript"> <!-- Sub Hanoi(n) Call DoHanoi("1", "2", "3", n) End Sub Sub DoHanoi(f, u, t, n) If n = 1 Then Document.Writeln("move" + f + " to " + t + "<br>") Else DoHanoi f, t, u, n-1 DoHanoi f, u, t, 1 DoHanoi u, f, t, n-1 End If End Sub Sub HButton_OnClick() Dim ndisks ndisks = CLng(Document.Forms(0).txtBox1.value) Call DoHanoi("1", "2", "3", ndisks) End Sub --> </script> </head> <body> <form action=""> Number of disks: <input type="text" name="txtBox1" size="5" value="0"><p> <input type="button" name="HButton" value="Enter"></p> </form> </body> </html>

Download

hanoi.vbs