vb中的timer\多线程有关问题

Posted 2023-03-20

1 我想实现一个interval尽量短的timer,可是据说timer真正的最短间隔为
55ms. 那么程序中能实现的最短间隔的"时钟"是什么?
据说timeSetEvent可以1ms,但它是多媒体编程的内容,怕不方便
2 如果使用多线程的话,能不能做到:
1\完全同步?(我指的是两个线程都有2类工作,同步指的是它们同时执行第一类或第二类,希望能做到非常精确)
2\比timer的55ms更短的间隔?
3\像timer一样反复使用?直到我让它停止?
4\使用vb中的frm?控件?变量?

不太熟悉这个,麻烦高手解释,希望能给出范例!
自己已经解决了大部分问题我再提几个
1\一般我写的vb程序，cpu占用很小，内存也不多，怎样做会提高这些数值让我的程序使用更多的系统资源，或者说，系统分配给vb生成的应用程序的资源依据是什么，我想用多占用系统资源来提高我的运行速度。
2\一般1ms的时间内，能运行多少代码，就以*/运算为例
3\多线程同步如何做到，那么异步（他们精确的交替运行）。

我认为你有几点误区：
1；一个程序并不是占用系统资源越多，就运行得越快。程序要实现同一项功能，你的代码让CPU的工作量越少，系统资源占用越小，说明你的代码效率越高，程序运行速度越快。另外，CPU当前执行的线程越少，它就会有更多的资源为你需要的程序服务，因此你的程序速度也会提高。

2：1 ms 内运行多少代码？ 这样说也不完全对。 CPU执行的是代码编译成的机器指令。它只认识 1 和 0 ，我们讲的CPU主频和CPU的运算速度是有一定关系的。工作在100MHz主频的CPU执行一条运算指令所需时间仅为10ns。再者，线程的优先级也会对运行速度有一定影响，但感觉不是很明显。

3:关于VB多线程的实现，给你一个网上不错的实例。
'请将该部分数据保存为 FORM1.frm 文件
VERSION 5.00
Begin VB.Form Form1
Caption = "多线程"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 6450
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 6450
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 270
Left = 960
TabIndex = 2
Text = "2"
Top = 2760
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "返回"
Height = 255
Left = 3480
TabIndex = 1
Top = 2760
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "Start Count"
Height = 255
Left = 3480
TabIndex = 0
Top = 240
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "主线程执行结果测试:"
Height = 180
Left = 600
TabIndex = 3
Top = 2400
Width = 1710
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
'声明了线程ID
Dim threadid1 As Long
Dim threadid2 As Long

'参数一，lpThreadAttributes 线程安全属性，传递为NULL
'参数二，dwStackSize ，线程堆栈大小，可以为0，表示堆栈和此应用堆栈相同
'参数三，lpstartAddress ，执行函数地址，用AddressOf 获取
'参数四，lpParameter ，执行函数的参数地址，可以是一个记录或者是别的类型，用VarPtr获取参数地址（varptr为未公开函数）！！
'参数五，dwCreationFlags ，表示线程创建后的状态！，0表示立即运行，create_SUSPENDED表示线程挂起
'参数六，lpThreadID 表示分配给线程的线程号
Call CreateThread(Null, ByVal O&, AddressOf Module1.OutText1, VarPtr(0), ByVal 0&, threadid1)
Call CreateThread(Null, ByVal 0&, AddressOf Module1.OutText2, VarPtr(0), ByVal 0&, threadid2)

End Sub

Private Sub Command2_Click()
'该事件运行于主线程！
Dim i As Long
i = CLng(Text1.Text)
Text1.Text = CStr(i * i) '不要点击次数太多，LONG 类型会溢出
End Sub

Private Sub Form_Load()
'保存窗体句柄全局变量，用于在form 上绘图
formhandle = Form1.hwnd
End Sub
----------------------------------
'请将该部分数据保存为 Module1.bas 文件
Attribute VB_Name = "Module1"

'线程安全属性数据结构；
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

'这个是用于多线程访问临界资源同步Api的数据结构
Public Type CRITICAL_SECTION
dummy As Long
End Type
'为什么用GDI 函数绘图？原因等下再讲
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'请注意；createThread APi声明已被我修改过，修改的地方请自行参照APIView复制的内容
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
'这个是sleep,作用就是让两个线程绘图频率不一致，效果才明显。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) '进入临界区
Public Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION) '离开临界区

'几个重要的函数举例
'ObjPtr：返回对象实例私有域的地址。
'StrPtr：返回字符串第一个字的地址。
'VarPtr：返回变量的地址。

'全局的form的句柄！
Public formhandle As Long
'临界数据结构
Public sect As CRITICAL_SECTION

