Hola gente, estoy tratando de lograr algo pero no puedo pensarlo en la manera que lo quiero, les explico un poco.
 
Tengo una variable WORD/DWORD.
 
Esa variable puede tomar muchos números, como:
#define defvar1 1
#define defvar2 2
#define defvar3 3
 
entonces, yo podría hacer un switch o un if para comparar si esa variable es defvar1,2 o 3 (tengo más defines, como 35), entonces me gustaría hacer con un macro supongo, para checkear éso, sin importar cuantos defines yo tenga.
 
Me gustaría ver como podrían resolverlo 1) usando macro o algo para evadir un switch grande o un if grande; 2)o la manera en que lo pensarían.
 
Gracias (Y)

Hola a todos, estaba tratando de pasar un código de c++ a c#, busqué en internet la posible solución, aún así no pude resolverlo, es el siguiente:

Edit:
Por cierto, estoy utilizando ésto:

    using DWORD = UInt32;
    using HRESULT = Int32;
    using WORD = UInt16;
    using ULONG = UInt32;
    using HSERVICE = UInt16;
    using LPVOID = IntPtr;
    using LPBYTE = IntPtr;
    using REQUESTID = UInt32;
    using USHORT = UInt16;
    using BOOL = UInt32;
    using LPSTR = IntPtr;
    using BYTE = Byte;
    using CHAR = Byte;
    using DOUBLE = Double;
    using FLOAT = Single;
    using LONG = UInt32;
    using LONGLONG = UInt64;
    using SHORT = Int16;
    using UINT = UInt32;
    using ULONGLONG = UInt64;
 

[StructLayout(LayoutKind.Explicit, Size = 268, CharSet = CharSet.Ansi)]
    public unsafe struct WFSIPMIMAGEREQUEST2
    {
        [FieldOffset(0)]public WORD wImageSource;
        [FieldOffset(2)]public WORD wImageType;
        [FieldOffset(4)]public WORD wImageColorFormat;
        [FieldOffset(6)]public WORD wImageScanColor;
        [FieldOffset(8)]public LPVOID lpszImagePath;
        [FieldOffset(12)]public fixed char Value[256];
    }
 
[StructLayout(LayoutKind.Explicit, Size = 276, CharSet = CharSet.Ansi)]
    public unsafe struct WFSIPMREADIMAGEIN2
    {
        [FieldOffset(0)]public USHORT usMediaID;
        [FieldOffset(2)]public WORD wCodelineFormat;
        [FieldOffset(4)]public WFSIPMIMAGEREQUEST2** lppImage;
    }
 

A WFSIPMREADIMAGEIN2 le puse 276 porque está en offset 4 + 268 de la otra estructura = 272 + 4 de otro index pero a null como terminador de los índices.

Por el cual el index 0 tendría toda la estructura y el index 1 sería igual a null.

WFSIPMREADIMAGEIN2 lpReadImageIn = new WFSIPMREADIMAGEIN2();
 

pero cuando hago:

lpReadImageIn.lppImage[0]->wImageSource = 1;
 

Me muestra como mensaje de error: "Object reference not set to an instance of an object."

Cualquier aporte sería de gran ayuda, gracias.

Hola a todos, me estaba preguntando cómo podría hacer yo una clase que tenga funciones globales, y que a su vez permita templates ej:

MiClase::Mensaje("hola"); //función común

//Template
a y b = int
MiClase::Suma(a, b);

a y b = float
MiClase::Suma(a, b);

No sé si es mejor una clase o un namespace, para mi es todo de lo mismo *-)

Desde yá muchas gracias.

Hola a todos, los invito a que programen a gusto si un número es perfecto o no.

Cómo funciona un número perfecto?

Un número es perfecto, cuando la SUMA de TODOS sus divisores, evadiendo a si mismo, es igual a ese número.

Ej:

6: 1+2+3 = 6
28: 1+2+4+7+14 = 28
etc

Lista:
6
28
496
8128
33550336
8589869056
137438691328
2305843008139952128

Valoro pensamientos/deducciones propias

Hola, mi problema es el siguiente, tengo un archivo HTML, que dentro tengo programación en javascript, y estoy queriendo hacer ésto:

<Script>
var VARIABLE = Llamada a php PEPE.PHP;
 
alert(VARIABLE);
</Script>
 

PEPE.PHP
->

echo "1000";
 

La llamada a php la hice con JQuery y Ajax, pero no funcionó, alguno tiene alguna idea?

Hola, estaba buscando algo que no puedo encontrar en internet, tal vez las personas no se lo preguntaron...


Acá está el problema:

Yo tengo ésto:

<ul class="nav">
    <li>
        <a href="#">StyleShit</a>
        <ul>
            ...
        </ul>
    </li>
</ul>
 

Lo que quiero hacer en CSS es ésto:

.nav a:after ul
{
    content: "\25bc"; /* http://textmechanic....-Converter.html */
    font-size: 9px;
    position:absolute;
}
 

Pero ésto no funciona, no sé por qué

Lo que quiero lograr es: que si hay luego de A un UL, que agregue "\25bc" al final de A.

El resultado sería como ésto:

<ul class="nav">
    <li>
        <a href="#">StyleShit</a>\25bc
        O ASÍ
        <a href="#">StyleShit \25bc</a>
        <ul>
            ...
        </ul>
    </li>
