Results 1 to 4 of 4

Thread: help translating to vb.net

  1. #1

    Thread Starter
    Member
    Join Date
    Feb 2006
    Posts
    61

    help translating to vb.net

    i found this code in c#.net and i need help translating it vb.net

    VB Code:
    1. {
    2.             // query the selected server
    3.             GameServerInfo.GameType type = (GameServerInfo.GameType)Enum.Parse( typeof( GameServerInfo.GameType ), cbGametype.SelectedValue.ToString() );
    4.             GameServerInfo.GameServer server = new GameServerInfo.GameServer( tbHost.Text, Int32.Parse(tbPort.Text), type );
    5.             server.DebugMode = true;
    6.             server.QueryServer();
    7.  
    8.             // Clear old stuff
    9.             tbInfos.Text = "";
    10.             lvPlayers.Items.Clear();
    11.             lvParams.Items.Clear();
    12.  
    13.             if ( !server.IsOnline )
    14.             {
    15.                 MessageBox.Show( "server is offline or not responding" );
    16.                 return;
    17.             }
    18.  
    19.             foreach ( GameServerInfo.Player player in server.Players )
    20.             {
    21.                 ListViewItem lvItem = new ListViewItem( new string[] {
    22.                     GameServer.CleanName( player.Name ), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString()
    23.                 } );
    24.                 lvPlayers.Items.Add( lvItem );
    25.             }
    26.  
    27.             foreach ( DictionaryEntry de in server.Parameters )
    28.             {
    29.                 ListViewItem lvItem = new ListViewItem( new string[] {
    30.                     de.Key.ToString(), de.Value.ToString()
    31.                 } );
    32.                 lvParams.Items.Add( lvItem );
    33.             }
    34.  
    35.             PropertyInfo[] props = server.GetType().GetProperties( BindingFlags.Public | BindingFlags.GetField | BindingFlags.Instance );
    36.             foreach ( PropertyInfo prop in props )
    37.             {
    38.                 try
    39.                 {
    40.                     object obj = prop.GetValue( server, null );
    41.                     if ( obj.ToString().IndexOf( "Collection" ) != -1 )
    42.                     {
    43.                         continue;
    44.                     }
    45.                     tbInfos.Text += prop.Name + " - " + obj.ToString() + "\r\n";
    46.                 }
    47.                 catch ( TargetInvocationException )
    48.                 { }
    49.                 catch ( NullReferenceException )
    50.                 { }
    51.             }
    52.         }
    53.  
    54.         private void tbHost_TextChanged(object sender, EventArgs e)
    55.         {
    56.             if ( tbHost.Text.IndexOf(":") == -1 )
    57.             {
    58.                 return;
    59.             }
    60.             int sep = tbHost.Text.IndexOf( ":" );
    61.             tbPort.Text = tbHost.Text.Substring( sep + 1 );
    62.             tbHost.Text = tbHost.Text.Substring( 0, sep );
    63.         }
    64.     }
    65. }

    please reply with any questions needed to help resolve this...

  2. #2
    Addicted Member dim_kevin_as_human's Avatar
    Join Date
    Oct 2005
    Location
    Wisconsin
    Posts
    183

    Re: help translating to vb.net

    these should help you initially convert the code, and then any problems that arise you might post back here

    http://www.developerfusion.co.uk/uti...sharptovb.aspx

    http://www.carlosag.net/Tools/CodeTr...r/Default.aspx
    Dreaming men are haunted men.

  3. #3
    Fanatic Member
    Join Date
    Jan 2006
    Posts
    710

    Re: help translating to vb.net

    Our Instant VB C# to VB converter produces:
    (you were missing the first method header, so I used 'MissingMethodHeader')

    VB Code:
    1. Private Sub MissingMethodHeader()
    2.             ' query the selected server
    3.             Dim type As GameServerInfo.GameType = CType(System.Enum.Parse(GetType(GameServerInfo.GameType), cbGametype.SelectedValue.ToString()), GameServerInfo.GameType)
    4.             Dim server As GameServerInfo.GameServer = New GameServerInfo.GameServer(tbHost.Text, Int32.Parse(tbPort.Text), type)
    5.             server.DebugMode = True
    6.             server.QueryServer()
    7.  
    8.             ' Clear old stuff
    9.             tbInfos.Text = ""
    10.             lvPlayers.Items.Clear()
    11.             lvParams.Items.Clear()
    12.  
    13.             If (Not server.IsOnline) Then
    14.                 MessageBox.Show("server is offline or not responding")
    15.                 Return
    16.             End If
    17.  
    18.             For Each player As GameServerInfo.Player In server.Players
    19.                 Dim lvItem As ListViewItem = New ListViewItem(New String() { GameServer.CleanName(player.Name), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString() })
    20.                 lvPlayers.Items.Add(lvItem)
    21.             Next player
    22.  
    23.             For Each de As DictionaryEntry In server.Parameters
    24.                 Dim lvItem As ListViewItem = New ListViewItem(New String() { de.Key.ToString(), de.Value.ToString() })
    25.                 lvParams.Items.Add(lvItem)
    26.             Next de
    27.  
    28.             Dim props As PropertyInfo() = server.GetType().GetProperties(BindingFlags.Public Or BindingFlags.GetField Or BindingFlags.Instance)
    29.             For Each prop As PropertyInfo In props
    30.                 Try
    31.                     Dim obj As Object = prop.GetValue(server, Nothing)
    32.                     If obj.ToString().IndexOf("Collection") <> -1 Then
    33.                         Continue For
    34.                     End If
    35.                     tbInfos.Text += prop.Name & " - " & obj.ToString() & Constants.vbCrLf
    36.                 Catch e1 As TargetInvocationException
    37.                 Catch e2 As NullReferenceException
    38.                 End Try
    39.             Next prop
    40.         End Sub
    41.  
    42.         Private Sub tbHost_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    43.             If tbHost.Text.IndexOf(":") = -1 Then
    44.                 Return
    45.             End If
    46.             Dim sep As Integer = tbHost.Text.IndexOf(":")
    47.             tbPort.Text = tbHost.Text.Substring(sep + 1)
    48.             tbHost.Text = tbHost.Text.Substring(0, sep)
    49.         End Sub
    David Anton
    Convert between VB, C#, C++, & Java
    www.tangiblesoftwaresolutions.com

  4. #4

    Thread Starter
    Member
    Join Date
    Feb 2006
    Posts
    61

    Re: help translating to vb.net

    one more problem... by the way... thanks for the code... it helped alot... anyways... here is the finally vb.net code im using... it all works but i dont understand one thing...

    VB Code:
    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2.  
    3.         Dim server As New GameServerInfo.GameServer("70.87.83.155", 27960, GameServerInfo.GameType.WolfensteinEnemyTerritory)
    4.         MessageBox.Show(server.IsOnline)
    5.         server.Timeout = 1500
    6.         server.QueryServer()
    7.  
    8.         If (Not server.IsOnline) Then
    9.             MessageBox.Show("server is offline or not responding")
    10.             Return
    11.         End If
    12.  
    13.         For Each player As GameServerInfo.Player In server.Players
    14.             Dim lvItem As ListViewItem = New ListViewItem(New String() {GameServerInfo.GameServer.CleanName(player.Name), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString()})
    15.             lvPlayers.Items.Add(lvItem)
    16.         Next player
    17.  
    18.         Dim props As Reflection.PropertyInfo() = server.GetType().GetProperties(BindingFlags.Public Or BindingFlags.GetField Or BindingFlags.Instance)
    19.         For Each prop As Reflection.PropertyInfo In props
    20.             Try
    21.                 Dim obj As Object = prop.GetValue(server, Nothing)
    22.                 If obj.ToString().IndexOf("Collection") <> -1 Then
    23.                     Continue For
    24.                 End If
    25.                 tbInfos.Text += prop.Name & " - " & obj.ToString() & Constants.vbCrLf
    26.             Catch e1 As Reflection.TargetInvocationException
    27.             Catch e2 As NullReferenceException
    28.             End Try
    29.         Next prop
    30.  
    31.  
    32.     End Sub

    it saying "BindingFlags" is not declared... can someone help me with this?... i dont quite understand whats going on with the props part...

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width