[VB.NET] Lernprojekt

[Snees]

Ich habe vor einiger Zeit mal angefangen eine Klasse zu schreiben und diese zu kommentieren, um Anfängern ein paar Codebeispiele zu zeigen und zu erklären, dann lag die Klasse wochenlang auf meinem PC ohne dass ich sie veröffentlicht habe. Ich habe noch keine Zeit gefunden sie zu erweitern, trotzdem ist es schon etwas Code.

Schaut euch die Klasse einfach mal an

Ich bin kein Profi im Erklären aber vielleicht versteht der ein oder andere es ja trotzdem

'### Lernprojekt.vb (c) Nico @ u-hacks.net ###


'Die Klasse heißt Lernprojekt, wir können auf diese Klasse auch in anderen Klassen zugreifen
'sollte man ein größeres Projekt anstreben ist es übersichtlicher mit verschiedenen Klassen zu arbeiten

'An dieser Stelle kann man importieren,
'z.B. Imports System.Net
'mehr dazu weiter unten

Public Class Lernprojekt

    'Das ist die Methode um die Funktion aufzurufen
    Public Sub Split()

        'Das ist der String, den ihr splitten, also aufteilen wollt, hier eine abgewandelte Version eines Knuddels-Tokens
        Dim Input As String = "Nickname|Passwort|Channel"

        'Zuerst die Variablen, benannt nach den Strings, die wir herausfiltern wollen
        Dim Nickname As String = String.Empty
        Dim Passwort As String = String.Empty
        Dim Channel As String = String.Empty

        'Nun müssen wir den Variablen einen Wert zuweisen, das machen wir in diesem Fall mit der Split() Funktion
        'Der String wird in diesem Beispiel immer bei | gesplittet
        'Hinter der Funktion .Split("|") müssen wir noch die sogenannte Indexzahl angeben
        'Wenn der String so aufgebaut ist wie in unserem Beispiel dann steht 0 für den String vor |
        '1 steht für den String nach dem ersten |
        '2 steht für den String nach dem zweiten | usw.
        Nickname = Input.Split("|")(0)
        Passwort = Input.Split("|")(1)
        Channel = Input.Split("|")(2)

        'Da wir jetzt den Variablen einen Wert zugewiesen haben können wir diese nun noch in einem einzelnen String speichern
        'somit müssen wir bei der Ausgabe nur einen String ausgeben und nicht drei verschiedene
        'man muss es nicht machen, aber sollte man den Output String mehr als einmal verwenden, ist es einfach praktischer
        Dim Output As String = "Nickname: " + Nickname + ", Passwort: " + Passwort + ", Channel: " + Channel

    End Sub

    'Mit dieser Methode können wir ganz einfach den Quelltext einer Webseite herunterladen und in einem String abspeichern
    Public Sub Quelltext_herunterladen()

        'Wir deklarieren einen neuen Webclienten
        'alternativ zu System.Net.Webclient kann man auch System.Net importieren, indem man über Public Class Lernprojekt einfach Imports System.Net einfügt
        'solltet ihr System.Net importieren, reicht Dim client as New Webclient()
        Dim client As New System.Net.WebClient()

        'Nun noch die Variable quelltext deklarieren und durch die .DownloadString Funktion direkt einen Wert zuweisen, der in diesem Fall der Quelltext ist
        Dim quelltext As String = client.DownloadString("http://URL")

    End Sub

    'Hier ist die Methode etwas erweitert
    'Man kann wenn man eine Methode aufruft auch direkt Daten übergeben
    'Die Methode könnte man z.B. so aufrufen: Text_Speichern("Hallo")
    'Dann wird der String "Hallo" in der Textdatei gespeichert
    'Die Methode könnte auch Public Sub Text_Speichern(ByVal zahl as Integer) heißen, wenn man einen Integer übergeben möchte
    Public Sub Text_Speichern(ByVal text As String)

        'Wir benutzen hier den StreamWriter um etwas in einer Textdatei zu speichern
        'Man könnte auch System.IO importieren, das hätte den gleichen Sinn wie im Beispiel Quelltext_herunterladen
        Using writer As System.IO.StreamWriter = New System.IO.StreamWriter("Dateipfad/Name.txt")

            'hiermit schreiben wir eine neue Zeile in eine Textdatei
            'man könnte auch einfach nur writer.Write(Text) verwenden, dann schreibt man einfach nur in die textdatei, ohne eine eigene Zeile
            writer.WriteLine(text)

            'Und Using wieder beeden
        End Using

    End Sub

    'Mit dieser Methode lesen wir eine Textdatei aus
    Public Sub Text_Auslesen()

        'Hier verwenden wir den StreamReader um eine Textdatei auszulesen
        'Hier könnte man alternativ ebenfalls System.IO(importieren)
        Using reader As System.IO.StreamReader = New System.IO.StreamReader("Dateipfad/Name.txt")

            'Mit reader.ReadToEnd lesen wir eine Textdatei bis zum Ende aus,
            'mit reader.ReadLine nur nur eine Zeile
            Dim Output As String = reader.ReadToEnd

            'Und Using wieder beenden
        End Using

    End Sub

    'Hier zeige ich euch wie ihr Select Case verwendet, anhand des Beispiels einer ComboBox, in der man das Chatsystem auswählen kann
    Public Sub Select_Chatsystem()

        'Zuerst haben wir einen Input String, der z.B. der ComboBox.Text ist
        Dim input As String = String.Empty

        'Wenn ihr mit der KNLib arbeitet, verwendet ihr diese Deklaration um das Chatsystem festzulegen
        'Dim chat_system as Chatsystem
        Select Case input

            Case "DE"
                'Sollte input also z.B. der ComboBox.Text DE sein, dann könnt ihr hier die Methode aufrufen, um euer Chatsystem festzulegen
                'Also z.b. chat_system = ChatSystem.DE
            Case "AT"
                'Sollte input also z.B. der ComboBox.Text AT sein, dann könnt ihr hier die Methode aufrufen, um euer Chatsystem festzulegen
                'Also z.b. chat_system = ChatSystem.AT
            Case "CH"
                'Sollte input also z.B. der ComboBox.Text CH sein, dann könnt ihr hier die Methode aufrufen, um euer Chatsystem festzulegen
                'Also z.b. chat_system = ChatSystem.CH

                'Und Select Case wieder beenden
        End Select

    End Sub

    'Wir generieren eine zufällige Zahl
    Public Function Zufaellige_Zahl()

        'Random und Zufallszahl deklarieren
        Dim rnd As New Random()

        'und vorerst den Wert 0 zuweisen
        Dim Zufallszahl As Integer = 0

        'Nun eine Zufallszahl erstellen und der Variable deren Wert zuweisen
        'die rnd.Next(Zahl1, Zahl2), die Zufallszahl befindet sich dann im Bereich zwischen Zahl1 und Zahl 2
        'in unserem Beispiel wäre das eine Zahl zwischen 1 und 1337
        Zufallszahl = rnd.Next(1, 1337)
        Return Zufallszahl
    End Function


    'Aktuelle Uhrzeit und Datum ermitteln
    Public Sub Datum_Uhrzeit_Beispiel()

        'Die Variable deklarieren, in der wir gleich den Wert speichern
        Dim Datum_und_Uhrzeit As String = String.Empty

        'Einen Wert zuweisen, das geht so
        Datum_und_Uhrzeit = My.Computer.Clock.LocalTime

        'jetzt noch einzelne Variablen deklarieren, um es an verschiedenen Beispielen zu verdeutlichen
        Dim Stunde As Integer = 0
        Dim Minute As Integer = 0
        Dim Sekunde As Integer = 0

        'Und hier wieder Werte zuweisen
        Stunde = My.Computer.Clock.LocalTime.Hour
        Minute = My.Computer.Clock.LocalTime.Minute
        Sekunde = My.Computer.Clock.LocalTime.Second

        'Man kann auch .TimeOfDay etc verwenden,
        'einfach mal ausprobieren

    End Sub

End Class 

[Brainy]

Für Verkettung von Strings benutzt man in VB.NET &, und nicht +.

Mehr sage ich vorerst zum Code nicht.

MfG

[Snees]

Für Verkettung von Strings benutzt man in VB.NET &, und nicht +.

Mehr sage ich vorerst zum Code nicht.

MfG

Da war ich in Gedanken noch bei C#, werde gleich editieren. Danke.

[Diebspiel]

 'Sollte input also z.B. der ComboBox.Text DE sein, dann könnt ihr hier die Methode aufrufen, um euer Chatsystem festzulegen
                'Also z.b. chat_system = ChatSystem.DE

chat_system ist keine Methode, sondern eine Enumeration. Und auf dieser "Eigenschaft" speichert man die Auswahl zwischen um sie später mit an die Methode zu übergeben.

Das hab ich u.a. in meinem Sample drinne, weil mir kein anderer Weg spontan eingefallen ist, wie man sonst die Auswahl dynamisch machen kann.