Радиола "Октава"
Радиола "Октава" состоит из семилампового радиоприемника, разработанного на лампах пальчиковой серии, и универсального электропроигрывателя. В радиоле применены внутренняя поворотная магнитная антенна для приема радиостанций на длинных и средних волнах, диполь для приема в УКВ диапазоне и акустическая система объемного звучания, состоящая из четырех громкоговорителей.
Габариты приемника 580х406х330 мм, вес 19 кг.
Конструкция деталей, схема и электрические показатели радиолы полностью совпадают с таковыми приемника "Октава". Единственным отличием является добавление к схеме электропроигрывателя. Вызванные этим изменения принципиальной схемы показаны на рисунке ниже.
Добавление к схеме приемника "Октава" в связи с введением проигрывателя
#!/usr/bin/perl
use Time::Local;
sub mydateconvert {
my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime);
($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]);
#$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year);
($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600);
$year+=1900;
$mon+=1;
return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec);
}
$databasefile = 'mycounterlog.txt';
$filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'});
$filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'});
$link = "$ENV{'REQUEST_URI'}";
if ($link eq "/") { $link="/index.shtml" }
open(DB,"+<$databasefile") || die $!;
flock(DB,2); # Locking file
seek(DB,0,0);
@DATA = ;
$SIZE = @DATA;
$i = 0;
while ($i <= $SIZE) {
($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]);
chop($oldlink);
if ($oldlink eq $link) {
$counter++;
$counter2++;
$DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n";
goto LocateLink;
}
$i++;
}
$filedatecreate = $filedatemodify;
$filedatestat = $filedatereadnew;
$filedateread = $filedatereadnew;
push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n";
$counter=1;
LocateLink:
@DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA;
seek(DB,0,0);
print(DB @DATA);
truncate(DB,tell(DB));
flock(DB, 8);
close(DB);
print "Content-Type: text/html\n\n";
print "Страница создана ..... ", $filedatecreate, "";
print "
Последнее изменение ..... ", $filedatemodify, "";
print "
Последнее обращение ..... ", $filedateread, "";
print "
Показов страницы с ", $filedatestat, " ..... ", $counter, "
";
Главная страница
Общие сведения
Список аппаратуры
Радиолампы
Клуб