Mensajes

A nada, dejemoslo ahi por que ultimamente lo unico que se hace es discutir en este sub foro.

Tema solucionado.

Edit: solo por curiosidad arme esto, posiblemente a alguien le interese

Código (vb) [Seleccionar] Expandir

Option Explicit

'Reference
'http://world.std.com/~franl/crypto/random-numbers.html

'ANSI C (rand())
Public Function ANSI_C_Rand(Optional lSeed As Long) As Long
    Static SEED As Double
    If Not lSeed = 0 Then SEED = lSeed
    SEED = CustomMod((1103515245 * SEED + 12345), 2 ^ 31)
    ANSI_C_Rand = SEED
End Function

'Microsoft C v4.0 rand()
Public Function Microsoft_C_Rand(Optional lSeed As Long) As Long
    Static SEED As Double
    If Not lSeed = 0 Then SEED = lSeed
    SEED = CustomMod((214013 * SEED + 2531011), 2 ^ 31)
    Microsoft_C_Rand = Int(SEED / 2 ^ 16)
End Function

'Turbo Pascal v6.0 (random)
Public Function Turbo_Pascal_Rand(Optional lSeed As Long) As Long
    Static SEED As Double
    If Not lSeed = 0 Then SEED = lSeed
    SEED = CustomMod((134775813 * SEED + 1), 2 ^ 32)
    Turbo_Pascal_Rand = Int(SEED / 2 ^ 16)
End Function

'// Custom mod to prevent overflow
' This is not mine is from a RSA implentation I found on PSC
Private Function CustomMod(ByVal dVal1 As Double, ByVal dVal2 As Double) As Double
    CustomMod = dVal1 - (Int(dVal1 / dVal2) * dVal2)
End Function

Sabes algo, yo no voy de sobrado ni nada, estoy haciendo un aporte y punto, en primera instacia no entiendo el fin de tu comentario, si vas a decir algo por lo menos que sea con razon.

Porque no declararias el delimitador como una constante? que veneficios te trae? ninguno al contrario posiblemente cause mas problemas que otra cosa aparte si hablas de optimizacion me imagino que sabes que VB se maneja mucho mas rapido las constantes.

Bueno no voy a discutir mas, al parecer es mas facil criticar que aportar.

JAJAJAJA mucho chiste pero nadie dijo nada acerca de "aleatorios"

Te lo contesto antes de que se arme un lio.
No tendrias que preguntar este tipo de cosas sin siquiera buscar!

Randomize Timer
Debug.Print Int((Rnd * 3) + 1)

Mira despues de investigar un poco me parece qu encontre la respuesta

http://msdn.microsoft.com/en-us/library/aa373195(VS.85).aspx

mas concretamente GUID_MONITOR_POWER_ON

[en este caso los declare como constantes para  evitar errores y facilitar su modificacion]

Este ejemplo es solamente una guia para poder demostrar como es la "tecnica", pero en un programa mas complejo seria muy molesto y se prestaria a errores  tener que modificar absolutamente todos los delimitadores a mano en vez de modificar 1 constante si se diera el caso de necesitarlo.

Call o no Call esa es la cuestion, hace alguna diferencia? NO

No entiendo este tipo de acotaciones... es como hacer un post porque alguien declaro una variable llamandola "i" y a mi me gustaria que se llame "j".

Bueno la verdad soy MUY malo explicando asi que voy a tratar de hacer lo mejor posible.

Hay una duda y/o problema recurrente, como enviar e interpretar instrucciones usando winsock, voy a intentar mostrar una tecnica muy simple de hacerlo utilizando CallByName a ver si terminan las preguntas y PMs con respecto a este tema.

En un Form

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Const DELIMITER As String = "|" ' delimitador para separar instrucciones
   
Private Const inst_MSG  As String = "inst_MENSAJE"  'nombre de nustra instruccion
Private Const inst_BEEP As String = "inst_BEEP"     'nombre de otra instruccion

Private Sub Form_Load()

    'esto es simplemente para imitar el arrivo de datos
    TestDataArival inst_MSG & DELIMITER & "Hello"
    TestDataArival inst_BEEP
    TestDataArival inst_MSG & DELIMITER & "Bye Bye"
   
End Sub

'sData seria la variable con los datos que llegaron del socket
Private Sub TestDataArival(sData As String)
    Dim cInstInt    As New cInstructionInterpreter
   
    'Vemos si la funcion tiene o no parametros
    If UBound(Split(sData, DELIMITER)) > 0 Then
        'llamamos a la funcion con parametros
        CallByName cInstInt, Split(sData, DELIMITER)(0), VbMethod, sData
    Else
        'llamamos una funcion sin parametros
        CallByName cInstInt, Split(sData, DELIMITER)(0), VbMethod
    End If
End Sub


bueno en el primer code lo que vemos es muy simple tenemos 3 llamadas a TestDataArival pasandole unos parametros que en este caso serian nustras instrucciones  o comandos a ejecutar. la estructura del mensaje es simple [instruccion/delimitador/dato/.../delimitador/dato] en este caso los declare como constantes para  evitar errores y facilitar su modificacion (nada misterioso hasta aca)

en la funcion TestDataArival, lo primero que vemos es [ Dim cInstInt    As New cInstructionInterpreter] simplemente creamos una instancia de nuestra clase, luego un simple if que va a llamar a CallByName de 2 maneras diferentes dependiendo de si tenemos o no datos para pasarle a la instruccion

En una clase (yo la llame cInstructionInterpreter)

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Const DELIMITER As String = "|"

Public Sub inst_MENSAJE(ByVal sData As String)
    Dim svData() As String
   
    If SplitData(sData, 1, svData) Then
        MsgBox svData(1)
    End If
   
End Sub

Public Sub inst_BEEP()
    Call Beep
End Sub

'funcion generica para dividir y validar los datos
Private Function SplitData( _
    ByVal sData As String, _
    ByVal lExpectedParams As Long, _
    ByRef svData() As String) As Boolean

    svData = Split(sData, DELIMITER)
   
    If UBound(svData) >= lExpectedParams Then
        SplitData = True
    End If
   
End Function


Bueno la clase en si tampoco tiene mucho, 2 funciones declaradas como publicas que son nustros comandos, los nombres de estas funciones tienen que coincidir con los que utilizamos para llamarlar  y una tercera que es privada simplemente para dividir y validar los datos.

bueno para los que no tienen idea de como usar CallByName aca les dejo unos links

http://msdn.microsoft.com/en-us/library/chsc1tx6(VS.80).aspx

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/153-callbyname.htm

Si alguno quiere agregar algo para hacer esto mas claro que lo haga sin problemas se que puede ser un poco confusa mi explicacion.

Espero que sea util.

http://msdn.microsoft.com/en-us/library/aa370650(VS.85).aspx

Panda los detecta

Alguno entro a la pagina oficil? hay manuales ejemplos y un foro lleno de cosas.