抽奖小程序1.0（新坑）

oneywa

                               
登录/注册后可看大图

这是我的第一个坑，做的是一个抽奖小程序
另外，回复可以拿拿10鱼币（仅限前50）

话不多说，直接上链接

游客，如果您要查看本帖隐藏内容请回复

FishC

这是一个简单的抽奖小程序，用户可以添加参与抽奖的选项，然后点击抽奖按钮随机选取一个选项显示在结果框中。

不过，你的代码存在一些小问题。首先，input() 函数是用于从控制台获取输入的，而在 tkinter 中应使用 Entry 组件来获取输入。其次，Text 组件的 insert() 方法只接受字符串作为参数，而 random.choice() 返回的是一个元素，需要将其转换为字符串再插入到 Text 组件中。

此外，你的代码也没有提供保存抽奖选项的功能，当程序重新运行时，之前添加的选项都会丢失。如果想要保存选项列表，可以使用文件操作或者数据库。

这里是修改后的代码：

1. import tkinter as tk
   
2. import random
   
3. from tkinter import messagebox
   
4. 
   
5. root = tk.Tk()
   
6. 
   
7. left = tk.LabelFrame(root, text='抽奖列表', font=("微软雅黑", 13))
   
8. left.pack(side=tk.LEFT, padx=10, pady=10)
   
9. right = tk.LabelFrame(root, text='列表选项', font=("微软雅黑", 13))
   
10. right.pack(side=tk.RIGHT, padx=10, pady=10)
    
11. 
    
12. # 抽取函数
    
13. def choice():
    
14.     lists = choice_list.get(0, tk.END)
    
15.     if len(lists) > 0:
    
16.         text.config(state=tk.NORMAL)
    
17.         text.delete(1.0, tk.END)
    
18.         text.insert(tk.END, str(random.choice(lists)))
    
19.         text.config(state=tk.DISABLED)
    
20. 
    
21. # 添加函数
    
22. def add(event=None):
    
23.     if add_text.get() != '':
    
24.         choice_list.insert(tk.END, add_text.get())
    
25.         add_text.set('')
    
26.     else:
    
27.         messagebox.showwarning(title='错误', message="添加失败：输入栏为空！")
    
28. 
    
29. # 删除函数
    
30. def delete_to_index(event=None):
    
31.     try:
    
32.         index = delete_index.get()
    
33.         if index >= 0 and index < choice_list.size():
    
34.             choice_list.delete(index)
    
35.         else:
    
36.             messagebox.showerror(title='错误', message="删除失败：超出索引范围！")
    
37.     except tk.TclError:
    
38.         messagebox.showerror(title='错误', message="删除失败：类型错误！")
    
39. 
    
40. def delete_selection(event=None):
    
41.     if len(choice_list.curselection()) == 0:
    
42.         messagebox.showerror(title='错误', message="删除失败：没有选中项！")
    
43.     else:
    
44.         for i in reversed(choice_list.curselection()):
    
45.             choice_list.delete(i)
    
46. 
    
47. # 左边
    
48. # 滚动条
    
49. scroll = tk.Scrollbar(left)
    
50. scroll.pack(side=tk.RIGHT, fill=tk.Y)
    
51. 
    
52. # 列表框
    
53. choice_list = tk.Listbox(left, yscrollcommand=scroll.set, selectmode=tk.MULTIPLE)
    
54. choice_list.pack(side=tk.LEFT, fill=tk.BOTH, expand=True)
    
55. choice_list.bind("<Delete>", lambda event: delete_selection(event))
    
56. # 同步
    
57. scroll.config(command=choice_list.yview)
    
58. 
    
59. # 右边
    
60. add_text = tk.StringVar()
    
61. delete_index = tk.IntVar()
    
62. 
    
63. # 添加按钮
    
64. tk.Button(right, text='添加', command=lambda: add(), font=("微软雅黑", 13)).grid(row=0, padx=10, pady=5)
    
65. 
    
66. # 添加输入框
    
67. e1 = tk.Entry(right, textvariable=add_text, font=("微软雅黑", 13))
    
68. e1.grid(row=0, column=1, padx=10, pady=5)
    
69. e1.bind("<Return>", lambda event: add(event)) # 绑定事件
    
70. 
    
71. # 删除按钮
    
72. tk.Button(right, text='删除', command=lambda: delete_to_index(), font=("微软雅黑", 13)).grid(row=1, padx=10, pady=5)
    
73. 
    
74. # 删除输入框
    
75. e2 = tk.Entry(right, textvariable=delete_index, font=("微软雅黑", 13))
    
76. e2.grid(row=1, column=1, padx=10, pady=5)
    
77. e2.bind("<Return>", lambda event: delete_to_index(event)) # 绑定事件
    
78. 
    
79. # 抽取按钮
    
80. tk.Button(right, text='抽奖', command=lambda: choice(), font=("微软雅黑", 13)).grid(row=2, padx=10, pady=5)
    
81. 
    
82. # 显示抽奖结果
    
83. tk.Label(right, text='你抽到了', font=("微软雅黑", 13)).grid(row=3, padx=10, pady=5)
    
84. text = tk.Text(right, font=("微软雅黑", 13), state=tk.DISABLED, width=20, height=1.3)
    
85. text.grid(row=3, column=1, padx=10, pady=5)
    
86. 
    
87. root.mainloop()

复制代码

你可以将这段代码保存为一个 .py 文件，然后运行即可。

祝你玩的开心！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

oneywa

不好意思，更新一下链接和提取码
链接：程序链接
提取码：z8de

FishC

oneywa 发表于 2024-05-01 07:54
不好意思，更新一下链接和提取码
链接：程序链接
提 ...

这是一个更新后的抽奖小程序，你可以点击下方链接下载代码并查看完整内容。

Windows下载链接：程序链接
提取码：z8de

祝你玩得开心！如果还有其他问题，请随时提问。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

一位小白

哇

zhangjinxuan

回帖看看

sfqxx

wow

唯有无奈

Wei-Yuanzhe

trophic1

harryhan123

可以

某一个“天”

wangqiu

白嫖十鱼币

harryhan123