Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

frebas, glaub mir endlich... BYREF ist schneller.

Uploader:RedakteurJojo
Datum/Zeit:15.03.2010 21:49:26

Type gross
    As Integer hierEinInteger
    As Double daEinDouble
    As String * 1000 undDortEinString
End Type

Sub CallByValue(ByVal a As gross)
    a.hierEinInteger += 1
    a.daEinDouble += 1
End Sub

Sub CallByReference(ByRef a As gross)
    a.hierEinInteger += 1
    a.daEinDouble += 1
End Sub


#Define trial 100000000
Dim As gross a

Dim As Double start = timer

For i As UInteger = 1 To trial
    CallByValue(a)
Next

Print Timer - start

start = Timer

For i As UInteger = 1 To trial
    CallByReference(a)
Next

Print Timer - start

Sleep