C# -> Vb.net probleme

  • VB.NET
  • .NET 5–6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von FZI.

    C# -> Vb.net probleme

    Hallo ihr lieben,

    kann mir jemand helfen diesen C# code in vb.net umzusetzen? Ich versuche einen Discord Bot in vb.net mit dem Nuget paket Discord.net zu schreiben. Leider ist mein c# wissen weit im minus bereich. :)

    C#-Quellcode

    1. class Program
    2. {
    3. public static void Main(string[] args) => new Program().MainAsync().GetAwaiter().GetResult();
    5. private DiscordSocketClient _client;
    7. public async Task MainAsync()
    8. {
    9. _client = new DiscordSocketClient();
    11. _client.Log += Log;
    12. _client.MessageReceived += ClientOnMessageReceived;
    14. var token = "Your Token Here";
    16. await _client.LoginAsync(TokenType.Bot, token);
    17. await _client.StartAsync();
    19. // Block this task until the program is closed.
    20. await Task.Delay(-1);
    21. }
    23. private static Task Log(LogMessage msg)
    24. {
    25. Console.WriteLine(msg.ToString());
    26. return Task.CompletedTask;
    27. }
    29. private static Task ClientOnMessageReceived(SocketMessage arg)
    30. {
    31. if (arg.Content.StartsWith("!helloworld"))
    32. {
    33. arg.Channel.SendMessageAsync($"User '{arg.Author.Username}' successfully ran helloworld!");
    34. }
    35. return Task.CompletedTask;
    36. }
    37. }


    Dies habe ich mit einem Converter gemacht aber lauffähig scheint das noch lange nicht ^^

    VB.NET-Quellcode

    1. Class Program
    2. Public Shared Sub Main(ByVal args As String())
    3. Return New Program().MainAsync().GetAwaiter().GetResult()
    4. End Sub
    6. Private _client As DiscordSocketClient
    8. Public Async Function MainAsync() As Task
    9. _client = New DiscordSocketClient()
    10. _client.Log += AddressOf Log
    11. _client.MessageReceived += AddressOf ClientOnMessageReceived
    12. Dim token = "Your Token Here"
    13. Await _client.LoginAsync(TokenType.Bot, token)
    14. Await _client.StartAsync()
    15. Await Task.Delay(-1)
    16. End Function
    18. Private Shared Function Log(ByVal msg As LogMessage) As Task
    19. Console.WriteLine(msg.ToString())
    20. Return Task.CompletedTask
    21. End Function
    23. Private Shared Function ClientOnMessageReceived(ByVal arg As SocketMessage) As Task
    24. If arg.Content.StartsWith("!helloworld") Then
    25. arg.Channel.SendMessageAsync($"User '{arg.Author.Username}' successfully ran helloworld!")
    26. End If
    28. Return Task.CompletedTask
    29. End Function
    30. End Class


    Danke! :)
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Meinst du so?

    VB.NET-Quellcode

    1. AddHandler _client, New EventHandler(AddressOf DiscordSocketClient())
    2. AddHandler _client.Log, New EventHandler(AddressOf Log())
    3. AddHandler _client.MessageReceived, New EventHandler(AddressOf ClientOnMessageReceived())

    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    die Klammern müssen weg

    VB.NET-Quellcode

    1. AddHandler _client, New EventHandler(AddressOf DiscordSocketClient)
    2. AddHandler _client.Log, New EventHandler(AddressOf Log)
    3. AddHandler _client.MessageReceived, New EventHandler(AddressOf ClientOnMessageReceived)
    und vereinfacht:

    VB.NET-Quellcode

    1. AddHandler _client, AddressOf DiscordSocketClient
    2. AddHandler _client.Log, AddressOf Log
    3. AddHandler _client.MessageReceived, AddressOf ClientOnMessageReceived

    Das kommt jetzt aber dann doch n bisken darauf an, ob die EventHandler-Signatur zu der vom Event vorgegebenen passt …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    naja, davon geh ich ja mal aus - sonst kompilierts weder in c# noch in vb.net.

    Übrigens fällt mir grad auf:

    VB.NET-Quellcode

    1. AddHandler _client, AddressOf DiscordSocketClient
    sieht sehr nach Unfug aus (den ich halt so abgeschrieben hatte)
    Also das hat der Converter schon richtig übersetzt gehabt, mit

    VB.NET-Quellcode

    1. _client = New DiscordSocketClient()

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende