Cita de: Torocatala en 17 Julio 2007, 13:42 PM
Pa eso que se habra uno de fisica cuantica, que mola mas
Amén...
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úCita de: Torocatala en 17 Julio 2007, 13:42 PM
Pa eso que se habra uno de fisica cuantica, que mola mas
Cita de: EKDV en 17 Julio 2007, 13:03 PM
El dinero me está haciendo pasarme al lado oscuro
Muchas gracias por tu ayuda Hendrix, tenía miedo a desarrollarlo y luego no poderlo migrar con facilidad, eres un genio!!!
Un saludo!
Cita de: Sancho.Mazorka en 17 Julio 2007, 02:00 AM
reemplaza los caracters 13 o 10 o 13 y 10 x un vbcrlf
''Code by Adam Verwijs
Const ERROR_ALREADY_EXISTS = 183&
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim hMutex As Long
''Try to create a new Mutex
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
''Did the mutex already exist?
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
''Clean up
ReleaseMutex hMutex
CloseHandle hMutex
''More than one instance detected
MsgBox "More than one instance"
End
Else
''form load code
End If
End Sub
static void Main(string[] args)
{
int semilla;
int num = 7; //La cantidad de numeros que se representarán
Random r = new Random(DateTime.Now.Millisecond);
byte[] buffer = new byte[num];//Creamos un buffer de 7 posiciones (o las que quieras
r.NextBytes(buffer); //Rellenamos el buffer con numeros aleatorios
for (int i = 0; i < num; i++)
{
semilla = buffer[i] % 5; //Hacemos el Modulo del numero aleatorio para que no sobrepase el 4
Console.Write("{0} ", semilla);
}
Console.Read();
}