Определение звания тестируемого

@LorDHeLeGaL · Регистрация: 07.04.2012

Студворк — интернет-сервис помощи студентам

Пользователь прошел тест.
Получился рейтинг. Он записывается в Label (Вы набрали "Н-ое" кол-во баллов),по нажатию на кнопку Button .
Но есть звания,(Новичок=0-5,Мастер=5-10,Профессионал=10-15 и т.д) т.е если он набрал от 0-5 баллов то в поле Label2 должно писаться "Новичок", если от 5-10 то туда же но "Мастер" и т.д например...
Как мне сделать чтоб это записывалось...Как только я не пробовал(начинающий)не чего не получается...
И чтоб при определенном звании выводилась картинка...соответствующая звании.
Подскажите как мне это реализовать...хоть правильное направление укажите. Буду благодарен безумно.

Psilon · 11.04.2012, 18:33

LorDHeLeGaL, у вас должен быть ресурсный файл (подключенный), в нем надпись (в моем случае):

BGround RCDATA "BackGround.jpg"

После этого я обращаюсь по имени BGround и запихиваю его в ResourseStream, который опосля выгружаю в TJpegImage. А потом на форме рисую уже представителя этого класса, в моем случае перемненая (хотя скорее объект) jpeg. С ico не имел дела, не уверен, что его можно нарисовать....

Тьфу, что вы вообще паритесь? киньте на форму TImage, и в него динамически грузите в ходе программы картинки (jpeg,bmp). И проблем не будет. Можно грузить из файла ресурсов, тогда все картинки будут валяться в экзешнике и не надо будет таскать с ним эти картинки. То есть вы просто создаете на форме image1:TImage, а потом пишете

Delphi
1
image1.Picture:=...

Я так в первоначальном варианте рисовал фон формы, но т.к. на некоторых компах лейблы и кнопки иногда проваливались под текстуру пришлось рисовать на канве. Но для маленькой картинки это идеальный способ.

@LorDHeLeGaL · 11.04.2012, 18:51 **[ТС]**

Сообщение от Psilon

LorDHeLeGaL, у вас должен быть ресурсный файл (подключенный), в нем надпись (в моем случае):

После этого я обращаюсь по имени BGround и запихиваю его в ResourseStream, который опосля выгружаю в TJpegImage. А потом на форме рисую уже представителя этого класса, в моем случае перемненая (хотя скорее объект) jpeg. С ico не имел дела, не уверен, что его можно нарисовать....

Тьфу, что вы вообще паритесь? киньте на форму TImage, и в него динамически грузите в ходе программы картинки (jpeg,bmp). И проблем не будет. Можно грузить из файла ресурсов, тогда все картинки будут валяться в экзешнике и не надо будет таскать с ним эти картинки. То есть вы просто создаете на форме image1:TImage, а потом пишете

Delphi
1
image1.Picture:=...

Я так в первоначальном варианте рисовал фон формы, но т.к. на некоторых компах лейблы и кнопки иногда проваливались под текстуру пришлось рисовать на канве. Но для маленькой картинки это идеальный способ.

Вместо точек имя файла или что?

Psilon · 11.04.2012, 18:54

LorDHeLeGaL, ну да, киньте на форму TImage, там в свойствах найдете этот пункт. Загрузите в него картинку (статически). Когда поймете, как это сделать, уже динамически попробуйте её менять

Ну а когда и это получится - смело суйте картинки в файл ресурсов и обращайтесь уже оттуда. Хотя может быть и плохой совет. В общем, вы сами просили

хоть правильное направление укажите. Буду благодарен безумно.

Направление таково: загружайте в TImage

Вместо точек естественно имя файла (абсолютный путь либо относительный, без адреса ищется в текущей папке, в общем, как обычно).

@LorDHeLeGaL · 11.04.2012, 19:02 **[ТС]**

Сообщение от Psilon

файл ресурсов и обращайтесь уже оттуда

А как обращаться?

Добавлено через 5 минут

Сообщение от Psilon

LorDHeLeGaL, ну да, киньте на форму TImage, там в свойствах найдете этот пункт. Загрузите в него картинку (статически). Когда поймете, как это сделать, уже динамически попробуйте её менять

Ну а когда и это получится - смело суйте картинки в файл ресурсов и обращайтесь уже оттуда. Хотя может быть и плохой совет. В общем, вы сами просили

Направление таково: загружайте в TImage

Вместо точек естественно имя файла (абсолютный путь либо относительный, без адреса ищется в текущей папке, в общем, как обычно).

Как обращаться к ресурсу...приведите код для примера...
И как вставлять картинку понятно.двойной клик и загрузить...
Но не понятно как динамически и как чтоб они менялись исходя из ранга...

Psilon · 11.04.2012, 19:08

Как обращаться к ресурсу

Delphi
1
2
3
4
5
6
7
8
procedure TMainForm.FormCreate(Sender: TObject);
var
  r:TResourceStream; 
