Tuesday, February 27, 2018

Indijanci...

Ovo su samo neke od mudrosti koje su originalni stanovnici Amerike primenjivali u svakodnevnom životu, a svi ih možemo koristiti kao smernicu u svom pogledu na svet:

1. Ustanite sa suncem i pomolite se. Molite se sami. Molite se često. Jednom će Veliki Duh poslušati vaše molitve.

2. Budite tolerantni prema onima koji su skrenuli s puta. Neznanje, ljutnja i ljubomora dolaze od izgubljenih duša. Molite se da se vrate na ispravan put.

3. Pronađite sebe. Ne dopustite da drugi upravljaju vašim putem. To je samo vaš put! Ostali mogu ići s vama, ali niko ne može napred umesto vas.

4. Budite obzirni prema gostima u svojoj kući. Poslužite im najbolju hranu, ponudite im najbolji krevet, prema njima budite pošteni i pravedni.

5. Ne uzimajte što nije vaše, bilo od ljudske zajednice, prirode ili nečije kulture. Niste zaslužili ni dobili. Nije vaše.

6. Poštujte sve na Zemlji, kako ljude tako i biljke.

7. Poštujte mišljenja drugih, njihove želje i reči. Nikad ne prekidajte druge dok govore, ne zamerajte, ne rugajte im se. Svakoj osobi dopustite pravo na lično mišljenje.

8. Nikada ne govorite loše o drugima. Negativna energija koju šaljete a još u njoj i uživate vratiće vam se višestruko.

9. Svi ljudi greše. Svaka greška se može oprostiti.

10. Negativne misli stvaraju bolest uma, tela i duha. Vežbajte optimizam.

11. Priroda nije naša, ona je deo nas. Priroda je deo naše globalne porodice.

12. Deca su budućnost. Usadite im u srca ljubav, vodite ih s mudrošću i učite o svim životima. Kada rastu, dajte im prostora da rastu.

13. Izbegavajte da povređujete srca drugih. Otrov tog bola vratiće se vama.

14. Uvek budite iskreni.

15. Održavajte svoju ravnotežu: mentalno, duhovno, emocionalno i telesno "ja" moraju da budu jednako snažni, čisti i zdravi. Krepite telo da bi se krepio um. Rastite u duhovnosti kako biste iscelili emocionalne rane.

16. Svesno odlučite šta ćete biti i kakvi ćete biti, kako ćete delovati i kako ćete stajati iza svojih postupaka. Budite odgovorni za svoje postupke.

17. Poštujte tuđu privatnost i lični prostor. Ne mešajte se u tuđe vlasništvo, pogotovo ne u sveto i duhovno. To je zabranjeno.

18. Budite sigurni u sebe. Ne možete biti brižni i pomagati drugima ako niste brižni prema sebi i ako prvo ne pomognete sebi.

19. Poštujte tuđa verska uverenja. Ne prisiljavajte druge da veruju u vaša.

20. Delite svoju sreću.

Privredni savetnik i mali poslovni programi za desktop

How to stop Windows 10 annoying orange



Stop The Windows Update Service
As central as it is to the core of Windows 10, Windows Update is actually just another Windows process so it can be stopped with these simple steps:
  1. Open the Run command (Win + R), in it type: services.msc and press enter
  2. From the Services list which appears find the Windows Update service and open it
  3. In ‘Startup Type’ (under the ‘General’ tab) change it to ‘Disabled’
  4. Restart
To re-enable Windows Update simply repeat these four steps, but change the Startup Type to ‘Automatic’

Monday, February 26, 2018

Телефони трезора

Cisco vpn windows 10


https://eltrasterodeit.blogspot.rs/2016/01/como-instalar-cisco-vpn-en-windows-10.html

http://www.firewall.cx/cisco-technical-knowledgebase/cisco-services-tech/1127-cisco-vpn-client-windows-10-install-fix-442-failed-to-enable-virtual-adapter.html

https://www.techradar.com/how-to/how-to-install-the-cisco-vpn-client-in-windows-10

The solution for installation is easy, although laborious. Let's see the steps to follow:

