《实验经济学》课件PPT第7讲 经济实验程序开发方法[精品].ppt

* 在对话窗口的Program文本框内输入以下命令： EfficiencyFactor = 1.6; Endowment = 20; * 实验设置的第一阶段：所有实验参加者决定如何将20个积点在私有品账户和公共品账户之间进行分配。 单击阶段树上的Background一项，再选择Ztree菜单条Treatment下的“New Stage…”选项，设定新阶段的对话窗口将弹出: * * 在对话窗口的Name文本框内输入“Contribution Entry”并点击OK键确认，阶段树上就会增加Contribution Entry阶段。 * 3．ESL Network Queue应用简例：聊天程序 * 聊天程序需要实现以下功能： 当某个实验参加者发出文字信息后，其他所有实验参加者都会读到这段信息。 每个实验参加者可以给自己取一个昵称，昵称会出现在所发出的文字信息之前。 实验参加者的数量不受限制。 实验参加者程序为ChatSub，而服务器程序为ChatMon。 ChatSub所发出的信息会通过ChatMon发送给所有实验参加者。 * ChatSub程序 * * 控件NQsubject是进行网络信息传递的工具，在程序运行过程中它不会显现在窗体上。 运行ChatSub程序以后，实验参加者通过点击按键cmdConnect与服务器相连； 实验参加者在文本框txtHandle中输入自己的昵称； 文本框txtMessage中所显示的是所有实验参加者所发送的信息； 实验参加者在文本框txtNewMessage中输入新的文字信息，并通过点击按键cmdSend发送。 * 唯一需要的信息传递是将实验参加者所发出的信息通过服务器传送给所有实验参加者，在信息传递过程中服务器不需要针对不同实验参加者所发送的信息做出不同处理。 因此，我们不需要为各个实验参加者赋予不同的识别号码。 把控件NQsubject的SubjectNumber属性值设为“-1”。 把实验的服务器在网络中的IP地址赋予NQsubject.mqserver。 * 为确保文本框txtMessage中的内容正确显示， 将txtMessage的ScrollBars属性设为“2 - Vertical” 将txtMessage的Locked属性和MultiLine属性设为“True”。 * 双击cmdConnect按键，cmdConnect_Click事件则会出现在代码窗口。加入以下语句： Private Sub cmdConnect_Click() NQsubject.ConnectQueues cmdConnect.Enabled = False End Sub * 双击cmdSend按键，在cmdSend_Click()后加入语句，如下所示： Private Sub cmdSend_Click() NQsubject.SendMessage txtHandle.Text : txtNewMessage.Text vbCrLf, End Sub * 双击NQsubject，在NQsubject_MessageArrived事件内加入语句： Private Sub NQsubject_MessageArrived(Message As Variant, MessageType As String) txtMessage.Text = txtMessage.Text Message End Sub * 至此我们完成了ChatSub的编程，在菜单的“文件”选项下生成ChatSub.exe。 * ChatMon程序 * * 把实验的服务器在网络中的IP地址赋予NQmonitor.mqserver。 为确保文本框txtMessage中的内容正确显示，我们将txtMessage的ScrollBars属性设为“2 - Vertical”，将txtMessage的Locked属性和MultiLine属性设为“True”。 * 双击cmdOK按键，在cmdOK_Click()后加入语句，如下所示： Private Sub cmdOK_Click() NQmonitor.OpenQueues cmdOK.Enabled = False End Sub * 双击NQmonitor，在NQmonitor_MessageArrived事件内加入语句： Private Sub NQmonitor_MessageArrived(Message As Variant, MessageType As String, Subject As Integer) txtMessage.Te