Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Hallo Benchmark
| Uploader: |  PMedia |
| Datum/Zeit: | 19.09.2007 19:04:19 |
Dim Text As String
Dim i As Integer
Dim Buchstabe As Single
Dim Start As Double
Dim Faktor As Single
text = "Hallo Welt!"
Addition:
Start = Timer
Print "Addition"
For i = 1 To len(text)
Do
Color 8,0
Locate 2, i, 0
buchstabe += 0.1
If int(buchstabe) <> 7 then Print chr(int(buchstabe))
If buchstabe > 255 Then
buchstabe = asc(mid(Text, i, 1))
Beep
Locate 4,1
Color 12, 4
Print "IHRE CPU HAT EINEN RECHENFEHLER!" + Space(80-Len("IHRE CPU HAT EINEN RECHENFEHLER!"));
Color 15,0
Print "Es ist zu empfehlen, sie auszudpdo ps8oanpsgfs¦ñç"
EndIf
loop until int(buchstabe) = asc(mid(Text, i, 1))
Color 15,0
Locate 2, i, 0
print mid(Text, i, 1);
buchstabe = 0
Next
Print
Print str(Timer-Start)+ " Sekunden benötigt"
Subtraktion:
Start = Timer
Color 7,0
Buchstabe = 255
Print "Subtraktion"
For i = 1 To len(text)
Do
Color 8,0
Locate 5, i, 0
buchstabe -= 0.1
If int(buchstabe) <> 7 then Print chr(int(buchstabe))
If buchstabe < 0 Then
buchstabe = asc(mid(Text, i, 1))
Beep
Locate 6,1
Color 12, 4
Print "IHRE CPU HAT EINEN RECHENFEHLER!" + Space(80-Len("IHRE CPU HAT EINEN RECHENFEHLER!"));
Color 15,0
Print "Es ist zu empfehlen, sie auszudpdo ps8oanpsgfs¦ñç"
EndIf
loop until int(buchstabe) = asc(mid(Text, i, 1))
Color 15,0
Locate 5, i, 0
print mid(Text, i, 1);
buchstabe = 255
Next
Print
Print str(Timer-Start)+ " Sekunden benötigt"
Multiplikation:
Start = Timer
Color 7,0
Buchstabe = 1
Faktor = 1.1
Print "Multiplikation"
For i = 1 To len(text)
Do
Color 8,0
Locate 10, i, 0
buchstabe = buchstabe * faktor
If int(buchstabe) <> 7 then Print chr(int(buchstabe))
Locate 11, 1
Print str(Buchstabe)
If buchstabe > 255 Or buchstabe < 0 Then
Buchstabe = 1
Faktor += 0.1
EndIf
If Faktor > 20 Then
faktor = 1.1
EndIf
loop until int(buchstabe) = asc(mid(Text, i, 1))
Color 15,0
Locate 10, i, 0
print mid(Text, i, 1);
buchstabe = 255
Next
Print
Print str(Timer-Start)+ " Sekunden benötigt"
sleep