First of all, uninstall any Cisco client you have. Remember to save any type of certificates that you may have installed.
Uninstall DNE Fix (Deterministic NEtworks, from Citrix), and any update to this program. That there is no trace. It is what we will install after again, the Winfix)
We restart the team.
We install Citrix Winfix
We restart the computer again.
We downloaded Sonic Wall VPN. HERE the 32 bit version, and HERE the 64 bit one. The reason for doing this is that the appropriate version of DNE software will be installed, which Cisco also needs.
We return to restart.
We downloaded Cisco VPN Client and installed. The 64 bit version, HERE .
Restart again (and go 3 times).
Go to HKEY_LOCAL_MACHINE / SYSTEM / CurrentControlSet / Services / CVirtA, open the value REG_5Z with the name "Display name" and put the following:


- For x86 computers.

"@ oem8.inf,% CVirtA_Desc%; Cisco Systems VPN Adapter" to "Cisco System VPN Adapter"
(without quotes)

- For x64

Computers "@ oem8.inf,% CVirtA_Desc%; Cisco Systems VPN Adapter for 64-bit Windows" to
"Cisco Systems VPN Adapter for 64-bit Windows" (without quotes)

We restart, and with this, we finish. You only have to configure the configuration as you had it, or import the certificates


https://www.youtube.com/watch?v=hEHceV2ADL8

Friday, February 23, 2018

Recursive procedure to build a list of files

Find files with FindFirst and FindNext

 Search

The procedure FindFiles locates files in a given directory (folder) and its subdirectories, and adds their complete path to a stringlist. Note that recursion is used: FindFiles calls itself at the end of the procedure!

The meaning of the parameters of FindFiles(FilesList, StartDir, FileMask) is as follows:

FilesList is a stringlist, that you have to create before calling FindFiles. Afterwards, don't forget to free this stringlist.

In StartDir you specify the starting directory, including the disk drive. If you want to search an entire disk, specify the root directory (root folder) of that disk, such as C:\ or D:\

In FileMask you pass the name of the file to find, or a file mask with wildcards, such as ? and *
Examples of use:

