VB 用sleep时，出现程序无响应

gaofuqi 2009-10-29 01:32:34

水流线画图如下：
Picture1.CurrentX = pen(1).PenPointx Picture1.CurrentY = pen(1).PenPointy
For temp1 = 1 To pointcount - 1
If (pen(temp1).PenPointx = -1 And pen(temp1).PenPointy = -1) Then
Picture1.CurrentX = pen(temp1 + 1).PenPointx
Picture1.CurrentY = pen(temp1 + 1).PenPointy
Else
Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy )
Sleep (pen(temp1 + 1).time - pen(temp1).time)
End If
Next temp1

pen的定义如下：
Private Type paintpen
PenPointx As Integer 'X轴坐标
PenPointy As Integer 'Y轴坐标
time As Long ‘时间点
End Type

（-1，-1，0）是开始下一笔
怎么我一到下一划的时候就出错了，程序就不动了
大家帮我看看，哪里出问题了

...全文

309 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

清晨曦月元老 2009-10-29

打赏
举报

回复

Else
Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy )
Sleep (pen(temp1 + 1).time - pen(temp1).time)
application.doevents
End If

水猿兵团五哥 2009-10-29

打赏
举报

回复

奇怪的

gaofuqi 2009-10-29

打赏
举报

回复

[Quote=引用 1 楼 dylike 的回复:]
不要sleep那句或改成application.doevents
[/Quote]
不要sleep的话，无法控制速度
怎么用application.doevents？

dylike 2009-10-29

打赏
举报

回复

不要sleep那句或改成application.doevents

Microsoft Agent技术应用
--AgentShell的实现原理介绍

[摘要]
本文介绍了如何应用Agent的以及AgentShell的实现原理和几个重要的技术处理。

[关键词]
Agent,COM,角色,语音识别，语音合成。

对Agent编程的方法主要有使用VB,VC等语言进行ActiveX调用，除此之外还有直接通过VC进行COM
编程调用。在VB中调用Agent是最简单不过了，但由于VB程序本身存在诸多缺陷，很难在实际中应用。
而在VC中，由于Agent内部完全采用了UNICODE编码，同时还要处理各种繁杂的COM接口，从而也存在一
定的问题。AgentShell是建立在Agent和应用程序之间的一个外壳程序，通过它可将Agent复杂的COM接
口封装起来，转变为简单的函数调用，很好的实现对Agent的控制。同时AgentShell也作为一个独立的程
序，可处理英文自动朗读等功能，本文将详细介绍其实现原理。
(一) 原理介绍
AgentShell和Agent Server的连接是通过COM调用来实现的，对于与应用程序的通信是通过WM_COPYDATA
消息来实现的，下图表示出AgentShell与其它程序的关系:
[ Agent Server ]
¦
[ COM调用 ]
¦
[ AgentShell ]
¦
[ 消息 ]
¦
[ 应用程序 ]

将一个Agent控制加载相应的动画和语音码我们称之为“角色”，一般使用COM调用创建一个Agent角色，
要经过以下几个过程:
[ 初始化COM ]
¦
[ 连接Agent COM Sever,创建Agent控制 ]
¦
[ 注册Agent控制的消息反应器(Notify Sink) ]
¦
[ 加载角色数据文件，创建一个角色(Character) ]
¦
[ 设置角色的语言、初始位置以及其它属性 ]
¦
[ 显示角色 ]

AgentShell中定义以下全局变量来控制角色的属性和动作：
角色的消息ID: long g_lNotifySinkID。
角色ID: long g_lMyAgentID。
Agent控制指针: IAgentEx *g_pAgentEx。
角色指针: IAgentCharacterEx *g_pMyAgent。
角色消息反应器指针: AgentNotifySink *g_pSink。

使用以上变量可很容易的调用Agent的功能，如显示角色：
BOOL agentShow()
{
HRESULT hRes;
long lRequestID;

if( !g_pMyAgent)
return FALSE;
hRes = g_pMyAgent->Show(FALSE, &lRequestID);
if (FAILED(hRes))
return FALSE;
return TRUE;
}

(二) 角色的语言处理
目前Agent支持很多种语言，不仅是显示，还有语音合成和语音识辨(对于中文，目前仅支持显示)。
语言又分为主语言和子语言(或为副语言)，如中文的主语言为中文(LANG_CHINESE),子语言则可为
简体(SUBLANG_CHINESE_SIMPLIFIED)和繁体等。AgentShell中定义两个全局变量表达角色的语种:

主语言：DWORD g_nMainLang。
子语言：DWORD g_nSubLang。
这样程序内必须根据当前语言的不同来显示不同的信息，如程序退出时的问候信：
首先定义不同的语言信息，可以为宏定义或资源数据：
#define MES_GOODBYEL"Goodbye!"
#define MES_GOODBYE_CH L"再见!"
#define MES_GOODNIGHTL"Good night!"
#define MES_GOODNIGHT_CH L"祝您晚安!"
以下为实现退出提示代码:
void Goodbye()
{
if( g_bAgentOK)
{
SYSTEMTIME time;
agentStop();
agentShow();
agentPlay(L"Wave");
GetLocalTime(&time);
// 根据时间不同提示不同信息
if( g_nMainLang == LANG_ENGLISH)
{
// 提示英文信息
if( time.wHour < 19)
agentSpeak(MES_GOODBYE);
else
agentSpeak(MES_GOODNIGHT);
}
else
{
// 提示中文信息
if( time.wHour < 19)
agentSpeak(MES_GOODBYE_CH);
else
agentSpeak(MES_GOODNIGHT_CH);
}
agentHide();
// 等待若干时间
Sleep(MAX_QUIT_TIME);
}
}
当然以上介绍的只是一种较为简单的方法，仅在于描述这种原理。

(三) 实现自动朗读英文
实现自动朗读实际上是响应剪贴板消息的过程，当复制选种的文本信息时，系统自动发送WM_DRAWCLIPBOARD
消息给所有剪贴板监视队列中的窗口，相应的窗口只要读取当前剪贴板内的信息进行朗读即可，具体实现如下：

安装剪贴板监视:
void InstallClipSpy()
{
g_hNextWnd = SetClipboardViewer(g_hMainWnd);
}

主窗口的回调函数中相应剪贴板消息:
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
// 剪贴板窗口队列发生变化
case WM_CHANGECBCHAIN:
hwndRemove = (HWND)wParam; // handle of window being removed
hwndNext = (HWND) lParam;
if( hwndRemove == g_hNextWnd)
{
g_hNextWnd = hwndNext;
}
if( g_hNextWnd)
{
SendMessage(hwndNext, WM_CHANGECBCHAIN, wParam, lParam);
}
// 剪贴数据发生变化
case WM_DRAWCLIPBOARD:
// 是否自动阅读
if( g_bEnableRead)
{
// 阅读剪贴板信息
ReadClipText();
}
if( g_hNextWnd)
{
SendMessage(g_hNextWnd,WM_DRAWCLIPBOARD,wParam, lParam);
}
获取剪贴板信息并且朗读：
void ReadClipText()
{
if( g_bAgentOK)
{
// 只有文本文件才朗读
if( IsClipboardFormatAvailable(CF_TEXT))
{
if (OpenClipboard(g_hMainWnd))
{
LPWSTR pwsz;
UINT cch;
HGLOBAL hglb;
LPSTR lpstr;

hglb = GetClipboardData(CF_TEXT);
lpstr = (LPSTR)GlobalLock(hglb);
cch = lstrlen(lpstr);
if( cch > 0)
{
pwsz = new WCHAR[cch + 1];
MultiByteToWideChar(CP_ACP, 0, lpstr, -1, pwsz, cch);
pwsz[cch] = '';
agentSaveState();
agentPlay(L"Read");
agentSpeak(pwsz);
agentPlay(L"ReadReturn");
agentRestoreState();
delete pwsz;
}
GlobalUnlock(hglb);
CloseClipboard();
}
}
}
}
最后还须在程序退出时将当前窗口句柄从剪贴板监视队列移走:
void RemoveClipSpy()
{
ChangeClipboardChain(g_hMainWnd, g_hNextWnd);
}

