Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
POINT-Ersatz (Möglichkeit)
| Uploader: |  MOD |
| Datum/Zeit: | 16.08.2011 22:00:58 |
Screen 18, 32
Dim As Any Ptr bild
bild = ImageCreate(16, 16)
BLoad "eine.bmp", bild
Dim As Double lastTime, ersteZeit, zweiteZeit
Dim As Integer x, y
Dim As ULongInt counter1, counter2
lastTime = Timer
For y = 0 To 15
For x = 0 To 15
If Point(x, y, bild) = &hFF000000 Then
counter1 += 1
EndIf
Next
Next
ersteZeit = Timer - lastTime
lastTime = Timer
For y = 0 To 15
For x = 0 To 15
If *Cast(Integer Ptr, bild+(32+x*4+y*(16*4))) = &hFF000000 Then
counter2 += 1
EndIf
Next
Next
zweiteZeit = Timer - lastTime
Print "Erste Zeit:", ersteZeit
Print "Zweite Zeit:", zweiteZeit
Print
Print "Erstes Ergebnis:", counter1
Print "Zweites Ergebnis:", counter2
Print
Print "Die Zeiterfassung hierbei ist nicht sehr praezise,"
Print "allerdings duerfte die zweite Methode um den Faktor"
Print "15 schneller sein."
ImageDestroy (bild)
Sleep