Имя: Пароль:
1C
1C 7.7
v7: Где ошибка в простом (ОЧЕНЬ простом) коде?
0 s-pc
 
20.08.11
21:59
Не судите строго. Я еще только "знакомлюсь" с 1с.

Наваял вот такую форму - http://rpdana.narod.ru/1c_xox.gif

Как видите, пока выдает ошибку, которую я не знаю как исправить.

Идентификатор кнопок там - к1, к2, к3 и т.д.

Код в конфигураторе вот такой
===
Перем ХОХ; // Крестик или Нолик  
Перем к; // Игровые кнопки  
Перем randomize ; // Случайное число  
Перем ИмяКнопки;  

// Генерируем случайное число и помещаем его в переменную "Ранд"
Функция Ранд(Парам=0)
   Если Парам<>0 Тогда
       randomize =Парам;
   КонецЕсли;
   Если Число(randomize )=0 Тогда
       randomize =Число(СтрЗаменить(""+ТекущееВремя(),":",""));
       randomize =(16807*randomize )%2147483647;
   КонецЕсли;
   randomize =(16807*randomize )%2147483647;
   randomize =макс(randomize ,-randomize );
   Возврат(randomize /2147483647);
КонецФункции

// Очищаем игровое поле и ставим свой нолик в случайную клетку
Процедура Начали()
   ХОХ="";
   Для КолКнопок = 1 ПО 9 Цикл  
       Шаблон("[Форма.к" + КолКнопок +".Заголовок(ХОХ)]");
       Шаблон("[Форма.к" + КолКнопок +".Доступность(1)]");
   КонецЦикла;
   ХОХ="О";
   Ранд = Окр(Ранд()*8,0)+1;
       Шаблон("[Форма.к" + Ранд +".Заголовок(ХОХ)]");
       Шаблон("[Форма.к" + Ранд +".Доступность(0)]");
   Форма.тИнфо.Заголовок ("Ваш ход!");
КонецПроцедуры

Процедура Играем(ИмяКнопки)  //  Вот тут ошибка. Надо (пока) просто присвоить крестик заголовку текущей кнопки
   ХОХ = "Х";
       Кнопка = Форма.ПолучитьАтрибут(ИмяКнопки);
       Кнопка.Заголовок(ХОХ);
       Кнопка.Доступность(0);
       Форма.тИнфо.Заголовок ("Ваш ход!");
КонецПроцедуры        

Процедура ПриОткрытии()   //
   Для КолКнопок = 1 ПО 9 Цикл  
       Шаблон("[Форма.к" + КолКнопок +".Заголовок()]");
       Шаблон("[Форма.к" + КолКнопок +".Доступность(0)]");
   КонецЦикла;
   СписокРейтиногов=СоздатьОбъект("СписокЗначений");
КонецПроцедуры
===

Где что нужно подправить, чтобы исправилось?
1 Rie
 
20.08.11
22:04
(0) В формулах кнопок - что стоит-то?
2 andrewks
 
20.08.11
22:06
имхо, в формуле кнопки тебе надо не ИмяКнопки писать, а непосредственно идентификатор
3 Rie
 
20.08.11
22:07
+(1) В формуле для кнопки к1 пишешь:
Играем("к1");
В формуле для кнопки к2 пишешь:
Играем("к2");
и т.д.
4 s-pc
 
21.08.11
00:18
(3) (2) Уф! Наконец-то! Очередное спасибо за помощь!
5 Мимохожий Однако
 
21.08.11
09:16
Теперь сделай тоже самое с использованием таблицы на форме :-)
6 aka AMIGO
 
21.08.11
09:48
ОФФ, милле пардоне! :))

s-pc , расскажи, пожалуйста, что это за ресурс такой:

rpdana.narod.ru

и почему он дико извиняется, т.к. страница в разработке?

зы. ну, не знаю я.. инет - кладезь чудес, где мне все распознать :)
7 andrewks
 
21.08.11
10:06
(6) это ж тындексовский хостинг
8 aka AMIGO
 
21.08.11
11:38
(7) а, увидел :)