(四) 与外部程序的接口
应用程序和AgentShell之间传递数据主要通过WM_COPYDATA消息实现，由于传递的数据类型各
有不同，所以需要定义一个数据结构来描述：
struct AgentActionSTRUCT
{
WORD nAction;
DWORD nD1;
DWORD nD2;
WCHAR sData[MAX_DATA_LEN];
};
nAction用来表示Agent应该执行的操作，如显示、表演等。nD1,nD2,sData用来记录传递的数据。
传递消息必须获取AgentShell主窗口的句柄，实现如下：
HWND GetAgentMainWnd()
{
return FindWindow(AGENT_CLASS_NAME, NULL);
}
由于Agent采用了UNICODE, 必须将ANSI字符转化为UNICODE字符:
BOOL SendMesToAgent(WORD nAction, DWORD nD1, DWORD nD2, LPCSTR sData)
{
UINT nSize;
HWND hWnd = GetAgentMainWnd();
if( hWnd)
{
action.nAction = nAction;
action.nD1 = (DWORD)nD1;
action.nD2 = (DWORD)nD2;
// 将ANSI符转换为UNICODE的字符
nSize = MultiByteToWideChar(CP_ACP, 0, sData, lstrlen(sData) + 1,
action.sData, MAX_DATA_LEN);
action.sData[nSize] = '';
//
COPYDATASTRUCT cds;
cds.dwData = (DWORD)0;
cds.cbData = (DWORD)sizeof(action);
cds.lpData = (VOID *)&action;
// 通过WM_COPYDATA消息与AgentShell交换数据
SendMessage(hWnd, WM_COPYDATA, (WPARAM)NULL, (LPARAM)&cds);
return TRUE;
}
return FALSE;
}
目前AgentShell提供的函数主要有:
// 启动角色外壳程序(AgentShell) bRun是否执行
BOOL agentAPIRun(BOOL bRun = TRUE);
// 退出角色外壳程序(AgentShell)
BOOL agentAPIExit();
// 创建一个新角色(sPath角色数据文件路径, nLang主语言, nSubLang子语言)
BOOL agentAPICreate(LPCSTR sPath, UINT nLang, UINT nSubLang);
// 设置角色名字(sName角色名字)
BOOL agentAPISetName(LPCSTR sName);
// 将角色卸载
BOOL agentAPIUnload();
// 显示角色
BOOL agentAPIShow();
// 隐藏角色
BOOL agentAPIHide();
// 显示或隐藏角色
BOOL agentAPIShowORHide();
// 停止角色表演
BOOL agentAPIStop();
// 角色表演(sAction动作名称)
BOOL agentAPIPlay(LPCSTR sAction);
// 角色讲话(sText句子)
BOOL agentAPISpeak(LPCSTR sText);
// 角色鞠躬(x,y 指方向)
BOOL agentAPIGesAt(WORD x, WORD y);
// 移动角色到指定的位置(x,y移动的坐标)
BOOL agentAPIMoveTo(WORD x, WORD y);
// 保存当前角色显示状态
BOOL agentAPISaveState();
// 恢复角色的状态
BOOL agentAPIRestoreState();
// 允许自动阅读
BOOL agentAPIEnableAutoRead();
// 禁止自动阅读
BOOL agentAPIDisableAutoRead();
注意传递给AgentShell的数据长度不要超过1K(实际上一般不会大于1K)。
2) 使用接口
有了以上介绍的接口函数，对Agent的控制变的很简单，以下是一个简单的问候示例：
// 启动AgentShell
if( agentAPIRun(TRUE))
{
// 保存当前Agent的状态
agentAPISaveState();
// 开始表演
agentAPIPlay(_T("Greet"));
// 讲话
agentAPISpeak(_T("hello, my friend."));
// 表演结束
agentAPIPlay(_T("GreetReturn"));
// 恢复原来状态
agentAPIRestoreState();
// 退出
agentAPIExit();
}

AgentShell在笔者的免费软件"我的助手"中得到很好的利用，当然目前其仅涉及了Agent的一小部分内容，还有如语音识辨等，未做处理，还有待一步改进。以上程序在Visual C++ 6.0编译通过,源代码可到助手之家（http://www.helperHome.com）下载

有时候我们在编写C#程序时需要某个线程睡眠一段时间，一般情况下，我们首先会想到用Thread.Sleep()方法，但是有时候用这个方法的时候会导致程序出现无响应的状况，那有没有其他办法来替代这个方法呢？答案是肯定的，下面亦是美网络就给大家介绍一下Thread.CurrentThread.Join()方法。首先我们来看一下msdn帮助文档是如何介绍的： Thread.Sleep(); //将当...

VB入门基础。清楚易懂，适合初学者本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解

1. Threading.Thread.Sleep(...) 优点：简单缺点： Sleep期间程序（其实是该线程）没有任何响应。 2. Timer(定时器) 定时器有3种。Forms.Timer/ Timers.Timer/ Threading.Timer 第一种是在当前线程启动事件处理，第二种在事件发生时会启动一临时线程处理事件，第三种在事件发生时在一临时线程中调用

一、暴露问题——窗体假死新建一个Windown窗体应用程序，在窗体代码里写入如下代码： Public Class MainForm Dim intTime As Integer = 0 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click ...

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章