Нанопечать RFID-меток возможно станет альтернативой штрих-коду на товарах. До настоящего времени радиочастотные метки изготавливались на кремниевой основе. Использование пластика или бумаги в качестве исходного материала, а также поддержка «рулонной» печати поможет многократно сократить затраты на производство этих компонентов. Ключевым компонентом новой технологии являются особые чернила для струйного принтера, содержащие углеродные нанотрубки. Эти чернила используются для создания тонкопленочных транзисторов, которые в свою очере
дь являются основой для пассивных RFID-меток, содержащих до 16 бит информации и наносимых на бумагу или пластик методом печати.

Это заметка с третьего выпуска журнала “ПРОграммист”.
Скачать этот выпуск можно по ссылке.
Ознакомиться со всеми номерами журнала.

От ведущего рассылки.

Приветствую Вас в Клубе ПРОграммистов!! Сегодня выходит очередной 59 выпуск рассылки от клуба.
Сегодня, как обычно, у нас интересные темы на форуме. Плюс вышел очередной выпуск журнала ПРОграммист. Поэтому будут интересные факты с журнала и одна статья, которая лично мне очень пригляделась.
У журнала ПРОграммист появился личный веб сайт. Советую посетить http://procoder.info/

(читать всё…)

procedure TForm1.InExel1Click(Sender: TObject);
Var
a1:string;
XLApp,Sheet,Colum:Variant;
n2:integer;
begin
XLApp:=CreateOleobject('Excel.Application');
XLApp.Visible:=true;
XLApp.workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Товар';
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Columns;

N2:=1;
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=30;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=9;
Sheet:=XLApp.Workbooks[1].WorkSheets['Товар'];
Sheet.Cells[n2,1]:=' ';
Sheet.Cells[n2,2]:=' ';
Sheet.Cells[n2,3]:=' ';
Sheet.Cells[n2,4]:=' ';
   Table1.First; //ВЫВОД В ТАБЛИЦУ
   end;

Тема на форуме.

Private Sub Document_New()
Dim a As Single
a = InputBox(”Введите текст”, “Enter”)
Selection.TypeText Text:=”Вы ввели текст” + Str(a) + Chr(13) + Chr(10)
Selection.TypeText Text:=”Перевернутый вариант” + StrReverse(a)
End Sub

Посмотреть на форуме.

Телефон, читающий по губам продемонстрировала на выставке CeBIT 2010 группа исследователей из  технологического института города Карлсруэ (Германия). Технология позволит владельцам сотовых телефонов обмениваться информацией по телефону, не издавая ни единого звука.

Устройство использует методику электромиографии (применяется для диагностики некоторых нервных заболеваний), то есть измеряет электрическую активность движений мышц лица во время разговора. Крошечные электрические сигналы, производимые лицевыми мышцами, оно записывает даже тогда, когда человек вообще беззвучно воспроизводит слова. В настоящее время для снятия показаний используется 9 электродов, закрепляемых на коже, но в будущем ученые надеются избавиться от проводов и эти электроды будут встроены в мобильные устройства. Технолог

Примерно такая ситуация – есть n компонентов TImage.Статических.Хочу обратиться к свойству tag рандомно выбранного компонента.Возможно такое?(можно хранить их в массиве конечно и создавать динамически но мне желательно без этого)…

maLoy*508

...
var
  RaspMatF: TRaspMatF;
  cbet : array of integer;
.....
for i := 0 to RaspMatF.ComponentCount - 1 do // перебираем на форме все компоненты
    begin
     if (RaspMatF.Components is TCheckBox) and TCheckBox(RaspMatF.Components).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
       begin
        SetLength(cbet, (length(cbet)+1));  // то мы увеличиваем размер массива на 1
        cbet[High(cbet)] := TCheckBox(RaspMatF.Components).Tag;  // добавляем значение в массив
       end;
    end;

таким образом я записывал в массив значения Tag выбранных компонентов CheckBox

Тема не форуме.

К примеру, нормальное (Гауссово) строится используя математическую хитрость о том, что сумма равномерно-распределенных случ. величин – есть нормальная случ. величина.

{ Моделирование нормального распределения }
function Norm: Real;
var
  s: Real;
  i: Integer;
begin
  s := 0;
  for i := 1 to Nmax do s := s + Random;
  norm := s-Nmax/2;
end;

{ Моделирование распределения скоростей Максвелла }
procedure Maxwell(disp,norm:real;var vx,vy:array of Real);
var
  i: integer;
begin
  for i := 1 to Nmax do begin
    vx := norm*disp;
    vy := norm*disp;
  end;
end;

Максвеловское (на самом деле это очень похожее на него) приведено для примера. Как управлять дисперсией.
С нормальным немного почесать затылок и можно будет сместить и среднее значение и среднее отклонение.

ЗЫ: Random – встроенный генератор случайных чисел, выдает случайную величину с равномерной плотностью распределения. если что ))

Тема на форуме.

Хоть от фреймов и желательно отказаться, но появляются в сети вопросы, о работе с ними.

Пример страницы с четырьмя фреймами.

<!--- содержимое файла index.html ---!>

<frameset rows="100,*,20">
<frame src="head.html">
<frameset cols="200,*">
<frame src="menu.html">
<frame src="content.html">
</frameset>
<frame src="footer.html">
</frameset>

<!--- содержимое файла head.html ---!>

шляпго

<!--- содержимое файла menu.html ---!>

<a href="http://url">гиперссылка(любая)</a>

<!--- содержимое файла content.html ---!>

текст(любой)

<!--- содержимое файла footer.html ---!>

<center>О_о</center>

PS: в данном примере все файлы должны лежать в одной папке.

Тема на форуме.

Простенькая наработка для имитации движения бильярдного шара.

uses crt,graph;
var gd,gm:integer;
     dx,dy:integer;
     x1,y1,radius:integer;
begin
      gd:=detect;
      initgraph(gd,gm,' ');
      setcolor(green);
      rectangle(10,10,610,460);
      x1:=50;y1:=200;
      radius:=10;
      dx:=3;dy:=2;
      setcolor(yellow);
      circle(x1,y1,radius);
      repeat
              setcolor(0);
              circle(x1,y1,radius);
              if x1>610 then dx:=-dx;
              if x1<10 then dx:=-dx;
              if y1>470 then dy:=-dy;
              if y1<10 then dy:=-dy;
              x1:=x1+dx;y1:=y1+dy;
              setcolor(yellow);
              circle(x1,y1,radius);
              delay(10000);
     until (x1-10<=10) and (y1+10>=47) or
            (x1-10<=10) and (y1-10<=10) or
            (x1+10>=610) and (y1-10<=10) or
            (x1+10>=610) and (y1+10>=470);
     readln;
     closegraph;
end.

Тема на форуме.

Доброе время суток.
На этот раз, меня интересует среда программирования Lazarus. А именно: компиляция при ее помощи проектов Delphi под Mac OS X и Linux. Насколько я слышал, Лазарус не всегда их корректно компилирует. Это вроде бы связано с некоторыми библиотеками (так во всяком случае я читал). Меня интересует так ли это и насколько вообще среда Lasarus пригодна для переноса программ на Delphi под другие ОС?

Читать подробнее