[l2d808]

Уважаемые, а Генератор Случайных чисел в 1с7,7 существует? а то нада,а нету. ))) Спасиба заранее за помощь.

[logist]

Уважаемые, а Генератор Случайных чисел в 1с7,7 существует? а то нада,а нету. ))) Спасиба заранее за помощь.

Встроенной функции нет.
p.s. после камеры, уже даже боюсь спросить зачем )

[-=VJ=-]

Уважаемые, а Генератор Случайных чисел в 1с7,7 существует? а то нада,а нету. ))) Спасиба заранее за помощь.

[необходимо зарегистрироваться для просмотра ссылки]

Это же элементарная алгоритмическая задача.

Сообщение отредактировал -=VJ=- - 01.07.11, 13:04

[logist]

Вот нарыл такую штуку:

// СлучайноеЧисло(Знач Предел=1)
//
// Параметры:
//  Знач Предел=1
//
// Возвращаемое значение:
//  Случайное число в диапазоне:
//   0~1, если Предел равен 1;
//   1~Предел если Предел больше 1
//
Функция СлучайноеЧисло(Знач Предел=1)
    ScrCtrl=CreateObject("MSScriptControl.ScriptControl"); 
    ScrCtrl.Language="VBscript"; 
    ScrCtrl.ExecuteStatement("randomize");   
    СлучайноеЧисло=ScrCtrl.Eval("rnd");
    Если Предел>1 Тогда
        СлучайноеЧисло=1+Цел(СлучайноеЧисло*Цел(Предел));
    КонецЕсли;
    Возврат СлучайноеЧисло;
КонецФункции // СлучайноеЧисло()

[l2d808]

Встроенной функции нет.
p.s. после камеры, уже даже боюсь спросить зачем )

Фото Проще именовать для сохранения.
А в суме у меня вышел такой монстр:

Процедура Фото()
Перем ИмяФайла;
Перем oDevice[5];
Sc=CreateObject("MSScriptControl.ScriptControl"); 
Sc.language="VBscript"; 
sc.executeStatement("randomize");   
Код=Sc.eval("rnd"); 
   ИмяФайла=КаталогИБ()+"Photo\test\"+СокрЛП(Код)+".jpg"; 
   Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда
      ФС.УдалитьФайл(ИмяФайла);
   КонецЕсли;
   Device = CreateObject("WIA.DeviceManager");
   Количество = Device.DeviceInfos.Count;
   Для К=1 По Количество Цикл
      Если Device.DeviceInfos(к).Type = 3 Тогда
         Попытка
            oDevice[к] = Device.DeviceInfos(к).Connect();
         Исключение
            oDevice[к] = 0;
         КонецПопытки;
      Иначе
         oDevice[к] = 0;
      КонецЕсли;
   КонецЦикла;
    
   Для К = 1 По Количество Цикл
      Если oDevice[к] <> 0 Тогда
         Item = oDevice[к].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");  
         Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
         Image.SaveFile(ИмяФайла);
      КонецЕсли;
   КонецЦикла;
КонецПроцедуры

Но вот маленькая неувязка. Через 4-5 фотографий 1с орет память не может быть read и банально вырубается. Не подскажите по какой причине?

[Vofka]

Ёк-макарёк, ну а это что: http://pro1c.org.ua/index.php?showtopic=2909

[l2d808]

Ёк-макарёк, ну а это что: http://pro1c.org.ua/index.php?showtopic=2909

Спасибо Вам ОГРОМНОЕ.

[Vofka]

Тему закрываю. А насчет "А в суме у меня вышел такой монстр" продолжаем здесь: http://pro1c.org.ua/index.php?showtopic=3972