# 例程9：Fine界面函数组应用——edit控件应用示例
gui = GUI()
#gui.HideConsoleWindow()
title = "我的数据录入窗口"
winSize = [20,10,60,30]
menu1 = ["文件","menu","新建","打开","保存","退出"] # 参数1是主菜单名，参数2是menu类控件，后面是子菜单功能键
menu2 = ["编辑","menu","撤销","复制","粘贴","删除"] # 参数1是主菜单名，参数2是菜单类控件，后面是子菜单功能键
text0 = [" 指令 ","text",20,2,30,1] # 参数1是text控件标题，参数2是text类控件，后面text控件的位置和大小
text1 = [" 姓名 ","text",20,4,30,1] # 参数5可以为0，则，只显示标题
text2 = [" 年龄 ","text",20,6,30,1] # 参数1是text控件标题，标题可以为空""，则，不显示标题
text3 = [" 身高 ","text",20,8,30,1]
edit1 = [" name ","edit","s",20,11,12,1] # 控件标题可以为空("")，参数2是edit类控件，参数3指定录入数据的类型（字符串）
edit2 = [" 年龄 ","edit","i",20,13,12,1] # 参数3指定录入数据的类型（整数）
edit3 = [" 身高 ","edit","f",20,15,12,1] # 参数3指定录入数据的类型（浮点数）
list = [title,winSize,menu1,menu2,text0,text1,text2,text3,edit1,edit2,edit3] # 将窗口设计元素打包成列表
num = gui.Fine(list) # 创建Fine窗口，并返回窗口资源ID号num
while gui.FineClosed(num) != -1 # 循环检测窗口关闭消息（返回-1表明窗口已关闭，退出循环）
{
PowerDown(3) # 低功耗设置
if gui.FineReady(num) == -1 {continue} # 检测是否准备好数据（-1表明没有数据输出，0表明有数据输出）
x = gui.FineRead(num) # 读取数据（列表），列表的第一项是指令，后面各项分别对应edit\combobox\editbox控件录入的数据
# 该例程增加了3个edit控件，因此，输出x列表有4项，即（指令menu，edit1录入内容，edit2录入内容，edit3录入内容）
str1 = x[0] # 取出第一项（指令）
str2 = x[1] # 取出第二项（edit1录入的字符串）
str3 = itoc(x[2]) # 取出第三项（edit2录入的整数，并将该整数转换成字符串）
str4 = itoc(x[3]) # 取出第四项（edit3录入的浮点数，并将该浮点数转换成字符串）
gui.SendText(num,[str1,str2,str3,str4]) # 将四个字符串显示在四个text控件上
gui.SendEdit(num,["","","",""]) # 清空所有3个edit控件
}