vb 独立运行的 timer

[wangfeijie]

假如程序有2个timer：timerA，timerB；
timerA和timerB之间相互独立，也就是timerA事件运行不影响timerB的运行。（假设timeA里面有一个大循环，timerB里面有一个相对简单的代码，想timeA运行卡住的时候timerB也在运行）
正常的运用vb标准工程，timerA运行时候timerB是停止的。
我该怎么做，从何入手？
1.我试过用api调用多线程，总感觉接口不是很好，在vb编辑环境下运行是可以的运行出结果来的，但是退出的时候vb开发环境也会退出。用p代码生成exe之后，不能运行。
2.从网上看帖子也有些关于Active exe。看了之后也不是很理解Active exe的运行过程。
Active exe工作流程是不是类似这样：双工程：工程A，工程B。工程A发生timerA事件，工程B发生timerB事件？
如果我想工程A，工程B 2个工程之间想要有数据交换，是不是可以？
请问大家我该怎么做，才实现这个功能？
对于Active exe也没找到一个比较基础的教材，如果大家有合适的入门级Active exe教材，请帮忙提供一下。谢谢
[e-mail]
先行谢过大家了。

[xingjingq]

vb 多线程 麻烦
使用active X 其实也是多进程
并且还要注册到系统 不然不能运行（不是绿色版了）

[帝企鹅已被占用]

1, dll.
2, file or database

[liguicd]

值得讨论

[wangfeijie]

[Quote=引用 1 楼 patrickkong 的回复:]
1, dll.
2, file or database
[/Quote]
dll,what dll?multi-threading？

[king06]

DDE
http://download.csdn.net/source/1740629

[wangfeijie]

谢谢，看了，也有了一个全新的思路：
工程A，工程B，2个工程，2个exe，2者通道DDE类似通信。且主exe可以自由调用副exe。表面看来也算是一个工程。
工程A，无窗体，获取timerA，循环并发送通信字符串。作为副exe。
工程B，主窗体，可以自由使用shell函数调用工程A.exe，可以自由关闭工程A.exe；接收工程A的数据。并进行响应。
-------------------------------------------------------------------------------------
算是一种解决方案。
不知道对于多线程或者active，还有没有高手赐教。
[Quote=引用 4 楼 king06 的回复:]
DDE
http://download.csdn.net/source/1740629
[/Quote]

[wangfeijie]

请问这个有没有一个自己触发事件。
比如，当p1发送给p2的一个消息达到处理事件？
[Quote=引用 4 楼 king06 的回复:]
DDE
http://download.csdn.net/source/1740629
[/Quote]

[Tiger_Zhao]

没有看4楼的例子。
如果用 Text 作为接收端，收到数据自然会发生 Change 事件。

[wangfeijie]

例子代码如下：
P1.vbp 控件：form1 picDDE-picturebox Command-CommandButton
Option Explicit
Const COMMANDLINE = "CommandLine="
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim a As String
Dim mhWnd As Long
Private Sub Command1_Click()
a = a & "T" '试验,点一次加个T
mhWnd = FindWindow(vbNullString, "P2") ' 取得进程标识符
If mhWnd <> 0 Then
LinkAndSendMessage a
MsgBox "已发送."
End If
End Sub
Private Sub Form_Load()
a = "sssss"
mhWnd = FindWindow(vbNullString, "P2") ' 取得进程标识符
If mhWnd <> 0 Then
Me.LinkTopic = "" ' 这两行用于清除新运行的程序的DDE服务器属性，
Me.LinkMode = 0 ' 否则在连接DDE程序时会出乱子的
LinkAndSendMessage a
If Command <> "" Then ' 如果有命令行参数，就传递过去
LinkAndSendMessage COMMANDLINE + Command
End If
End If
' End If
End Sub
Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long
On Error GoTo Er
picDDE.LinkMode = 0 '--
picDDE.LinkTopic = "P2|FormDDE" '连接DDE程序并发送数据/参数
picDDE.LinkMode = 2 ' “|”为管道符，是“退格键”旁边的竖线，
picDDE.LinkExecute Msg ' 不是字母或数字！
t = picDDE.LinkTimeout '--
picDDE.LinkTimeout = 1 ' 终止DDE通道。当然，也可以用别的方法
picDDE.LinkMode = 0 ' 这里用的是超时强制终止的方法
picDDE.LinkTimeout = t '--
Er:
End Sub
--------------------------------------------------------------------------
p2.vbp 控件Command1-CommandButton text1-text
Option Explicit
Dim b As String
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
b = CmdStr
Cancel = False
End Sub
Private Sub Command1_Click()
Text1.Text = b
End Sub
-----------------------------------------------------------------------------------
p1发送数据，p2通道按钮接收数据，并改变text内容。中间有个人为的按钮触发。
感觉要是有个类似于winsock类似DataArival事件，这两个工程衔接会更完美。？
[Quote=引用 7 楼 tiger_zhao 的回复:]
没有看4楼的例子。
如果用 Text 作为接收端，收到数据自然会发生 Change 事件。
[/Quote]

