Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
iftest
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 13.01.2009 22:28:16 |
Dim TCycle as UInteger = 100
Dim TTime as Double
Dim TTime1(TCycle) as Double
Dim TTime2(TCycle) as Double
Dim X as UInteger
Dim Y as UInteger
For Z as UInteger = 1 to TCycle
TTime = Timer()
For X = 1 to 100000
For Y = 1 to 10
If Y <> 1 Then
If Y <> 2 Then
If Y <> 3 Then
If Y <> 4 Then
If Y <> 5 Then
If Y <> 6 Then
If Y <> 7 Then
If Y <> 8 Then
If Y <> 9 Then
If Y <> 10 Then
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
TTime1(Z) = Timer() - TTime
TTime = Timer()
For X = 1 to 100000
For Y = 1 to 10
If Y = 1 Then Goto JumpNext
If Y = 2 Then Goto JumpNext
If Y = 3 Then Goto JumpNext
If Y = 4 Then Goto JumpNext
If Y = 5 Then Goto JumpNext
If Y = 6 Then Goto JumpNext
If Y = 7 Then Goto JumpNext
If Y = 8 Then Goto JumpNext
If Y = 9 Then Goto JumpNext
If Y = 10 Then Goto JumpNext
JumpNext:
Next
Next
TTime2(Z) = Timer() - TTime
Next
TTime = 0
For Z as UInteger = 1 to TCycle
TTime += TTime1(Z)
Next
Print "Schachtel: "; TTime / TCycle
TTime = 0
For Z as UInteger = 1 to TCycle
TTime += TTime2(Z)
Next
Print "Goto: "; TTime / TCycle
End