Priorita & Timer – Visual Basic – Fórum – Programujte.com

cawte ze robim si teraz taký program (stopky) a aby tam bežali desainy sekundy tak som nastavil timer na 100 ms ale potrbujem nastaviť prioritu na najvyšiu aby to bolo naozaj 100ms a nie 105 (podla toho ako PC stíha) neviem ako to mam presne naprogramovať. poradte. dík.

Pokud to potřebuješ jenom na zobrazování, tak ti stačí i těch 100ms +- 50ms :), protože stejně ti to něco může zbrzdit (stačí vložit CD apod.) a vnitřně si ten čas měřit správně (GetTickCount apod.).

taze takto nejak :    

Label1.Text = Dec(GetTickCount / 1000) & " sec."    

??

GetTickCount ukazuje počet milisekund od startu počítače. Takže při spuštění stopek si uložíš startovací "čas" (start) a pak to bude:

Label1.Text = Dec((start - GetTickCount) / 1000) & " sec." 

ok díky

pockaj a neni to nahodou len pre VB 6 lebo ja mam VB 2010 a vyhadzuje mi chybu že to neni deklarované

System.Environment.TickCount

toto už funguje ....... díkes

zistil som že je to takto oveľa komplikovanejšie takže predsa by som chcel vedieť ako by som mohol nastaviť prioritu tých časovačov.

Nastavení priority časovače ve Windows je nekonečněkrát složitější problém než výše popsaný neb to nejde. Prioritu můžeš změnit vláknu, ale to je platné, jak mrtvému zimník, protože se ti ten časovač stejně bude rozcházet i kdyby si nastavil realtime prioritu.
U stopek je důležitý počáteční a koncový čas. Co je mezitím je putna a může to mít přesnost zobrazení +-100ms. Nehledě na to, že je to venkoncem jednoduché.

Zasláno z mobilního telefonu.

no lenže tým spôsobom TickCount sa daju stopky spustit zastaviť a potom sa už nedá pokračovať pretože stopky sa vynulujú a keď je už 60 sekund tak sa minuty nemaju ako povýšiť lebo som daval napr. If Label1.Text = "59.999" Then Label2.Text = Label2.Text + 1 ale aj napr. ze som tam dal 59,000 < 60,000 tak ani tak nešlo nevedel by si nejaký spôsob ?

alebo teraz ma napadlo dalo by sa vo výpočte urobiť tak abi napr.  15256 / 1000 = 15   ..... aby sa tie tri cifry uplne vymazali.

Nějak nechápu, co řešíš. Čas stopek v ms vynásobiš 1000 a máš to v sekundách. Pokud tě nezajímají desetiny, tak výsledek dělení ukládej do celočíselného typu a zbavíš se jich snadno a rychle. Následně zbytek po dělení 60 ti dá počet sekund a dělením 60 dostaneš počet minut. Pokud tě zajímají i hodiny, tak analogicky pokračuješ.

Zasláno z mobilního telefonu.

jaaaj ahaa .... az teraz mi to nejako doplo ... uz rozumiem

a este ze ako mozem pokracovat v merani času bez toho aby sa vynulovali predošlé hodnoty

Myslíš mezičas? Dokud si nevynuluješ startovní čas, tak stále stopky "měří". Takže při mezičase jenom zjistit aktuální tickcount a vypsat mezivýsledek.

Zasláno z mobilního telefonu.

myslim tak že ked pauznem stopky na napr.  25.5 a dam pokračovať tak to nevynuluje a nezačne odznova ale bude pokračovať 25.6, 25.7, .....

Používej pole na ukládání startovacích a ukončovacích časů a pak je vhodně sčítej anebo odčítej (podle toho jak se na to budeš dívat).

Zasláno z mobilního telefonu.

Viem že píšem trochu neskoro ale skúšal som  ten TickCount  a viem približne čo tam treba ale neviem si to v hlave dostatočne logicky predstavit aby sa to zastavilo, pozastavilo, znovu pustilo atd. Neviem ako príkazy zostavit a potom do akeho poradia ich dať a do ktorých procedúr, pomohol by mi s týmto niekto ... :( .. dík 

Máš 2 pole, do jednoho ukládáš čas při spuštění stopek a do druhého ukládáš čas při stopnutí stopek. Pole budou dostatečně dlouhá, aby se do nich vešly všechny spuštění a zastavení. 

Výsledný čas bude součtem rozdílů  na stejných indexech (pro ukončené sekvence, tj. kde existuje start i stop čas) + aktuální čas od posledního startu.

Řekněme, že máme už 6 úseků (indexy 0 až 5) a na indexu 6 máme uložený start dalšího úseku, takže pak je celkový čas:

casCelkem = 0

For i As Integer = 0 To 5
  casCelkem = casCelkem + (konec(i) - start(i))
Next

if start(6) > 0 then
  casCelkem = casCelkem + (System.Environment.TickCount - start(i))
end if

diky moc ... :)

uz to fičí perfektne ale potreboval by som už iba vediet ako sa dá deliť iba naurčený počet desatinných miest ?

Asi chceš dělit a výsledek formátovat do řetězce na určený počet desetinných míst, ne?

presne

Zapiš formát do ToString funkce nebo použij String.Format (příklady v C# ... ve VB si je najdeš případně sám).