How to call public shared function

Question

0.00/5 (No votes)

See more:

Hai all,

In my program i am having public shared function...........

VB

Public Shared Function ComputeCrc(ByVal data As Byte()) As UInt16
      Dim crc As UShort = &HFFFF

      For Each datum As Byte In data
          crc = CUShort((crc >> 8) Xor CrcTable((crc Xor datum) And &HFF))
      Next

      Return crc
  End Function

I need to call this function with my string "str".... and also carry the return value ....... HOW?
Please give some instructions..........

Thank You

[edit]Code block added, "Treat my content as plain text..." option disabled - OriginalGriff[/edit]

Posted 4-Mar-12 20:42pm

Himachandra

Updated 4-Mar-12 20:56pm

OriginalGriff

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2012-03-04T21:00:00

Solution 1

Try:

VB

Dim myString As String = "assdfdfgsdfg"
Dim retval As UInt16 = [MyClass].ComputeCrc(System.Text.Encoding.ASCII.GetBytes(myString))

Posted 4-Mar-12 21:00pm

OriginalGriff

Comments

Himachandra 5-Mar-12 3:04am

Gives an Error:"MyClass is not declared"

Sergey Alexandrovich Kryukov 5-Mar-12 3:06am

Use its full name. Or "Import TheNameSpaceOfMyClass"; use appropriate namespace name.
--SA

Sergey Alexandrovich Kryukov 5-Mar-12 3:08am

Are you serious?! "MyClass" was just an example, and only because you failed to show the class name in your code, which was a big mistake of you as it is the only relevant item. Of course use the real class name.
--SA

Sergey Alexandrovich Kryukov 5-Mar-12 3:09am

My 5, but OP is so innocent that it would require more detailed explanation :-)
--SA

Himachandra 5-Mar-12 3:11am

Run Time Error: Argument NullException was unhandeled.

OriginalGriff 5-Mar-12 3:30am

Have you ever considered actually passing a string of some kind?

Dim imp As String
...
Dim retval As UInt16 = [Form1].ComputeCrc(System.Text.Encoding.ASCII.GetBytes(inp))

Does not set inp to any string to check the CRC of!
Hence the '= "assdfdfgsdfg"' bit in my example...

Himachandra 5-Mar-12 3:14am

Here itz my full code....

Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1
Inherits System.Windows.Forms.Form
Dim inp As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim retval As UInt16 = [Form1].ComputeCrc(System.Text.Encoding.ASCII.GetBytes(inp))
End Sub

Private Shared CrcTable As UShort() = {&H0, &HC0C1, &HC181, &H140, &HC301, &H3C0, _
&H280, &HC241, &HC601, &H6C0, &H780, &HC741, _
&H500, &HC5C1, &HC481, &H440, &HCC01, &HCC0, _
&HD80, &HCD41, &HF00, &HCFC1, &HCE81, &HE40, _
&HA00, &HCAC1, &HCB81, &HB40, &HC901, &H9C0, _
&H880, &HC841, &HD801, &H18C0, &H1980, &HD941, _
&H1B00, &HDBC1, &HDA81, &H1A40, &H1E00, &HDEC1, _
&HDF81, &H1F40, &HDD01, &H1DC0, &H1C80, &HDC41, _
&H1400, &HD4C1, &HD581, &H1540, &HD701, &H17C0, _
&H1680, &HD641, &HD201, &H12C0, &H1380, &HD341, _
&H1100, &HD1C1, &HD081, &H1040, &HF001, &H30C0, _
&H3180, &HF141, &H3300, &HF3C1, &HF281, &H3240, _
&H3600, &HF6C1, &HF781, &H3740, &HF501, &H35C0, _
&H3480, &HF441, &H3C00, &HFCC1, &HFD81, &H3D40, _
&HFF01, &H3FC0, &H3E80, &HFE41, &HFA01, &H3AC0, _
&H3B80, &HFB41, &H3900, &HF9C1, &HF881, &H3840, _
&H2800, &HE8C1, &HE981, &H2940, &HEB01, &H2BC0, _
&H2A80, &HEA41, &HEE01, &H2EC0, &H2F80, &HEF41, _
&H2D00, &HEDC1, &HEC81, &H2C40, &HE401, &H24C0, _
&H2580, &HE541, &H2700, &HE7C1, &HE681, &H2640, _
&H2200, &HE2C1, &HE381, &H2340, &HE101, &H21C0, _
&H2080, &HE041, &HA001, &H60C0, &H6180, &HA141, _
&H6300, &HA3C1, &HA281, &H6240, &H6600, &HA6C1, _
&HA781, &H6740, &HA501, &H65C0, &H6480, &HA441, _
&H6C00, &HACC1, &HAD81, &H6D40, &HAF01, &H6FC0, _
&H6E80, &HAE41, &HAA01, &H6AC0, &H6B80, &HAB41, _
&H6900, &HA9C1, &HA881, &H6840, &H7800, &HB8C1, _
&HB981, &H7940, &HBB01, &H7BC0, &H7A80, &HBA41, _
&HBE01, &H7EC0, &H7F80, &HBF41, &H7D00, &HBDC1, _
&HBC81, &H7C40, &HB401, &H74C0, &H7580, &HB541, _
&H7700, &HB7C1, &HB681, &H7640, &H7200, &HB2C1, _
&HB381, &H7340, &HB101, &H71C0, &H7080, &HB041, _
&H5000, &H90C1, &H9181, &H5140, &H9301, &H53C0, _
&H5280, &H9241, &H9601, &H56C0, &H5780, &H9741, _
&H5500, &H95C1, &H9481, &H5440, &H9C01, &H5CC0, _
&H5D80, &H9D41, &H5F00, &H9FC1, &H9E81, &H5E40, _
&H5A00, &H9AC1, &H9B81, &H5B40, &H9901, &H59C0, _
&H5880, &H9841, &H8801, &H48C0, &H4980, &H8941, _
&H4B00, &H8BC1, &H8A81, &H4A40, &H4E00, &H8EC1, _
&H8F81, &H4F40, &H8D01, &H4DC0, &H4C80, &H8C41, _
&H4400, &H84C1, &H8581, &H4540, &H8701, &H47C0, _
&H4680, &H8641, &H8201, &H42C0, &H4380, &H8341, _
&H4100, &H81C1, &H8081, &H4040}

Public Shared Function ComputeCrc(ByVal data As Byte()) As UInt16
Dim crc As UShort = &HFFFF

For Each datum As Byte In data
crc = CUShort((crc >> 8) Xor CrcTable((crc Xor datum) And &HFF))
Next
MsgBox(crc)
Return crc
End Function
........
Please Correct mee......

OriginalGriff 5-Mar-12 3:27am

Replace "MyClass" with "Form1" in my example...

Himachandra 5-Mar-12 4:12am

Yah I replaced ... but its giving RunTIme error....

Himachandra 5-Mar-12 4:13am

inp=TextBox1.Text