Dados De Simulacion

1-) Descripción:

El objetivo de este programa es simular dos dados que están en el rango del 1 al 6 donde el programador pone el límite de las tiradas donde se presentaran en la pantalla cadaunas de ellas en dos columnas.
Este programa tiene como objeto los siguientes parámetros: -El primer dado tendrá que salir la mayor de veces los números impares como son el 1,3 y 5. -En el segundo dadoel 50% de las tiradas tendrá que salir el numero 5.

2-) Estrategias y Recursos:

-Algoritmo usado:
El algoritmo se asegura de que cada número que salga sea de forma aleatoria en la cualdefinimos una variable a cada dado donde cada dado tiene un procedimiento en el cual se carga las imágenes de acuerdo a cada número.

Recursos del lenguaje:
En parte de las funciones de entrada y salidadel lenguaje de programación fueron utilizados otros recursos:
Randomize: se encarga de dar el valor aleatorio de los número………………..

4-) Código Fuente:
Programa: Dados

Descripción: Programaejemplo para los estudiante de programación en la universidad abierta para adultos que trata de simular las tiradas de dos dados en el cual el primer dado solo tendrá la función de que la mayoría delas tiradas sean numero impares; y el segundo dado tendrá la función de que la mayoría de las tiradas salga el numero 5.

Autor: Luis Carlos Queliz

Copilador: Visual Basic 6.0

SistemaOperativo: Windows 7 y Windows XP

Option Explicit
Dim dado As Integer
Dim dado1 As Integer
Dim dado2 As Integer

Private Sub mostrar1()
Select Case dado1
Case 1
Picture8.Picture =Picture2.Picture
Case 2
Picture8.Picture = Picture3.Picture
Case 3
Picture8.Picture = Picture4.Picture
Case 4
Picture8.Picture = Picture5.Picture
Case 5
Picture8.Picture = Picture6.Picture
Case 6Picture8.Picture = Picture7.Picture
End Select
End Sub

Private Sub mostrar()

Select Case dado
Case 1
Picture1.Picture = Picture2.Picture
Case 2
Picture1.Picture = Picture3.Picture
Case 3...