POST https://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions

Authorization: Bearer sk-你的API密钥
Content-Type: application/json

{
  "model": "qwen-turbo",
  "messages": [
    {"role": "system", "content": "你是一个App Inventor 2编程助手"},
    {"role": "user", "content": "如何制作倒计时？"}
  ]
}

{
  "choices": [
    {
      "message": {
        "role": "assistant",
        "content": "制作倒计时需要使用计时器组件..."
      }
    }
  ],
  "usage": {
    "total_tokens": 150
  }
}

初始化全局变量 API_KEY = "sk-你的API密钥"
初始化全局变量 模型 = "qwen-turbo"
初始化全局变量 API地址 = "https://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions"

// 发送问题
当 按钮_发送.被点击 时
  初始化局部变量 问题 = 文本输入框_问题.文本
  如果 问题 ≠ "" 则
    设置 按钮_发送.启用 = 假
    设置 标签_回复.文本 = "AI思考中..."
    调用 发送AI请求(问题)

// 发送AI请求过程
定义 发送AI请求(问题)
  // 构建请求JSON
  初始化局部变量 请求JSON = 合并字符串(
    '{"model":"', 全局变量 模型, '",',
    '"messages":[',
    '{"role":"system","content":"你是一个App Inventor 2编程助手，用中文回答"},',
    '{"role":"user","content":"', 问题, '"}',
    ']}'
  )
  
  // 设置请求头
  调用 Web客户端1.设置请求头([
    ["Authorization", 合并字符串("Bearer ", 全局变量 API_KEY)],
    ["Content-Type", "application/json"]
  ])
  
  // 发送POST请求
  设置 Web客户端1.URL = 全局变量 API地址
  调用 Web客户端1.发送POST文本(请求JSON)

// 收到AI回复
当 Web客户端1.获得文本 时（URL, 响应码, 响应类型, 响应内容）
  设置 按钮_发送.启用 = 真
  
  如果 响应码 = 200 则
    // 解析JSON获取回复内容
    初始化局部变量 根字典 = 调用 字典.JSON转字典(响应内容)
    初始化局部变量 choices = 获取键的值(根字典, "choices", [])
    如果 列表长度(choices) > 0 则
      初始化局部变量 第一个 = 选择列表项(choices, 1)
      初始化局部变量 消息 = 获取键的值(第一个, "message", {})
      初始化局部变量 回复 = 获取键的值(消息, "content", "")
      设置 标签_回复.文本 = 回复
  否则
    设置 标签_回复.文本 = 合并字符串("请求失败：", 响应码, "\n", 响应内容)

初始化全局变量 对话历史 = []

// 发送多轮对话请求
定义 发送多轮对话(新问题)
  // 添加用户消息到历史
  调用 追加列表项(全局变量 对话历史,
    创建字典(["role", "user"], ["content", 新问题])
  )
  
  // 构建消息列表JSON
  初始化局部变量 消息JSON = "["
  对于 每个 消息 在 全局变量 对话历史 中
    初始化局部变量 角色 = 获取键的值(消息, "role", "")
    初始化局部变量 内容 = 获取键的值(消息, "content", "")
    设置 消息JSON = 合并字符串(
      消息JSON,
      '{"role":"', 角色, '","content":"', 内容, '"},'
    )
  // 去掉最后一个逗号
  设置 消息JSON = 合并字符串(
    截取文本(消息JSON, 1, 文本长度(消息JSON) - 1), "]"
  )
  
  初始化局部变量 请求JSON = 合并字符串(
    '{"model":"', 全局变量 模型, '",',
    '"messages":', 消息JSON, '}'
  )
  
  调用 Web客户端1.设置请求头([
    ["Authorization", 合并字符串("Bearer ", 全局变量 API_KEY)],
    ["Content-Type", "application/json"]
  ])
  设置 Web客户端1.URL = 全局变量 API地址
  调用 Web客户端1.发送POST文本(请求JSON)

// 收到回复后，把AI回复也加入历史
当 Web客户端1.获得文本 时（URL, 响应码, 响应类型, 响应内容）
  如果 响应码 = 200 则
    初始化局部变量 根字典 = 调用 字典.JSON转字典(响应内容)
    初始化局部变量 回复 = 获取键路径的值(根字典, ["choices", 1, "message", "content"], "")
    
    // 把AI回复加入历史
    调用 追加列表项(全局变量 对话历史,
      创建字典(["role", "assistant"], ["content", 回复])
    )
    
    // 显示回复
    设置 标签_回复.文本 = 回复

// 清空对话历史
当 按钮_清空.被点击 时
  设置 全局变量 对话历史 = []
  设置 标签_回复.文本 = ""
  设置 文本输入框_问题.文本 = ""

你是一个专业的App Inventor 2编程助手，专注于帮助用户解决AI2编程问题。
请用中文回答，回答要简洁清晰，代码块用文字描述（因为用户看不到代码图片）。
如果涉及代码块，请用"当...时"、"设置...为"等AI2积木块的中文描述方式。