Координаты центра окружности

option explicit
dim x1,y1,x2,y2,x3,y3,a,b,c,d,e,f,g,cx,cy
sub findcircle
x1=5498.9096
y1=2899.0240
x2=5500.4102
y2=2882.3379
x3=5507.97
y3=2890.38
a=x2-x1
b=y2-y1
c=x3-x1
d=y3-y1
e=a*(x1+x2)+b*(y1+y2)
f=c*(x1+x3)+d*(y1+y3)
g=2*(a*(y3-y2)-b*(x3-x2))
if g=0 then
msgbox g
else
cx=(d*e-b*f)/g
cy=(a*f-c*e)/g
msgbox cx
msgbox cy
END IF
end sub

An Error occurred while attempting to initialize the Borland Database Engine (error $210D)

Сегодня при запуске Ингео вылезла ошибка:
An Error occurred while attempting to initialize the Borland Database Engine (error $210D)
Решение проблемы на немецком:
Deze error kan optreden indien er onvoldoende geheugen beschikbaar is voor de database engine (BDE). Er kan meer geheugen toegewezen worden aan de database engine via volgende manier:

Start>configuratiescherm>BDE Administrator
Ga naar de tab Configuration
Klik de boom open: Configuration>System>INIT
Rechts in het scherm kan de parameter SHAREDMEMLOCATION en SHAREDMEMSIZE aangepast worden
Hieronder kunt u de voorkeurinstellingen vinden
Na aanpassen moet u wel de computer herstarten
De voorkeurinstellingen zijn:
2 GB fysiek geheugen (RAM):
SHAREDMEMLOCATION: 0x2BDE
SHAREDMEMSIZE: 2048
4 GB fysiek geheugen (RAM):
SHAREDMEMLOCATION: 0x5BDE
SHAREDMEMSIZE: 4096
8 GB fysiek geheugen (RAM):
SHAREDMEMLOCATION: 0x7BDE
SHAREDMEMSIZE: 8192

Google Chrome скоро перестанет обновляться на этом компьютере, так как поддержка Windows XP и Windows Vista будет прекращена

«C:\Program Files\Google\Chrome\Application\chrome.exe» —disable-infobars
в свойствах ярлыка

Word в 1С.77

expression=СоздатьОбъект(«Word.Application»);
expression.Caption=»1С»;
expression.Visible=1;
Док=expression.documents;
ТекДок=Док.Open(«c:\temp.doc»); //путь к шаблону
Содержание=ТекДок.Content;
Содержание.Find.Execute(«[target]»,0,0,,,,,,,»тра-ля-ля»,1);
ТекДок.SaveAs(«c:\new.doc»);

Розница 2.1 — Подключение ККМ оффлайн

Первоначально нужно указать конфигурации, что вы хотите работать с ККМ в режиме offline. Это можно сделать так:
На панели разделов нужно выбрать раздел «Администрирование»;На панели навигации выбрать пункт «Настройки подключаемого оборудованияв константах поставил галки «Использовать подключаемое оборудование», «Использовать обмен с подключаемым оборудованием Offline».Теперь нужно создать правила обмена с оборудованием, для этого:
кликните по ссылке «Правила обмена с подключаемым оборудованием offline»;Нажмите на кнопку создать;Введите наименование;Укажите склад на котором будет использоваться KKM;Укажите максимальный код номенклатуры, которая будет выгружаться, например «999999»;Нажмите кнопку записать и закрыть.
.В этой же форме можно настроить фильтр через который будут выгружаться только нужные позиции номенклатуры, например с нужной упаковкой или характеристикой, набор полей можно менять по своему желанию.

В окне «Настройки подключаемого оборудования» выберите «Подключаемое оборудование». Создайте ККМ offline.
Так же Администрирование-Настройки подключаемого оборудования-Подключаемое оборудование — выберите вашу настройку- жмем кнопку «Настроить» — заполняем правила обмена — функции — тест устройства
Создайте кассу ККМ — kkm offline, укажите ваше оборудование.

Для загрузки списка товаров в ККМ вам нужно:
На панели разделов выбрать раздел «Продажи»;На панели навигации кликнуть ссылку «Обмен с подключаемым оборудованием Offline»;Выбрать склад, если на данном складе есть ККМ Offline, она подключена и для нее настроены правила обмена, то ее наименование и параметры обмена появятся в списке;Нажать на кнопку выгрузить товары;Если по какой-то причине выгрузка прошла с ошибкой, например, товарам не назначена цена или у них нет штрихкода исправьте ситуацию, но на этот раз воспользуйтесь кнопкой «Очистить список товаров..».

Отключение автоматического поиска сетевых принтеров и папок

Чтобы отключить автоматический поиск сетевых принтеров и папок, выполните следующие действия.
Нажмите кнопку Пуск, выберите пункт Панель управления, щелкните Оформление и темы, а затем — Свойства папки.
Перейдите на вкладку Вид.
В списке Дополнительные параметры установите флажок Автоматический поиск сетевых папок и принтеров.
Нажмите кнопку OK.

Записи реестра, управляющие работой службы просмотра (Computer Browser).

Значение ключа в разделе
HKEY_LOCAL_MACHINE\SYSTEM\ Действие
CurrentControlSet\Services

\Browser\Parameters\IsDomainMaster=True Система определяется как предпочтительный главный браузер
( значение по умолчанию False)

\Browser\Parameters\MaintainServerList=Yes Система определяется как браузер, который всегда
используется в качестве главного или резервного
(на серверах принимается по умолчанию)

\Browser\Parameters\MaintainServerList=Auto Система определяется как потенциальный браузер
(принимается по умолчанию на клиентских системах)

\Browser\Parameters\MaintainServerList=No Система определяется как небраузер

\LanmanServer\Parameters\Hidden=1 Система исключается из списка просмотра

Ошибка при установке MSI пакета на Windows 10: error 1719 windows installer service could not be accessed windows 10

Виновник — КриптоПро.
Мне помогла правка реестра, по умолчанию был 0
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\CProPatches\Force=1