Премини към съдържанието

Ken

VIP Потребител
  • Публикации

    18295
  • Регистрация

  • Топ дни

    8

Всичко публикувано от Ken

  1. Последно Skype зарежда ли се при стартиране и проблема е питането на стената дали да разреши това, или не се стартира ? Ти позволи ли на Skype да се свързва към интернет ?
  2. Ken

    Помощ за списък с автомобили

    Не може ли просто да платиш за още GB, и да използваш собствения си хостинг ? Каква е гаранцията, че утре няма да ти изтрият снимките от imageshack, или ще се зареждат безпроблемно ? По-големият проблем според мен е, че само с HTML няма да успееш да направиш това, което искаш : функциите за сортиране, страниране и т.н.
  3. Искаш да сложиш 2GB DDR2 на някакво дъно, което подържа DDR2 ли ? АМи би трябвало да тръгне. Обаче защо споменаваш някакви 256MB DDR ? Те досега на същото дъно ли са били ? В такъв случай някъде бъркаш, и новата памет няма да влезе в слотовете.
  4. Или използваш някаква добавка за забрана на Javascript на страницата, или от менюто View - Page source сваляш цялата страница, и си измъкваш нужния текст.
  5. Ако една жена ви възприема такъв, какъвто сте, то вие не сте такъв, за какъвто и се представяте.

  6. Ken

    Windows 7 map network drive проблем

    Това е за XP , но може да сработи и при теб. Изпълни го от конзолата : regsvr32 /u shmedia.dll Ако няма ефект, може да възстановиш състоянието с: regsvr32 shmedia.dll
  7. Отваряш Еxcel. Натискаш Alt+F11. Щракваш с десен бутон на Microsoft Excel Object в левия панел, и избираш Insert - Module. Копираш горния код в модула и го записваш. След това в клетка от листа въвеждаш : =dig2txt(A1) и в тази клетка ще се изведе числото от А1 обърнато в текст.
  8. Option Explicit Dim warray(9) As String Dim edin, edna, dwa, dwe, sto, dwesta, trista, stotin, deset, mil, mila, mild, milda, hil, hili, lw, st, i, jn, na Sub Init() warray(1) = "ед" warray(2) = "дв" warray(3) = "три" warray(4) = "четири" warray(5) = "пет" warray(6) = "шест" warray(7) = "седем" warray(8) = "осем" warray(9) = "девет" jn = "ин" na = "на" sto = "сто" dwesta = "двеста" trista = "триста" stotin = "стотин" deset = "десет" mil = "милион" mila = " милиона" mild = "милиард" milda = " милиарда" hil = "хиляда" hili = " хиляди" lw = " лв." st = " ст." i = " и " End Sub Function Conv(sstr As String) As String Dim rstr, astrc, bstrc, cstrc Dim apos, bpos, cpos If Len(sstr) = 3 Then apos = Asc(Mid(sstr, 3, 1)) - Asc("0") bpos = Asc(Mid(sstr, 2, 1)) - Asc("0") cpos = Asc(Mid(sstr, 1, 1)) - Asc("0") Else apos = Asc(Mid(sstr, 2, 1)) - Asc("0") bpos = Asc(Mid(sstr, 1, 1)) - Asc("0") cpos = 0 End If If apos = 1 Then If Len(sstr) = 3 Then astrc = warray(apos) + jn Else astrc = warray(apos) + na End If Else If apos = 2 Then If Len(sstr) = 3 Then astrc = warray(apos) + "а" Else astrc = warray(apos) + "e" End If Else If (apos >= 3) And (apos <= 9) Then astrc = warray(apos) End If End If If bpos = 1 Then If apos = 1 Then bstrc = astrc + "а" + deset astrc = "" Else If apos = 0 Then bstrc = deset astrc = "" Else If (apos >= 2) And (apos <= 9) Then bstrc = astrc + na + deset astrc = "" End If End If Else If bpos = 2 Then bstrc = warray(bpos) + "а" + deset Else If (bpos >= 3) And (bpos <= 9) Then bstrc = warray(bpos) + deset End If End If Select Case cpos Case 1 cstrc = sto Case 2 cstrc = dwesta Case 3 cstrc = trista Case Else If (cpos >= 4) And (cpos <= 9) Then cstrc = warray(cpos) + stotin End Select rstr = astrc If Len(cstrc) > 0 Then If Len(astrc) > 0 Then If Len(bstrc) > 0 Then rstr = cstrc + " " + bstrc + i + rstr Else rstr = cstrc + i + rstr End If Else If Len(bstrc) > 0 Then rstr = cstrc + i + bstrc Else rstr = cstrc End If End If Else If Len(bstrc) > 0 Then If Len(astrc) > 0 Then rstr = bstrc + i + rstr Else rstr = bstrc End If End If End If Conv = rstr End Function Function Dig2Txt(instring As String) As String Dim LastDelimiter As String, wstr As String, fstr As String, ostring As String, cstrc As String Dim c1, c2 Init wstr = instring LastDelimiter = InStr(1, wstr, ".") If LastDelimiter > 0 Then fstr = Mid(wstr, LastDelimiter + 1, 2) wstr = Mid(wstr, 1, LastDelimiter - 1) End If If Len(fstr) < 2 Then fstr = Mid("00", 1, 2 - Len(fstr)) + fstr End If ostring = "" c1 = 0 Do While wstr <> "" If Len(wstr) < 3 Then wstr = Mid("000", 1, 3 - Len(wstr)) + wstr End If cstrc = Conv(Mid(wstr, Len(wstr) - 2, 3)) Select Case c1 Case 0 If cstrc <> "" Then If (wstr = "001") Then cstrc = edin ElseIf (wstr = "002") Then cstrc = dwa End If End If Case 1 If (Mid(wstr, Len(wstr) - 2, 3) > "000") Then If (wstr = "001") Then cstrc = hil Else cstrc = cstrc + hili End If End If Case 2 If (Mid(wstr, Len(wstr) - 2, 3) > "000") Then If (wstr = "001") Then cstrc = cstrc + " " + mil Else cstrc = cstrc + mila End If End If Case 3 If (wstr = "001") Then cstrc = cstrc + " " + mild Else cstrc = cstrc + milda End If End Select If cstrc <> "" Then If c1 > 0 Then ostring = cstrc + " " + ostring Else ostring = cstrc End If End If If Len(wstr) >= 3 Then wstr = Mid(wstr, 1, Len(wstr) - 3) Else wstr = "" End If c1 = c1 + 1 Loop If Len(fstr) > 0 Then cstrc = Conv(fstr) ostring = RTrim(ostring) If ostring <> "" Then Dig2Txt = ostring + lw + "," + cstrc + st Else Dig2Txt = cstrc + st End If Else Dig2Txt = ostring + lw End If End Function Това е VBA код за MSAccess, но може да се използва и в Excel. Копира се кода в нов модул на VBA (Alt+F11) и се използва в клетка като : =dig2txt(клетка)
  9. Ken

    Windows 7 map network drive проблем

    Всички обекти в D: ли са показани ? Скритите файлове и папки, имам предвид. Освен грешките от Windows Search нямаше ли и такива с източник explorer.exe в Application ?
  10. Ken

    Windows 7 map network drive проблем

    А грешки в System log-а има ли ?
  11. Ако разгадаем всички тайни на вселената, то веднага ще изпаднем в неизлечима скука.

    1. Анинфид

      Анинфид


      Не , винаги ще има нещо ново... знаем ли всичко ще можем да градим ново... На пример промяна на физическите закони ;)!

    2. shefkata

      shefkata

      Защото интересна е самата загадка, а не толкова намереният и отговор...

  12. Ken

    Windows 7 map network drive проблем

    Погледни в лога с грешките, какво има в Application.
  13. Ken

    Windows 7 map network drive проблем

    Има ли директно в D: файлове с филми или видео клипове ? Ако има, премести ги в друга папка и опитай да го отвориш. Преместването може да направиш през конзолата (cmd) с командата Move.
  14. http://www.ehow.com/...le-cd-nero.html http://www.ehow.com/how_4969900_make-bootable-iso-nero.html
  15. Колко пъти досега си правил запис на зареждащ диск, и си преинсталирал Windows, изобщо?
  16. Ken

    Windows 7 map network drive проблем

    И от какъв зор трябва да пускаш тази програма ? Най-добре, тъкмо е преинсталиран, направи една чиста преинсталация и този път прескочи стъпката с Advanced System бла-бла.
  17. Ти името на мрежата и паролата, от телефона ли се опитваш да промениш ? Това се прави на рутера.
  18. Няма ли някакъв бутон Запази или нещо подобно ? Явно не записваш промените.
  19. Ken

    Помощ

    За InternetExplorer : Tools - Internet Options - Browsing History - бутон Delete За Firefox : Tools - Clear Recent History
  20. Имаш предвид сайт, от който ще може онлайн да се гледат филми ли ? Дай някакво предложение, къде би могъл да се хоства подобен сайт ?
  21. За DVD устройство не ти трябват драйвери. От Device manager - десен бутон Uninstall на DVD устройството. Реастартирай компютъура и Windows ще го зареди наново. За запис на дискове може да използваш ImgBurn. За запис на изображение на LabelFlash ти трябва : специален диск (Fuji) и софтуер - на страницата, която си дал има линк към такъв. LabelFlash дискове : http://www.pazaruvaj.com/prazni-diskove-cd-dvd-c3098/fujifilm/dvd-r-fujifilm-labelflash-120min-4-7gb-16x-cdbox-p14529179/
  22. Едва ли. Натисни Start - напиши diskmgmt.msc и Enter. Избери DVD устройството, десен бутон и Properties.
  23. Сега, ако нямаш какво да правиш, можеш да излезеш навън, и да почистиш снега пред входа. Или да прочетеш как се прави цитат.
  • Разглеждащи това в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×
×
  • Добави ново...