Witam , mam do zrobienia takie zadanie mianowicie chodzi o grę w zgadywaniu ukrytego kodu jestem początkujący udało mi się napisac coś takiego
require 'tk'
zakres = 1..100
kod = rand zakres
okno = TkRoot.new do
title "Spróbuj zgadnąć tajny kod"
geometry "300x200"
end
etykieta = TkLabel.new(okno) do
text "Wpisz liczbę"
pack :expand => 1
end
formularz = TkEntry.new(okno) do
pack :expand => 1
end
przycisk = TkButton.new(okno) do
text "OK"
pack :expand => 1
end
przycisk.command do
liczba = formularz.value.to_i
unless zakres.include? liczba
Tk.messageBox :message => "Musisz wpisać liczbę z zakresu #{zakres}"
formularz.delete 0, formularz.value.length
return
end
if liczba < kod
etykieta.text "Wpisałeś za małą liczbę"
elsif liczba > kod
etykieta.text "Wpisałeś za dużą liczbę"
else
etykieta.text "Udało Ci się zgadnąć"
Tk.messageBox :message => "Gratulacje!"
exit
end
end
Tk.mainloop
muszę uzupełnić program o licznik dostępnych prób. Gra powinna skończyć się w przypadku wyczerpania
limitu prób wynikającego z optymalnej strategii dzielenia przedziału na pół. Po wyczerpaniu limitu
prób powinno zostać wyświetlone okno dialogowe z odpowiednią informacją, zaś po jego
zamknięciu przez użytkownika program powinien skończyć pracę.