Вторник, 23 Апреля 2024, 15:05

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
Форум игроделов » Записи участника » masb8ly-GC [293]
Результаты поиска
masb8ly-GCДата: Пятница, 16 Декабря 2011, 17:08 | Сообщение # 261 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Я же тебе говорил, что нужно делать не and, а или то или то! А потом добавлять and'ы по остальным комбобоксам!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Среда, 14 Декабря 2011, 23:56 | Сообщение # 262 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Лишний else стоит)
Code
procedure TForm1.Button1Click(Sender: TObject);  
  begin  
  f:=combobox1.items[combobox1.itemindex];  
  if (f='Îñêåìåí') then v:=1  
  ELSE  
  if (f='Àñòàíà') then v:=2  
  else  
  if (f='Àëìàòà') then v:=3;  
  if (v=1)  then  
  label1.Caption:='lala';  

  end;
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Среда, 14 Декабря 2011, 20:56 | Сообщение # 263 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Давай я инвайт уже кинул... Если какойто трабл случился добавляйся: 617955154

Добавлено (14.12.2011, 16:56)
---------------------------------------------
Здравствуйте! На выходных командное соревнование и я решил посмотреть задания за прошлый год. Оказалось, что почти за все прошедшие года задания одинаковы, попытался решить и возникла проблема. Нужно написать генератор выражений, но обычный random использовать не получится, т.к. генератор это часть системы тренировки устного счета. А система должна работать на большое количество людей до 10. Если использовать обычный рандом, то у всех 10 человек получится одинаковое выражение. Как решить проблему?

Добавлено (14.12.2011, 20:56)
---------------------------------------------
Уже решил проблему. Забыл про randomize;

Code
procedure TForm1.btn1Click(Sender: TObject);
begin
   Randomize;
   for i:= 1 to 10 do
   begin
     c1:=Random(99);
     c2:=Random(99);
     c3:=Random(99);
     rz[i]:='('+FloatToStr(c1)+'*'+FloatToStr(c1)+'+'+FloatToStr(c2)+'*'+FloatToStr(c2)+')'+'/'+FloatToStr(c3);
     lbl1.Caption:=rz[i]+#13#10+rz[2];
   end;
end;
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:56 | Сообщение # 264 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Не за что!)
Аська есть? Если, что буду помогать в более удобном режиме. Та которая у тебя в профиле активна?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:48 | Сообщение # 265 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Тогда так:
Code

procedure TForm1.Button1Click(Sender: TObject);    

    begin    
    s:='a';
    l := cbb1.Items[cbb1.ItemIndex];
    if (l:='Блоха') then    
    label1.Caption:=s;    

end;


Добавлено (13.12.2011, 23:48)
---------------------------------------------
Немного поправил код, там неправильно l присвоил!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games

Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:49
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:41 | Сообщение # 266 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Тебе же нужно присвоить "s" значение переменной "a". А ты присваиваешь значение символа.

Добавлено (13.12.2011, 23:41)
---------------------------------------------
TimKruz, Благодарю все заработало! Просто на выходных олимпиада областная(участвую сразу в двух областных по программированию: соло и командное), и вот решил подогнать немного Object)

Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:31 | Сообщение # 267 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Тоже самое(
Кнопка по умолчанию не активна, первый раз становится активной, но во второй раз не деактивируется!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:18 | Сообщение # 268 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Спасибо уже разобрался, просто в скобки взял)
Теперь другая проблема, после того как я его вывел из Имя игрока, но потом передумал и опять изменил на Имя игрока, то кнопка всеравно активна, хотя в коде вроде все правильно:
Code
procedure TForm1.edt11Change(Sender: TObject);
begin
    if not (edt1.Text='Имя игрока') then btn1.Enabled:=True
    else
    if (edt1.Text='Имя игрока') then btn1.Enabled:=False;
end;

Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games

Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:19
masb8ly-GCДата: Вторник, 13 Декабря 2011, 23:09 | Сообщение # 269 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Тебе нужно куда, то вывести, что он выбрал или поставить какое-то условие? Тоесть допустим, если он выбрал блоху, то совершать определенные действия! Если так, то:
Code
if (s='Блоха') then
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games

Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:13
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 23:12 | Сообщение # 270 | Тема: Лучший язык из семейства
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Я говорю чисто с своей точки зрения. Просто между языком среднего уровня и высокого уровня не огромная разница, тем более, что Шарп это последователь плюсов и явы, даже не последователь, а новая ветвь. А если человек будет усердно учить язык и практиковатся в нем, то особой разницы не будет, ИМХО.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 22:41 | Сообщение # 271 | Тема: Лучший язык из семейства
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Здесь все зависит от личных пристрастий! На чем будет легче реализовывать поставленные задачи. Шарп и плюсы находятся приблизительно на одном уровне сложности, если вникать не поверхностно, а глубоко.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 22:38 | Сообщение # 272 | Тема: Как назвать эту фигуру
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Элипсоидный спиральный цикл закрытого типа я думаю) А так четкого названия у данной фигуры скорее всего нет)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 22:35 | Сообщение # 273 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Не за что) Если, что обращайся!)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 22:05 | Сообщение # 274 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Напиши конкретно, что требуется шаг за шагом. Просто ItemIndex указывает на выбранный элемент! Тебе нужно присвоить переменной значение выбранного элемента на данный момент или тебе нужно просто присвоить значение первого элемента? Если да, то возможно так: s:=cbb1.Items[0];
Ноль потому, что нумерация в комбо боксе начинается с нуля, а не с одного!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 21:22 | Сообщение # 275 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Тип данных? Стринг же.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 19:42 | Сообщение # 276 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Quote (TimKruz)
masb8ly-GC, у тебя в переменную s перейдёт значение поля, выбранного пользователем, а ему нужно наоборот.

Уже понял)
Просто не понял сразу, что нужно, хотя перевернуть мой код не очень сложно)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Понедельник, 12 Декабря 2011, 18:25 | Сообщение # 277 | Тема: Delphi:Вопрос-Ответ
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Quote (arys)
Всем привет! Плиз помогите,очень надо. Так вот : как можно тексту из списка combo.box назначить переменную???

S := cbb1.Items[cbb1.ItemIndex];
cbb1 это ComboBox1 biggrin
Или тебе нужно, чтобы висела конкретная переменная на конкретном Item'е?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games

Сообщение отредактировал masb8ly-GC - Понедельник, 12 Декабря 2011, 18:26
masb8ly-GCДата: Воскресенье, 11 Декабря 2011, 20:42 | Сообщение # 278 | Тема: Программа "Жизнь"
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Спасибо за помощь, попозже подумаю над эти! Сейчас просто вплотную занят подготовкой к областной олимпиаде, времени совсем не много))
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Воскресенье, 11 Декабря 2011, 13:43 | Сообщение # 279 | Тема: Turbo Pascal 7.0 Ошибка в переменной.
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Quote (Naigelgog)
И да, достаточно большую программу на строк сто можно написать и без описания типов.

Ну на счет тайпов это кому как привычнее и удобнее. А вот, что достаточно большая программа умещается в 100 строк для меня сюрприз)
Не поделитесь, что делает ваша программа?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
masb8ly-GCДата: Четверг, 08 Декабря 2011, 21:26 | Сообщение # 280 | Тема: Turbo Pascal 7.0 Ошибка в переменной.
постоянный участник
Сообщений: 258
Сейчас нет на сайте
Попробуй все эти операторы описать в цикле!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
Форум игроделов » Записи участника » masb8ly-GC [293]
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг