ASTDLIB - Die Unversal-Bibliothek

    • Beta

    Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von FAtheone.

      ASTDLIB - Die Unversal-Bibliothek

      DLL Name: ASTDLIB.dll

      Typ: Snippets Sammlung

      Beinhaltet:
      • Sereinnummernverwaltung
      • Zufallszahlenklalsse (Mischen, Münzwurf, Würfel etc.)
      • GDIklasse (Leichte verwendung des System.Drawing.Graphics-Objekts)
      • "Skinner" (Zum verwenden eigener Designs, Tutorial werde ich bald scheiben)
      • Vollständige Kommenierung jeder Funktion
      Benötigt:

      • .NET Framework 3.5

      Getestet auf:

      • Win Vista 32bit
      • Win XP Pro 32bit
      • Win 7 RC 32bit

      Bugs:

      • Keine bekannt
      Download (FileFactory, Momentan 19KB Die Datei wurde vom Server entfernt.)
      Download neu (5MB, FileFactory) FileFactory ist am spinnen.
      Download (Uploaded.to, 5MB)
      Zu Skinner:

      Man benötigt natürlich Skins, um Skinner zu betreiben. In den nächsten Tagen werde ich welche reinstellen und Screenshots machen.

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „FAtheone“ ()

      Klasse Serial

      Klasse: Serial

      Sub: New
      Parameter: Length (Integer) Resource (String) DiverseLength (Integer)
      Funktion: Initiaisiert die Klasse, sodass sie verwendet werden kann
      Beispiel:

      My.Resources.Serials (txt):

      ... Man Beachte, dass Auch am Ende eine Neue Zeile beginnt
      123456
      ABCDEF
      Hiszde
      632574

      VB.NET-Quellcode

      1. Public Serials As ASTDLIB.Serial = New ASTLIB.Serial (6,My.Resources.Serials,2)


      Length: Länge einer Seriennummer (Hier: 6 Zeichen (

      VB.NET-Quellcode

      1. Len(123456, ABCDEF...)
      ))
      Resource: String, der Alle Seriennummern enthält, durch gleich große Abstände voneinander getrennt
      DiverseLength: Länge der Trennung (Hier: 2 Zeichen (Chr(13) & Chr(10 -> ENTER)


      Function: AddManual
      Parameter: NewSerial (String)
      Funktion: Fügt eine neue Seriennummer der Liste hinzu
      Beispiel:

      VB.NET-Quellcode

      1. Serial.SerialLength = 6
      2. Serials.AddManual("GokartHallo")


      Neue Liste:
      Gokart


      Erklärung: Es werden !nur! die ersten SerialLength Zeichen eingelesen. Deshalb muss SerialLength vorher einen Wert erhalten
      Rückgabe: True, wenn ein Element hinzugefügt wurde, False wenn nicht

      Function: Check
      Parameter: Input (String)
      Funktion: Überprüft, ob die Seriennummer in Input gültig ist.
      Beispiel:

      VB.NET-Quellcode

      1. 'Der Obige Codde muss drin sein
      2. Dim x as Boolean
      3. x = Serials.Check("Blabla")
      4. Masgbox(x) '-> False
      5. x = Serials.Check("Gokart")
      6. Msgobx(x) '-> True
      7. x = Serials.Check("ABCDEFG") '-> False
      8. x = Serials.Check("ABCDEF") '-> True


      Rückgabewert: True, wenn die Seriennummer gültig ist, Flase wenn nicht.

      Bemerkungen: Es empfiehlt sich, die Seriennummern vor der Verwendung zu Hashen (MD5) oder zu Verschlüsseln (AES), da die Serials.txt leicht ausgelesen werden kann. Die Eingegebene Serial muss dann natürlich vor dem Überprüfen ebenfalls gehasht/ verschlüssselt weden.

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

      Klasse Random

      Funktion: RandomNumber() As Integer
      Parameter: Lower (Integer), Upper (Integer)
      Liefert eine Zufallstzahl zwischen Lower und Upper

      Funktion: RandomObject () As Object
      Parameter: Obj() (Object)
      Liefert einen Zufälligen Eintrag aus dem Array Obj()

      Funktion: CoinFlip () As Boolean
      Liefert einen virtuellen Münzwurf

      Funktion: CoinFlipSeries () As Object
      Parameter: Rounds (Integer)
      Liefert Ein Boolean-Array der Größe Rounds mit zufälligen Werten

      Funktion: DiceThrow () As Integer
      Liefert einen Würfelwurf
      Synchron dazu DiceThrowSeries

      Sub: MixArray ()
      Parameter: Obj() (Object)
      Mischt das Array Obj()

      Sub: MixList()
      Parameter: Obj (List(Of Object))
      Mischt die Liste Obj()

      Beispiele:

      VB.NET-Quellcode

      1. Dim R As ASTDLIB.Random = New ASTDLIB.Random
      3. Dim x As Integer
      4. Dim y As Boolean
      5. Dim xbla(5) As Integer
      6. Dim ybla(5) As Boolean
      7. Dim Haha(7) As Integer
      8. Dim Hihi As List(Of Integer)
      10. 'Einzelne
      11. x = R.RandomNumber(-65535,65535)
      12. y = R.CoinFlip()
      13. x = R.DiceThrow()
      15. 'Reihen
      16. xbla = R.DiceThrowSeries(6)
      17. ybla = R.CoinFlipSeries(6)
      19. 'Mischen
      20. R.MixArray(Haha)
      21. R.MixList(Hihi)

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „FAtheone“ ()

      Wieso nicht?
      -----------------------

      Sudoku wird momentan eifrig weiterentwickelt, es gibt aber probleme, die noch 1-2 Wochen in anspruch nemhen könnten weshalb es noch etwas dauern wird.

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

    Facebook
    Telefonspende