Y a la inversa?
Obtener desde formPrincipal un dato de un formSecundario
Obtener desde formPrincipal un dato de un formSecundario
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ú
Option Strict On
Imports Microsoft.VisualBasic
Imports System
Module Module1
Dim semilla As Integer
Dim rnd As Random
Sub Main()
Dim num As Integer
semilla = CInt(DateTime.Now.Ticks)
' Para que funcione Ticks
' debes quitar la comprobación de desbordamiento de enteros
' en las propiedades del proyecto, ficha compilación, opciones avanzadas
rnd = New Random(semilla)
For i As Integer = 1 To 10
num = numeroaleatorio()
Console.WriteLine("{0:00} {1}", i, num)
Next
Console.WriteLine()
Console.WriteLine("Pulsa una tecla")
Console.ReadKey()
End Sub
Function numeroaleatorio() As Integer
Dim integro As Integer
' Prueba 1:
' El valor debe ser un integer válido,
' desde el numero 1
' hasta la numero 4
integro = (rnd.Next(1, 5))
' Devolvemos el integer generado
Return integro
End Function
End Module
End Module