Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6:seen sekunttikello

Arto [24.10.2011 21:49:59]

#

Hei!
olen rakentelemassa ohjelmointilaitetta äänentallennuspiirille. Tallennus piirin muisti on jaettu 600 osaan, jokaiseen osaa menee 0.2s ääntä. eli kun laitan ohjelmalla äänet menemään piirille samalla pitäisi käynnistyä laskuri, joka näyttäisi ajan 0.1s tarkkuudella tai vaikka tarkemmin. normaali date toimintohan antaa vain 1 s tarkkuudella. äänet olen tallentanut .wav muotoon jotka saan jo soimaan tekemälläni ohjelmalla.

Synomi [24.10.2011 22:24:43]

#

GetTickCountilla sitä saa ajan millisekunnin tarkkuudella katottua.
Tuossa esimerkki koodin suorituksen kestosta.

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

    Dim start As Long
    Dim finish As Long

	start = GetTickCount()

	'jotain koodia

	finish = GetTickCount()


    MsgBox CStr(finish - start)

Arto [24.10.2011 22:30:19]

#

Kiitos!
tämähän riittää, saan laskettua kauanko viestiin meni muistia ja osaan aloittaa oikeasta paikasta seuraavan...

mistä ihmeestä näitä funktioiden toimintoja yms vois lueskella. tai yleensäkkään löytäs mitään listausta mitä on olemassa...

Synomi [24.10.2011 23:05:46]

#

Jaa varmaa löytyy jostain paljon järkevämmästäkin paikasta, mutta tuolta ite joskus aikoinaan kattonu esimerkkejä jne.

http://planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria­=timer&lngWId=1

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta