NedoPC

MISTER_BEEP wrote:Doooobra men, powiem Ci, jak zwyczajny user - NI CHUJA z tego nie pojmuje.
Siedze tu i flashuje juz 2 godziny - i NIC sie nie dzieje, zadne demo nie dziala.
Sorry - I give up. Profesorem trzeba byc, zeby tego uzywac.
To jednak nie dla mnie. :-\
Ale zycze powodzenia w pracy.
Pozdrawiam.

TS-Labs wrote:Chyba jestes malarzem
Trudno. Wersja raczej testowa, a opisu nie ma w ogole. Niedlugo zrobie z tym porzadek, to napewno.

lvd wrote:А давайте все сюда писать на произвольных езыгах

Code: Select all

Процедура КодингПодЦКонфу()
   Док=СоздатьОбъект("Справочник.Мануал");
   Если (ГлУнриалСуппортед(Перечисления.Конфы.ЦКонфа)=0)
      или (Док.НайтиПоРеквизиту("Создатель","TS-Labs",1)=0) Тогда
      Сообщить("Кодеры нот суппортет сабж!!!");
      Возврат;
   КонецЕсли;
   АсмСтрока=1;
   Пока 1=1 Цикл
      Состояние("Кодю под ЦКонфу строку № "+Строка(АсмСтрока));
      АсмСтрока=АсмСтрока+1;
      ГлКодинг(Перечисления.Конфы.ЦКонфа);
   КонецЦикла;
КонецПроцедуры

Code: Select all

: depack-dobits ( -- f )

   2 depack-getbits

   case

   0 of
      1
      3 depack-getbits -8 or
   endof

   1 of
      2
      depack-bytedisp
   endof

   2 of
      3
      depack-bigdisp
   endof
   
   3 of
      depack-biglen
      dup 0> if
         depack-bigdisp
      else
         invert exit
      endif
   endof
   
   endcase


   depack-repeat
   0
;


MISTER_BEEP wrote:NI CHUJA z tego nie pojmuje.

Siedze tu i flashuje juz 2 godziny - i NIC sie nie dzieje, zadne demo nie dziala.
...
Profesorem trzeba byc, zeby tego uzywac.