purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

 
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Status bars
Enumeration
  #StatusBar_Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Text_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
Global TextItog$ = ""
Global Znak.i=6
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 483, 35, 400, 254, "Супер ПИ PureBasic", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateStatusBar(#StatusBar_Window_0, WindowID(#Window_0))
       AddStatusBarField(#PB_Ignore) 
     EndIf
     StatusBarText(0, 0, "Тест на скорость вычисления числа Пи",#PB_StatusBar_Center)
 
    ;If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 0, 15, 400, 215, "")
      ;EndIf
     If CreateMenu(0, WindowID(0))
    MenuTitle("Тест")
      MenuItem( 1, "Начать")
      MenuItem( 2, "Сохранить результат")
      MenuItem( 3, "Заисать в буфер обмена")
      MenuBar()
      MenuItem( 4, "Выход")
   MenuTitle("?")
      MenuItem(5, "About")
 
  EndIf
  
 
      
  EndIf
EndProcedure
 
; Не забудте включить поддержку ASM вставок в свойствах компилятора!
Procedure.d GetCPUFreq(DelayTime.l=500)
  Static TimerHi.l, TimerLo.l, PriorityClass .l, Priority .l, Process.l, Thread.l
  Process = GetCurrentProcess_()
  Thread  = GetCurrentThread_()
  PriorityClass  = GetPriorityClass_(Process)
  Priority  = GetThreadPriority_(Thread)
  SetPriorityClass_(Process, #REALTIME_PRIORITY_CLASS)
  SetThreadPriority_(Thread, #THREAD_PRIORITY_TIME_CRITICAL)
  Sleep_(DelayTime)
  DW $310F
  MOV TimerLo, EAX
  MOV TimerHi, EDX
  Sleep_(DelayTime)
  DW $310F
  SUB EAX, TimerLo
  SUB EDX, TimerHi
  MOV TimerLo, EAX
  MOV TimerHi, EDX
  SetThreadPriority_(Thread,Priority)
  SetPriorityClass_ (Process,PriorityClass)
  ProcedureReturn TimerLo / (1000.0 * DelayTime)
EndProcedure
 
OpenWindow_Window_0()
F.d = GetCPUFreq()
GHz = Int(F / 1000)
MHz = F - GHz*1000
key$="HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\"
Name$=RegGetValue(key$,"ProcessorNameString",".")
 
TextItog$="Процессор : " + Name$ + #CRLF$
TextItog$=TextItog$+"Частота процессора: "+Str(GHz)+" GHz "+Str(MHz)+" MHz" + #CRLF$
 
;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
      Case #PB_Event_Menu
 
        Select EventMenu()  
          Case 1
           
            n.d=0:S1.d=0:S2.d=0 
            Znak=Val(InputRequester("Супер ПИ PureBasic","Точность знаков после запятой <1-10>",Str(Znak)))
             StatusBarText(0, 0, "РАБОТАЮ! Не двигать мышкой и клавиши не нажимать!",#PB_StatusBar_Center)
            Tocnost.d=Pow(10,Znak * -1)
            Time=GetTickCount_() 
                 Repeat
                     n+1
                      S1=S2+4/(2*n-1)
                     n+1
                      S2=S1-4/(2*n-1)
                 Until S1-S2 < Tocnost
                 timenew=GetTickCount_()-Time 
                 StatusBarText(0, 0, "ГОТОВО! Вычислено за "+Str( timenew) + "мсек.",#PB_StatusBar_Center)
                 TextItog$=TextItog$+"Точность Пи= "+ Str(Znak)+ " зн. после запятой.Время вычисления ="+ Str( timenew) + " мсек." + #CRLF$    
                 SetGadgetText(#Text_0,TextItog$)
             MessageRequester("Супер ПИ PureBasic","Вычислено за " + Str( timenew/1000) + " сек.")
                 
           Case 2
             Pattern$ = "Text (*.txt)|*.txt"
             Pattern = 0    
             File$ = SaveFileRequester("Файл для сохранения результатов","", Pattern$, Pattern)
           If File$ 
               
             If CreateFile(0, File$)   
                  WriteString(0,GetGadgetText(#Text_0)) 
                  CloseFile(0)  
                  MessageRequester("Супер ПИ PureBasic","Сохранено!")
             Else
                   MessageRequester("Супер ПИ PureBasic","Не возможно создать файл!")
             EndIf
                 
          EndIf
               
           Case 3
             SetClipboardText(GetGadgetText(#Text_0))
             MessageRequester("Супер ПИ PureBasic","Выполнено!")
          Case 4
            End
          Case 5 ; About
            MessageRequester("О программе", "Оценивает скорость работы компьютера на  основании скорости вычисления числа Пи"+ #CRLF$+ " Вычисления проводятся по формуле Грегори", 0)
            
          Default
           
 
        EndSelect
 
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Text_0
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}
 

1
2
3
4
5
6
7

Repeat
                     n+1
                      S1=S2+4/(2*n-1)
                     n+1
                      S2=S1-4/(2*n-1)
Until S1-S2 < Tocnost