hola a todos lo que sucede es que el programa que estoy tratando de hacer me ha resultado un poco dificil; el cuento va asi ya he echo algo pero me parece que no voy bien encaminado ; por que lo que tengo que hacer para subir la nota es un programa que me entregue una serie de 6 numeros de un total de 36 al darle inicio con un boton ("partida" por ejemplo)en los que no se puede repetir un numero en la misma serie de 6 numeros y me los entregue en otro text yo creo para eso los numeros deben irse viendo en un text como corren del 1 al 36 y los vaya escogiendo al azar en un periodo de tiempo relativo no mas de unos segundos eso es: y para loq eu crean que no he echo nada aqui les dejo un codigo que me ayudo un amigo pero creo se paso de listo por que no es lo que le habia pedido de todas formas agradesco toda la ayuda.
Option Explicit
Dim i As Integer
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Form_Pant1()
i = 0
Timer1.Interval = 500
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
If i < 6 Then
Text1.Text = ""
Text1.Text = Aleatorio(CLng("1"), CLng("36"))
Else
Timer1.Enabled = False
End If
i = i + 1
End Sub
ojala entiendan por que la verdad a mi me saca canas verdes y de todos colores
Mostrar Mensajes
hola a todos:
