Re: Проконсультируйте пожалуйста (начинающий программист)

LorDHeLeGaL · #61 12.04.2012, 14:41

А статусы кстати не продуманы на портале...кто мне по программированию линканет спасибо....ведь новичок я

Jlovenpk1|seyu · #62 12.04.2012, 15:45

Как сказал мне мой друг программист(он зараза вебник) без аналитического склада ума, в программисты соваться вообще не стоит.
Точно не могу утверждать про тебя.
Я сначала придумаю функцию допустим я захотел:
1. Человек добился там 300 очков и за это ему дадут звание - СнайпеРок.
Затем я думаю, как примерно будет выглядеть код(на русском думаю потом гугл мучаю)
Если коунт плауер 1 = 300
То плауер 1 группа - Снайперок.
А дальше уже ищи примерный код.
Если ты реально начинающий программист(как и я :3). Дам тебе совет - Решай одну и ту же задачу 10 раз, нежели 10 разных задач.
создал калькулятор - модифицировал, модфицировал? - еще раз модифицировал.
И так интереснее

LorDHeLeGaL · #63 12.04.2012, 16:06

Цитата:

Сообщение от Jlovenpk1|seyu

Как сказал мне мой друг программист(он зараза вебник) без аналитического склада ума, в программисты соваться вообще не стоит.
Точно не могу утверждать про тебя.
Я сначала придумаю функцию допустим я захотел:
1. Человек добился там 300 очков и за это ему дадут звание - СнайпеРок.
Затем я думаю, как примерно будет выглядеть код(на русском думаю потом гугл мучаю)
Если коунт плауер 1 = 300
То плауер 1 группа - Снайперок.
А дальше уже ищи примерный код.
Если ты реально начинающий программист(как и я). Дам тебе совет - Решай одну и ту же задачу 10 раз, нежели 10 разных задач.
создал калькулятор - модифицировал, модфицировал? - еще раз модифицировал.
И так интереснее

Мне хватает желания научиться,я каждый день узнаю массу нового,стараюсь все практиковать в 3-5 моих реализациях(примерах) учу,и думаю азы освою,есть много идей и второй программой я сделаю автоподключение к интернету при отключении!Плевать на все

С Вами я научусь!!!

Jlovenpk1|seyu · #64 12.04.2012, 16:14

ну-с я научить хорошему не могу))

люблю вирусы.

angvelem · #65 12.04.2012, 21:21

Цитата:

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

Как же все таки картинки сделать которые выводились с новым статусом...динамически...

Несколько не понял, что требуется?

LorDHeLeGaL · #66 13.04.2012, 09:14

Цитата:

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

Несколько не понял, что требуется?

Ну чтоб ниже выводились картинки.При нажатии на кнопку "Посчитать"...они маленькие и я их сделал в png...

LorDHeLeGaL · #67 13.04.2012, 15:18

И чтоб при нажатии "Функция посадить в тюрьму" рассчитывалась например с рейтинга 50...

nixel · #68 13.04.2012, 21:12

Цитата:

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

Ну чтоб ниже выводились картинки.При нажатии на кнопку "Посчитать"...они маленькие и я их сделал в png...

Товарищ, больше конкретики.
судя по предыдущему обсуждению, вам нужно чтобы при выводе результата (который текстом в кэпшн лэйбла) в некий, например, timage выводилась картинка.
ну так и используйте ту конструкцию, что я привел в начале обсуждения:

Код:

case count of
0..5: begin
          Label2.Caption := 'Новичек';
          Image1.Picture.Bitmap.LoadFromFile("путь_к_файлу_с_няшной_картинкой.png");
        end;
6..10: begin
        //и так далее для всего остального
........
end;

код приведен для платформы vcl.

angvelem · #69 13.04.2012, 21:35

Цитата:

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

Ну чтоб ниже выводились картинки.При нажатии на кнопку "Посчитать"...они маленькие и я их сделал в png...

Понятного стало ещё меньше. Тогда уж рисунком приведите, что должно получиться.

LorDHeLeGaL · #70 13.04.2012, 21:55

Цитата:

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

Понятного стало ещё меньше. Тогда уж рисунком приведите, что должно получиться.

http://s019.radikal.ru/i621/1204/0f/9840fc898f3f.jpg

angvelem · #71 13.04.2012, 22:09

Код от Nixel подходит в самый раз:

Код:

  case J of
    0..5           : 
    begin
      lblPrestige.Caption := 'Новичок';
      Image1.Picture.LoadFromFile('новичок.jpg'); 
    end;
    6..10          : lblPrestige.Caption := 'Бывалый(ая)';
    11..15         : lblPrestige.Caption := 'Уважаемый(ая)';
    16..20         : lblPrestige.Caption := 'Мастер';
    21..25         : lblPrestige.Caption := 'Профессионал(ка)';
    26..50         : lblPrestige.Caption := 'Гуру';
    51..100        : lblPrestige.Caption := 'Неприкасаемый(ая)';
    101..500       : lblPrestige.Caption := 'Папа/Мама';
    501..1000      : lblPrestige.Caption := 'Ангел';
    1001..5000     : lblPrestige.Caption := 'Бог/Богиня';
    5001..10000    : lblPrestige.Caption := 'Всемогущий(ая)';
    10001..50000   : lblPrestige.Caption := 'Mister/Miss';
    50001..100000  : lblPrestige.Caption := 'Легенда';
    100001..500000 : lblPrestige.Caption := 'Премьер';// тут нужные значения и их звания
  else
    lblPrestige.Caption := 'Супер';
  end;

и так добавить везде или продублировать так:

Код:

  case J of
    0..5           : Image1.Picture.LoadFromFile('новичок.jpg');
    6..10          : Image1.Picture.LoadFromFile('Бывалый.jpg');
    11..15         : Image1.Picture.LoadFromFile('Уважаемый.jpg');
    16..20         : Image1.Picture.LoadFromFile('Мастер'.jpg');
    21..25         : Image1.Picture.LoadFromFile('Профессионал.jpg');
    26..50         : Image1.Picture.LoadFromFile('Гуру.jpg');
    51..100        : Image1.Picture.LoadFromFile('Неприкасаемый.jpg');
    101..500       : Image1.Picture.LoadFromFile('Папа.jpg');
    501..1000      : Image1.Picture.LoadFromFile('Ангел.jpg');
    1001..5000     : Image1.Picture.LoadFromFile('Бог.jpg');
    5001..10000    : Image1.Picture.LoadFromFile('Всемогущий.jpg');
    10001..50000   : Image1.Picture.LoadFromFile('Mister.jpg');
    50001..100000  : Image1.Picture.LoadFromFile('Легенда.jpg');
    100001..500000 : Image1.Picture.LoadFromFile('Премьер'.jpg');
  else
    Image1.Picture.LoadFromFile('Супер.jpg');
  end;

это уж как понравится.

LorDHeLeGaL · #72 13.04.2012, 22:18

Цитата:

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

Код от Nixel подходит в самый раз:

Код:

  case J of
    0..5           : 
    begin
      lblPrestige.Caption := 'Новичок';
      Image1.Picture.LoadFromFile('новичок.jpg'); 
    end;
    6..10          : lblPrestige.Caption := 'Бывалый(ая)';
    11..15         : lblPrestige.Caption := 'Уважаемый(ая)';
    16..20         : lblPrestige.Caption := 'Мастер';
    21..25         : lblPrestige.Caption := 'Профессионал(ка)';
    26..50         : lblPrestige.Caption := 'Гуру';
    51..100        : lblPrestige.Caption := 'Неприкасаемый(ая)';
    101..500       : lblPrestige.Caption := 'Папа/Мама';
    501..1000      : lblPrestige.Caption := 'Ангел';
    1001..5000     : lblPrestige.Caption := 'Бог/Богиня';
    5001..10000    : lblPrestige.Caption := 'Всемогущий(ая)';
    10001..50000   : lblPrestige.Caption := 'Mister/Miss';
    50001..100000  : lblPrestige.Caption := 'Легенда';
    100001..500000 : lblPrestige.Caption := 'Премьер';// тут нужные значения и их звания
  else
    lblPrestige.Caption := 'Супер';
  end;

и так добавить везде или продублировать так:

Код:

  case J of
    0..5           : Image1.Picture.LoadFromFile('новичок.jpg');
    6..10          : Image1.Picture.LoadFromFile('Бывалый.jpg');
    11..15         : Image1.Picture.LoadFromFile('Уважаемый.jpg');
    16..20         : Image1.Picture.LoadFromFile('Мастер'.jpg');
    21..25         : Image1.Picture.LoadFromFile('Профессионал.jpg');
    26..50         : Image1.Picture.LoadFromFile('Гуру.jpg');
    51..100        : Image1.Picture.LoadFromFile('Неприкасаемый.jpg');
    101..500       : Image1.Picture.LoadFromFile('Папа.jpg');
    501..1000      : Image1.Picture.LoadFromFile('Ангел.jpg');
    1001..5000     : Image1.Picture.LoadFromFile('Бог.jpg');
    5001..10000    : Image1.Picture.LoadFromFile('Всемогущий.jpg');
    10001..50000   : Image1.Picture.LoadFromFile('Mister.jpg');
    50001..100000  : Image1.Picture.LoadFromFile('Легенда.jpg');
    100001..500000 : Image1.Picture.LoadFromFile('Премьер'.jpg');
  else
    Image1.Picture.LoadFromFile('Супер.jpg');
  end;

это уж как понравится.

не выводит

angvelem · #73 13.04.2012, 22:28

Понятно что не выводит. Я ведь название картинок от "фонаря" писал, нужно подставить реальные названия. да и вместо Image1 может используется другой Image.

LorDHeLeGaL · #74 13.04.2012, 22:29

Цитата:

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

Понятно что не выводит. Я ведь название картинок от "фонаря" писал, нужно подставить реальные названия. да и вместо Image1 может используется другой Image.

Не дурак

Код:

100001..500000 : Image9.Picture.LoadFromFile('1.jpg');

Хотя кажется не хватает полного путя до файла

nixel · #75 13.04.2012, 22:32

Цитата:

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

Не дурак

Код:

100001..500000 : Image9.Picture.LoadFromFile('1.jpg');

Хотя кажется не хватает полного путя до файла

если файл картинки не в папке с ехе или проектом, то да, либо абсолютный путь, либо хранить картинку в ресурсах и загружать оттуда.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Jlovenpk1\|seyu за это полезное сообщение:
LorDHeLeGaL (12.04.2012)

Этот пользователь сказал Спасибо nixel за это полезное сообщение:
LorDHeLeGaL (13.04.2012)

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
LorDHeLeGaL (13.04.2012)