窗口使用技巧系列文章－－窗口之间的协作（下）

川长思鸟来 2022-09-28 05:43 128阅读 0赞

信号灯概念的使用  
  
在多进程的应用程序中，进程之间的协调关系特别严格。可以使用信号灯来进行不同模块间的同步或互斥，而信号灯一般用全局变量来实现。程序中的信号灯模拟现实世界中进行交通管理的交通灯，并提供进程之间同步或互斥访问资源。下面是一个典型信号灯同步程序的逻辑结构：  
  
首先规定对信号量s的两种操作，P操作和V操作。下面是P(s)操作的步骤：  
  
a．s=s-1。  
  
b．若s>=0，则调用P(s)的进程继续执行。  
  
c．若s<0，则调用P(s)的进程被阻塞，并把它插入到等待信号量s的阻塞队列中。  
  
V操作和P操作的过程相反，V(s)的步骤如下：  
  
a．s=s+1。  
  
b．若s>0，则调用V(s)的进程继续执行。  
  
c．若s<=0，从等待信号量s的阻塞队列中唤醒一个进程，然后调用V(s)的进程继续执行。  
  
1．用信号量实现互斥  
      首先定义s为两个进程互斥的公共信号量（一般在PowerBuilder中定义成全局整型变量），初值为1，表明某互斥性质的操作还没有开始。只要把需要互斥执行的操作放在P(s)和V(s)操作之间即可实现两个互斥操作的异步执行。例如，对进程p1和进程p2做如下安排即可实现互斥：  
  
进程p1  
进程p2  
  
P(s)  
P(s)  
  
S1程序段  
S2程序段  
  
V(s)  
V(s)  
  
  
由于信号量s的初值为1，故第一个进程p1执行P操作后信号量为0，p1进程可以正常执行；如果这时进程p2开始执行，执行P操作后信号量为-1，所以进程p2只能处于等待状态，等到进程p1执行完程序段S1，执行V操作，且信号量变为0时，可以唤醒进程p2开始执行。所以两个互斥的程序段S1和S2不会被同时执行，两个进程p1和p2可以很好地协作。  
  
      例如，一个客户端的两个进程要互斥地检索数据库，首先定义全局变量：  
  
        Int gi\_message = 1  
  
在第一个窗口的相关事件中编写下面的脚本：  
  
        gi\_message = gi\_message – 1  
  
        Do While gi\_message < 0  
  
                  Yield()  
  
        Loop  
  
        dw\_1.SetTransObject(SQLCA)  
  
        dw\_1.Retrieve()  
  
        gi\_message ++  
  
在第二个窗口的相关事件中编写完全相同的脚本，这样这两个窗口就可以互斥地进行数据检索。  
  
2．用信号量实现同步  
信号量s的初值为0，两个进程之间的同步模型如下：  
  
进程p1  
进程p2  
  
L1:P(s)  
L2:V(s)  
  
  
      设进程p1先到达L1点，当它执行P(s)时，使s=-1，于是进程p1进入阻塞状态并进入信号量s的阻塞队列；然后进程p2到达L2点，当它执行V(s)时，将s值变为0，于是唤醒进程p1，使其继续执行。由此可见，当进程p1到达L1点时，除非进程p2已过了L2点，否则进程p1就要暂时处于等待状态。这就是说，p1在L1点必须与进程p2同步。  
  
      例如，可以改进CloseWithReturn，使非response类型的窗口也能正常传递参数。关键在于使用信号量让窗口1在打开窗口2之后进入等待状态，直到窗口2关闭并返回参数后才继续执行。首先定义两个全局类型的整型变量：  
  
        Int gi\_message=0      //信号量  
  
        string gs\_Return  //用于参数传递  
  
在窗口1的适当事件中（比如一个按键的Clicked事件等）编写如下脚本：  
  
String ls\_Return  
  
         
  
Open(w\_test)                   //打开另一个窗口  
  
gi\_message = gi\_message – 1             //信号量执行P操作  
  
Do While gi\_message < 0              
  
                 Yield()  
  
Loop  
  
ls\_Return = gs\_Return  
  
MessageBox("提示",ls\_Return)  
  
在窗口w\_test的“关闭”按钮的Clicked事件中编写如下脚本：  
  
gs\_Return = "test"  
  
Close(Parent)  
  
在窗口w\_test的Close事件中编写如下脚本：  
  
        gi\_message ++              //执行V操作