Seite 1 von 2
Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 18:56
von Delle
Hallo,
gibt's eigentlich irgendwo ne Liste der meistgenutzten PB-Befehle?
Klar hat jeder ein anderes PB-Anwendungsgebiet (Spiele, Tools, ...) aber unterm Strich müßte es doch so eine Top100 geben oder?
Von den 1100 Befehlen hab ich selbst bisher bestimmt nur 25% benutzt.
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 19:27
von STARGÅTE
Interessante Frage.
Habe dazu gleich mal n Programm geschrieben, und hier mein Ergebnis Top 15:
(eigene Prozeduren hab ich aus der Wertung herausgenommen)
1. Random [ 138154 ]
2. WriteLong [ 95802 ]
3. ReadLong [ 90338 ]
4. ReadString [ 79845 ]
5. Str [ 72950 ]
6. Pow [ 60943 ]
7. Val [ 56359 ]
8. DrawText [ 53679 ]
9. Locate [ 50284 ]
10. NextElement [ 49382 ]
11. ResetList [ 49335 ]
12. LoadSprite [ 48504 ]
13. DisplaySprite3D [ 47913 ]
14. LoadSprite3D [ 45847 ]
15. Mid [ 45830 ]
In etwa das was ich erwartet habe ^^
zumindest Val() und Str() sollten zu den häufigsten Befehlen gehören ^^
Bei Spielen dann Sprite und co.
Code zum erfassen:
Code: Alles auswählen
Enumeration
#RegularExpression
EndEnumeration
CreateRegularExpression(#RegularExpression, "(?<![\.\w])[a-zA-Z_]\w*(?=(?:\.\w+\s*|\s*)\()")
Structure Befehl
Name$
Count.i
EndStructure
Global NewMap Befehl.i()
Global NewList Befehl2.Befehl()
Procedure FindAlFiles(DirectoryName$)
Debug ">> "+DirectoryName$
Protected File, Count, i
Protected Dim Result$(0)
Protected Directory = ExamineDirectory(#PB_Any, DirectoryName$, "*")
If Directory
While NextDirectoryEntry(Directory)
Select DirectoryEntryType(Directory)
Case #PB_DirectoryEntry_Directory
If DirectoryEntryName(Directory) <> "." And DirectoryEntryName(Directory) <> ".."
FindAlFiles(DirectoryName$+"\"+DirectoryEntryName(Directory))
EndIf
Case #PB_DirectoryEntry_File
If Left(GetExtensionPart(DirectoryEntryName(Directory)),2)="pb"
File = ReadFile(#PB_Any, DirectoryName$+"\"+DirectoryEntryName(Directory))
If File
Repeat
String$ = ReadString(File)
Count = ExtractRegularExpression(#RegularExpression, String$, Result$())
For i = 0 To Count-1
Befehl(Result$(i)) + 1
Next
Until Eof(File)
CloseFile(File)
EndIf
EndIf
EndSelect
Wend
EndIf
EndProcedure
FindAlFiles("D:\")
FindAlFiles("C:\")
ForEach Befehl()
AddElement(Befehl2())
Befehl2()\Name$ = MapKey(Befehl())
Befehl2()\Count = Befehl()
Next
SortStructuredList(Befehl2(), #PB_Sort_Descending, OffsetOf(Befehl\Count), #PB_Sort_Integer)
Top10 = 1
ForEach Befehl2()
Debug Str(Top10)+". "+Befehl2()\Name$+" [ "+Str(Befehl2()\Count)+" ]"
Top10 + 1
If Top10 = 21 : Break : EndIf
Next
Nehem ich nur meine Incldues erhalte ich:
1. SizeOf [ 262 ]
1. Str [ 135 ]
2. GradientColor [ 79 ]
3. Cos [ 75 ]
4. Sin [ 73 ]
5. DrawingMode [ 72 ]
6. ImageHeight [ 64 ]
7. ImageWidth [ 62 ]
8. StartDrawing [ 59 ]
9. StopDrawing [ 58 ]
10. AddElement [ 51 ]
11. Random [ 51 ]
12. Len [ 46 ]
13. RSet [ 45 ]
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 20:57
von Kevin
meine meistgenutzten befehle:
4. DrawText [ 34646 ]
5. FrontColor [ 34029 ]
6. RGB [ 32577 ]
7. Str [ 31397 ]
8. LoadSprite3D [ 27973 ] (loadsprite + createsprite3d)
9. WriteLong [ 26363 ]
10. Box [ 26287 ]
11. KeyboardReleased [ 25745 ]
12. ReadWord [ 24216 ]
14. WriteWord [ 22689 ]
15. NextElement [ 22138 ]
16. ResetList [ 21985 ]
18. DisplaySprite3D [ 17845 ]
19. Collision [ 16671 ]
21. StopDrawing [ 12889 ]
22. StartDrawing [ 12889 ]
23. DrawingMode [ 12106 ]
26. KeyboardPushed [ 11016 ]
27. ScreenOutput [ 10702 ]
28. AddElement [ 9859 ]
29. Random [ 9717 ]
37. PeekW [ 7543 ]
38. Chr [ 7392 ]
40. MouseButton [ 7329 ]
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:09
von Delle
Code: Alles auswählen
1. Chr [ 850 ]
2. Str [ 678 ]
3. RGB [ 569 ]
4. WindowID [ 535 ]
5. SendMessage_ [ 505 ]
6. MessageRequester [ 473 ]
7. ButtonGadget [ 414 ]
8. v4 [ 379 ]
9. Random [ 344 ]
10. SetGadgetText [ 339 ]
11. Genres [ 300 ]
12. OpenWindow [ 280 ]
13. GadgetID [ 277 ]
14. AddGadgetItem [ 276 ]
15. Len [ 276 ]
16. CallFunction [ 273 ]
17. GetGadgetText [ 246 ]
18. GetGadgetState [ 235 ]
19. PeekS [ 227 ]
20. CreateGadgetList [ 226 ]
Keine Ahnung was v4 is
Mist jetzt weiß jeder was für geheime Befehle ich benutze
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:23
von ts-soft
Top 7 der nicht benutzten Befehle:
Code: Alles auswählen
Goto
Gosub
Return
FakeReturn
EventwParam()
EventlParam()
ButtonImageGadgetNoSkin()
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:40
von Fluid Byte
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:40
von Mok
@ts-soft: Befehl <> Schlüsselwort
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:47
von STARGÅTE
naja Top 1 Schlüsselwort ist vermutlich If, dich gefolgt von Procedure, Structure und Case und danach kommen die Schleifen
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 21.07.2010 21:52
von ts-soft
Mok hat geschrieben:@ts-soft: Befehl <> Schlüsselwort
Befehl <> Funktion!
Befehl = Schlüsselwort oder Kommando
Ansonsten für Befehle schließe ich mich STARGÅTE an.
Gruß
Thomas
Re: Liste der meistgenutzten PB-Befehle?
Verfasst: 25.07.2010 00:55
von PMV
01. Str [ 3095 ]
02. Chr [ 1772 ]
03. WriteStringN [ 1344 ]
04. Len [ 1341 ]
05. SizeOf [ 1249 ]
06. Val [ 1177 ]
07. AddElement [ 1166 ]
08. SelectElement [ 1071 ]
09. GetGadgetState [ 919 ]
10. ElapsedMilliseconds [ 818 ]
11. SetGadgetText [ 788 ]
12. TextGadget [ 776 ]
13. MessageRequester [ 735 ]
14. SetGadgetState [ 693 ]
15. DisableGadget [ 685 ]
16. NextElement [ 673 ]
17. Left [ 652 ]
18. ButtonGadget [ 647 ]
19. FreeMemory [ 630 ]
20. CloseFile [ 615 ]