使用Python和Haskell开发的图形化界面示例

Python和Haskell都是功能强大的编程语言，可以用于开发图形化界面。下面将介绍使用这两种语言开发图形化界面的示例，并提供一些使用例子。

1. 使用Python开发图形化界面的示例：

Python拥有多个图形界面库，其中最常用的是Tkinter。下面是一个使用Tkinter创建简单的登录界面的示例：

from tkinter import *

def login():
    username = username_entry.get()
    password = password_entry.get()
    if username == "admin" and password == "123456":
        result_label.config(text="Login successful!")
    else:
        result_label.config(text="Login failed!")

# 创建窗口
window = Tk()
window.title("Login")
window.geometry("300x200")

# 创建用户名和密码输入框
username_label = Label(window, text="Username:")
username_label.pack()
username_entry = Entry(window)
username_entry.pack()

password_label = Label(window, text="Password:")
password_label.pack()
password_entry = Entry(window, show="*")
password_entry.pack()

# 创建登录按钮
login_button = Button(window, text="Login", command=login)
login_button.pack()

# 创建结果标签
result_label = Label(window, text="")
result_label.pack()

# 运行窗口
window.mainloop()

运行以上代码，将会弹出一个登录窗口，用户输入正确的用户名和密码后，点击登录按钮将弹出“Login successful!”的提示，否则将弹出“Login failed!”的提示。

2. 使用Haskell开发图形化界面的示例：

Haskell的图形化界面开发通常使用库如gtk2hs或wxHaskell。以下是一个使用gtk2hs创建简单的计算器界面的示例:

import Graphics.UI.Gtk

calcButtonClicked :: Entry -> Entry -> IO ()
calcButtonClicked entry1 entry2 = do
  num1Str <- entryGetText entry1
  num2Str <- entryGetText entry2
  let num1 = read num1Str :: Int
      num2 = read num2Str :: Int
      result = num1 + num2
  setText entry2 (show result)

setText :: Entry -> String -> IO ()
setText entry text = do
  entrySetText entry text

main :: IO ()
main = do
  initGUI
  window <- windowNew
  set window [windowTitle := "Calculator", windowDefaultWidth := 300, windowDefaultHeight := 200]

  table <- tableNew 3 2 True
  containerAdd window table

  label1 <- labelNew (Just "Number 1:")
  tableAttachDefaults table label1 0 1 0 1

  entry1 <- entryNew
  tableAttachDefaults table entry1 1 2 0 1

  label2 <- labelNew (Just "Number 2:")
  tableAttachDefaults table label2 0 1 1 2

  entry2 <- entryNew
  tableAttachDefaults table entry2 1 2 1 2

  calcButton <- buttonNewWithLabel "Calculate"
  onClicked calcButton (calcButtonClicked entry1 entry2)
  tableAttachDefaults table calcButton 0 2 2 3

  onDestroy window mainQuit
  widgetShowAll window
  mainGUI

运行以上代码，将会弹出一个简单的计算器窗口，用户在两个输入框中输入两个数字后，点击计算按钮，将会在第二个输入框中显示两个数字的和。

总结：

以上是使用Python和Haskell开发图形化界面的示例。Python可以使用Tkinter库来创建图形化界面，而Haskell可以使用gtk2hs或wxHaskell库来实现相同的功能。无论使用哪种语言，都可以根据自己的需求创建各种不同的图形化界面应用程序。