模拟生态环境模型脚本例子

蓝星际语音平台脚本例子

这些例子都比较简单, 有些比较有趣，您很容易看明白，仔细阅读源程序可以让您迅速入门，也会提高您的水平。
每个例子都有一个说明文档，请您在运行例子之前阅读它。
请将蓝星际平台程序拷贝到相应的目录之下，然后运行。因为有些脚本使用了相对路径，所以建议脚本文件和蓝星际平台程序放在相同的目录。

模拟生态环境模型

说明：

脚本文件: 生产者.bss, 消费者.bss
配置文件: BsTelRun.cfg
用Koodoo语言模拟生态环境模型，即所谓“生产者”与“消费者”之间的动态平衡。在市场上也有其它语言的实现，但Koodoo语言实现的更加清晰。
生产者.bss 和消费者.bss 演示了线路间多种通讯方式，包括消息队列和共享内存变量。
在运行配置文件BsTelRun.cfg中，设置第0条线路为生产者，其它所有线路都是消费者。但开始时消费者开始处于休眠状态，等候系统消息的唤醒。
生产者流程，建立起生态环境模型，消费者的数量会动态改变（出生与死亡）。使用共享变量res表示生态系统中食物的数量。
注意：只有运行平台才能演示出效果，由于开发平台只允许1条线路运行，所以无法演示线路间的通讯机制。
也可以通过直接阅读源程序了解，源程序很简单清晰，很容易看明白。

示例：生产者.bss

// 生产者.bss
//
// 用Koodoo语言模拟生态环境模型，即所谓“生产者”与“消费者”之间的动态平衡
// 在市场上也有其它语言的实现，但Koodoo语言实现的更加清晰。
//
// 生产者.bss 和 消费者.bss 演示了线路间多种通讯方式，包括消息队列和共享内存变量
// 在运行配置文件BsTelRun.cfg中，设置1条线路为生产者，其它所有线路都是消费者，但开始时消费者开始处于休眠状态，
// 等候系统消息的唤醒。
// 生产者流程，建立起生态环境模型，消费者的数量会动态改变（出生与死亡）。使用共享变量res表示生态系统中食物的数量。
//
// 深圳市蓝星际公司 2004
// bluesen@sina.com

const CREATE_CONSUMER_TYPE = 1;  // 定义创建消费者的消息类型

// 函数定义：创建一个消费者
function CreateConsumer()
{
  // 发送消息CREATE_CONSUMER_TYPE到系统消息队列0
  SendMsg(-1, 0, CREATE_CONSUMER_TYPE, 0);
}


res = 30;  // 生态系统中初始有50份食物
n = 0;
SetShareMem(-1, "res", res);  // 设置食物数量

while(true)
{
   GetShareMem(-1, "res", res);  // 看看还剩多少食物

   info = "当前食物: " + res;
   DispInfo(0, info);

   if( res>0 )
   {
      // 随机创建0-res个消费者
      Rand(n)
      n = n % res;
      for(i=0; i<n; i++)
      {
         CreateConsumer();
      }

      info = "创建消费者: " + n;
      DispInfo(1, info);
   }

   Sleep(1);  // 休息1秒

   // 随机生产出0~30份食物
   Rand(n)
   n = n % 30;
   IncShareMem(-1, "res", n, res);  // 增加进去

   info = "创建食物: " + n + "," + res;
   DispInfo(2, info);
}

OnSysQuit();
return(0);

示例：消费者.bss

// 消费者.bss
//
// 用Koodoo语言模拟生态环境模型，即所谓“生产者”与“消费者”之间的动态平衡
// 在市场上也有其它语言的实现，但Koodoo语言实现的更加清晰。
//
// 生产者.bss 和 消费者.bss 演示了线路间多种通讯方式，包括消息队列和共享内存变量
// 在运行配置文件BsTelRun.cfg中，设置1条线路为生产者，其它所有线路都是消费者，但开始时消费者开始处于休眠状态，
// 等候系统消息的唤醒。
// 生产者流程，建立起生态环境模型，消费者的数量会动态改变（出生与死亡）。使用共享变量res表示生态系统中食物的数量。
//
// 深圳市蓝星际公司 2004
// bluesen@sina.com


// 函数定义：等待唤醒
function WaitStart()
{
  from = -1;
  type = 0;
  msg = 0;
  cols = 0;
  ret = 0;
  while(true)
  {
     // 读取消息
     RecvMsg(-1, 0, from, type, msg, cols, ret);   // 如果系统消息队列0里面有消息，就唤醒自己
     if( ret>0 )
     {
        // 有消息，返回主流程
	break;
     }

     // 没有消息，继续休眠
     Sleep(0.1);
  }
  return(0);
}

// 主循环
while(true)
{
   DispInfo(0, "");

   // 等候唤醒
   WaitStart();

   // 醒了...
   DispInfo(0, "开始");

   res = 0;
   while(true)
   {
      // 检查系统食物数量
      GetShareMem(-1, "res", res);
      if( res<= 0 )  // 吃光了...
      {
         // 死去，等候下一次唤醒
         break;
      }

      // 吃掉1份食物
      DecShareMem(-1, "res", 1, res);

      DispInfo(1, "吃掉1份食物");
      info = "剩下: " + res;
      DispInfo(2, info);

      if( res<= 0 )  // 吃光了...
      {
         break;
      }

      Sleep(1);  // 睡眠1秒
   }
}

OnSysQuit();
return(0);

下载：

脚本＋说明＋配置文件

Koodoo脚本示例

蓝星际语音平台 脚本例子

模拟生态环境模型

蓝星际语音平台脚本例子