Le proponemos el siguiente ejercicio lanzar un dado, necesitaremos 6 imágenes
una para cada cara del dado un botón y el código que le
adjuntamos este ejercicio esta hecho en vbscrip:
1 <script language="VBScript">
2 <!--
3 Option explicit
4 Randomize
5 Sub cmdjugar_OnClick()
6 Dim n
7 n = Int(6*Rnd + 1)
8 Select Case n
9 Case 1
10 Dado.src = "Uno.gif"
11 Case 2
12 Dado.src = "Dos.gif"
13 Case 3
14 Dado.src = "Tres.gif"
15 Case 4
16 Dado.src = "Cuatro.gif"
17 Case 5
18 Dado.src = "Cinco.gif"
19 Case Else
20 Dado.src = "Seis.gif"
21 End Select
22 End Sub
23 -->
24 </script>
25 <table width="98%" border="0" cellspacing="1">
26 <tr>
27 <td width="33%"> </td>
28 <td width="36%" align="center" valign="middle"><img
id="Dado" src="Seis.gif" width="301" height="300"></td>
29 <td width="19%" align="left" valign="middle"><input
type="button" name="cmdjugar"
value="Tirar el Dado"></td>
Al pulsar el botón línea 29 iniciamos el
procedimiento cmdjugar línea 5, obtendremos un número aleatorio
línea 7 que nos dará la imagen que se muestra en pantalla
línea 28.
|