第 11 章 广播中心
FrontlineSMS 是一款工具软件，用于联络那些无法访问互联网但可以用手机通信的人，通常用于互联网尚未普及地区的选举监督、天气预报广播等。软件作者Ken Banks借助于移动通信技术为人们提供帮助，他的贡献大概无人能及。
FrontlineSMS运行在连接了手机的电脑上。电脑和手机共同构成一个短信中转站，为群内人员提供文本通信服务。无法上网的人可以发送一个特殊代码来加入群，随后他们会收到来自中转站的各种广播消息。这个中转站我们称之为“广播中心”，对于那些没有网络的地方，广播中心成为与外界联系的重要手段。
使用App Inventor可以创建自己的短信处理应用。有趣的是，应用需要运行在一部android设备上，但应用的用户却不必使用Android手机，他们可以用任何手机，智能的或非智能的，与应用之间进行短信的交流。应用虽然具有图形化的用户界面（GUI），但GUI仅供应用的管理者使用，用来监控应用中的各种活动。
本章将创建一个与FrontlineSMS功能类似的广播中心，不过是运行在Android手机上。一台具有中转枢纽作用的移动设备，意味着管理者可以在移动中保持交流，这一点在某些场合下尤其重要，如选举监督和医疗争议谈判。
假想有一个“快闪舞蹈团”（FlashMob Dance Team，缩写为FMDT），他们可以召之即来，随时随地表演舞蹈，然后瞬间解散，消失得无影无踪，他们用你创建的广播中心来组织表演活动。人们只要向中心发送短信“joinFMDT”（参加快闪舞蹈团），即可完成入团注册，每个注册成功的人都可以向舞蹈团中的其他人广播消息。
广播中心用下面的方式处理收到的短信：
1. 如果发信人不在广播中心的成员名单中，则回复短信邀请他加入，并告知他申请代码；
2. 如果收到“joinFMDT”，则接收发信人为广播中心成员；【如果组员发送“joinFMDT”呢？】
3. 如果发信人已经是广播中心的成员，则转发该消息给全体广播中心成员。
我们来分步实现这些功能模块。首先，用自动回复来邀请人们加入广播中心。整个应用完成之后，对于创建这类“以短信为用户界面的应用”，你将有透彻的了解。
学习要点
本章包括下列App Inventor概念，其中有些你可能已经熟悉了：
-
Texting组件：发送短信及处理收到的短信；
-
列表变量：在本例中用来记录电话号码清单；
-
foreach块：对列表中的数据进行逐项重复操作。在本例子中，使用foreach块向电话号码列表中的所有手机广播消息；
- TinyDB组件：实现数据的永久存储，以保证当应用关闭并再次打开时，电话号码列表不丢失。
准备开始
你需要一部可以接收和发送短信的手机来测试程序，因为App Inventor自带的模拟器没有这个功能。您还需要招呼一些朋友给你发送短信，来充分地测试应用。
连接到App Inventor网站，创建新项目“BroadcastHub”，设置Screen1.Title属性为“广播中心”，并连接测试手机。
设计组件
广播中心有利于手机之间的通信：这些手机不需要安装应用，甚至不必是智能手机。因此在本例中不必为用户提供操作界面，只需为群管理员提供操作界面。
管理员的操作界面包括两个简单的部分，一是显示当前的“广播列表”，即已注册成员的电话号码清单，二是记录所有收到并被广播出去的短信。
为了创建这个界面，要添加表11-1中列出的组件。
表11-1 广播中心操作界面中的组件
| 组件类型 | 面板中分组 | 命名 | 作用 |
|---|---|---|---|
| Label | User Interface | Label1 | 电话号码清单的标题 |
| Label | User Interface | BroadcaseListLabel | 显示所有已注册的电话号码 |
| Label | User Interface | Label2 | 日志信息的标题 |
| Label | User Interface | LogLabel | 显示收到及广播短信的记录 |
| Texting | Social | Texting1 | 处理短信 |
| TinyDB | Storage | TinyDB1 | 保存已注册的手机号码清单 |
添加组件之后，还要设置以下属性：
1. 设置每个Label的Width属性为“Fill parent”，让组件在水平方向上充满手机；
2. 设置标题Label的FontSize属性（Label1和Label2）为18，并勾选FontBold框；
3. BroadcastListLabel和LogLabel的Height设置为200像素，用于显示多行；
4. 设置BroadcastListLabel的Text属性为“广播列表...”；
5. LogLabel的Text属性设置为空。
图11-1显示了应用在组件设计器中的布局。
图 11-1 广播中心组件设计
为组件添加行为
在这个应用中，促使程序运行的事件是其他手机发来的短信，而不是用户在界面上的输入或点击，因此应用的任务是处理这些短信，并将发信人手机号码保存到列表中，具体操作如下：
-
如果短信发送者不在广播列表中，则回复一个邀请参加的短信；
-
如果收到短信“joinFMDT”，则将发送者注册为广播列表的一员；
- 如果短信发送者已经在广播列表中，则将该短信广播到列表中的所有手机。
现在开始创建第一个行为：收到短信时，回复发送者，邀请他注册，方法是向你发送短信“joinFMDT”。表11-2中列出了需要的块。
表11-2 邀请人们通过发短信来加入群组，需要下面的块
| 块的类型 | 所在抽屉 | 作用 | |||
|---|---|---|---|---|---|
| Texting.MessageReceived | Texting1 | 当手机收到短信时，触发该事件 | |||
| set Texting1.PhoneNumber to | Texting1 | 设置短信接收者的电话号码 | |||
| 参数number | Variables | MessageReceived事件的参数：发送者手机号 | |||
| Set Texting1.Message | Texting1 | 设置要发送的邀请短信 | |||
| “想加入快闪舞蹈团，请发送‘joinFMDT’到此号码。” | Text | 邀请短信的内容 | Texting1.SendMessage | Texting1 | 发送短信 |
块的作用
根据在第4章“开车不发短信”中的经验，你应该很熟悉这些块。当手机收到短信时会触发Texting1.MessageReceived事件。如图11-2，在事件处理程序中设置Texting1组件的PhoneNumber及Message属性，然后发送短信。
图 11-2 收到短信后回复邀请短信
测试：需要用第二部手机来测试这一功能；你不能给自己发短信，否则会永远循环下去！如果没有其他手机，可以注册Google Voice或类似的服务，从这些服务中给自己的手机发短信。用第二部手机发送“你好”到测试手机，则第二部手机会收到一个邀请加入“舞蹈团”的短信。
将某人加入广播列表
现在创建第二个行为：收到短信“joinFMDT”后，将发信人添加到广播列表中。首先定义列表变量BroadcastList来保存注册的电话号码。从Variables中拖出一个“initialize global name to”块，将name改为“BroadcastList”，并用make a list块初始化列表，此时列表为空。如图11-3（稍后将实现向列表中添加数据项的功能）。
图 11-3 变量BroadcastList用于存储注册的电话号码【也可用create empty list块】
下面修改Texting1.MessageReceived事件处理程序，如果收到短信“joinFMDT”，则将发信人手机号码添加到BroadcastList中。判断短信内容需要使用Ifelse块（在第十章“出题”应用中使用过），将新号码添加到列表中需要使用add item to list块。整个设置所需的块见表11-3。在电话号码添加完之后，用BroadcastListLabel来显示新列表。
表11-3 检查来信内容，并将发信人添加到广播列表中，需要如下块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| initialize global BroadcastList to | Variables | 定义广播列表变量 |
| ifelse | Control | 根据收到短信的内容决定做什么事 |
| = | Math | 判断短信内容是否等于“joinFMDT” |
| get messageText | Variables | 将来信内容插入“=”块（左边 |
| “joinFMDT” | Text | 将固定文本插入“=”块（右边） |
| add items to list | Lists | 向广播列表中添加发信人电话号 |
| get number | Variables | 将发信人手机号码插入“add items to list” |
| set BroadcaseListLabel.Text to | BroadcaseListLabel | 显示新列表 |
| get global BroadcastList | Variables | 将其插入set BroadcaseListLabel.Text to块 |
| set Texting1.Message to | Texting1 | 设置短信内容，准备用Texting1回复发信人 |
| “恭喜你成功加入…” | Text | 祝贺发信人加入群组成功。 |
块的作用
如图11-4所示，对刚收到的短信进行回复，第一行的块将发信人手机号码设置为接收人手机号码，即设置Texting1.PhoneNumber为number。然后判断messageText是否为特殊代码“joinFMDT”：如果是，则将发送者手机号添加到BroadcastList并发短信祝贺；如果不是，则回复邀请短信。在Ifelse块之后，回复短信被发出（最后一行）。
图 11-4 如果收到短信“joinFMDT”，则将发信人手机号添加到BroadcastList
广播消息
下面来添加广播行为：当广播列表BroadcastList中的成员向广播中心发来短信时，将此信息转发给列表中的所有手机。这一功能稍显复杂，需要更多的控制块：增加一个Ifelse块和一个foreach块。新增的Ifelse块用于检查发送短信的手机号是否在广播列表中，而foreach块用于向列表中的所有手机广播这条短信。另外还要将之前的Ifelse块移动到新Ifelse块的“else”部分。表11-4列出了需要新增的块。
表11-4 向列表中的成员广播某个成员发来的短信需要新增的块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| ifelse | Control | 根据发信人是否已在广播列表中来决定做不同的事 |
| is in list？ | Lists | 检查某数据是否在列表中 |
| get global BroadcastList | Variables | 将其插入is in list？的list插槽中 |
| get number | Variables | 将其插入is in list？的thing插槽 |
| set Texting1.Message to | Texting1 | 设置将被广播出去的短信内容（列表成员的来信） |
| get messageText | Variables | 即将被广播出去的列表成员来 |
| foreach | Control | 向列表中的所有成员发送同一条短信 |
| get global BroadcastList | Variables | 将其插入foreach的list插槽 |
| set Texting1.PhoneNumber to | Texting1 | 设置接收短信的手机号码 |
| get item | Variables | BroadcaseList中当前正在操作的项/变量：保存的是手机号 |
块的作用
这里使用了嵌套的ifelse块，使得程序更加复杂，如图11-5所示。嵌套的ifelse块指的是在一个ifelse块的“then”或“else”插槽中嵌入了另一个ifelse块。在本例中，外层的ifelse负责检查发信人的手机号是否已在广播列表中。如果在，则将该短信转发给列表中的所有人；如果不在，则执行内层ifelse判断：短信内容messageText是否为“joinFMDT”，并依据判断结果，执行不同的分支操作。
图 11-5 检查发信人是否已在广播列表中，如果是，则广播此短信
从理论上，if块和ifelse块可以做任意层级的嵌套，来实现更加复杂的行为（更多关于条件语句块的内容请参见第18章）。
在外层ifelse块的then分支中，使用foreach块来广播短信。foreach遍历BroadcastList列表中的每一项，并把短信发送给列表中的每个电话号码。在foreach执行循环时，BroadcastList中的每个电话号码依次被保存在item中（item是一个变量，代表了foreach当前正在处理的项）。在foreach块内，设置Texting.PhoneNumber的值为当前项item，并向其发送短信。有关foreach的更多信息，请参见第20章。
整理列表的显示
广播短信的功能已经实现，但管理员的界面尚需改进。首先，电话号码列表的显得很乱：用Label显示列表时，列表项之间用空格分隔，并且尽可能占满一行，像下面这样：
(+861303318989 +861581235590 +8618902018909 +8613301103355 +8613801237890)
为了改善这种局面，使用表11-5列出的块创建一个过程displayBroadcastList，来实现每行只显示一个号码。请务必在add items to list块的下面调用该过程，以便显示更新后的列表。
表11-5 改进电话号码列表显示所需的块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| to procedure(“displayBroadcastList”) | Procedures | 创建过程displayBroadcastList |
| set BroadcaseListLabel.Text to | BroadcaseListLabel | 用来显示列表 |
| “” | Text | 空文本 |
| foreach | Control | 对电话号码列表进行遍历 |
| pnumber | foreach内置 | 变量pnumber为遍历过程中正在访问的 |
| get global BroadcaseList | Variables | 插入foreach块的in list插槽 |
| set BroadcaseListLabel.Text to | BroadcaseListLabel | 显示电话号码列表 |
| join | Text | 将多个文本片段连接为一个文本对象 |
| BroadcaseListLabel.Text | BroadcaseListLabel | 每次循环都以既有label内容为基础追加新项 |
| “\n” | Text | 换行，以便下一个号码显示在下一行 |
| get pnumber | foreach内置 | 遍历时列表中正在访问的项(手机号码) |
块的作用
过程displayBroadcastList中的foreach块逐行地将每个手机号码添加到label的末尾，如图11-6所示，用换行符（\ n）来分隔每个号码，使得每个号码各占一行。
图 11-6 逐行显示手机号码
不过displayBroadcastList过程不会主动做任何事，除非调用它。在Texting1.MessageReceived事件处理程序中，紧接着add item to list块调用它。过程的调用取代了列表BroadcastList在 BroadcastListLabel.Text中的默认显示。块call displayBroadcastList归属在Procedures抽屉中。
图11-7显示了Texting1.MessageReceived事件处理程序中相关的块。
图 11-7 调用displayBroadcastList过程
关于用foreach来显示列表的详细信息请参见第20章，关于创建和调用过程的详细信息请参见第21章。
录广播过的短信
在收到短信并向其他手机发出广播之后，程序应该记录此类事件，以便管理员可以对活动进行监督。在组件设计器中，已经添加的LogLabel组件就是用于这一目的。下面编写程序，每当收到新的短信时，改变LogLabel的显示。
要创建像这样的一段文本：“来自+8613901231234的短信已经广播。”字符“+8613901231234”不是固定数据，而是MessageReceived事件自带的参数值。因此，要创建的文本包括三个部分：①“来自”；②手机号码，为参数number；③“的短信已经广播”。正如在前几章中所做的一样，用join将三个部分连接起来，表11-6列出了需要的块。
表11-6 构建广播日志所需要的块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| set LogLabel.Text to | LogLabel | 在此显示日志 |
| join | Text | 由多个文本片段创建成一个文本对象 |
| “来自” | Text | 每条日志信息的第①部 |
| get number | Texting1.MessageReceived事件内置参数 | 日志信息的第②部分：短信发送者的手机号码 |
| “的短信已经广播。\n” | Text | 日志信息的第③部分 |
| LogLabel.Text | LogLabel | 在原有日志前插入一条新的日志 |
块的作用
在收到短信后，向BroadcastList列表中的所有号码广播此短信，再修改LogLabel，记录刚才的广播操作，如图11-8所示。需要注意的是，我们将消息添加到列表的开始，而不是结尾，因此最后发出的消息将显示在最顶端。
图 11-8 向广播日志中添加一条新消息
join块创建了一条新记录：来自+8613901231234的短信已经广播。
每次短信广播之后，这条记录将被添加到LogLabel.Text的第一行，使最新的记录一直出现在顶部。join块中各个文本片段的顺序决定了日志中记录的顺序。在本例子中，新消息被编排在前三个插槽中，而LogLabel.Text，已经保存的现有记录，将插入最后一个插槽。
“的短信已经广播。\n”中的“\n”称为换行符，它让每条记录单独占一行，像这样：
来自+8613030123668的短信已经广播。
来自+8613901231234的短信已经广播。
关于使用foreach来显示列表的详细信息，请参见第20章。
将BroadcastList保存在数据库中
现在应用算是大功告成了，但通过前几章的学习，你可能猜到了一个问题：如果管理员将应用关闭再重新启动时，广播列表中的数据将会丢失，每个人都得重新注册。为了解决这个问题，要使用TinyDB组件实现BroadcastList列表在数据库中的存储和检索。
这里将使用与“出题”应用（第10章）中相类似的方案：
每次添加新项时，将列表保存到数据库中；
应用启动时，从数据库中加载列表，并保存到一个变量中。
用表11-7中所列的块，将列表存储到数据库中。TinyDB组件中的tag作为数据的标识，将保存在数据库中的不同数据区分开来。在本例中，你可以将数据标记为“broadcastList”。在Texting1.MessageReceived中，将这些块添加到add items to list块之下。
表11-7 用TinyDB来存储列表所需的块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| TinyDB1.StoreValue | TinyDB1 | 将数据保存到数据库中 |
| “broadcastList” | Text | 将其插入StoreValue的tag插槽中 |
| get global BroadcastList | Variables | 将其插入StoreValue的value插槽中 |
块的功能
当应用收到短信“joinFMDT”，并将新成员的手机号码添加到列表时，调用TinyDB1.StoreValue将BroadcastList保存到数据库中。tag（“broadcastList”）的使用是为了便于之后对数据的检索。如图11-9，被StoreValue调用的值（valueToStore）是变量BroadcastList。
图 11-9 调用TinyDB来存储BroadcastList列表
从数据库加载广播列表（BroadcastList）
每次应用启动时都要加载广播列表，按照表11-8中列出的块来实现这一功能。应用的启动将触发Screen1.Initialize事件，因此将在该事件的处理程序中实现加载。使用存储时的tag（“broadcastList”）来调用TinyDB.GetValue。就像前几章一样，我们需要检查是否的确有数据返回，这里将检查返回值是否为列表，因为如果列表中没有数据，那么它也就不是列表。
块的作用
应用启动将触发Screen1.Initialize事件。如图11-10所示，使用TinyDB1.GetValue块向数据库请求数据，返回的数据临时保存在已定义的变量valueFromDB中。
表11-8 应用启动时加载广播列表所需要的块
| 块的类型 | 所在抽屉 | 作用 |
|---|---|---|
| initialize global valueFromDB to | Variables | 用于保存并检查数据库返回值的临时变量 |
| “” | Text | 设valueFromDB初始值为空 |
| Screen1.Initialize | Screen1 | 应用启动时触发该事件 |
| set global valueFromDB to | Variables | 将数据库返回值暂时存放在其中 |
| TinyDB1.GetValue | TinyDB1 | 向数据库请求数据 |
| “broadcastList” | Text | 将其插入GetValue的tag插槽 |
| if | Control | 判断数据库中是否有数据 |
| is a list | Lists | 如果数据库返回值是一个列表，则返回值不为空 |
| get global valueFromDB | Variables | 将其插入is a list? |
| set global BroadcaseList to | Variables | 将变量值设置为数据库的返回值 |
| get global valueFromDB | Variables | 数据库返回值不为空时，将返回值写入广播列表 |
| call displayBroadcastList | Procedures | 加载数据成功后，显示数据 |
图 11-10 从数据库中加载广播列表BroadcastList
事件处理程序中的if块是必需的，因为在首次启动应用时，数据库将返回空文本（“”），这时还没有生成广播列表。通过判断valueFromDB是否为列表，可以确定是否真的有数据返回。如果没有，则跳过那些保存返回数据以及显示数据的块。
更多建议：