Bibliotecas: TypeToBytes - página 3

Novo comentário
 
sim
 
Três linhas da mesma coisa
Color = (color)ColorToARGB(Color, Alpha);

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

_W(Color)[3] = Alpha;
 

Fórum sobre negociação, sistemas de negociação automatizados e teste de estratégias de negociação

Qualquer dúvida de novato sobre MQL4, ajuda e discussão sobre algoritmos e 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;
}

// Classificar uma matriz de qualquer tipo simples
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);
}
 
Também foi adicionada a operação byte a byte com matrizes
// Trabalhando com matrizes
  short Array[] = {1, 2, 3};
  ArrayPrint(_R(Array).Bytes);           // Imprimir a representação byte a byte da matriz Array

  PRINT((_R(Array) == _R(Array).Bytes))  // Certifique-se de que a comparação de matriz byte a byte funcione.

  _W(Color) = Array;                     // Gravação byte a byte da matriz Array em Color
  PRINT(Color)                           // Certifique-se de que a cor agora seja C'1,0,2'.
  ArrayPrint(_R(Color).Bytes);           // Imprimir representação byte a byte da cor

  uchar Array2[];
  ArrayCopy(Array2, _R(Tick).Bytes);     // Escreva a representação em bytes de Tick em Array2
  PRINT((_R(Tick) == Array2))            // Certifique-se de que Tick e Array2 correspondam byte a byte

  MqlTick Tick2 = {0};
  _W(Tick2) = Array2;                    // Gravar a matriz Array2 em Tick2
  PRINT((_R(Tick) == Tick2))             // Certifique-se de que Tick e Tick2 sejam iguais.

  int Array3[] = {INT_MIN, INT_MAX};
  ArrayPrint(_R(Array3).Bytes);          // Imprimir a representação byte a byte da matriz Array3
  ArrayPrint(_R(Array).Bytes);           // Imprimir a representação byte a byte da matriz Array

  _ArrayCopy(Array3, Array);             // Copiar a matriz Array para a matriz Array3, byte a byte
  ArrayPrint(_R(Array3).Bytes);          // Certifique-se de que a representação em bytes da matriz Array3 corresponda à
 
Também foi adicionada a operação byte a byte com cadeias de caracteres
// Trabalhar com cadeias de caracteres
  string Str = "abcd";

  _W(i) = Str;                           // Escreva a string em (int)i byte por byte

  PRINT((_R(i) == Str))                  // Comparação byte a byte de int e sring

  ArrayPrint(_R(i).Bytes);               // Procurou bytes i
  ArrayPrint(_R(Str).Bytes);             // Olhou para os bytes Str

  PRINT(_R(Str)[(short)1])               // Pegou o valor curto misturando 1 em Str

  PRINT(Str)
  _W(Str)[2] = "98765";                  // Gravação byte a byte de uma string em uma string no deslocamento 2
  PRINT(Str)

  string StrArray[] = {"123", "45", "6789"};
  _W(Str) = StrArray;                    // Escreva um array de strings em uma string
  PRINT(Str)

  _W(Str)[3] = (uchar)0;                 // Um zero é gravado no byte no deslocamento 3, cortando assim a string (comprimento - 3 caracteres ANSI (4 bytes)).
  PRINT(Str);
 

Fórum sobre negociação, sistemas de negociação automatizados e teste de estratégias de negociação

Bibliotecas: mapeamento de arquivos sem DLL

fxsaber, 2017.04.03 16:07

Obrigado ao autor pela biblioteca!

Criei funções para transferir quaisquer dados. O script abaixo mostra seu trabalho no exemplo de ticks

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

// Aloca a memória de comprimento especificado para os dados 
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);
}

// Grava dados na memória
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);              // Registrou a quantidade 
  _ArrayCopy(Bytes, _R(Data).Bytes, sizeof(int)); // Registrou os dados

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

  FileMemory.Write(Bytes, ArraySize(Bytes)); // Despejou tudo na memória
  
  return;
}

// Lê dados da memória
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));  // Ler a quantidade de dados da memória 
  FileMemory.Read(Bytes, _R(Bytes)[0]); // Obteve os dados propriamente ditos

  _ArrayCopy(Data, Bytes);              // Despejou os dados em uma matriz
  
  return(ArraySize(Data));
}

#define  AMOUNT 1000

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

// Exemplo de transmissão 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

Um exemplo de possível aplicação prática de inovações.

  
#include <TypeToBytes.mqh>

// Mesclar todas as strings do array em uma única string
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;

// Mesclar todas as strings do array em uma única string 
  Str1 = StringArrayConcatenate(StrArray);
  _W(Str2) = StrArray;
  
  Print(Str1);
  Print(Str2); 
}

Destacado - o mesmo resultado de maneiras muito diferentes

abcd123zxc890qwert
abcd123zxc890qwert
 
Após a atualização, ele estará disponível
// Definir uma estrutura personalizada
struct STRUCT
{
  int i;

  // Definir o operador de atribuição
  void operator =( const STRUCT& ) {}
};

// Demonstração do resultado de contornar o operador de atribuição personalizado da estrutura _R pela função de biblioteca
  STRUCT Struct;                         // Criou um objeto com um operador de atribuição personalizado
  Struct.i = 1;

  ArrayPrint(_R(Struct).Bytes);          // Certifique-se de que o operador de atribuição
  PRINT(_R(Struct) == Struct)            // não afeta a funcionalidade _R da biblioteca

// Verificação da "correção" do operador de atribuição de tipo
  PRINT(_WRONG_ASSIGN_OPERATOR(int))     // Correto
  PRINT(_WRONG_ASSIGN_OPERATOR(MqlTick)) // Correto
  PRINT(_WRONG_ASSIGN_OPERATOR(STRUCT))  // Não está correto
 
  • Определение корректности оператора присваивания структур.

Um exemplo de como esse recurso pode ser útil para detectar possíveis erros.

Escreva e execute o 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

Isso indica que o operador de atribuição não copiará uma estrutura em uma estrutura do mesmo tipo.


Se adicionarmos mais à estrutura,

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

o resultado será o mesmo.


Parece que, ao corrigir esse operador para

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

tudo estaria correto, mas a biblioteca diz o contrário.


Talvez esse seja o ponto mais sutil desse exemplo.

Nós o corrigimos para

#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))
}

e obtemos o resultado

_WRONG_ASSIGN_OPERATOR(STRUCT) = false


Agora o operador de cópia está escrito corretamente!

Você pode verificar a correção dos operadores de atribuição/cópia de qualquer estrutura simples de maneira semelhante.

 
Qual é a diferença entre uma cadeia de caracteres NULL e uma cadeia de caracteres vazia?
#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

Uma cadeia de caracteres NULL tem comprimento zero em bytes. Uma cadeia vazia tem 1 byte de comprimento (onde zero é o fim da cadeia).

1234567
Novo comentário