Zum Inhalt wechseln

Als Gast hast du nur eingeschränkten Zugriff!


Anmelden 

Benutzerkonto erstellen

Du bist nicht angemeldet und hast somit nur einen sehr eingeschränkten Zugriff auf die Features unserer Community.
Um vollen Zugriff zu erlangen musst du dir einen Account erstellen. Der Vorgang sollte nicht länger als 1 Minute dauern.

  • Antworte auf Themen oder erstelle deine eigenen.
  • Schalte dir alle Downloads mit Highspeed & ohne Wartezeit frei.
  • Erhalte Zugriff auf alle Bereiche und entdecke interessante Inhalte.
  • Tausche dich mich anderen Usern in der Shoutbox oder via PN aus.
 

   

Foto

[VB.net] asci class [Selbstgeschmandet]

- - - - -

  • Bitte melde dich an um zu Antworten
Eine Antwort in diesem Thema

#1
Slixer

Slixer

    Pentester

  • Banned
  • PIPPIPPIPPIPPIPPIPPIP
  • Likes
    57
  • 121 Beiträge
  • 29 Bedankt
  • verifiziert

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!

 


Vom 20 Stock trett ich runter den Einkaufswagen

 

 

 

 

 

 

Sogar mein Nachbar meint ich hab ein Dachschaden


#2
SAR

SAR

    Regelmäßiger Übertreiber

  • Premium Member
  • Likes
    319
  • 394 Beiträge
  • 286 Bedankt
  • 608463167
  • verifiziert
Ein paar Sachen sind aber noch unsauber. :P
 
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

Eingefügtes Bild


Thanked by 1 Member:
Slixer


  Thema Forum Themenstarter Statistik Letzter Beitrag

Besucher die dieses Thema lesen:

Mitglieder: , Gäste: , unsichtbare Mitglieder:


This topic has been visited by 36 user(s)


    <Kevin>, Avni, Benassi, BlackZetsu, bones, ClusterZ, Cube, Cyber Tjak, DarkICE, easysurfer, exetex, FalkE, Framerater, gutzuu, Imperial, jabba, kiwitone, lNobodyl, mdwd, MiD_NiGHT, most_uniQue, n1nja, Neonxen, paulaner, pdr0, peppi200, PHIPU, R3s1stanc3, Rasputin, SAR, Slixer, smc2014, Stanley, Take1T, x1z0ng, xmmlegends
Die besten Hacking Tools zum downloaden : Released, Leaked, Cracked. Größte deutschsprachige Hacker Sammlung.