</ul>
 

Gracias, cualquier ayuda sería buena.

Hola, estaba tratando de hacer algo mientras me topé con un problema, tal vez parezca tonto o quizá nunca necesité algo así.

Lo que quiero lograr, es encontrar la posición con respecto a un index de un Split.

Code:

Form:

Option Explicit
 
Private Sub Form_Load()
Call ConfigArray
 
Call Stuff
 
End
End Sub
 
 

Module:

Option Explicit
 
Public MyByteArray() As Byte
Public Const StrByteArray As String = "255,254,253,0,252,0,0,0,251,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,250,0,0,0,0,0,0," & _
                                      "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,249,0," & _
                                      "0,0,3,4,248,3,0,247,246,5,6,2,245,244,5,6,243,242,7,241,8,240,9,10,239,9,11,12,8,238,11," & _
                                      "13,13,10,237,8,236,14,8,9,235,13,8,7,13,8,7,234,233,8,12,10,232,14,231,15,15,230,229,0,0,0," & _
                                      "0,0,0,0,228,227,226,16,5,2,17,18,5,2,17,18,5,2,17,18,225,224,4,18,223,2,17,18,222,19,18," & _
                                      "18,20,2,17,18,21,22,221,18,220,2,17,18,21,22,219,18,23,2,17,18,5,2,218,18,16,2,17,18,21,22," & _
                                      "217,18,19,2,17,18,21,22,216,218,23,2,17,18,21,22,215,18,20,2,17"
Public MaxArray As Integer
 
Public Sub ConfigArray()
Dim i As Integer
 
MaxArray = UBound(Split(StrByteArray, ","))
ReDim MyByteArray(0 To MaxArray) As Byte
 
For i = 0 To MaxArray
    MyByteArray(i) = Split(StrByteArray, ",")(i)
Next i
End Sub
 
Public Sub Stuff()
Dim i As Integer
Dim CurrentByte As Byte
Dim found As Long
Dim CurrentPos As Long
 
For i = 0 To MaxArray
    If i = 5 Then
        'Ejemplo, index 5 -> 255,254,253,0,252,0,
        CurrentByte = MyByteArray(i)
        CurrentPos = Aca quiero obtener la posicion del index 5
    End If
Next i
End Sub
 

CurrentPos = Aca quiero obtener la posicion del index 5, que sería 19

Alguna idea o algún comando mágico que me retorne la posición según el index?

Estaba tratando de mover memoria entre arrays.

Hice este ejemplo, tal vez puedan mejorarlo y/o ayudame con Variant

Modulo:
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Form:
Private Sub Form_Load()
Dim ESI(3 To 6) As Variant
Dim EDI(3 To 6) As Variant
 
ESI(3) = "asdasdasdasdsd12312331231asdasd" '255 '32767 '2147483647
ESI(4) = ESI(3)
ESI(5) = ESI(3)
ESI(6) = ESI(3)
 
EDI(3) = 0
EDI(4) = EDI(3)
EDI(5) = EDI(3)
EDI(6) = EDI(3)
 
CopyMemory EDI(LBound(EDI)), ESI(LBound(ESI)), GetSizeArray(ESI)
 
Dim i As Byte
 
For i = LBound(ESI) To UBound(ESI)
    MsgBox i & ": " & (ESI(i) = EDI(i)) & vbCrLf & "&H" & Hex(VarPtr(ESI(i)))
Next i
 
End
End Sub
 
Private Function GetSizeArray(ByRef vArray)
Dim BaseBytes As Byte
 
'MsgBox TypeName(vArray)
 
Select Case TypeName(vArray)
    Case "Byte()"
        BaseBytes = 1
    Case "Boolean()", "Integer()"
        BaseBytes = 2
    Case "Long()", "Single()"
        BaseBytes = 4
    Case "Double()", "Currency()", "Date()"
        BaseBytes = 8
    Case "Variant()"
        BaseBytes = 0 'DUNNO
    Case "String()"
        BaseBytes = 4 'ReadMem del VarPtr está el Address al string con su len 4 bytes antes
End Select
 
GetSizeArray = BaseBytes * (UBound(vArray) - LBound(vArray) + 1)
End Function
 

Edit:
Se podría tomar como un reto *-)

Hola, en C++ abrí una etiqueta asm como __asm{}, en la cual dentro quise hacer lo siguiente:

__asm
{
     .... //CÓDIGO

    mov dword ptr [ebx], RetFakeSinPrologo
    .... //MÁS CÓDIGO

RetFakeSinPrologo:
   jmp eax

   .... //MÁS CÓDIGO
}

En la línea del mov dword obtengo el error: "error C2415: improper operand type", en ASM puedo hacerlo así, acá hay alguna forma de lograr éso?

Desde ya muchas gracias.

Hola, yo desde un programa que genero desde 0, he obtenido el puntero de un control, como por ejemplo:

Me.Caption = VarPtr(Text1) & " - Hex: " & Hex(VarPtr(Text1)
 

Pero, lo que quiero hacer es obtener ese mismo puntero desde otro programa, alguien tiene alguna idea de como lo puedo obtener? (También para otros controles).
Desde ya muchas gracias.