Ir ao conteúdo
  • Cadastre-se

comparação VBA C/C++


edcronos

Posts recomendados

Na expectativa de minha mente largar algum dos ossos que insiste em ficar roendo

 

quero aprender C para converter algumas macros de vba e transformar em DLL

mas como já tenho um monte de coisa na cabeça e já estou cansado de tudo

estou tentando fazer comparação das macros que fiz com o codigo convertido para ter uma base

Sub contaYtoXtoY(ByVal ValorIni As Long, ByVal ValorFim As Long, ByRef Coluno() as variant)    Dim DL As Long, DCx As Long, VL As Long, N1 As Long, Ctx As Long, Cix As Long, Lix As Long, Lfx As Long, Nx As Long    N1 = ValorIni    Ctx = ValorFim    Dim ColunO(N1 To Ctx, N1 To Ctx)' o original seria Redim ColunO(N1 To Ctx, N1 To Ctx)    Lix = LinhaIni:    Cix = 1: Lix = 1    DCx = 1: VL = 1    Nx = N1: Cx = Cix    Lfx = Lix + Ctx - 1    For lx = Lix To Lfx        Do            If Nx > Ctx Or Nx < N1 Then                VL = VL * -1: Nx = (Nx + VL) + VL            End If            ColunO(lx, Cx) = Nx            Nx = Nx + VL            Cx = Cx + DCx        Loop Until Cx < Cix Or Cx > Lfx        DCx = DCx * -1        Cx = Cx + DCx    NextEnd Sub

o programa converteu nisso

public:void contaYtoXtoY(long long ValorIni, long long ValorFim, variant *Coluno[]){	long long DL = 0;	long long DCx = 0;	long long VL = 0;	long long N1 = 0;	long long Ctx = 0;	long long Cix = 0;	long long Lix = 0;	long long Lfx = 0;	long long Nx = 0;	N1 = ValorIni;	Ctx = ValorFim;	Object ColunO[(N1 To Ctx) + 1][(N1 To Ctx) + 1];	Lix = LinhaIni;	Cix = 1;	Lix = 1;	DCx = 1;	VL = 1;	Nx = N1;	Cx = Cix;	Lfx = Lix + Ctx - 1;	for (void *lx = Lix; lx <= Lfx; lx++)	{		do		{			if (Nx > Ctx || Nx < N1)			{				VL = VL * -1;				Nx = (Nx + VL) + VL;			}			ColunO[lx][Cx] = Nx;			Nx = Nx + VL;			Cx = Cx + DCx;		} while ( ! (Cx < Cix || Cx > Lfx));		DCx = DCx * -1;		Cx = Cx + DCx;	}}

o que eu quero é mais converter algumas macro de trabalho em arrays de analises , os arrays são do tipo variant

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...