Прости числа - генератор на прости числа

Макроса по-долу генерира всички прости числа по-малки или равни на числото написано в клетка А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

Прости числа - проверка дали едно число е просто

Функция в 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

11.11.11 - !!!!

АПОФЕНИЯ - това е човешки дефект на мисленето, който се състои в намирането на връзка между несвързани събития.
Някои обичат да го наричат поличба, но е мозъчен бъг.

Проблем с boot-ване след използване на windows loader

Windows 7 не се стартира след използване на windows 7 loader.

Виж това

или директно използвай bootsect /nt60 all от инсталационен диск с windows 7 през command prompt.

Извод: ИЗПОЛЗВАЙТЕ ЛИЦЕНЗИРАН СОФТУЕР.

Управление на правата в регистрите на windows 7 64 bit

Управление на правата в регистрите на windows 7 64 bit

При мен се чупят правата върху ключове от HKEY_CLASSES_ROOT\TypeLib и по точно върху HKEY_CLASSES_ROOT\TypeLib\{0002E157-0000-0000-C000-000000000046}
За това примерите по-долу са дадени за тези ключове, но нещото трябва да работи за всички ключове от registry. Номерът е да знаеш кои са тези ключове.

1. Сваляме това
2. Използваме някоя (или всички) от следните команди за счупените ключове в регистъра:
Присвочване на собствеността върху ключовете:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn setowner -ownr "n:Administrators"
Даване на пълни права на администраторите:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn ace -ace "n:Administrators;p:full"
Даване на права за четене на обикновените потребители:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn ace -ace "n:users;p:read"

Problems when you right-click an empty area in the Desktop?

Това съм го преписала от тук

If you have a problem when you right-click on a blank area on the Desktop, then you need to inspect the handlers in this registry key.
HKEY_CLASSES_ROOT \ Directory \ Background \ shellex \ ContextMenuHandlers

The only handler present by default (in a clean XP installation) is the New handler.
If you find any additional sub-keys there, it may have be added by third-party applications.
Usually, the software that comes with your graphic card adds entries to the above location.
Here is one instance, an article from the Intel Graphics Controller website.

Направих си първо backup на цялото ContextMenuHandlers. После изтрих цялата папка за Intel Grafix... и оставих само New

How to Block/Disable Browser Choice Update Screen on Windows?

How to Block/Disable Browser Choice Update Screen on Windows?

Open the Registry Editor by typing regedit in the Run dialog box (Goto Start Menu > Run, or, press [ Windows Key ] + [ R ] to access the Run dialog box.)
Navigate to the following Registry key:
HKEY_LOCAL_MACHINE\Software\BrowserChoice
Create a new entry by right-clicking on the right pane and choosing “New DWORD“
Name it “Enable” and set the value to 0. This will stop displaying the Browser Choice screen. If you want to revert back, set this value to 1.