Find all files on the entire C: disk with the name 'letter1.doc' : 
   FindFiles('c:\', 'letter01.doc'); 
Find all files on the entire C: disk, with a name starting with 'euroen', followed by zero, one or two other characters, and ending with the extension '.dpr' :
   FindFiles('d:\', 'euroen??.dpr'); 
Find all Delphi project files in directory d:\projects and its subdirectories :
   FindFiles('d:\projects', '*.dpr');
If you want to test this procedure, start a new project and add some components to the form: two Edits (one for the starting directory, one for the mask), a Button, a Label and a ListBox.

implementation
....


// Recursive procedure to build a list of files
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';

  { Build a list of the files in directory StartDir
     (not the directories!)                         }

  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Build a list of subdirectories
  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and
         (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Scan the list of subdirectories
  for i := 0 to DirList.Count - 1 do
    FindFiles(FilesList, DirList[i], FileMask);

  DirList.Free;
end;

// Example: how to use
FindFiles
procedure TForm1.ButtonFindClick(Sender: TObject);
var
  FilesList: TStringList;
begin
  FilesList := TStringList.Create;
  try
    FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text);
    ListBox1.Items.Assign(FilesList);
    LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count);
  finally 
    FilesList.Free;
  end;
end;





http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Standard_Routines_and_Input-Output

Vazdusna puska ?

Tuesday, February 20, 2018

Ko smo mi ?

"Beogradsko programiranje" je specijalizovani blog za senior programere.

Mi nismo blog za juniore i početnike, već samo za visoko specijalizovane i iskusne programere, dizajnere i sistem administratore.

Na našim stranama ćete naći rešenje za neke od najčešćih problema iz prakse.

Svaki link koji postavimo predstavlja rešenje za neki od veoma čestih i korisnih situacija prilikom izrade velikih IT projekata.

Primetićete da dajemo uglavnom linkove, a veoma retko neki duži tekst. To je zato jer našim čitaocima nisu potrebne suvišna objašnjenja, nego čista konkretizacija.

Ukoliko procenimo da je tema od šireg značaja za naše čitaoce, onda dajemo i više teksta u našim postovima.








***


Friday, February 9, 2018

HP1010 on XUBUNTU

https://askubuntu.com/questions/390059/why-doesnt-my-hp-deskjet-2514-work/390064#390064


sudo sh hplip.run


xubuntu hp1010:
sudo apt-get install hplip-gui

https://help.ubuntu.com/community/NetworkPrintingWithUbuntu?action=show&redirect=NetworkPrintingFromWinXP



Drage čitateljke, evo probao sam i svi kancelarijski programi rade super.

Nemojte otpisivati kompjutere stare 10-tak godina i nemojte na njih instalirati Windows 10, jer Windows 10 nema drajvere za stare kancelarijske laserske HP printere.

Ako u firmi imate starih kompjutera tipa (Intel Celeron Singlecore 2GHz, Sempron, Athlon na 2GHz, 2GB Ram, 100 GB HD) na kojima se vrtio Windows XP Professional SP3 (najverovatnije piratski) vreme je da osvežite svoj stari računar Xubuntu Linux-om (koji je potpuno besplatan i potpuno legalan za upotrebu u ozbiljnim kancelarijama, firmama i ustanovama).

Verovatno imate i stare HP1010 ili HP 1000 Lj, a dobili ste nove kompjutere sa legalnim Windows 10, onda oni stari kompjuteri sa nelegalnim Windows XP, još nisu za otpis, jer na njih možete instalirati potpuno legalan i svež operativni sistem koji je idealan za kancelariju.

Da li znate da Windows 10 ne podržava stare HP laserske printere ?

Prvi je HP 1000, a drugi je HP 1010. Xubuntu Linux je rešenje jer ima drajvere za sve stare HP printere. 

Instalirate HPLIP GUI i imate sve drajvere za skoro sve pomenute starije HP printere, a za koji ne postoje drajveri na Windows 10 (ovo govorim provereno iz prve ruke).

Nemojte bacati svoje stare kompjutere i HP printere, nego instalirajte Xubuntu i problem je rešen.

Xubuntu instalirajte sa podrškom za СРПСКИ ЈЕЗИК, onda jednostavno podesite podršku za tastaturu na ikonici na kojoj se nalazi tastatura, dodate српски ћирилица, srpska latinica, madjarski, nemački, engleski i sve one jezike koje ste ranije koristili na Windows-u.

Imate Mozilla Firefox (internet preglednik), Mozilla Thunderbird (email klijent za poslovni-korporativni email u vašoj firmi), Libre Office (besplatna zamena za MS Word i MS Excel), pored ovoga imate i gomilu linux aplikacija za kancelariju i zabavu.

Linux može da vidi šerovane foldere u korporativnoj mreži računara u Vašoj firmi na primer.

Ako nekome treba pomoć oko instalacije neka mi se javi.

Jedino što treba da uradite pre instalacije Xubuntu Linuxa je da iskoristite alatku Partition Magic iz HirensBoot CD i da vaš hard disk formatirate u ext4 na primarnoj particiji i linux-swap takodje na linux particiji.

Ako je Vaš HDD veličine oko 100 GB, što je bio standard pre desetak godina, a i Vaši kompjuteri imaju oko desetak godina, onda od tih 100 GB odredite 95 GB za ext4, a 5 GB za linux-swap particiju (i jedna i druga treba da budu primarne particije).

Ako je Vaš HDD 80 GB, onda za ext4 odredite 75 GB, a linux-swap na 5 GB.

U suštini za linux-swap uvek ostavite oko 5 GB, pod pretpostavkom da imate kompjuter sa 1-2 GB RAM-a, što je bio standard pre oko 10 godina.

For nerds:
Uspeo sam da namestim  da sa ALT+SHIFT menjam jezike, ali ne i da ih prikazuje na taskbar liniji kao što smo navikli u Windowsu, ali bitno je da šljaka promena jezika i štampanje. Sasvim je to dovoljno da možete konformno da radite u Libre Office-u i da štampate.

Inače XUBUNTU je neznatno manji od Elementary OS-a, a on je neznatno manji od MintOS-a, a ovaj je neznatno manji od Ubuntu-a, tako da je XUBUNTU baš ono osnovno što Vam treba za neku ozbilju kancelarijsku primenu. Ima sve što Vam treba bez nepotrebnih stvari.

Instalirao sam ga od nule, veoma jednostavno i brzo, bez ikakvih problema na sledećoj mašini:
Intel Single core 64 bit, ram 2GB, hdd 80 gb. Osećaj je kao da radite bar pet puta brže i lakše nego na Windows XP, odnosno kao da imate neki dual core procesor sa duplo više rama.

Razlika je drastično vidljiva kod surfovanja internetom na Mozilla Firefox browseru, sve se stranice otvaraju bar dva puta brže, nema virusa pa sve teče glatko i lepo, grafika je mnogo bolja nego na Firefox-u pod Windows XP ili čak Windows 7 i Windows 10. Prosto da ne poveruješ dok ne vidiš svojim očima. Slike u Firefoxu su jasnije, kristalno čiste fontovi veoma lepi skoro kao na MacOS-u.

Čudo jedno - od sada ima samo ovaj XUBUNTU da forsiram tamo gde radim, gde god to opis poslova dozvoljava, ne mora svuda da se vrti Windows 10, a stare kompjutere ne morate bacati i otpisivati bar dok imate XUBUNTU. Kada ste sistem admin, možete tačno da znate za koje radno mesto Vam treba baš Microsoft, a na koje je sve jedno šta imate, bitno je samo da radi.

90% kancelarijskih poslova koji se obavljaju u Microsoft Office možete da zamenite sa XUBUNTU računarima starim 10 godina.

Ako Vam baš zatrebaju neke internet strane koje se baš moraju otvarati u IE11 (što je slučaj sa većinom sajtova banaka i eupravom u Srbiji), onda ipak morate da se isprsite za Windows 10 i najnoviji kompjuter, šta da Vam radim, kada naši forsiraju monopol Microsoft-a.

Ali i to može da se sredi pomoću instalacije Wine-a na XUBUNTU i IE11, ali to još nisam pokušavao, tako da neću da tvrdim da tako nešto radi baš 100%, pogotovo sa Gemalto Card Reader-om i sertifikatima PKS ili Posta Srbije.

Ukoliko ne radite u javnom sektoru onda je XUBUNTU prava stvar za Vas, za male i srednje prvrednike je i više nego dovoljan za posao i veoma stabilan, što se ne može reći za Windows-e.

Da i još nešto, XUBUNTU je potpuno besplatan i legalan operativni sistem, kao i sve aplikacije na njemu, tako da štedite 20.000 dinara koje bi dali za Windows i 40.000 dinara koje bi dali za Microsoft Office (i to po svakom kupljenom kompjuteru).

Recimo da jedan prosečni kancelarijski kompjuter košta oko 40.000 dinara bez operativnog sistema, ukoliko birate Windows, onda za legalnu konfiguraciju sa Windows-om i Office-om morate izdvojiti:
40.000 + 20.000 + 40.000, što je 100.000 dinara po svakom kupljenom kompjuteru.

Ukoliko birate alternativno besplatno rešenje za svoju kancelariju, a mali ste privatnik, koji nema baš puno para za razbacivanje, onda umesto 100.000 dinara, možete dobiti istu stvar za 40.000 dinara ili za 0,00 dinara ukoliko već imate neki 10 godina stari kompjuter.


***








Monday, February 5, 2018

free sms

http://www.e-freesms.com/

1)

СТАНКОВИЋ


Грб ове племићке породице налази се у свим илирским грбовницима. Ова породица потиче из Вучевице код Пливе. Три сребрена копита на штиту одају рашко порекло.




Извор:



2)


Стојан Караџић, Вук Шибалић: „Дробњак и породице у ДРОБЊАКУ и њихово поријекло“, II допунско издање, Београд, 1997, ИШ ‘Стручна књига’
СТАНКОВИЋИ
(живе на Мокроме)
Станковићи воде поријекло од Калабића. Садашње презиме су добили по Станку Вуканову Калабићу. Станко је имао синове Митра, Павла, Спасоја, Андрију, Ђурка и Драгића. Једном приликом дочекају Турке с плијеном који су заплијенили у селу Придворици. Митар је са браћом Турке побио, а плијен вратио и предао га Придворичанима. У овој борби погибоше Спасоје и Андрија. Сви данашњи Станковићи на Мокром су од Андрије Станкова, а Радоњићи од Митра, како је већ наведено у одјељку о Радоњићима Андрија Станков је имао два сина – Пера и Рада.
У НОР-у 1941-1945. године, Василије-Васо Вулов и Милка су погинули као припадници јединица НОВ-а, и то: Васо на Пештеру 1944. године, а Милка код Бијељине 1944. године.
Славе Ђурђевдан, а прислужују Никољдан.

ИЗВОР: Стојан Караџић, Вук Шибалић: Дробњак и породице у Дробњаку и њихово поријекло, 1997, приредио сарадник портала ПОРЕКЛО Војислав Ананић