Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

Выбор процедуры   Найти похожие ветки 

 
Der Nechk@ssoff ©   (2006-03-07 12:13) [0]

Здраствуйте!У меня вот какая ситуация: мне надо сделать так что бы при нажатии на RadioButton компонент image1 перемещался влево(вправо,вверх и вниз-это несколько процедур) и чтобы прога каждый раз произвольно выбирала процедуру.Спасибо большое!


 
tesseract ©   (2006-03-07 12:18) [1]

Меняй обработчик onClick после нажатия в чем сложность?


 
Плохиш ©   (2006-03-07 12:22) [2]


> Der Nechk@ssoff ©   (07.03.06 12:13)  
> Здраствуйте!У меня вот какая ситуация: мне надо сделать
> так что бы при нажатии на RadioButton компонент image1 перемещался
> влево(вправо,вверх и вниз-это несколько процедур) и чтобы
> прога каждый раз произвольно выбирала процедуру.

Randomize/Random/If/Case


 
Der Nechk@ssoff ©   (2006-03-07 12:23) [3]

>Меняй обработчик onClick после нажатия в чем сложность?
На что поменять?


 
tesseract ©   (2006-03-07 12:27) [4]

onclick:=RandomClick1;

где Randomclick1/2/3 процедура класса TNotifyEvent.


 
Der Nechk@ssoff ©   (2006-03-07 13:28) [5]

Вот проблемный кусок текста:

procedure TForm1.Button1Click (sender:Tobject);
begin
Radiobutton4.Enabled:=true;
Radiobutton3.Enabled:=true;
image1.Visible:=false;

image1.Left:=128;\
                          прога должна выбрать одну из этих процедур
image1.Left:=248;/

end;


 
Плохиш ©   (2006-03-07 13:45) [6]


>                           прога должна выбрать одну из этих процедур

Алгоритм выбора надо запрограммировать, а "прога" не может ничего выбрать.


 
Der Nechk@ssoff ©   (2006-03-07 13:53) [7]

А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!


 
Leonid Troyanovsky ©   (2006-03-07 13:59) [8]


> Der Nechk@ssoff ©   (07.03.06 13:53) [7]
> А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!


Кого "ее"? "Алгоритм", "выбор" - муж. рода.

> image1.Left:=128;\
> прога должна выбрать одну из этих процедур

Процедур? Хм. Здесь, при развитой фантазии, можно увидить
вызов метода (муж. рода).
Кстати, вызов-то один, только параметры различаются - 128, 248.

--
Regards, LVT.


 
Der Nechk@ssoff ©   (2006-03-07 14:10) [9]

Хватит цеплятся за слова!Лучше помогите начинающему!


 
Virgo_Style ©   (2006-03-07 14:32) [10]

Лучше бы за эти два дня почитал что-нибудь, тогда бы проблема решилась за две минуты, и жуткая туча будущих проблем тоже


 
Leonid Troyanovsky ©   (2006-03-07 14:38) [11]


> Der Nechk@ssoff ©   (07.03.06 14:10) [9]
> Хватит цеплятся за слова!Лучше помогите начинающему!


Чем же помочь болезному, если он двух слов связать не может.

--
Regards, LVT.


 
tesseract ©   (2006-03-07 14:53) [12]


var myRandom:integer;

Randomize;

myRandom:=Random(50);

case  myRandom of
1..10: image.left:=148;
11..20:image.left:=248;
21..30:image.left:=348;
31..40: image.left:=448;
end;



 
Плохиш ©   (2006-03-07 14:59) [13]


> tesseract ©   (07.03.06 14:53) [12]

А почему не Randow(5)? И что делать для myRandom in [0,41..49]?


 
tesseract ©   (2006-03-07 15:00) [14]


> А почему не Randow(5)? И что делать для myRandom in [0,41.
> .49]?

Слушай вслепую набивал, по RandoW (infinite).


 
Der Nechk@ssoff ©   (2006-03-07 15:00) [15]

Слава великому tesseract!Спасибо!


 
Der Nechk@ssoff ©   (2006-03-07 16:00) [16]

Вот.Помогите исправить ошибки-сам никак!("?"-ошибки)
procedure TForm1.Button1Click (sender:Tobject);
var

Random:integer;

Randomize:

Random?:=Random (?30);

case?  button1click of;
1..10: image.left:=148;
11..20:image.left:=248;
21..30:image.left:=0;

Radiobutton3.Enabled:=true;
Radiobutton2.Enabled:=true;
image1.Visible:=false;
end;


 
Virgo_Style ©   (2006-03-07 16:21) [17]

СРОЧНО [10]


 
Der Nechk@ssoff ©   (2006-03-07 16:29) [18]

Значком -"?"- помечены места где Delphi выдает ошибки при компиляции.


 
Плохиш ©   (2006-03-07 16:32) [19]


> Random?:=Random (?30);

Ни на какие мысли не наводит? Тогда бегом читать описание языка Pascal, в особенности структуру названия переменных/функций.


 
Сергей М. ©   (2006-03-07 16:39) [20]


> Значком -"?"- помечены места где Delphi выдает ошибки при
> компиляции.


Вместо значка "?" в тексте твоей программы должен присутствовать идентификатор константы или переменной ординального типа, например

var ЧертТеЧтоИсбокуБантик: Integer;

