Bibliotecas: TypeToBytes - página 3

Nuevo comentario
 
sí
 
Tres líneas de lo mismo
Color = (color)ColorToARGB(Color, Alpha);

Color = (color)((Color & 0xFFFFFF) + (Alpha << 24));

_W(Color)[3] = Alpha;
 

Foro sobre trading, sistemas automatizados de trading y prueba de estrategias de trading

Cualquier pregunta de novato sobre MQL4, ayuda y discusión sobre algoritmos y códigos

fxsaber, 2017.03.07 13:55

#include <TypeToBytes.mqh>

template <typename T>
void Swap( T &Value1, T &Value2 )
{
  const T Tmp = Value1;
  
  Value1 = Value2;
  Value2 = Tmp;
}

// Ordenar un array de cualquier tipo simple
template <typename T>
bool MyArraySort( T &Array[] )
{
  if (!ArraySort(Array))
  {
    const int Size = ArraySize(Array);
    
    for (int i = 0; i < Size - 1; i++)
    {
      const T Tmp = Array[i];
      
      for (int j = i + 1; j < Size; j++)
        if (_R(Tmp) == Array[j]) // TypeToBytes.mqh
        {
          Swap(Array[i + 1], Array[j]);
          
          i++;
        }
    }      
  }
  
  return(true);
}
 
Se ha añadido también la operación byte a byte con matrices.
// Trabajar con matrices
  short Array[] = {1, 2, 3};
  ArrayPrint(_R(Array).Bytes);           // Imprimir representación byte a byte de la matriz Array

  PRINT((_R(Array) == _R(Array).Bytes))  // Asegúrate de que la comparación byte a byte funciona.

  _W(Color) = Array;                     // Escribir byte a byte Array array a Color
  PRINT(Color)                           // Asegúrese de que Color es ahora C'1,0,2'.
  ArrayPrint(_R(Color).Bytes);           // Imprimir representación byte a byte de Color

  uchar Array2[];
  ArrayCopy(Array2, _R(Tick).Bytes);     // Escribe la representación en bytes de Tick en Array2
  PRINT((_R(Tick) == Array2))            // Asegúrate de que Tick y Array2 coinciden byte a byte

  MqlTick Tick2 = {0};
  _W(Tick2) = Array2;                    // Escribir matriz Array2 a Tick2
  PRINT((_R(Tick) == Tick2))             // Asegúrate de que Tick y Tick2 coinciden.

  int Array3[] = {INT_MIN, INT_MAX};
  ArrayPrint(_R(Array3).Bytes);          // Imprimir representación byte a byte de la matriz Array3
  ArrayPrint(_R(Array).Bytes);           // Imprimir representación byte a byte de la matriz Array

  _ArrayCopy(Array3, Array);             // Copiar Array array a Array3 array byte a byte
  ArrayPrint(_R(Array3).Bytes);          // Asegúrese de que la representación en bytes de la matriz Array3 coincide con la matriz
 
Añadida la operación byte a byte también con cadenas
// Trabajar con cadenas
  string Str = "abcd";

  _W(i) = Str;                           // Escribe la cadena en (int)i byte a byte

  PRINT((_R(i) == Str))                  // Comparación byte a byte de int y sring

  ArrayPrint(_R(i).Bytes);               // Bytes buscados i
  ArrayPrint(_R(Str).Bytes);             // Mirado Str bytes

  PRINT(_R(Str)[(short)1])               // Tomó el valor corto por la mezcla 1 en Str

  PRINT(Str)
  _W(Str)[2] = "98765";                  // Escritura byte a byte de una cadena a una cadena en el offset 2
  PRINT(Str)

  string StrArray[] = {"123", "45", "6789"};
  _W(Str) = StrArray;                    // Escribir una matriz de cadenas en una cadena
  PRINT(Str)

  _W(Str)[3] = (uchar)0;                 // Se escribe un cero en el byte del offset 3, cortando así la cadena (longitud - 3 caracteres ANSI (4 bytes)).
  PRINT(Str);
 

Foro sobre trading, sistemas automatizados de trading y prueba de estrategias de trading

Bibliotecas: mapeo de archivos sin DLL

fxsaber, 2017.04.03 16:07

¡Gracias al autor por la biblioteca!

Hice funciones para transferir cualquier dato. A continuación script muestra su trabajo en el ejemplo de ticks

#include <MemMapLib.mqh>
#include <TypeToBytes.mqh>

// Asigna memoria de longitud especificada para los datos 
template <typename T>
bool GetFileMemory( CMemMapFile* &FileMemory, const int Amount, const string FileName = "Local\\test" )
{
  FileMemory = new CMemMapFile;
    
  return(FileMemory.Open(FileName, sizeof(T) * Amount + sizeof(int) + HEAD_MEM, modeCreate) == 0);
}

// Escribe datos en la memoria
template <typename T>
void DataSave( CMemMapFile* FileMemory, const T &Data[], const bool FromBegin = true  )
{
  const int Size = ArraySize(Data) * sizeof(T);
  uchar Bytes[];
  
  _ArrayCopy(Bytes, _R(Size).Bytes);              // Registrada la cantidad 
  _ArrayCopy(Bytes, _R(Data).Bytes, sizeof(int)); // Grabación de los datos

  if (FromBegin)
    FileMemory.Seek(0, SEEK_SET);

  FileMemory.Write(Bytes, ArraySize(Bytes)); // Volcado de todo en la memoria
  
  return;
}

// Lee datos de la memoria
template <typename T>
int DataLoad( CMemMapFile* FileMemory, T &Data[], const bool FromBegin = true )
{
  if (FromBegin)
    FileMemory.Seek(0, SEEK_SET);

  uchar Bytes[];
          
  FileMemory.Read(Bytes, sizeof(int));  // Leer la cantidad de datos de la memoria 
  FileMemory.Read(Bytes, _R(Bytes)[0]); // Obtener los datos propiamente dichos

  _ArrayCopy(Data, Bytes);              // Volcado de los datos en un array
  
  return(ArraySize(Data));
}

#define  AMOUNT 1000

#define  TOSTRING(A) #A + " = " + (string)(A) + " "

// Ejemplo de transmisión de ticks
void OnStart()
{  
  CMemMapFile* FileMemory;
  
  if (GetFileMemory<MqlTick>(FileMemory, AMOUNT))
  {
    MqlTick Ticks4Save[];    
    CopyTicks(_Symbol, Ticks4Save, COPY_TICKS_INFO, 0, AMOUNT);
    
    DataSave(FileMemory, Ticks4Save);
    
    MqlTick Ticks4Load[];    
    
    if (DataLoad(FileMemory, Ticks4Load) > 0)    
      Print(TOSTRING((_R(Ticks4Save) == Ticks4Load)) +
            TOSTRING(ArraySize(Ticks4Save)) +
            TOSTRING(ArraySize(Ticks4Load)));
     
    FileMemory.Close();   
  }
  
  delete FileMemory;
}


Resultado

(_R(Ticks4Save)==Ticks4Load) = true ArraySize(Ticks4Save) = 1000 ArraySize(Ticks4Load) = 1000

Un ejemplo de la posible aplicación práctica de las innovaciones.

  
#include <TypeToBytes.mqh>

// Fusiona todas las cadenas del array en una sola cadena
string StringArrayConcatenate( const string &StrArray[] )
{
  string Str = "";
  const int Size = ArraySize(StrArray);
  
  for (int i = 0; i < Size; i++)
    Str += StrArray[i];
    
  return(Str);
}

void OnStart()
{
  string StrArray[] = {"abcd", "123", "zxc", "890", "qwert"};
  string Str1, Str2;

// Fusiona todas las cadenas del array en una sola cadena 
  Str1 = StringArrayConcatenate(StrArray);
  _W(Str2) = StrArray;
  
  Print(Str1);
  Print(Str2); 
}

Destacado: el mismo resultado de formas muy diferentes

abcd123zxc890qwert
abcd123zxc890qwert
 
Tras la actualización, estará disponible
// Establecer una estructura personalizada
struct STRUCT
{
  int i;

  // Establecer el operador de asignación
  void operator =( const STRUCT& ) {}
};

// Demostración del resultado de eludir el operador de asignación personalizado de la estructura _R mediante la función de biblioteca
  STRUCT Struct;                         // Creado un objeto con un operador de asignación personalizado
  Struct.i = 1;

  ArrayPrint(_R(Struct).Bytes);          // Asegúrese de que el operador de asignación
  PRINT(_R(Struct) == Struct)            // no afecta a la funcionalidad _R de la biblioteca

// Comprobación de la "corrección" del operador de asignación de tipos
  PRINT(_WRONG_ASSIGN_OPERATOR(int))     // Correcto
  PRINT(_WRONG_ASSIGN_OPERATOR(MqlTick)) // Correcto
  PRINT(_WRONG_ASSIGN_OPERATOR(STRUCT))  // No es correcto
 
  • Определение корректности оператора присваивания структур.

Un ejemplo de cómo esta función puede ser útil para detectar posibles errores.

Escriba y ejecute el script.

#include <TypeToBytes.mqh>

struct STRUCT
{
  int i;
  
  STRUCT() : i(0) {}
  
  template <typename T>
  void operator =( T& ) {}
};

#define  PRINT(A) ::Print(#A + " = " + (string)(A));

void OnStart()
{
  PRINT(_WRONG_ASSIGN_OPERATOR(STRUCT))
}


Resultado.

_WRONG_ASSIGN_OPERATOR(STRUCT) = true

Esto indica que el operador de asignación no copiará una estructura en una estructura del mismo tipo.


Si añadimos más a la estructura,

  void operator =( STRUCT &Value ) { this.i = 0; }

el resultado será el mismo.


Parecería que corrigiendo este operador a

  void operator =( STRUCT &Value ) { this.i = Value.i; }

debería hacer que todo fuera correcto, pero la biblioteca dice lo contrario.


Quizás, este es el punto más sutil de este ejemplo.

Lo corregimos a

#include <TypeToBytes.mqh>

struct STRUCT
{
  int i;
  
  STRUCT() : i(0) {}
  
  template <typename T>
  void operator =( T& ) {}

  void operator =( const STRUCT &Value ) { this.i = Value.i; }
};

#define  PRINT(A) ::Print(#A + " = " + (string)(A));

void OnStart()
{
  PRINT(_WRONG_ASSIGN_OPERATOR(STRUCT))
}

y obtenemos el resultado

_WRONG_ASSIGN_OPERATOR(STRUCT) = false


¡Ahora el operador de copia está escrito correctamente!

Puedes comprobar la corrección de los operadores de asignación/copia de cualquier estructura simple de forma similar.

 
¿Cuál es la diferencia entre una cadena NULL y una cadena vacía?
#include <TypeToBytes.mqh>

#define  PRINT(A) ::Print(#A + " = " + (string)(A));

void OnStart()
{  
  const string StrNull = NULL;
  
  PRINT(ArraySize(_R(StrNull).Bytes))
  PRINT(ArraySize(_R("").Bytes))
}

Resultado

ArraySize(_R(StrNull).Bytes) = 0
ArraySize(_R().Bytes) = 1

Una cadena NULL tiene una longitud cero en bytes. Una cadena vacía tiene una longitud de 1 byte (donde cero es el final de la cadena).

1234567
Nuevo comentario