Нужно в то, что есть добавить чтобы можно было выбрать дату и месяц рождения и ввести год рождения вручную в стиле "". Желательно добавить кнопку инструкция которая будет нажиматься и открываться текст(его я сам напишу). И по итогу чтобы все сохранялось в файл txt. (это тоже не обязательно, но желательно) (Работа делается для Spyder)

from tkinter import *
from tkinter.ttk import *

window = Tk()
window.title("Program")
window.geometry('600x600')

text=Label(window, text="Hello! Enter your name:", font=("Arial Bold", 30))
text.grid(column=0, row=0)

txt = Entry(window, width=10)
txt.grid(column=0, row=1)

def clicked():
res="Welcome to the game " +txt.get()
text.configure(text=res)

btn = Button(window, text="Save", command=clicked)
btn.grid(column=0, row=2)

text1=Label(window, text="Input your age", font=("Arial Bold", 30))
text1.grid(column=0, row=3)

combo = Combobox(window)
combo ['values']= (14, 15, 16, 17, 18)
combo.current(1)

combo.grid(column=0, row=4)

text2=Label(window, text="I agree, that I will fail this game", font=("Arial Bold", 30))
text2.grid(column=0, row=5)

chk_state = BooleanVar()
chk_state.set(False)
chk = Checkbutton(window, text='Choose', var=chk_state)
chk.grid(column=1, row=5)

window.mainloop()

Показать ответ

Ответ:

9109160145davla

07.04.2021 17:12

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится

0,0(0 оценок)

Ответ:

gbafujhobr

10.02.2021 21:44

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)

    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i

    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

0,0(0 оценок)

Популярные вопросы: Информатика