[king06]

你可以不用加人为的按钮啊,那里只不过是示例.
Form_LinkExecute 就已经读到值.
winsock也可以

[wangfeijie]

ok，谢谢，受教。
其实Form_LinkExecute就类似于winsock的DataArival事件了。
不过感觉这个要比winsock方便。
[Quote=引用 9 楼 king06 的回复:]
你可以不用加人为的按钮啊,那里只不过是示例.
Form_LinkExecute 就已经读到值.
winsock也可以

[/Quote]

[of123]

搞成 C/S 架构。多搞几个 Client，每个负责一路数据采集。采到后向 Server 汇总。

[wangfeijie]

确定的一种采集耗时，建立了一个单独的exe进行采集，采集之后通过楼上提到的DDE传输给主exe数据，主exe进行处理。这样可以满足现阶段的要求了。
我对数据处理：画图用的是NI的Cwgraph控件；记录文件是每秒合成string字符串，print到txt中；数据显示是MSFlexGrid整行添加。
请问有没有可以优化效率的方法?
[Quote=引用 19 楼 myjian 的回复:]
引用 17 楼 wangfeijie 的回复:
[/Quote]

[wangfeijie]

意思是不是建立多个exe，采集完毕后，传递给主exe数据，主exe进行数据分析处理？
[Quote=引用 21 楼 of123 的回复:]
搞成 C/S 架构。多搞几个 Client，每个负责一路数据采集。采到后向 Server 汇总。
[/Quote]

[wangfeijie]

要黄~

[熊孩子开学喽]

楼主到底是要做什么程序能说下么?

[嗷嗷叫的老马]

[Quote=引用 22 楼 wangfeijie 的回复:]
确定的一种采集耗时[/Quote]
采集耗时的话那可能就不怎么好解决了,因为采集数据使用的是硬件商的接口,其余无甚代码,恐怕我们软件这边不会有很好的效果.

另外,你给出的信息太少了,非常不利于大家帮你分析.

[wangfeijie]

我做的软件是一个针对应变，加速度,位移采集，分析的施工监控软件。
涉及的硬件主要有IMP（http://www.ecauto.net/left2.htm）；Beedata（www.beetech.com.cn）；还有一个VWC（http://www.catai.cn/）。
IMP测量一秒钟采集一次，目前硬件使用不多，1秒采集回来20个数据左右，采集过程可以认为连续，不需要耗时很大。
VWC测量，比较耗时，在测量时候有延时。在采集过程中有短暂的“窗口未响应”状态。采集周期大于1秒且采集周期不确定。
Beedata数据量比较大，但采集不耗延时。1秒可以采回4000个数据。
软件要求是：1秒采回IMP20个点数据，4000个Beedata数据。VWC数据尽可能快的采集。
对这些数据进行处理，用cwgraph控件画图；每个数据有相应的标准参数，检验每个数据的越限情况，连续越界要报警提示，警报播放mp3或者弹出窗口；每个数据要显示在MSFlexGrid中，记录在txt中，txt以采集的数据种类分成3-4个txt。
我担心的就是机器如果cpu效率过低，可能导致1秒中玩不成这些任务。还有就是单线程如果某类耗时太久，系统卡壳，影响整个效率。所以有一个想要把这些分离开来，用多线程来做。

之前在运行时候发现，有些时候会发现数据重复的现象，第二秒延续第一秒的数据。
现在我再尽可能的想办法去增进软件的运行效率：把1秒要写入某个txt的语句连接，1秒只对某个txt进行1次写入操作。同样在MSFlexGrid中也是1秒进行1次additem操作。这样下来的话，上面的那个现象暂时不会发现了。我总感觉这个和机器的CPU执行能力有关，还有就是采集的时候单线程等待时间有关。现在不会出现上述现象总感觉心里没底，自己感觉软件的可靠性不是很强。

对于那个VWC硬件：我现在把他分离出去了，单独做了一个采集Vwc的exe。用它和主程序通信，它采集完毕一次数据就给主程序发一个string，主程序获取string并把VWC数据分离开来，并进行CWGraph显示，MSFlexGrid，越界分析等内容。这样可以避免它运行时候不卡主进程了。试运行了几次，效果还是可以。

我主要担心的事情就是软件在运行中，又发生数据重复的现象。

[Tiger_Zhao]

重复通常是没有清除缓冲区，包括硬件和程序的。

[wangfeijie]

先结账，回家过年。祝大家新年愉快！