Понякога add/remove program не се стартира или се стартира и се вижда бял екран като липсва списък с програми (това второто при мен се случва, когато има инсталиран Аутокад).
Та в такива случаи от Start/Run последователно се пускат следите команди:
1. regsvr32 Appwiz.cpl
2. regsvr32 mshtml.dll
3. regsvr32 shdocvw.dll -i
4. regsvr32 shell32.dll -i
5. Reboot
След рестарта всичко трябва да е ОК.
Писна ми да откривам Америка по няколко пъти. Който го е правил, ще разбере за какво говоря. Та идеята на този блог е да ми облекчи живота в тази насока.
Етикети
бази данни
(3)
И като се замислиш ...
(16)
корен квадратен
(1)
математика
(1)
Млад шофьор
(2)
мъка-мъка
(46)
ПОЕЗИЯ
(17)
Полезности
(13)
Стиховете на леля
(9)
Acer A1
(2)
Adobe
(1)
AI (chat GPT)
(1)
An internal error occured
(1)
and TLS 1.2 in Advanced settings and try connecting again
(1)
Autocad
(1)
BEX
(2)
browser choice
(1)
can't print
(1)
Can't type in MS Word 2007
(1)
Cannot shift objects off sheet
(1)
Databases
(2)
DDE
(1)
desktop
(1)
disable usb storage device
(1)
E000FED1
(1)
excel
(8)
Excel cannot paste the data
(1)
Failed to recover database Error 0x1F
(1)
Firebird
(1)
HP BIOS error 501
(1)
IIS
(1)
integrated windows authentication
(1)
Lorem Ipsum
(1)
MS SQL 2008
(1)
outlook
(11)
problem sending the command to the program
(1)
right click
(1)
SAP
(2)
SAP GUI close itself after logon
(1)
SAP history
(1)
sysprep
(1)
System writer failed
(1)
telnet
(1)
TLS 1.1
(1)
Turn on TLS 1.0
(1)
VBA
(1)
vbe6ext
(2)
wi-fi hot-spot
(1)
Win Xp
(2)
windows 10
(4)
Windows 7
(7)
Windows 8
(1)
word
(5)
word 2016
(1)
Не всичко за мен
- Shrek
- Верую: неверник - следствие от прекомерната работа с продукти на Microsoft. Нямам девиз, нямам любимо ядене, пиене, книга, ... Знам какво обичам днес, но това изобщо не важи за утре. Мисля, че горе-долу стана ясно.
Търсене в този блог
понеделник, 26 ноември 2012 г.
понеделник, 5 ноември 2012 г.
Rand() and Lorem() functions in Word
Две непознати функции в MS Word, които генерират текст организиран в зададен брой параграфи. Целта е да не се налага да си измисляме глупави фалшиви текстове, когато искаме да покажем накаква функционалност:
=rand(x,y) генерира текст от x параграфа и y редове във всеки параграф. Функцията може да се извика и без параметри или само с един параметър: =rand(), =rand(1) или =rand(10,5).
=lorem(x,y) Тествала съм го само в Word 2007 и не мога да кажа дали работи в другите версии. Както името подсказва, генерира познатия Lorem Ipsum текст за тестване на шрифтове.
Вижте и =rand.old().
=rand(x,y) генерира текст от x параграфа и y редове във всеки параграф. Функцията може да се извика и без параметри или само с един параметър: =rand(), =rand(1) или =rand(10,5).
=lorem(x,y) Тествала съм го само в Word 2007 и не мога да кажа дали работи в другите версии. Както името подсказва, генерира познатия Lorem Ipsum текст за тестване на шрифтове.
Вижте и =rand.old().
петък, 5 октомври 2012 г.
Driver Sweeper - как наистина да забършим драйвера от машината
Driver Sweeper 3.2.0
Driver Sweeper поддържа почистване на драйвери на:
видео драйверите на ATI/AMD;
звуковите драйвери на ASUS;
звуковите драйвери на Creative;
USB драйверите на Fresco Logic;
драйверите за принтери на HP;
драйверите за чипсети на Intel;
драйверите за storage чипове на JMicron;
драйверите за storage чипове на Marvell;
мишките и клавиатурите на Microsoft;
USB драйверите на NEC;
чипсетите, видео картите и PhysX на NVIDIA;
звуковите драйвери на Realtek.
Driver Sweeper 3.2.0
Driver Sweeper поддържа почистване на драйвери на:
видео драйверите на ATI/AMD;
звуковите драйвери на ASUS;
звуковите драйвери на Creative;
USB драйверите на Fresco Logic;
драйверите за принтери на HP;
драйверите за чипсети на Intel;
драйверите за storage чипове на JMicron;
драйверите за storage чипове на Marvell;
мишките и клавиатурите на Microsoft;
USB драйверите на NEC;
чипсетите, видео картите и PhysX на NVIDIA;
звуковите драйвери на Realtek.
Driver Sweeper 3.2.0
четвъртък, 20 септември 2012 г.
The network share (NIC, PC) disconnects from the network (router) during big file transfer
The system is Windows 7 64 bits
When I do big file transfer to the share folder on the computer, it disconects its network device from the router.
The solution is:
Set the following registry key to ’1′:
HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\LargeSystemCache
and set the following registry key to ’3′:
HKLM\SYSTEM\CurrentControlSet\Services\LanmanServe r\Parameters\Size
Restart!
The problem persist!!!
NIC is Atheros and in Event viewer we can see the following error:
The description for Event ID 194 from source AtcL001 cannot be found. Either the component that raises this event is not installed on your local computer or the installation is corrupted. You can install or repair the component on the local computer.
If the event originated on another computer, the display information had to be saved with the event.
The following information was included with the event:
\Device\NDMP5
\DEVICE\{21DB9B20-DF8C-45C7-9173-7D55D056FC5C}
The specified resource type cannot be found in the image file
So i found next solution:
"As it turns out, the drivers for the Atheros L1 Gigabit Ethernet controller, when using Windows 7, are unable to support task offloading. As a result, the fix is to go Device manager>network adapter>properties>advanced>task offload:value=off
I'm really happy to have resolved this so I can stop running into my roommate's office to do file upload. No idea why it's only with attachments, but there you have it. I read about one guy who found that going back to beta win 7 drivers for his network card also worked, but I'm imagining that that's because the Beta drivers probably didn't have offloading on them or something."
When I do big file transfer to the share folder on the computer, it disconects its network device from the router.
The solution is:
Set the following registry key to ’1′:
HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\LargeSystemCache
and set the following registry key to ’3′:
HKLM\SYSTEM\CurrentControlSet\Services\LanmanServe r\Parameters\Size
Restart!
The problem persist!!!
NIC is Atheros and in Event viewer we can see the following error:
The description for Event ID 194 from source AtcL001 cannot be found. Either the component that raises this event is not installed on your local computer or the installation is corrupted. You can install or repair the component on the local computer.
If the event originated on another computer, the display information had to be saved with the event.
The following information was included with the event:
\Device\NDMP5
\DEVICE\{21DB9B20-DF8C-45C7-9173-7D55D056FC5C}
The specified resource type cannot be found in the image file
So i found next solution:
"As it turns out, the drivers for the Atheros L1 Gigabit Ethernet controller, when using Windows 7, are unable to support task offloading. As a result, the fix is to go Device manager>network adapter>properties>advanced>task offload:value=off
I'm really happy to have resolved this so I can stop running into my roommate's office to do file upload. No idea why it's only with attachments, but there you have it. I read about one guy who found that going back to beta win 7 drivers for his network card also worked, but I'm imagining that that's because the Beta drivers probably didn't have offloading on them or something."
сряда, 19 септември 2012 г.
This operation has been cancelled due to restrictions in effect on this computer. OR Your organization's policies are preventing us from completing this action for you....
READ HERE ИЛИ ПО-ДОЛУ:
Cause: Upgrading Internet Explorer from a previous version or uninstalling Google Chrome can corrupt dependent registry keys.
Following the simple steps below will help fix the issue:
1. Reset Internet Explorer settings to default and retest. If this does not work move on to step 2.
2. Set Internet Explorer as your default Browser - restart & retest - if no dice then move to step 3.
3. Open a Command prompt as Administrador on Windows Vista or Windows 7. Then copy and paste the following info line by line - pressing the enter key on your keyboard to initialise each command:
REG ADD HKEY_CURRENT_USER\Software\Classes\.htm /ve /d htmlfile /f
REG ADD HKEY_CURRENT_USER\Software\Classes\.html /ve /d htmlfile /f
REG ADD HKEY_CURRENT_USER\Software\Classes\.shtml /ve /d htmlfile /f
REG ADD HKEY_CURRENT_USER\Software\Classes\.xht /ve /d htmlfile /f
REG ADD HKEY_CURRENT_USER\Software\Classes\.xhtml /ve /d htmlfile /f
ТОВА ПРИ МЕН ПРОРАБОТИ ВЪРХУ OUTLOOK 2007 WINDOWS 7 64 BITS
НИЩО ДРУГО НЕ СВЪРШИ РАБОТА И ВЕЧЕ БЯХ ЗАПОЧНАЛА ДА ПСУВАМ.
АКО ПРЕЗ ТОВА ВРЕМЕ OUTLOOK-A Е БИЛ ОТВОРЕН, ДА СЕ РЕСТАРТИРА (OUTLOOK-A)
05.08.2016
Отново подобен проблем, но съобщението е "Your organization's policies are preventing us from completing this action for you...." при опит да се отвори link от пощата.
Този път вече сме на windows 10 и Office 2016
Този път решението е да направите Outlook и IE default programs:
Settings; System; Default app; Set default by app; select IE and click "Set this program as default". Повторете същото за Outlook.
Затворете двата виновника и отворете outlook отново.
Когато за първи път направите click върху някоя връзка, е възможно да излезе списък с приложения и да пита с кое от тях да отвори връзката. Изберете IE за връзка към интернет или Outlook ако сте кликнали върху e-mail и направете отметка винаги да използва тази програма за отваряне на връзки от този тип. При мен забелязах, че на машината имаше инсталиран браузер Opera - мисля, че той е омазал нещата.
понеделник, 3 септември 2012 г.
Outbox size is different on the exchange and client mashine
Папката с писмата, които чакат за изпращане (outbox) на сървера е с различен размер и брой писма отколкото на локалната машина на клиента. В резултат пощенската кутия расте непрекъснато и много бързо достига лимита си.
Решението е да премахнем за малко Cached Exchange Mode, да рестартираме outlook-а, да изтрием тези писма които уж чакат, но всъщност са изпратени предимного време и пак да включим Cached Exchange Mode.
Go to your Tools, then Account Settings. Double-click on your account name. Uncheck the “Use Cached Exchange Mode” box. Click Next, OK, Finish. Close and then restart Outlook. You should now see the messages in the Outbox. Review and if you are sure they match items in your Sent folder, permanently delete all Outbox messages. Go back to Account Settings and turn the Cached Exchange mode back on. Close and restart Outlook.
Има още едно решение което на времето не записах и сега не го помня.
сряда, 8 август 2012 г.
Издигни в култ посредствеността и храмовете сами ще се изравнят със земята
Опустоши човешката душа и ще получиш празно пространство, което да запълниш
Господи, къде сложи светлината? Как да оцелея?
... тъмнина и ... тишина
Знам че трябва да си помогна сама, винаги така съм правила, но става все по-трудно.
Господи, къде сложи светлината? Как да оцелея?
... тъмнина и ... тишина
Знам че трябва да си помогна сама, винаги така съм правила, но става все по-трудно.
четвъртък, 5 юли 2012 г.
Your CD drive or DVD drive is missing or is not recognized by Windows or other programs
Windows Vista
Click Start Start button , and then click All Programs. Click Accessories, and then click Run. Type regedit, and then click OK. User Access Control permission If you are prompted for an administrator password or for a confirmation, type the password, or click Allow. In the navigation pane, locate and then click the following registry subkey: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318} In the right pane, click UpperFilters. Note You may also see an UpperFilters.bak registry entry. You do not have to remove that entry. Click UpperFilters only. If you do not see the UpperFilters registry entry, you still might have to remove the LowerFilters registry entry. To do this, go to step 8. On the Edit menu, click Delete. When you are prompted to confirm the deletion, click Yes. In the right pane, click LowerFilters. Note If you do not see the LowerFilters registry entry, unfortunately this content cannot help you any further. Go to the "Next Steps" section for information about how you can find more solutions or more help on the Microsoft Web site. On the Edit menu, click Delete. When you are prompted to confirm the deletion, click Yes. Exit Registry Editor. Restart the computer. Now go to the "Did this fix the problem?" section.
Windows XP
Click Start, and then click Run. In the Open box, type regedit, and then click OK. In the navigation pane, locate and then click the following registry subkey: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318} In the right pane, click UpperFilters. Note You may also see an UpperFilters.bak registry entry. You do not have to remove that entry. Click UpperFilters only. If you do not see the UpperFilters registry entry, you still might have to remove the LowerFilters registry entry. To do this, go to step 7. On the Edit menu, click Delete. When you are prompted to confirm the deletion, click Yes. In the right pane, click LowerFilters. Note If you do not see the LowerFilters registry entry, unfortunately this content cannot help you any further. Go to the "Next Steps" section for information about how you can find more solutions or more help on the Microsoft Web site. On the Edit menu, click Delete. When you are prompted to confirm the deletion, click Yes. Exit Registry Editor. Restart the computer.
Your CD drive or DVD drive is missing or is not recognized by Windows or other programs
събота, 3 март 2012 г.
ДНЕС И УТРЕ
ДНЕС И УТРЕ
Това, което днес е утре,
то утре ще е вече днес,
това са полети с ракети,
това е вечния прогрес.
Столетията се отронват
В спокоен, броеничен ред,
и „днес” и „утре” се догонват,
животът си върви напред.
Историята се разтваря,
на плесен лъхва и на мраз,
но в миг искра се там разгаря,
„Тя се върти!” - се чува глас.
„Тя се върти”, но вече близват,
огньовете един човек,
години черни се изнизват
и отброяват мрачен век.
Но от искрата лумва пламък
Земята осветява той
и черният вековен замък
изгубва властност и покой.
Днес няма сила на земята
да спре човешкия прогрес
ТОВА, КОЕТО ДНЕС Е УТРЕ,
ТО УТРЕ ЩЕ Е ВЕЧЕ ДНЕС!
Това, което днес е утре,
то утре ще е вече днес,
това са полети с ракети,
това е вечния прогрес.
Столетията се отронват
В спокоен, броеничен ред,
и „днес” и „утре” се догонват,
животът си върви напред.
Историята се разтваря,
на плесен лъхва и на мраз,
но в миг искра се там разгаря,
„Тя се върти!” - се чува глас.
„Тя се върти”, но вече близват,
огньовете един човек,
години черни се изнизват
и отброяват мрачен век.
Но от искрата лумва пламък
Земята осветява той
и черният вековен замък
изгубва властност и покой.
Днес няма сила на земята
да спре човешкия прогрес
ТОВА, КОЕТО ДНЕС Е УТРЕ,
ТО УТРЕ ЩЕ Е ВЕЧЕ ДНЕС!
МАЙ 1959
МАЙ 1959
Навън е пролет и в небето
прехвъркат птици и ята,
навън е пролет, а в сърцето
незвана вмъква се тъга.
Навън е пролет и цветята
обсипаха поля, гори,
навън е пролет, а душата
от туй не трогва се дори.
Навън е пролет, туй го зная,
но пролет ли е в мен, кажи,
защо сърцето ми ридае,
а на душата тъй тежи?!
Навън е пролет и в небето
прехвъркат птици и ята,
навън е пролет, а в сърцето
незвана вмъква се тъга.
Навън е пролет и цветята
обсипаха поля, гори,
навън е пролет, а душата
от туй не трогва се дори.
Навън е пролет, туй го зная,
но пролет ли е в мен, кажи,
защо сърцето ми ридае,
а на душата тъй тежи?!
...
...
Сланата с лъх леден гората попари
от парка изгони цветята,
във голите клони зъл вятър удари,
поспря и събори листата.
С предутринен скреж се покрива градът
с мъгла, тъй студена и влажна,
във мрака тревожно тролеи звънят,
че толкоз е хлъзгав паважа.
Сланата с лъх леден гората попари
от парка изгони цветята,
във голите клони зъл вятър удари,
поспря и събори листата.
С предутринен скреж се покрива градът
с мъгла, тъй студена и влажна,
във мрака тревожно тролеи звънят,
че толкоз е хлъзгав паважа.
НА МОЕТО СЕЛО
НА МОЕТО СЕЛО
През зимата с покривка бяла
с калпаци пухкави от сняг
и вятър преспите навял е
на хлъзгавия стръмен бряг.
През пролетта си пак във бяло,
но не снегът те е покрил.
Цъфтиш тогаз, ти мое село,
и люлякът те е пленил.
През лятото- горещо време,
жита покриват те безкрай.
Тогаз трудът ни не е бреме,
а радост той е в моя край.
През есента си тъй богато!
Събираш тежки плодове,
засяваш зърно, тежко злато,
очакваш тихи дъждове.
За мен си ти едно в страната,
тъй плодородно и добро
и вярвам, няма на земята
по-хубаво от туй село!
11.04.1959 г.
През зимата с покривка бяла
с калпаци пухкави от сняг
и вятър преспите навял е
на хлъзгавия стръмен бряг.
През пролетта си пак във бяло,
но не снегът те е покрил.
Цъфтиш тогаз, ти мое село,
и люлякът те е пленил.
През лятото- горещо време,
жита покриват те безкрай.
Тогаз трудът ни не е бреме,
а радост той е в моя край.
През есента си тъй богато!
Събираш тежки плодове,
засяваш зърно, тежко злато,
очакваш тихи дъждове.
За мен си ти едно в страната,
тъй плодородно и добро
и вярвам, няма на земята
по-хубаво от туй село!
11.04.1959 г.
ЗАВЕЩАНИЕ
ЗАВЕЩАНИЕ
Животът ми не беше безупречен
в мига, когато стане „вечен”
по-бързо ме заравяйте,
по-скоро ме забравяйте!
ПРОСТЕНИ СТЕ- ПРОЩАВАЙТЕ!
Животът ми не беше безупречен
в мига, когато стане „вечен”
по-бързо ме заравяйте,
по-скоро ме забравяйте!
ПРОСТЕНИ СТЕ- ПРОЩАВАЙТЕ!
САМОТА
САМОТА
САМОТАТА като куче лежи пред вратата ми
и не пуска пиле да прехвръкне.
И сутрин, и денем, и когато мръкне,
като вярно куче бди над мен САМОТАТА МИ!
Закусваме с нея, обядваме с нея,
работим в градината, радио слушаме,
а нощем ревниво в леглото ме гушва,
сънят ми прогонва, сънят ми пилее.
Животът ми мъка е несподелена
и мой изповедник е САМОТАТА МИ.
Уморена и празна е сутрин главата ми
денят ми е болен, денят – помрачен е.
Като злобно куче ме гризе САМОТАТА МИ
и сутрин, и денем, и когато мръкне.
Тя не пуска пиле да прехвръкне.
САМОТАТА като куче лежи пред вратата ми!
САМОТАТА като куче лежи пред вратата ми
и не пуска пиле да прехвръкне.
И сутрин, и денем, и когато мръкне,
като вярно куче бди над мен САМОТАТА МИ!
Закусваме с нея, обядваме с нея,
работим в градината, радио слушаме,
а нощем ревниво в леглото ме гушва,
сънят ми прогонва, сънят ми пилее.
Животът ми мъка е несподелена
и мой изповедник е САМОТАТА МИ.
Уморена и празна е сутрин главата ми
денят ми е болен, денят – помрачен е.
Като злобно куче ме гризе САМОТАТА МИ
и сутрин, и денем, и когато мръкне.
Тя не пуска пиле да прехвръкне.
САМОТАТА като куче лежи пред вратата ми!
Влакът на живота
Влакът на живота
Пътува влакът на живота,
По релсите потраква в такт.
С усмивка влачим си хомота,
В джобовете - със смъртен акт.
С любов, омраза, дим и пара,
Минават дни, години, век.
Към своята последна гара,
Пътува цял живот човек.
С тих шепот устните студени,
Се молят: спри, почакай, стой!
Сърце се свива вледенено
От скръб, без радост, без покой!
Животът ни така минава,
Като забързан, черен влак,
С възход, падение и слава,
А после - тишина и мрак!
27.02.2012г.
С. Борец
Пътува влакът на живота,
По релсите потраква в такт.
С усмивка влачим си хомота,
В джобовете - със смъртен акт.
С любов, омраза, дим и пара,
Минават дни, години, век.
Към своята последна гара,
Пътува цял живот човек.
С тих шепот устните студени,
Се молят: спри, почакай, стой!
Сърце се свива вледенено
От скръб, без радост, без покой!
Животът ни така минава,
Като забързан, черен влак,
С възход, падение и слава,
А после - тишина и мрак!
27.02.2012г.
С. Борец
ЗА ПЛЪХОВЕТЕ И ХОРАТА
ЗА ПЛЪХОВЕТЕ И ХОРАТА
На кораба, когато буря,
разбива мачтите със вой,
аз зная – плъховете първи,
напускат го! Едничък в бой
с вълните, с морската стихия
остава капитанът. Сам!
Сърцето смело страх не крие,
а дързост огнена и плам!
Съдбата гледа във очите,
които стръвно пак горят,
че нова жертва сред вълните
ще грабнат и ще покорят...
Смъртта зловещо пак се киска
и в танц се впуска вихрен тя,
а корабът още по-ниско
навежда гордата глава...
Но там един човек спокоен
и дързък гледа на СМЪРТТА
в очите! С отговор достоен
за плъховете на света!
На кораба, когато буря,
разбива мачтите със вой,
аз зная – плъховете първи,
напускат го! Едничък в бой
с вълните, с морската стихия
остава капитанът. Сам!
Сърцето смело страх не крие,
а дързост огнена и плам!
Съдбата гледа във очите,
които стръвно пак горят,
че нова жертва сред вълните
ще грабнат и ще покорят...
Смъртта зловещо пак се киска
и в танц се впуска вихрен тя,
а корабът още по-ниско
навежда гордата глава...
Но там един човек спокоен
и дързък гледа на СМЪРТТА
в очите! С отговор достоен
за плъховете на света!
НА НАБОР 1939
НА НАБОР 1939
Родени сме във време предвоенно
и детството ни беше босоного.
Живяхме простичко и бедно,
но не изпитвахме тревога.
В калта си губехме налъмите
и тръни боцкаха петите ни,
но аромата на салкъмите
ще помним докато сме живи.
А после като птиче ято
отлитнахме към градовете,
където с хора непознати
добихме знания и занаяти.
Там някои свиха си гнездата,
а други върнахме се в селото
а борихме се с нищетата,
надвивахме сиромашията.
Но в тази битка не посрамихме
отрудени бащи и майки
и трудностите побеждавахме
без много-много да се вайкаме.
Набързо отлетяха дните
на млади, весели години
И сняг натрупа се в косите,
но скъпа е за нас Родината.
България е във сърцата ни
и древна и пожертвователна.
Заръката ни към децата е
да са й винаги признателни!
04.09.2009г.
с. Борец
Родени сме във време предвоенно
и детството ни беше босоного.
Живяхме простичко и бедно,
но не изпитвахме тревога.
В калта си губехме налъмите
и тръни боцкаха петите ни,
но аромата на салкъмите
ще помним докато сме живи.
А после като птиче ято
отлитнахме към градовете,
където с хора непознати
добихме знания и занаяти.
Там някои свиха си гнездата,
а други върнахме се в селото
а борихме се с нищетата,
надвивахме сиромашията.
Но в тази битка не посрамихме
отрудени бащи и майки
и трудностите побеждавахме
без много-много да се вайкаме.
Набързо отлетяха дните
на млади, весели години
И сняг натрупа се в косите,
но скъпа е за нас Родината.
България е във сърцата ни
и древна и пожертвователна.
Заръката ни към децата е
да са й винаги признателни!
04.09.2009г.
с. Борец
вторник, 7 февруари 2012 г.
Telnet on Windows 7
How to enable telnet on Windows 7
Start; Control Panel; Programs And Features;Turn Windows features on or off; Check Telnet Client; OK
Start; Control Panel; Programs And Features;Turn Windows features on or off; Check Telnet Client; OK
четвъртък, 26 януари 2012 г.
Чужди мисли от деня
Днес това ми хареса много:
==================================
В “Денят не си личи от заранта” на Б.Райнов има един интересен пасаж. Полицески офицер съветва демонстрантка против войната: „ Тази война ще свърши, но не защото вие го искате, а защото няма такава война, която е започнала и не е свършила. И ще свърши не когато ти го искаш… а когато шефовете решат.”
Ако го перифразираме това ще звучи така: „Тази криза ще свърши, защото няма такава криза която е започнала и не е свършила. Но не защото вие го анализирате и предричате. Кризата ще свърши когато шефовете решат.”
Очевидно, докато не изтече водата…криза ще има.
===================================
==================================
В “Денят не си личи от заранта” на Б.Райнов има един интересен пасаж. Полицески офицер съветва демонстрантка против войната: „ Тази война ще свърши, но не защото вие го искате, а защото няма такава война, която е започнала и не е свършила. И ще свърши не когато ти го искаш… а когато шефовете решат.”
Ако го перифразираме това ще звучи така: „Тази криза ще свърши, защото няма такава криза която е започнала и не е свършила. Но не защото вие го анализирате и предричате. Кризата ще свърши когато шефовете решат.”
Очевидно, докато не изтече водата…криза ще има.
===================================
понеделник, 16 януари 2012 г.
Демократична ли е демокрацията, след като е управление на управляваните
"Най-големият български парадокс е, че нарочваме управляващите за виновни, когато нещо не е наред с демокрацията ни. Ние сме виновните. Защото тя е управление на управляваните, наше управление. И не ни обещава нищо повече от това, което сами си извоюваме да имаме. За съжаление – нищо повече от това, което заслужаваме."
Веселина Седларска
14.01.2012
Веселина Седларска
14.01.2012
събота, 14 януари 2012 г.
Прости числа - генератор на прости числа
Макроса по-долу генерира всички прости числа по-малки или равни на числото написано в клетка А1
Sub PrimeUpToA1()
'генерира всички прости числа по-малки или равни на числото написано в клетка А1
'резултатът се записва в колона 8 H като започва от ред 1, т.е. от клетка H1 надолу
Dim S() As Boolean
n = Sheet1.Cells(1, 1)
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
m = 1
For k = 2 To n
If S(k) Then
Sheet1.Cells(m, 8) = k
m = m + 1
End If
Next k
End Sub
Sub PrimeUpToA1()
'генерира всички прости числа по-малки или равни на числото написано в клетка А1
'резултатът се записва в колона 8 H като започва от ред 1, т.е. от клетка H1 надолу
Dim S() As Boolean
n = Sheet1.Cells(1, 1)
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
m = 1
For k = 2 To n
If S(k) Then
Sheet1.Cells(m, 8) = k
m = m + 1
End If
Next k
End Sub
Прости числа - проверка дали едно число е просто
Функция в exsel показваща дали едно число е просто или не:
Function IsPrimeNumber(n)
'резултатът е true ако числото n е просто и false в противен случай
Dim S() As Boolean
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
IsPrimeNumber = S(n)
End Function
Function IsPrimeNumber(n)
'резултатът е true ако числото n е просто и false в противен случай
Dim S() As Boolean
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
IsPrimeNumber = S(n)
End Function
Абонамент за:
Публикации (Atom)