vb.net毫秒計(jì)時(shí)器代碼問題

elapsed.Milliseconds 獲取毫秒。

在湞江等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站建設(shè)、成都做網(wǎng)站 網(wǎng)站設(shè)計(jì)制作按需策劃設(shè)計(jì),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,成都營銷網(wǎng)站建設(shè),外貿(mào)網(wǎng)站制作,湞江網(wǎng)站建設(shè)費(fèi)用合理。

每100毫秒，do中的代碼執(zhí)行一次，執(zhí)行時(shí)間將大于100毫秒，這是產(chǎn)生誤差的地方之一。invoke執(zhí)行一個(gè)方法txt，必須等txt里面的代碼運(yùn)行完畢，方法才能返回，期間占用的時(shí)間全是“誤差”。

無限循環(huán)，且沒有退出機(jī)制，停不下來。

VB 格式化輸入毫秒

format是肯定不能帶毫秒滴。要實(shí)現(xiàn)你的效果，也簡單

Format(time,"YYYY-MM-DD HH:MM:SS") "." ( timer()*1000 mod 1000)

Format(time,"YYYY-MM-DD HH:MM:SS") 加上 . 再加上毫秒數(shù)，就構(gòu)成了

timer()代表的是，從午夜到現(xiàn)在，所經(jīng)過的秒數(shù)，它的小數(shù)部分x1000就是毫秒

VB 中如何表示系統(tǒng)時(shí)間 能精確到毫秒嗎

試過NN次后，我“也”發(fā)現(xiàn)這種記錄時(shí)間的精度為10.0144毫秒，

看來，這個(gè)問題是由CLR決定的，如果，只使用FCL的函數(shù)，看來沒辦法解決這一問題了！

看了 LoveCherry(論成敗，人生豪邁；大不了，重頭再來！^_^) ，給出的文章鏈接，

受了些啟發(fā)，對(duì)于文章中實(shí)現(xiàn)的那個(gè)A類，我沒看太明白，但是，文章中用到了QueryPerformanceCounterp這個(gè)win API函數(shù)，樓主，可以導(dǎo)入用一下，我試過多次，在我的機(jī)子上，其精度為 210/1000 毫秒左右。

QueryPerformanceCounter這個(gè)函數(shù)的是一個(gè)計(jì)數(shù)器函數(shù)，以百萬分之一秒為單位，來記算時(shí)間數(shù)。

//=============

using System.Runtime.InteropServices;

using System.Threading;

[DllImport("kernel32.dll")]

static extern bool QueryPerformanceCounter([In, Out] ref long lpPerformanceCount);

long t1 = 0;

long t2 = 0;

QueryPerformanceCounter(ref t1);

Thread.Sleep(1); //掛起一毫秒，作為演示

QueryPerformanceCounter(ref t2);

long sp = t2 - t1;//sp的單位為百萬分之一秒

float f_time = (float)((decimal) sec / (decimal)10000); //得到0.0001毫秒的精度

f_time = float.Parse(string.Format("{0:F1}",f_time)); //f_time是經(jīng)過四舍五入，得到的0.1毫秒的精度

怎樣用vb.net做毫秒計(jì)時(shí)器（有沒有什么類似于ccrptmr之類的控件）

不需要控件就可以，用多線程的方式實(shí)現(xiàn)，在窗體上放一個(gè)Label和一個(gè)button按鈕，代碼如下：

Imports?System.Threading

Public?Class?Form1

Dim?Start?As?Double

Dim?td?As?Thread

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Label1.Text?=?"00:00:00?000"

Button1.Text?=?"開始"

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

If?Button1.Text?=?"開始"?Then

Button1.Text?=?"結(jié)束"

Start?=?DateAndTime.Timer

td?=?New?Thread(AddressOf?fun1)

td.Start()

Else

Button1.Text?=?"開始"

td.Abort()

End?If

End?Sub

'定義一個(gè)線程

Private?Sub?fun1()

Dim?elapsed?As?TimeSpan

Dim?Dg_txt?As?New?Dg(AddressOf?txt)

Do

elapsed?=?TimeSpan.FromMilliseconds((DateAndTime.Timer?-?Start)?*?1000)

Me.Invoke(Dg_txt,?elapsed.ToString,?Label1)

Thread.Sleep(100)

Loop

End?Sub

'定義一個(gè)委托

Delegate?Sub?Dg(ByVal?s?As?String,?ByVal?obj?As?Label)

Sub?txt(ByVal?s?As?String,?ByVal?obj?As?Label)

obj.Text?=?s

End?Sub

End?Class

如何在vb.net中取得兩時(shí)間的毫秒差

dim a1 as timespan = dtEndTime -dtStartTime

dim a2 as integer = a1.TotalMilliseconds

用VB.NET設(shè)計(jì)一個(gè)以秒為基本單位的表，并且顯示在窗體上的步驟，并且給出關(guān)鍵代碼

是我以前自己設(shè)計(jì)的用來測試自己點(diǎn)鈔速度用的，希望是你需要的

以下是窗體的全部代碼

Public?Class?Form1

Dim?StartFlag?As?Boolean?=?False

Dim?secon?As?Integer

Dim?minut?As?Integer

'空格

Private?Sub?Form1_KeyUp(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyUp

If?e.KeyCode?=?Keys.Space?Then

If?StartFlag?Then

StartFlag?=?False

Timer1.Enabled?=?False

If?Val(Strings.Right(Label1.Text,?2))??10?And?Val(Strings.Right(Label1.Text,?2))?=?0?Then?secon?=?0?:?minut?=?0?:?Label1.Text?=?"00:00"?:?Exit?Sub

ListBox1.Items.Add(Label1.Text.ToString)

ListBox1.SelectedItem?=?ListBox1.Items.Count?-?1

Label1.Focus()

Button1.Enabled?=?True

Label1.Text?=?"00:00"

secon?=?0

minut?=?0

Else

StartFlag?=?True

Timer1.Enabled?=?True

End?If

End?If

End?Sub

'加載

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

ListBox1.Items.Clear()

Label1.Text?=?"00:00"

Button1.Enabled?=?False

secon?=?0

minut?=?0

Label1.Focus()

End?Sub

'清空

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

Button1.Enabled?=?False

ListBox1.Items.Clear()

Label1.Focus()

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

secon?+=?1

If?secon?=?60?Then

secon?=?0

minut?+=?1

End?If

Dim?seconStr?As?String?=?secon

If?seconStr.Length?=?1?Then?seconStr?=?"0"?+?seconStr

Dim?minutStr?As?String?=?minut

If?minutStr.Length?=?1?Then?minutStr?=?"0"?+?minutStr

Label1.Text?=?minutStr?+?":"?+?seconStr

Label1.Focus()

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?SeconSun?As?Integer

If?ListBox1.Items.Count??0?Then

For?i?=?0?To?ListBox1.Items.Count?-?1

Dim?TemStr?As?String?=?ListBox1.Items.Item(i).ToString

Dim?TemInt1?As?Integer?=?Val(Strings.Right(TemStr,?2))

Dim?TemInt2?As?Integer?=?Val(Strings.Left(TemStr,?2))

Debug.Print(TemInt1.ToString)

Debug.Print(TemInt2.ToString)

SeconSun?+=?TemInt1?+?TemInt2?*?60

Debug.Print(SeconSun.ToString)

Next

TextBox1.Text?=?(SeconSun?/?ListBox1.Items.Count).ToString?+?"秒"

End?If

Label1.Focus()

End?Sub

End?Class