独立的几个部分代码如何同时执行

redapple2008

既能同时显示时间，也能同时监测CPU及内存的使用量，不知是如何做到的？
如下图：
问题在解决中，结帖算了。

[ 本帖最后由 redapple2008 于 2008-8-23 20:42 编辑 ]

redapple2008

时间函数：

$Group1 = GUICtrlCreateGroup("计时器", 5, 16, 300, 97)
$t=GUICtrlCreateLabel("00:00", 64,50,200,60)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$timer = TimerInit()

Func Timer()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i", $Mins, $Secs)
  If $sTime <> $Time Then GUICtrlSetData($t, $Time)
EndFunc  ;==>Timer

redapple2008

内存函数：

GUICtrlCreateLabel("使用内存:", 10, 155, 75, 20)
$label11 = GUICtrlCreateLabel("100%", 245, 155, 30)
GUICtrlCreateGraphic(85, 150, 150, 15)
GUICtrlSetColor(-1, 0x000000)
$progress11 = GUICtrlCreateGraphic(86, 155, 0, 13)
GUICtrlSetColor($progress11, 0x000000)
GUICtrlSetBkColor($progress11, 0x0FB1FF)
GUICtrlCreateLabel("空闲内存:", 10, 210, 75, 20)
$label12 = GUICtrlCreateLabel("100%", 245, 210, 30)
GUICtrlCreateGraphic(85, 210, 150, 15)
GUICtrlSetColor(-1, 0x000000)
$progress12 = GUICtrlCreateGraphic(86, 210, 0, 13)
GUICtrlSetColor($progress12, 0x000000)
GUICtrlSetBkColor($progress12, 0x0FB1FF)
_API_SetLayeredWindowAttributes($Form1 , 0xABCDEF)

Func memcontrol()
        $i = 100
        While 1
                $i = $i + 10
                If $i > 100 And $fUpdateMeminfo Then
                        $memstats = MemGetStats()
                        $RamF = Round(100 * ($memstats[1] - $memstats[2]) / $memstats[1], 1)
                        GUICtrlSetPos($progress11, 86, 150, $RamF * 1.49, 13)
                        GUICtrlSetData($label11, $RamF & "%")
                        $RamF = Round(100 * ($memstats[2] / $memstats[1]), 1)
                        If $RamF < 1 Then
                                GUICtrlSetPos($progress12, 86, 210, 1, 13)
                        Else
                                GUICtrlSetPos($progress12, 86, 210, $RamF * 1.49, 13)
                        EndIf
                        GUICtrlSetData($label12, $RamF & "%")
                        $RamF = $memstats[1] - $memstats[2]
                        $i = 0
                        ExitLoop
                EndIf
        WEnd
EndFunc

redapple2008

进度条函数

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("WinTitleMatchMode", 2)
$AForm2 = GUICreate("AForm1", 400,100,40,@DesktopHeight-50,$WS_POPUP, $WS_EX_LAYERED+$WS_EX_TOPMOST+$WS_EX_TOOLWINDOW)
GUISetBkColor(0xABCDEF)
for $i=0 to 9
$w=15
$pro= GUICtrlCreateLabel("□",40+$w*$i, 20, 135, 10)
GUICtrlSetBkColor($pro, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor($pro, 0xffffff)
Next
GUISetState(@SW_SHOW)
AdlibEnable("xh",3300)
Func xh()
$h=15
$i=0
Do
$i = $i + 1
$pro= GUICtrlCreateLabel("■",40+$h*($i-1), 20, 10, 10)
GUICtrlSetColor(-1, 0x00ff00)
Sleep(300)
GUICtrlDelete($pro)
if $i=10 Then ExitLoop
Until $i>=10
EndFunc
_API_SetLayeredWindowAttributes($AForm2, 0xABCDEF)
GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exitloop
        EndSwitch
WEnd

[ 本帖最后由 redapple2008 于 2008-8-20 00:01 编辑 ]

redapple2008

希望有人能帮助解决这个问题，多线程我试过，不行。谢谢

redapple2008

希望有人能解答，谢谢！

redapple2008

期待回复，在线等。。。。。。。。。。。。

顽固不化

你这是完整的原代码吗？

redapple2008

没有完整代码。我的意思是把这些代码拼起来，正常运行就行了。

redapple2008

看来没人我研究这个问题。
慢慢等了。

顽固不化

定时去刷新一下不就可以了？

redapple2008

主要是进度条哪个延迟时间问题，没有延迟时间的话就不会出错的。

redapple2008

置顶，期待高手出现。

顽固不化

你的进度条函数产生的进度图形根本不是楼顶你那个图的进度条。西拼东凑的吧？

redapple2008

原帖由 顽固不化 于 2008-8-21 20:19 发表
你的进度条函数产生的进度图形根本不是楼顶你那个图的进度条。西拼东凑的吧？

我只是抓了一部分图
所以没有出现进度条，只是想完成这样的效果。