Convert C# bitwise operators to VB - How?

[James Radke]

Hello,

I found some code that I could use in my application on the web, but it is
written in C#, and I would like to convert it to VB. And I am having
problems with one section. Is there anyone that could tell me how to
convert these two things?

1)

[Flags, Serializable]
public enum CardType
{
MasterCard = 0x0001,
VISA = 0x0002,
Amex = 0x0004,
DinersClub = 0x0008,
enRoute = 0x0010,
Discover = 0x0020,
JCB = 0x0040,
Unknown = 0x0080,
All = CardType.Amex | CardType.Diners Club | CardType.Discov er |
CardType.Discov er |
CardType.enRout e | CardType.JCB | CardType.Master Card | CardType.VISA
}
I understand how to do the ENUM, but I don't understand what the values are?
They seem like some kind of bit settings and I don't know how to do that.

2.)

if (_cardTypes & CardType.Amex)! =0)

where _cardTypes I believe contains some bitwise combination of the
CardTypes from above.....

Thanks for any help!

Jim

[Tom Spink]

Hi James,

1:

<Flags(), Serializable()> _
Public Enum CardType
MasterCard = &H1
VISA = &H2
Amex = &H4
DinersClub = &H8
enRoute = &H10
Discover = &H20
JCB = &H40
Unknown = &H80
All = MasterCard Or VISA Or Amex Or DinersClub Or enRoute Or Discover Or
JCB
End Enum

2:

If (_cardTypes And CardType.Amex) = CardType.Amex Then
' Amex is present
End If

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

"Maybe it's a game called 'Punish the User'"
"James Radke" <jr*****@wi.rr. com> wrote in message
news:ub******** ******@TK2MSFTN GP11.phx.gbl...
: Hello,
:
: I found some code that I could use in my application on the web, but it is
: written in C#, and I would like to convert it to VB. And I am having
: problems with one section. Is there anyone that could tell me how to
: convert these two things?
:
: 1)
:
: [Flags, Serializable]
: public enum CardType
: {
: MasterCard = 0x0001,
: VISA = 0x0002,
: Amex = 0x0004,
: DinersClub = 0x0008,
: enRoute = 0x0010,
: Discover = 0x0020,
: JCB = 0x0040,
: Unknown = 0x0080,
: All = CardType.Amex | CardType.Diners Club | CardType.Discov er |
: CardType.Discov er |
: CardType.enRout e | CardType.JCB | CardType.Master Card | CardType.VISA
: }
:
:
: I understand how to do the ENUM, but I don't understand what the values
are?
: They seem like some kind of bit settings and I don't know how to do that.
:
: 2.)
:
: if (_cardTypes & CardType.Amex)! =0)
:
: where _cardTypes I believe contains some bitwise combination of the
: CardTypes from above.....
:
: Thanks for any help!
:
: Jim
:
:

[Herfried K. Wagner [MVP]]

Hello,

"James Radke" <jr*****@wi.rr. com> schrieb:

1)

[Flags, Serializable]
public enum CardType
{
MasterCard = 0x0001,
VISA = 0x0002,
Amex = 0x0004,
DinersClub = 0x0008,
enRoute = 0x0010,
Discover = 0x0020,
JCB = 0x0040,
Unknown = 0x0080,
All = CardType.Amex | CardType.Diners Club | CardType.Discov er |
CardType.Discov er |
CardType.enRout e | CardType.JCB | CardType.Master Card | CardType.VISA
}

I understand how to do the ENUM, but I don't understand
what the values are?
They are in hexadezimal format. Use '&H1' for '0x0001', '&H2' for '0x0002'
and so on.
2.)

if (_cardTypes & CardType.Amex)! =0)

where _cardTypes I believe contains some bitwise combination
of the CardTypes from above.....

Use 'If (m_CardTypes And CardType.Amex) <> 0 Then' instead.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[James Radke]

Tom,

Hmmm... So the All = in #1 below would use the 'Or' versus the 'Xor'? Does
a standard Or make ALL a unique ENUM? Or is that doing something slightly
different in VB, than in the C#?

I will try it! Thanks for the assist.......

Jim
"Tom Spink" <th**********@n tlworld.com> wrote in message
news:uW******** ******@TK2MSFTN GP09.phx.gbl...

Hi James,

1:

<Flags(), Serializable()> _
Public Enum CardType
MasterCard = &H1
VISA = &H2
Amex = &H4
DinersClub = &H8
enRoute = &H10
Discover = &H20
JCB = &H40
Unknown = &H80
All = MasterCard Or VISA Or Amex Or DinersClub Or enRoute Or Discover Or JCB
End Enum

2:

If (_cardTypes And CardType.Amex) = CardType.Amex Then
' Amex is present
End If

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

"Maybe it's a game called 'Punish the User'"
"James Radke" <jr*****@wi.rr. com> wrote in message
news:ub******** ******@TK2MSFTN GP11.phx.gbl...
: Hello,
:
: I found some code that I could use in my application on the web, but it is : written in C#, and I would like to convert it to VB. And I am having
: problems with one section. Is there anyone that could tell me how to
: convert these two things?
:
: 1)
:
: [Flags, Serializable]
: public enum CardType
: {
: MasterCard = 0x0001,
: VISA = 0x0002,
: Amex = 0x0004,
: DinersClub = 0x0008,
: enRoute = 0x0010,
: Discover = 0x0020,
: JCB = 0x0040,
: Unknown = 0x0080,
: All = CardType.Amex | CardType.Diners Club | CardType.Discov er |
: CardType.Discov er |
: CardType.enRout e | CardType.JCB | CardType.Master Card | CardType.VISA
: }
:
:
: I understand how to do the ENUM, but I don't understand what the values
are?
: They seem like some kind of bit settings and I don't know how to do that. :
: 2.)
:
: if (_cardTypes & CardType.Amex)! =0)
:
: where _cardTypes I believe contains some bitwise combination of the
: CardTypes from above.....
:
: Thanks for any help!
:
: Jim
:
:

[Fergus Cooney]

Hi James,

VB's AND is a bitwise And and OR is a bitwise Or. They are the same as
their C# counterparts.

If you come across && in some C# code, it is the same as VB's AndThen.
Similarly C#'s || is the same as VB's OrElse.

Regards,
Fergus
MVP [Windows Start button, Shutdown dialogue]

[Herfried K. Wagner [MVP]]

Hello,

"Fergus Cooney" <fi******@tesco .net> schrieb:

If you come across && in some C# code, it is the same as
VB's AndThen.

'AndThen'? Typo or am I missing something?

;-)

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Cor]

Herfried,
Yes I too find these operators not nice Herfried,
In Dutch there is a proverbial: That is grist for his mill.
:-))
Cor

[Herfried K. Wagner [MVP]]

Hello,

"Cor" <no*@non.com> schrieb:

Yes I too find these operators not nice Herfried,
In Dutch there is a proverbial: That is grist for his mill.

'AndAlso' and 'OrElse' -- IMO very nice. I would have liked 'And' and 'Or'
as logical operators and 'BitAnd' and 'BitOr' as bitwise operators, but they
changed that in the Beta.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Cor]

Hi Herfried,
When the names where "BitAnd" and "BitOr" I would never argue about it.
Cor

[Herfried K. Wagner [MVP]]

Hello,

"Cor" <no*@non.com> schrieb:

When the names where "BitAnd" and "BitOr" I would
never argue about it.

You vote for 'Bit'x operators too?

;-)

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet