계산 중 진행률 막대를 업데이트하면 계산 진행 상황을 사용자에게 알리기 위해 진행 막대의 값을 업데이트합니다.

Question

불행하게도 나는 호출 할 때 값이 업데이트되지 않습니다

ref@SetPropertyValue[{"bar", "value"}, 70]; 

SetPropertyValue 기능이 있기 때문에 일을 할 수 아니에요.

나는

ref = GUIRun[mainWindow]; 

Answer 1

당신이 GUIKit를 사용하기 시작하기 전에

Needs["GUIKit`"]; 

을 실행하기 위해 기억나요 이런 식으로 심판을 얻을? 그렇지 않으면 명령이 실행되지 않습니다. 왜냐하면 명령이 알려지지 않았기 때문입니다. GUIKit을 사용하기 시작한 후에 GUIKit을로드하는 경우 의도하지 않게 정의한 기호로 인해 일부 기호가 음영 처리 될 수 있음을 잊지 마십시오.

Answer 2

티카 6

이상은 이전 GUIKit 패키지 대신 모니터 및 ProgressIndicator를 사용해보십시오 :

With[{count = 1000}, 
Monitor[Do[Pause[0.01];, {i, count}], 
    ProgressIndicator[Dynamic[i/count]]]] 

Answer 3

이 @ ragfield의 대답 단지 확장입니다. 당신이 경계하고 무제한의 크기를 표현하려면

, 당신은이 라인을 따라 뭔가를 할 colud :

Clear["Global`*"]; 
count = 0; inRange = 0; i = 0; sumTgt = 10^5 
Monitor[ 
    While[count < sumTgt, 
    If[.14 < (rand = RandomReal[]) < .15, inRange++]; 
    count += rand; 
    ] 
    , {{"SumTillNow", ProgressIndicator[count, {0, sumTgt} ],count}, 
    {"InRange", ProgressIndicator[inRange, Indeterminate],inRange}} 
    // MatrixForm 
]; 

당신이 presententations을위한 애니메이션 GIF와 같은 진행 표시기를 저장하려면, 당신은 수정할 수 그것은 비트 :

count = 0; inRange = 0; i = 0; sumTgt = 10^4 
Monitor[ 
    While[count < sumTgt, 
    If[.14 < (rand = RandomReal[]) < .15, inRange++]; 
    count += rand; 
    ] 
    , a[++i] = Grid[ 
       {{"SumTillNow", ProgressIndicator[count, {0, sumTgt}],count},  
        {"InRange", ProgressIndicator[inRange, Indeterminate],inRange + 0.}}, 
       Frame -> All, Alignment -> {{Left, Center, Right}}, 
       ItemSize -> {{Automatic, Automatic, 8}}]; 
]; 
Export["c:\Anim.gif", Table[a[j]//MatrixForm, {j, i}],"DisplayDurations"->{.3}] 

및 결과는 다음

,617,