|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Re: Проконсультируйте пожалуйста (начинающий программист)
Пользователь прошел тест.
Получился рейтинг. Он записывается в Label (Вы набрали "Н-ое" кол-во баллов),по нажатию на кнопку Button . Но есть звания,(Новичок=0-5,Мастер=5-10,Профессионал=10-15 и т.д) т.е если он набрал от 0-5 баллов то в поле Label2 должно писаться "Новичок", если от 5-10 то туда же но "Мастер" и т.д например... Как мне сделать чтоб это записывалось...Как только я не пробовал(начинающий)не чего не получается... И чтоб при определенном звании выводилась картинка...соответствующая звании. Подскажите как мне это реализовать...хоть правильное направление укажите. Буду благодарен безумно. |
#2
|
|||
|
|||
score - количество баллов
Код:
if ((score=>0)and(score<5))then Label2.Caption:='Новичок'; if ((score>=5)and(score<10))then Label2.Caption:='Мастер'; if ((score>=10)and(score<=15))then Label2.Caption:='Профессионал'; |
Этот пользователь сказал Спасибо PS11011010 за это полезное сообщение: | ||
LorDHeLeGaL (09.04.2012)
|
#3
|
|||
|
|||
через case еще легче
|
#4
|
||||
|
||||
Цитата:
|
#5
|
|||
|
|||
Цитата:
Код:
case score of 0..5: Label2.Caption := 'Новичок'; 6..10: Label2.Caption := 'Мастер'; 11..15: Label2.Caption := 'Профессионал'; end; если надо вместе с изменением кэпшна что-то делать с картинкой, то будет выглядеть примерно так: Код:
case score of 0..5: begin Label2.Caption := 'Новичок'; Image1.Picture.Bitmap.LoadFromFile('блаблабла.пнг') end; ... //и так далее end; Приведите код целиком. Ну, по крайней мере часть, отвечающую за вывод всего этого добра |
Этот пользователь сказал Спасибо nixel за это полезное сообщение: | ||
LorDHeLeGaL (09.04.2012)
|
#6
|
||||
|
||||
Цитата:
|
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Цитата:
|
#9
|
||||
|
||||
Код:
Label10.CleanupInstance; x1:=46875*5*StrToInt(Edit1.Text); x2:=9375*5* StrToInt(Edit2.Text); x3:=1875*5*StrToInt(Edit3.Text); x4:=375*5* StrToInt(Edit4.Text); x5:=75*5* StrToInt(Edit5.Text); x6:=15*5*StrToInt(Edit6.Text); x7:=5*5* StrToInt(Edit7.Text); x8:=5*StrToInt(Edit8.Text); y:= x1+x2+x3+x4+x5+x6+x7+x8; Label10.Caption := (Inttostr(y))+' !'; А в поле label3 не чего не выводит.... |