DaniWeb Forum Index > Software Development > C++

convert these C++ codes to VB .NET ?

Please support our C++ advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jul 2007

Posts: 5

Reputation: hendyhanusin is an unknown quantity at this point

Solved Threads: 0

hendyhanusin hendyhanusin is offline

Offline

Newbie Poster

convert these C++ codes to VB .NET ?

Jul 19th, 2007

Dear Friend,

How to convert these codes into VB .NET ?

Tks,
hendy

===============================

 Help with Code Tags 
 C++ Syntax (Toggle Plain Text) 
BYTE   cmd[NumMsg][7]={{0x00,0xA4,0x00,0x00,0x02,0x02,0x47},
                                       {0x00,0xA4,0x02,0x00,0x02,0x01,0x02},
                                       {0x00,0xB0,0x00,0x00,0xff,0x00,0x00}};
 
BYTE	DataLength, pData[10], ResponseDataLength;
BYTE	pResponseData[100];
INT16	TimeOut=50, i, CardFrameSize;
char	pdata[500];
char	*ATS_ATQB;
 
	   CardFrameSize=0;
	   pdata[0]='\0';
	   ResponseDataLength=0;
 
if (PICC_RATS(rHandle, 4, &ResponseDataLength, pResponseData)>=0) {
	CardFrameSize=pResponseData[1]&0x0f;
}
 
for (i=0; i<ResponseDataLength; i++) {
	StrMsg.Format(" %02X", pResponseData[i]);
	strcat(pdata,StrMsg);
}
 
ACR120_API INT16 AC_DECL PICC_RATS(INT16 rHandle, UINT8 FSDI, UINT8 *atslen, UINT8 *ats);
BYTE   cmd[NumMsg][7]={{0x00,0xA4,0x00,0x00,0x02,0x02,0x47},
                                       {0x00,0xA4,0x02,0x00,0x02,0x01,0x02},
                                       {0x00,0xB0,0x00,0x00,0xff,0x00,0x00}};

BYTE	DataLength, pData[10], ResponseDataLength;
BYTE	pResponseData[100];
INT16	TimeOut=50, i, CardFrameSize;
char	pdata[500];
char	*ATS_ATQB;

	   CardFrameSize=0;
	   pdata[0]='\0';
	   ResponseDataLength=0;

if (PICC_RATS(rHandle, 4, &ResponseDataLength, pResponseData)>=0) {
	CardFrameSize=pResponseData[1]&0x0f;
}

for (i=0; i<ResponseDataLength; i++) {
	StrMsg.Format(" %02X", pResponseData[i]);
	strcat(pdata,StrMsg);
}

ACR120_API INT16 AC_DECL PICC_RATS(INT16 rHandle, UINT8 FSDI, UINT8 *atslen, UINT8 *ats);