Sub OutText1() '过程一
Dim i As Long
Dim dc As Long
Dim s As String
dc = GetDC(formhandle) '获取窗体句柄的DC
For i = 1 To 100000
s = CStr(i)
Call SetBkColor(dc, &HF0F0F0) '设置绘制区域的背景色，也起清除作用
Call TextOut(dc, 10, 10, s, Len(s)) '输出文本！
Call Sleep(40) '等待
Next
Call ReleaseDC(formhandle, dc) '释放资源！
' Call EnterCriticalSection(sect)
' 上下表示该处为临界区，如果要对工程全局变量做操作，最好在该区域内
' 否则线程同步过程中，非常容易让程序崩溃
' Call LeaveCriticalSection(sect)
End Sub

Sub OutText2() '和过程一类似
Dim i As Long
Dim dc As Long
Dim s As String
dc = GetDC(formhandle)
For i = 1 To 100000
s = CStr(i)
Call SetBkColor(dc, &HF0F0F0)
Call TextOut(dc, 10, 80, s, Len(s)) '文本位置改变了
Call Sleep(20) '延时改变了
Next
Call ReleaseDC(formhandle, dc)
' Call EnterCriticalSection(sect)
' Call LeaveCriticalSection(sect)
End Sub

'关于为何使用gdi 函数输出文本，这是一个很重要的内容；
'程序在记数时用了难用的TextOut 函数，而没有使用标签控件，这是因为
'vb的组件不都是线程安全的，当多线程访问不是线程安全的组件，那么会
'产生严重错误。 参考技术A Timer 控制中 intelval 属性是以 ms 为单位的。

如果 intelval = 1 的话，

Sub Timer1_Timer()
End Sub

中的内容就会每 1ms 执行一次。
当然了，那个 Timer 过程的执行本身也要花费时间。

据说 Timer 真正最短的时间间隔为 55ms。小弟我也是第一次听说。

还有，你要 Timer 的目的是什么呢？
不同的目的，有不同的优化方式。

就算 Timer 达不到你的要求，也还有别的方法可以实现啊。
条条大路通罗马。

祝楼主早日成功。 参考技术B timer控件不是不能短于55MS的间隔，而是小于55MS就非常不准了，实际上超过55MS也有不准的，如果象调用高精度的时间事件，可以到网上找一个高精度时间控件，我记得有的，但忘了地址了，楼主可以自己找一下！或者可以用VB中的类来做,做一个窗体级的自定义事件，不过不是很稳定！ 参考技术C TIMER本身就不是个准确的时间管理者

关于C#中的timer控件！

比如，这个控件里面的语句执行比较复杂（执行时间比较长），
比如，这个空间的间隔是5秒钟，而里面的程序执行完毕需要10秒钟（比如是复制东西）。那最终会发生什么后果？？？复制过程会完成复制吗？？
求解答！

会完成。但是需要注意：
1.System.Windows.Forms.Timer 是单线程的，它只在UI线程中运行，定时精度约55ms，当前的事件没处理完成时，下一次事件不会触发；过久地处理会导致界面假死。
2.System.Threading.Timer 是多线程的，触发的事件在ThreadPool里面的线程中运行，所以当前事件没处理完成时，也会另开一个新线程处理。追问

恩，回答的好透彻！很感谢……不过你说的System.Threading.Timer这个是控件吗？？如何使用呢？？我还是初学者。

追答

那是个类，不是控件，只能在代码中创建和使用。

参考技术A timer控件每到时间间隔后，会启动一个线程，执行Elapsed方法里的代码。
你所说的控件间隔是5s，执行语句需要10s，这不会有问题，因为他们是2个线程。除非你在这两个线程中使用了公共的变量，或使用了相同的io资源，会产生问题。 参考技术B 会完成复制吧。最后的效果也许是你延时5秒。拷贝东西10秒，再延时5秒，后面再干别的什么的。
也就是说你的间隔五秒要在第一次事件结束以后才开始重新计时。 参考技术C System.Threading.Timer 是一个类。不仅在窗体程序中可以使用，在控制台程序，在WINDOWS服务中都可以使用。
使用的大体代码如下：
System.Timers.Timer timer = new System.Timers.Timer();
timer.AutoReset = true;
timer.Interval = 1000d;
timer.Enabled = true;
timer.Elapsed += new System.Timers.ElapsedEventHandler(timer_Elapsed);

void timer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)

//时间到了之后处理的代码


其实用法和FORM里面的按个TIMER是一样的，你在FORM上把TIMER控件拖到窗体上之后可以看看窗体对应的那个designer.cs文件里相关的代码。 参考技术D 你需要用new thread，多线程处理，但是跨线程取值是比较麻烦的，最好能采用别的办法。
比如：先把timer关掉，执行程序，执行完，打开timer