C# to VB Conversion - 800 lines got - 2 lines beyond me

  • Thread starter Thread starter Kaypee
  • Start date Start date
K

Kaypee

Howdy all

am trying to convert c# app to VB so change alter parts of it.

But am getting confused by a couple of bits... at least ;-)

a)
private point[] path1(point p1, point p2) {
int minX = Math.Min(p1.X, p2.X);
int maxX = Math.Max(p1.X, p2.X);
for (i = minX + 1; i < maxX && isCellEmpty(p1.Y, i); i++) ;
return i == maxX ? new Point[] { p1, p2 } : null;
}

isCell Empty returns boolean

can convert most but for line confusing me. is loop all that line or is
return part of loop
if only looping that line - it does nothing. If return part of the loop -
can you return more than once...

b)

public event EventHandler OnGameWon {
add {
gameWon += value;
}
remove {
gameWon -= value;
}
}

What the heck? add? remove? new c# 2005 I think - msdn help just confuses
me.



Any assistance greatly appreciated
 
can convert most but for line confusing me. is loop all that line or is
return part of loop
if only looping that line - it does nothing.
Click to expand...

The loop has an empty body, so it's just that one line. It keeps
incrementing i until i >= maxX or isCellEmpty returns false.

b)

public event EventHandler OnGameWon {
add {
gameWon += value;
}
remove {
gameWon -= value;
}
}

What the heck? add? remove? new c# 2005 I think - msdn help just confuses
me.
Click to expand...

No C# has had this syntax since day one. VB got a similar feature
(custom events) in the 2005 release. But unless you have a good reason
for using it you can simply go with

Public Event OnGameWon As EventHandler


Mattias
 
Thank you Mattias

Will try those as soon as

Now only one class to go - then can start making upgrades/personalizations
in a syntax I understand.

;-) Well better anyway.


Kaypee
 
Here's the actual VB equivalent (via our Instant VB C# to VB converter) -
note that VB (2005) requires the RaiseEvent section.

Private Function path1(ByVal p1 As point, ByVal p2 As point) As point()
Dim minX As Integer = Math.Min(p1.X, p2.X)
Dim maxX As Integer = Math.Max(p1.X, p2.X)
i = minX + 1
Do While i < maxX AndAlso isCellEmpty(p1.Y, i)

i += 1
Loop
If i = maxX Then
Return New Point() { p1, p2 }
Else
Return Nothing
End If
End Function

Public Custom Event OnGameWon As EventHandler
AddHandler(ByVal value As EventHandler)
AddHandler gameWon, value
End AddHandler
RemoveHandler(ByVal value As EventHandler)
RemoveHandler gameWon, value
End RemoveHandler
RaiseEvent(ByVal sender As System.Object, ByVal e As
System.EventArgs)
End RaiseEvent
End Event

--
David Anton
www.tangiblesoftwaresolutions.com
Instant C#: VB to C# converter
Instant VB: C# to VB converter
Instant C++: C# to C++ converter & VB to C++ converter
Instant J#: VB to J# converter
 
Back
Top