1 reply to this topic

[Slixer]

Ich hoffe jemmand kann damit was anfangen.

 

 

Class:

Please Login HERE or Register HERE to see this link!

 

Aufruf:

Please Login HERE or Register HERE to see this link!

 

Beispiel:

Please Login HERE or Register HERE to see this link!

 

[SAR]

Ein paar Sachen sind aber noch unsauber.
 

Dim Temp_Cursor As Integer
(.....)
Temp_Cursor = Console.CursorTop.ToString //toString ist hier unnötig.
//Du machst aus dem Int einen String und danach wird der String automatisch wieder in Int umgewandelt

    Sub CenterConsole(ByVal text As String)
        Dim msg, x2
        msg = text   //Die Variable kann auch wegrationalisiert werden, ohne das es Probleme gibt (wird streng genommen sogar schneller)
        x2 = 80 \ 2 - Len(msg) \ 2
        Console.WriteLine(Space(x2) & msg)
    End Sub

//So könnte das ohne "msg" ausehen und da an "text" keine Änderung vorgenommen wird,
//kann man aus "ByVal" "ByRef" machen. Dadurch gewinnst du ein paar Ticks an Ausführungszeit
    Sub CenterConsole(ByRef text As String)
        Dim x2 As Integer = 40 - Len(text) \ 2
        Console.WriteLine(Space(x2) & text)
    End Sub


//Eigentlich kam den "Temp_Cursor" deutlich weniger benutzen
    Public Function Progressbar(ByVal time As Integer)
        Dim SingleTime As Integer = time / 44
        Dim ladebalken As String = "#"
        Dim Temp_Cursor As Integer = Console.CursorTop

        For i As Integer = 0 To 44
            trenzeile()
            ladebalken = ladebalken & "#"
            Asci(ladebalken)
            trenzeile()
            Thread.Sleep(SingleTime)
            Console.SetCursorPosition(0, Temp_Cursor)
        Next

        Console.SetCursorPosition(0, Temp_Cursor + 3)
    End Function


//Und einfach, weil ich diese Zeile genial finde:
EvenNumber = (n And 1&) = 0&
//Das "="-Zeichen ist hier Zuweisungs- und gleichzeitig Vergleichsoperator
//Deswegen kann VB.NET nichtmehr so leiden. ^^

Mfg.
SAR