case ЧертТеЧтоИсбокуБантик of


 
Der Nechk@ssoff ©   (2006-03-07 17:46) [21]

В скобках указаны типы ошибок которые Delphi выдает при компиляции.(перечитал все что нашел дома-ничего не нашел!)

procedure TForm1.Button1Click (sender:Tobject);
var

random:integer;

Randomize:

button1click(Constant or type identifier expected)</B>:=(";" expected but ":=" found)Random (3);

case(Declaration expected but "CASE" found) button1click  of;
1: image.left:=148;
2:image.left:=248;
3:image.left:=0;


 
Der Nechk@ssoff ©   (2006-03-07 17:47) [22]

В скобках указаны типы ошибок которые Delphi выдает при компиляции.(перечитал все что нашел дома-ничего полезного не нашел!)

procedure TForm1.Button1Click (sender:Tobject);
var

random:integer;

Randomize:

button1click(Constant or type identifier expected):=(";" expected but ":=" found)Random (3);

case(Declaration expected but "CASE" found) button1click  of;
1: image.left:=148;
2:image.left:=248;
3:image.left:=0;


 
Плохиш ©   (2006-03-07 18:35) [23]


> Der Nechk@ssoff ©   (07.03.06 17:47) [22]

Как же тебе помочь, если ты даже не в состоянии работающий пример из [12] в свою програмулину скопировать?


 
Der Nechk@ssoff ©   (2006-03-07 18:38) [24]

Это он есть[12] но ошибки лезут!


 
Плохиш ©   (2006-03-07 18:40) [25]


> Der Nechk@ssoff ©   (07.03.06 18:38) [24]
> Это он есть[12] но ошибки лезут!

Врёшь, нагло врёшь, гражданин дворник.


 
Nsk3d ©   (2006-03-07 19:11) [26]

Попробуй скомпилировать прогу с таким кодом:

random:integer;

Randomize:

button1click:=Random (3);

case button1click  of;
1: image.left:=148;
2:image.left:=248;
3:image.left:=0;


button1click:(тут ошибка)=(тут ошибка№2)Random (3);

case(тут ошибка№3) button1click  of;


 
Плохиш ©   (2006-03-07 19:16) [27]


> Nsk3d ©   (07.03.06 19:11) [26]
> Попробуй скомпилировать прогу с таким кодом:

Зачем? Это дерьмо, которое ты сдесь напИсал никакого отношения к [12] не имеет.


 
Der Nechk@ssoff ©   (2006-03-08 16:54) [28]

ВОТ.Помогите исправить 2-е последние ошибки(Ошибки в скобках):

procedure TForm1.Button1Click (sender:Tobject);
var
random:double;

Randomize:

double:(";" expected but ":" found) random(3);

case (Declaration expected but "CASE" found) double of

1: image.left:=148;
2:image.left:=248;
3:image.left:=0;


 
EvS   (2006-03-08 17:10) [29]

Для начала:
>random:double;
>double:random(3);
>case double of
что в вашем понимании означают эти строки в вашего кода?


 
Der Nechk@ssoff ©   (2006-03-08 17:20) [30]

Если честно то не знаю,но при этой комбинации ошибки не лезут.
Вы помогите исправить вышеописаные ошибки,а там я сам разберусь...


 
tesseract ©   (2006-03-08 17:31) [31]


> double:(";" expected but ":" found) random(3);

написано - у тебя вместо точки с запятой стоит двоеточие.
переменная должна быть не random это же стандартная функция!!!!, а любой другой в примере myRandom стоит совершенно не напрасно.
double слово также зарезервированное. Почему тебя  здесь не MyRandom ?


 
EvS   (2006-03-08 17:45) [32]

>[30] Der Nechk@ssoff ©   (08.03.06 17:20)
все понятно.
Держи:
procedure TForm1.Button1Click (sender:Tobject);
var MyRandom:Integer;
begin
Randomize;
MyRandom:=random(3);
case MyRandom of
1: image.left:=148;
2:image.left:=248;
3:image.left:=0;
end;
End;


 
Der Nechk@ssoff ©   (2006-03-08 17:48) [33]

А можно по конкретнее что надо сделать?


 
Der Nechk@ssoff ©   (2006-03-08 17:51) [34]

Спасибоооооооооо!!!!!!!Работает!!!!!!!!!!!!!!!УРА!МАСТЕРАМ!!!


 
tesseract ©   (2006-03-08 17:51) [35]


> Der Nechk@ssoff ©   (08.03.06 17:48) [33]

Где ???????? Evs тебе чз какой рабочий код показывает. Внимательней пользуйся.


 
Der Nechk@ssoff ©   (2006-03-08 18:01) [36]

Да когда он код вставлял я писал сообщение.
Спасибо Всем!!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.53 MB
Время: 0.045 c
3-1138799085
kizam
2006-02-01 16:04
2006.03.26
db->dbf


4-1136275749
Arazel
2006-01-03 11:09
2006.03.26
Как присвойть лог. диску другую букву?


1-1140346133
-matrix-
2006-02-19 13:48
2006.03.26
Проблема поиска


15-1141160136
TStas
2006-02-28 23:55
2006.03.26
Кстати, была интересная ветка про возведение в встепень


2-1141973054
Елена
2006-03-10 09:44
2006.03.26
Работа с динамическими компонентами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский