Seite 2 von 3

Re: PureBasic 4.60 Beta 4

Verfasst: 22.08.2011 22:11
von NicTheQuick

Code: Alles auswählen

a.d = Random(100000000) / 100000
Debug Pow(Sin(a), 2) + Pow(Cos(a), 2)

Re: PureBasic 4.60 Beta 4

Verfasst: 22.08.2011 23:02
von Falko

Code: Alles auswählen

b=1
For i = 10 To 1 
  b=b/i
Next i
Debug Chr(43)+Str(Int(Round(b,#PB_Round_Up)))

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 01:17
von Derren

Code: Alles auswählen

EnableExplicit 

;-Constants
Enumeration 1
	#One
EndEnumeration 

#Plus$ = "+"
#Emoticon$ = ":praise:"

;-Define
Define iOne.i = #One

;-Procedures
Procedure.s SayThanks()
	Shared iOne.i
	Protected sOne.s 
	Protected sResult.s
	
	sOne = Str(iOne)
	sResult = #Plus$  + sOne + " " + #Emoticon$ 
	
	ProcedureReturn sResult
EndProcedure 

Debug SayThanks()

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 10:57
von Vermilion
Ihr habt auch nichts zu tun, oder? :mrgreen:

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 14:04
von Andesdaf
was hab ich da wieder ausgelöst... :lol:

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 16:40
von Josef Sniatecki
Einer geht noch:

Bild

:mrgreen:

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 17:29
von STARGÅTE
Gut, da Josef Sniatecki das niveau angehoben hat, nun auch einer von mir:
Bild

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 17:52
von ts-soft
Bild

Die +1 Formeln haben nun gar nichts mit Niveau zu tun, sondern mit Verspieltheit. Aber daran hat man sich
ja langsam gewöhnt :mrgreen: deshalb von mir lieber einen Smiley als Danke schön.

Re: PureBasic 4.60 Beta 4

Verfasst: 23.08.2011 20:54
von rolaf
Und da sagt man immer die Jugend kann nicht mehr rechnen. :mrgreen:

Re: PureBasic 4.60 Beta 4

Verfasst: 24.08.2011 18:31
von edel
Leider ist das bearbeiten sehr grosser Dateien (>20k Zeilen) unmoeglich.
Dass das laden der Datei seine Zeit braucht, kann ich verstehen, aber >3
Sekunden um ein eingegebenes Wort anzuzeigen, ist zuviel.

4.60 x64 B4 - Ubuntu