begin
  jpeg:=TJPEGImage.Create; //Выделили память под картинку
  r:=TResourceStream.Create(HInstance,'BGround',RT_RCDATA); //Выгрузили ресурс в переменную r
  jpeg.LoadFromStream(r); //Загрузили ресурс из переменной r в jpeg
end;  //END OF PROCEDURE

Если коротко записать то же самое, то

Delphi
1
2
3
4
5
procedure TMainForm.FormCreate(Sender: TObject);
begin
  jpeg:=TJPEGImage.Create;
  jpeg.LoadFromStream(TResourceStream.Create(HInstance,'BGround',RT_RCDATA));
end;  //END OF PROCEDURE

Из дельфийского хелпа

Creates an instance of TResourceStream associated with a particular resource name and type.

Delphi syntax:

constructor Create(Instance: THandle; const ResName: string; ResType: PChar);

Description

Call Create to instantiate a TResourceStream, passing in parameters that identify the resource in a specified instance. TResourceStream finds the resource data and loads it into the Memory buffer for the TResourceStream.

The Instance parameter is the instance handle associated with the executable or shared library that contains the resource.

Note: Specifying resources by ID requires less memory than specifying resources by name.

The ResType parameter is a string identifying the type of the resource. Applications can define their own resource types and identify them by name in the .rc file. In addition, there are a number of predefined resource types (which reflect Windows resource types). To identify a resource that is one of the predefined resource types, set ResType to the appropriate value from the following table:

ResType Type of resource

RT_ACCELERATOR Accelerator table
RT_BITMAP Bitmap resource
RT_DIALOG Dialog box
RT_FONT Font resource
RT_FONTDIR Font directory resource
RT_MENU Menu resource
RT_RCDATA Application-defined resource (raw data)
RT_STRING String-table entry
RT_MESSAGETABLE Message-table entry
RT_CURSOR Hardware-dependent cursor resource
RT_GROUP_CURSOR Hardware-independent cursor resource
RT_ICON Hardware-dependent icon resource
RT_GROUP_ICON Hardware-independent icon resource

RT_VERSION Version resource

@LorDHeLeGaL · 11.04.2012, 19:12 **[ТС]**

Сообщение от Psilon

Delphi
1
2
3
4
5
6
7
8
procedure TMainForm.FormCreate(Sender: TObject);
var
  r:TResourceStream; 
begin
  jpeg:=TJPEGImage.Create; //Выделили память под картинку
  r:=TResourceStream.Create(HInstance,'BGround',RT_RCDATA); //Выгрузили ресурс в переменную r
  jpeg.LoadFromStream(r); //Загрузили ресурс из переменной r в jpeg
end;  //END OF PROCEDURE

Если коротко записать то же самое, то

Delphi
1
2
3
4
5
procedure TMainForm.FormCreate(Sender: TObject);
begin
  jpeg:=TJPEGImage.Create;
  jpeg.LoadFromStream(TResourceStream.Create(HInstance,'BGround',RT_RCDATA));
end;  //END OF PROCEDURE

Сразу же выдает ошибку после компиляции " Resource "Имя" not found...

Psilon · 11.04.2012, 19:19

LorDHeLeGaL, не знаю с чем может быть проблема. Вот мои исходники: покопайтесь, если хотите. Просто у меня стоит XE2, на нем добавление файл ресурсов сводится к кнопкам проект->добавить в файл ресурсов картинку или файл
Если хотите, скину ссылку на компилятор, он гораздо удобнее седьмой дельфи имо (благо версия 2012 года, а не 2006 как d7).

@LorDHeLeGaL · 11.04.2012, 19:38 **[ТС]**

Блин... трабл с этими картинками...прога написана.остались картинки мать его....

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@LorDHeLeGaL 2 / 2 / 0 Регистрация: 07.04.2012 Сообщений: 19

	Определение звания тестируемого 08.04.2012, 21:08. Показов 2269. Ответов 27 Метки нет (Все метки) Пользователь прошел тест. Получился рейтинг. Он записывается в Label (Вы набрали "Н-ое" кол-во баллов),по нажатию на кнопку Button . Но есть звания,(Новичок=0-5,Мастер=5-10,Профессионал=10-15 и т.д) т.е если он набрал от 0-5 баллов то в поле Label2 должно писаться "Новичок", если от 5-10 то туда же но "Мастер" и т.д например... Как мне сделать чтоб это записывалось...Как только я не пробовал(начинающий)не чего не получается... И чтоб при определенном звании выводилась картинка...соответствующая звании. Подскажите как мне это реализовать...хоть правильное направление укажите. Буду благодарен безумно. 0

@LorDHeLeGaL 2 / 2 / 0 Регистрация: 07.04.2012 Сообщений: 19
	11.04.2012, 19:38 [ТС]
	Блин... трабл с этими картинками...прога написана.остались картинки мать его.... 0