Folgender Code lässt sich weder debuggen noch funktioniert
Verfasst: 05.11.2013 19:06
Also ich hab folgenden Code bekommen da C++ und PB in Geschwindigkeit verglichen werden sollten.
Er funktioniert in der Form mit PB5.20 nicht bzw. wird als Trojaner erkannt von Kaspersky.
Debuggen geht auch nicht....
Mir scheint der Code soweit richtig:
Er funktioniert in der Form mit PB5.20 nicht bzw. wird als Trojaner erkannt von Kaspersky.
Debuggen geht auch nicht....
Mir scheint der Code soweit richtig:
Code: Alles auswählen
Dim stA.s(1000)
Dim stB.i(1000)
Dim stC.f(1000)
Define.s ad
Define.i bd
Define.f cd
Define.s sout1
Define.l tm
OpenConsole()
ConsoleTitle ("PureBasic - Console Example:") ; Now we can give the opened console a Titlename ;)
EnableGraphicalConsole(1)
tm = ElapsedMilliseconds()
For i = 0 To 9999
For j = 0 To 999
stA(j) = "ABC"
stB(j) = j
stC(j) = 12.66
ad = stA(j)
bd = stB(j)
cd = stC(j)
Next
Next
tm = ElapsedMilliseconds() - tm
sout1 = Str(tm)
ConsoleLocate (1,1)
PrintN("Struct Array init and read: " +
sout1)
ad = Input()
CloseConsole()