对程序同步执行和异步执行还是没有分清楚

一、你给了狗一个包子， 然后就走开做别的事去了， 过后狗追过来对你说了声谢谢，或者咬了你一口说，包子有毒。 这是异步。

二、同样你给了狗一个包子后，看着狗把包子吃完，并对你摇尾巴，这个期间你一点别的事都不做，就等着狗吃完包子。 这是同步。

在加载数据时仍然执行其他程序，通常加载时是不执行程序的，我们不得不等进度条，因为很多程序在没有加载数据时，可能是无法运行的，所以通常会加载完之后才运行。

异步加载就是在执行过程同时加载，通常会使之类重要性较次的东西，可以先忽略掉，比如网页游戏经常会在玩的过程中，玩家都是黑影（未加载图形，由其他黑影模型代替），如果另一个线程完成加载了，在贴上去，就是异步。

vb我知道利用GetProcessVersion函数来做，以下代码供参考：

Option Explicit

Private Declare Function GetProcessVersion Lib "kernel32" (ByVal ProcessId As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function ShellEx(ByVal FileName As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal DelayTime As Long = -1)

'与SHELL函数一样的参数,不过是阻塞执行(同步)

'FileName - 目标文件名

'WindowStyle - 程序运行时窗口的样式

'DelayTime - 等待的时间,单位为ms

'备注:

' DelayTime设置为-1时表示一直等待,直到目标程序运行结束

Dim I As Long, J As Long

I = Shell(FileName, WindowStyle)

Do

If GetProcessVersion(I) = 0 Then Exit Do

Sleep 10

J = J + 1

If DelayTime <> -1 And J > DelayTime \ 10 Then Exit Do

Loop

End Function

Public Function ShellOnce(ByVal FileName As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus)

'与SHELL函数一样的参数,但只将目标执行一次

'FileName - 目标文件名

'WindowStyle - 程序运行时窗口的样式

Static I As Long

If I <> 0 Then '如果有PID值就判断其是否正在执行

If GetProcessVersion(I) <> 0 Then Exit Function '如果正在执行,函数返回

End If

I = Shell(FileName, WindowStyle)

End Function

异步处理，就是按照不同步的程序处理问题。异步处理与同步处理是对立的，而产生他们的是多线程或者多进程。

异步处理的好处是提高设备使用率，从而在宏观上提升程序运行效率，但是弊端就是容易出现冲突 *** 作和数据脏读。同步则刚好相反，同步是一种降低设备使用率，在宏观上降低了程序的运行效率，而且很多系统或者是运行环境在处理同步的时候为了维持同步的有效性也会付出许多格外的系统资源开支，对性能影响相当大。但是同步保证了程序运行的正确性与数据的完整性。

在标准模块中写入以下代码:

Public Const SYNCHRONIZE = &H100000

Public Const INFINITE = &HFFFFFFFF

Public Const WAIT_TIMEOUT = &H102&

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

'Form中

Option Explicit

sub RunExe(FileName as string)

Dim pId As Long, pHnd As Long, ret

pId = Shell(FileName, vbNormalFocus)

pHnd = OpenProcess(SYNCHRONIZE, 0, pId)

If pHnd <> 0 Then

Do

ret = WaitForSingleObject(pHnd, 0)

DoEvents

Loop While ret = WAIT_TIMEOUT

CloseHandle pHnd

End If

End Sub

'用runexe代替shell函数,如runexe("abat")

传统的同步编程是一种请求响应模型，调用一个方法，等待其响应返回

异步编程就是要重新考虑是否需要响应的问题，也就是缩小需要响应的地方。因为越快获得响应，就是越同步化，顺序化，事务化，性能差化。

异步编程通常是通过fire and forget方式实现，发射事件后即忘记，做别的事情了，无需立即等待刚才发射的响应结果了。(发射事件的地方称为生产者，而将在另外一个地方响应事件的处理者称为消费者)异步编程是一种事件驱动编程，需要完全改变思路，将“请求响应”的思路转变到“事件驱动”思路上，是一种软件编程思维的转变下面几种你看参考一下

1、异步编程模型 (APM) 模式（也称为 IAsyncResult 模式），其中异步 *** 作要求 Begin 和 End 方法（例如，异步写 *** 作的 BeginWrite 和 EndWrite）。对于新的开发工作不再建议采用此模式。

2、基于事件的异步模式 (EAP) 需要一个具有 Async 后缀的方法，还需要一个或多个事件、事件处理程序、委托类型和 EventArg 派生的类型。EAP 是在 NET Framework 20 版中引入的。对于新的开发工作不再建议采用此模式。

3、基于任务的异步模式 (TAP)，该模式使用一个方法表示异步 *** 作的启动和完成。NET Framework 4 中引入了 TAP，并且是 NET Framework 中异步编程的建议方法。

以上就是关于对程序同步执行和异步执行还是没有分清楚全部的内容，包括:对程序同步执行和异步执行还是没有分清楚、什么是异步加载、请教一个异步执行shell命令的程序写法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！