Make your own free website on Tripod.com

 

Simulador de un dado

 

 

Prepara la mesa para jugar a los dados.

 

Interfaz

 

1 Label (Modificala propiedad Caption)

1 Textbox (Borra el texto dentro de la caja)

1 Comando (Modifica la propiedad Caption)

 

 

 Programación (en Pulsa)

 

Private Sub Command1_Click()

   Dim numero As Integer

   Randomize

   numero = CInt(Rnd * 5 + 1)

   Text1.Text = numero

End Sub

 

 

 

Home | VB |