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
