August 30, 2008 03:32am pdt

Member Login

Hall of Fame

Yearly

1Infinity08 413,843
2evilrix 172,015
3jkr 114,005
4sunnycoder 107,860
5ozo 93,503
6jaime_oliv... 44,590
7Kdo 42,336
8josgood 40,057
9itsmeandn... 38,397
10fridom 27,345
11JohnGaby 14,500
12Gurudenis 13,630
13duncan_roe 9,650
14ravenpl 8,290
15LordOfPo... 7,932
16dmadole 6,600
17PaulCasw... 6,412
18hielo 6,200
19cup 6,140
20angelIII 6,080
21peetm 6,050
22spoxox 5,400
23SeanDurkin 4,916
24blu 4,900
25Anthony... 4,764

	[x] Attachment Details

A function to be converted from C to Vb.Net

Zones: C Programming Language, Microsoft Visual Basic.Net

Tags: C, VB.NET

I need the following c code to be translated to vb.net. The code is from: http://www.netfor2.com/fcs.htm
For check,the function should return E443 (hex) when A0080223C993 (hex) is calculated with fcs_start is the first var and fcs_stop is the last.

Note: It is a FCS16 calculater.

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

           
           
             typedef unsigned short u16
 
u16 short fcs_calc(u16 fcs_start, u16 fcs_stop, u16 buff[])
{
#define P	0x8408
#define fcsinit	0xFFFF
 
static u16 fcstab[256];
u16 fcs;
u16 b, v;
u16 i;
u16 MSB_fcs, LSB_fcs;
 
	for (b=0; ; ){
  	  v = b;
	  for (i = 8; i--; )
	     v = v & 1 ? (v >> 1) ^ P : v >> 1;
  	  fcstab[b] = v & 0xFFFF;
	  if (++b == 256)
	    break;
	}
 
	fcs = fcsinit;
	for (i=fcs_start; i<fcs_stop; i++)
	  fcs = (fcs >> 8) ^ fcstab[(fcs ^ buff[i]) & 0xFF];
	fcs ^= 0xFFFF;
 
	LSB_fcs = ((fcs >> 8) & 0xFF);
	MSB_fcs = fcs & 0xFF;
 
	return(MSB_fcs, LSB_fcs);
}

           
         

Start your free trial to view this solution

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.2

Question Stats

Zone: Programming

Question Asked By: emresamisuzer

Solution Provided By: jaime_olivares

Participating Experts: 1

Solution Grade: B

Translate:

Loading Advertisement...

20080723-EE-VQP-34 / EE_QW_2_20070628