Imports TBench.TBench
Public Class Stringhe
<TBench("Stringhe", Name:="Concatenazione")> _
Public Sub DoItWithStrings()
Dim S As String = ""
For I As Int32 = 1 To 10000
S &= "i"
Next
End Sub
<TBench("Stringhe", Name:="String Builder")> _
Public Sub DoItWithBuilder()
Dim B As New System.Text.StringBuilder
For I As Int32 = 1 To 10000
B.Append("i")
Next
End Sub
End Class
Public Class A
Private b As Int32 = 0
<TBench("Numeri", Name:="Impostazione")> _
Public Sub C()
b = Int32.Parse("90899877")
End Sub
<TBench("Numeri", Name:="Calcolo")> _
Public Sub D()
b = ((b + b * 0.5) * 2 + 1 - b) * 1.5 - 2 * b
End Sub
End Class
Public Class B
<TBench("Con parametri", Name:="Ordina caratteri")> _
Public Sub SubWithParameters(ByVal Value As String)
Dim Result As New System.Text.StringBuilder(Value)
Dim Occurrences As Int32 = 0
Do
Occurrences = 0
For I As Int32 = 0 To Result.Length - 2
If Asc(Result(I)) < Asc(Result(I + 1)) Then
Dim C As Char = Result(I)
Result.Remove(I, 1)
Result.Insert(I + 1, C)
Occurrences += 1
End If
Next
Loop Until Occurrences = 0
End Sub
<TBench("Con parametri", Name:="Concatena")> _
Public Sub Concat(ByVal Value1 As String, ByVal value2 As Int32)
Dim Result As New System.Text.StringBuilder
For I As Int32 = 0 To Value1.Length - 1
Result.AppendFormat("{0}{1}", Value1(I), value2)
Next
End Sub
<TBench("Con parametri")> _
Public Sub Data(ByVal D As Date)
End Sub
<TBench("Con parametri", Name:="Parametri complessi")> _
Public Function GetString(ByVal V As Version) As String
Return V.ToString
End Function
End Class