Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
TBench - Class1.vb

Class1.vb

Caricato da: Totem
Scarica il programma completo

  1. Imports TBench.TBench
  2.  
  3. Public Class Stringhe
  4.     <TBench("Stringhe", Name:="Concatenazione")> _
  5.     Public Sub DoItWithStrings()
  6.         Dim S As String = ""
  7.  
  8.         For I As Int32 = 1 To 10000
  9.             S &= "i"
  10.         Next
  11.     End Sub
  12.  
  13.     <TBench("Stringhe", Name:="String Builder")> _
  14.     Public Sub DoItWithBuilder()
  15.         Dim B As New System.Text.StringBuilder
  16.  
  17.         For I As Int32 = 1 To 10000
  18.             B.Append("i")
  19.         Next
  20.     End Sub
  21. End Class
  22.  
  23. Public Class A
  24.     Private b As Int32 = 0
  25.  
  26.     <TBench("Numeri", Name:="Impostazione")> _
  27.     Public Sub C()
  28.         b = Int32.Parse("90899877")
  29.     End Sub
  30.  
  31.     <TBench("Numeri", Name:="Calcolo")> _
  32.     Public Sub D()
  33.         b = ((b + b * 0.5) * 2 + 1 - b) * 1.5 - 2 * b
  34.     End Sub
  35. End Class
  36.  
  37. Public Class B
  38.     <TBench("Con parametri", Name:="Ordina caratteri")> _
  39.     Public Sub SubWithParameters(ByVal Value As String)
  40.         Dim Result As New System.Text.StringBuilder(Value)
  41.         Dim Occurrences As Int32 = 0
  42.  
  43.         Do
  44.             Occurrences = 0
  45.             For I As Int32 = 0 To Result.Length - 2
  46.                 If Asc(Result(I)) < Asc(Result(I + 1)) Then
  47.                     Dim C As Char = Result(I)
  48.                     Result.Remove(I, 1)
  49.                     Result.Insert(I + 1, C)
  50.                     Occurrences += 1
  51.                 End If
  52.             Next
  53.         Loop Until Occurrences = 0
  54.     End Sub
  55.  
  56.     <TBench("Con parametri", Name:="Concatena")> _
  57.     Public Sub Concat(ByVal Value1 As String, ByVal value2 As Int32)
  58.         Dim Result As New System.Text.StringBuilder
  59.  
  60.         For I As Int32 = 0 To Value1.Length - 1
  61.             Result.AppendFormat("{0}{1}", Value1(I), value2)
  62.         Next
  63.     End Sub
  64.  
  65.     <TBench("Con parametri")> _
  66.     Public Sub Data(ByVal D As Date)
  67.  
  68.     End Sub
  69.  
  70.     <TBench("Con parametri", Name:="Parametri complessi")> _
  71.     Public Function GetString(ByVal V As Version) As String
  72.         Return V.ToString
  73.     End Function
  74. End Class