CitarGRACIAS POR LEER!!!Ejem.. gracias a ti por programar
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarGRACIAS POR LEER!!!Ejem.. gracias a ti por programar
Cita de: skapunky en 27 Mayo 2011, 17:39 PM
Bueno, si estas empezando está bien, pero yo te recomiendo que hagas mejor la función, la idea es que hagas la misma función pero que no dependa de ningun objeto o codigo externo a la función.
Simplemente que le entres una variable a la función y retórne el número aleatorio, así tendrás una función independiente a cualquier programa y será reciclable que es lo mas importante y muy fácilmente adaptable a otros programas.
Por cierto...te has dejado los dos puntos en el 10 del goto, sería:10: rand = Int((txtA - txtDe) * Rnd + txtDe)
PD: No puedo creerme que la gente no se aclare con esta función.
Cita de: DarkMatrix en 27 Mayo 2011, 19:06 PMGracias, nunca encontré la manera de hacerlo tipo batch, pero ahora si... gracias
No es necesario los dos puntos despues del 10, simplemente es una numero de linea y cuando se dice "goto 10" entonces se refiere a que valla a esa linea de nuevo...
En cambio si fuera "Goto Aqui" si tndria que espesificar:
Aqui:
Msgbox "Hola"
Goto Aqui
Option Explicit 'Esta linea no es obligatoria, _
pero la recomiendo
Private Sub cmdGenera_Click()
Dim rand As Integer 'Declaramos la variable
10 rand = Int((txtA - txtDe) * Rnd + txtDe) 'El 10 se usara para _
el Goto, mientras que el Int((txtA - txtDe) * Rnd + txtDe) genera _
el numero aleatorio
If
rand < txtDe.Text Then 'Si el numero generado es mayor _
a lo que debe ser, se hace de nuevo
GoTo 10
Else
lblRand.Caption = rand 'Se muestra el numero aleatorio
End If
End Sub