Analoge CPU-Leistungs Anzeige
Verfasst: 29.09.2007 21:08
So hab heut mal 2 Stunden geopfert um(einige werden sagen: OMG 2 Stunden), und hab mal eine analoge CPU Anzeige bebastelt!
Ich würd gerne nur den Quelcode hier schreiben und nicht die exe upen!
warum?
naja hatte keinen Bock die Daten für meinen FTP zu suchen!
also hier:
PS: Man braucht von der PBOSL die CPUusage Userlib!
Ich würd gerne nur den Quelcode hier schreiben und nicht die exe upen!
warum?
naja hatte keinen Bock die Daten für meinen FTP zu suchen!
also hier:
Code: Alles auswählen
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
x1.f = 65
y1.f = 65
x2.f = 75
y2.f = 75
x3.f = 70
y3.f = 70
x9.f = 50
y9.f = 50
a.f = 0
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Image_0
EndEnumeration
;- Image Plugins
;- Image Globals
;- Catch Images
CreateImage(0,230,230)
;- Images
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 250, 250, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ImageGadget(#Image_0, 10, 10, 230, 230, ImageID(0))
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
If ElapsedMilliseconds() >= elapsed + 500
way = (CPU - oldCPU.f) : Debug Str(CPU)+"-"+Str(oldCPU)+"="+Str(way)
ste.f = way / 100 * 10
CPU = CpuUsage()
elapsed = ElapsedMilliseconds()
EndIf
If ElapsedMilliseconds() >= elapsed2 + 50
oldCPU.f = oldCPU.f + ste.f
d.f=(6.29-2.1)/100*oldCPU-0.79-2.1
elapsed2 = ElapsedMilliseconds()
EndIf
If ElapsedMilliseconds() >= elapsed3 + 50
StartDrawing(ImageOutput(0))
x7.f = x3*Cos(d) + y3*Sin(d)
y7.f = x3*Sin(d) - y3*Cos(d)
Box(0,0,230,230,$FFFFFF)
Circle(115,115,100,$000000)
Circle(115,115,99,$FFFFFF)
LineXY(115,115,115+x7,115+y7,$000000)
LineXY(115+x1*Cos(3.41) + y1*Sin(3.41),115+x1*Sin(3.41) - y1*Cos(3.41),115+x2*Cos(3.41) + y2*Sin(3.41),115+x2*Sin(3.41) - y2*Cos(3.41),FFFFFF) ; 0
LineXY(115+x1*Cos(3.83) + y1*Sin(3.83),115+x1*Sin(3.83) - y1*Cos(3.83),115+x2*Cos(3.83) + y2*Sin(3.83),115+x2*Sin(3.83) - y2*Cos(3.83),FFFFFF) ; 10
LineXY(115+x1*Cos(4.25) + y1*Sin(4.25),115+x1*Sin(4.25) - y1*Cos(4.25),115+x2*Cos(4.25) + y2*Sin(4.25),115+x2*Sin(4.25) - y2*Cos(4.25),FFFFFF) ; 20
LineXY(115+x1*Cos(4.66) + y1*Sin(4.66),115+x1*Sin(4.66) - y1*Cos(4.66),115+x2*Cos(4.66) + y2*Sin(4.66),115+x2*Sin(4.66) - y2*Cos(4.68),FFFFFF) ; 30
LineXY(115+x1*Cos(5.08) + y1*Sin(5.08),115+x1*Sin(5.08) - y1*Cos(5.08),115+x2*Cos(5.08) + y2*Sin(5.08),115+x2*Sin(5.08) - y2*Cos(5.08),FFFFFF) ; 40
LineXY(115+x1*Cos(5.50) + y1*Sin(5.50),115+x1*Sin(5.50) - y1*Cos(5.50),115+x2*Cos(5.50) + y2*Sin(5.50),115+x2*Sin(5.50) - y2*Cos(5.50),FFFFFF) ; 50
LineXY(115+x1*Cos(5.92) + y1*Sin(5.92),115+x1*Sin(5.92) - y1*Cos(5.92),115+x2*Cos(5.92) + y2*Sin(5.92),115+x2*Sin(5.92) - y2*Cos(5.92),FFFFFF) ; 60
LineXY(115+x1*Cos(0.05) + y1*Sin(0.05),115+x1*Sin(0.05) - y1*Cos(0.05),115+x2*Cos(0.05) + y2*Sin(0.05),115+x2*Sin(0.05) - y2*Cos(0.05),FFFFFF) ; 70
LineXY(115+x1*Cos(0.47) + y1*Sin(0.47),115+x1*Sin(0.47) - y1*Cos(0.47),115+x2*Cos(0.47) + y2*Sin(0.47),115+x2*Sin(0.47) - y2*Cos(0.47),FFFFFF) ; 80
LineXY(115+x1*Cos(0.89) + y1*Sin(0.89),115+x1*Sin(0.89) - y1*Cos(0.89),115+x2*Cos(0.89) + y2*Sin(0.89),115+x2*Sin(0.89) - y2*Cos(0.89),FFFFFF) ; 90
LineXY(115+x1*Cos(1.31) + y1*Sin(1.31),115+x1*Sin(1.31) - y1*Cos(1.31),115+x2*Cos(1.31) + y2*Sin(1.31),115+x2*Sin(1.31) - y2*Cos(1.31),FFFFFF) ; 100
;7.6
DrawText(0,0 ,Str(CPU))
StopDrawing()
elapsed3 = ElapsedMilliseconds()
EndIf
SetGadgetState(#Image_0,ImageID(0))
Event = WindowEvent()
If Event = #PB_Event_CloseWindow
Quit = 1
ElseIf Event = #PB_Event_Gadget Or Event = #PB_Event_Menu
Select EventGadget()
Case #Image_0
EndSelect
EndIf
Delay(1)
Until Quit
