Среда, Август 5th, 2009
Хочется начать прямо словами Владимира Ильича Ульянова (Ленина): «Рабочая и крестьянская революция, о необходимости которой все время говорили большевики, совершилась!», ну а если быть серьезным, то ничего страшного не случилось и не какой революции речи не идет. Вернее революционное движение IP телефонии или как правильно принято говорить, голос поверх протокола IP (Voice over IP – VoIP) давно уже начато по всему миру и России в том числе. Только Российские законы и гос. служащие в свое время заняли очень интересную позицию, они просто на просто сделали вид, что такого вида услуг просто на просто нет. А раз нет, то и нечего о нем думать. Вернее услуга как бы есть и есть даже лицензия, описывающая в общих чертах как правильно предоставлять услугу VoIP, но только никаким образом и никакими законами не описано, как правильно делать подключение к узлам междугородней, международной связи. Какими законами необходимо руководствоваться при выделении нумерации и т.п. Одним словом – законов нет. Но есть факт – VoIP живет и процветает, причем, не особо смотря на законы. Вся разница в том, что если у «загнивающих капиталистов», «что не запрещено – то разрешено», то над Российским бизнесом всех мастей довлеет обратное правило – «что не разрешено, то запрещено».
Так что же произошло? Произошло вполне закономерное явление. Устали, российские законопослушные операторы связи, смотреть на то, что существующий и давно проверенный ресурс по передаче голоса виде публичных (обращу Ваше внимание на термин публичные, т.е. читайте – Интернет) IP каналов, ввиду скудности законов, просто на просто занимается и активно используется иностранными компаниями, для которых Российские законы не указ или используются пиратскими способами. Это при всем при том, что технически и организационно, они давно созрели к его использованию. Вот и «прорвало» господина Ермакова В.В. (Первый заместитель генерального директора ОАО «МегаФон») на очередном заседании Комиссии РСПП. Доколе же такую «вкусную» нишу занимают те, кому закон не указ. Вот и поступило вполне разумное предложение, как то – «…рабочей группе подготовить рекомендации по совершенствованию нормативной правовой базы отрасли в области IP телефонии…». Видно готов «МегаФон» оказывать услуги подобные Skype.
Что из этого следует? Судя по тому, что инициатором выступил, как не странно, оператор сотовой связи, а полнофункциональная и качественная работа по протоколу VoIP возможна только при соответствующем качестве IP каналов, то скорее всего данный оператор готов в ближайшее время предоставить в полном объеме такие каналы (попробуйте воспользоваться Skype, при подключении через GPRS модем - не сильно-то и поговорите, загруженность пакетной сети, плюс задержки превратят Ваш разговор в кваканье) и заблаговременно готовит законодательную почву. Далее – если у оператора появится вполне законная возможность передавать голос через (дешевую относительно выделенных каналов, но менее надежную) Интернет сеть, то это должно будет снизить стоимость разговора. Т.е. должны будут появится услуги типа – хотите дешево и с худшим качеством – получите. Ну и последнее, то, что уже «МегаФон» заявил – появление новой услуги виде звонков с компьютера на сотовый, с сотового на компьютер, с сотового через Интернет посредством специального софта и т.п. Параллельно на рынке должны будут появится и другие Российские игроки в VoIP, которые в настоящее время если о оказывают такие услуги, то практически подпольно или полуподпольно.
Чего боятся? Только одного – зачастую хотим как лучше, а получится как всегда. Боятся надо кривых законов. Запрещающих, а не позволяющих развивать и развиваться.
Что не понятно? Не понятно одно – шумиха вокруг заседания Комиссии РСПП. Не понятны истерические выкрики типа «даешь саботаж!», «ату его, ату!», «нас тут активных пользователей Skype жизни лишают!» и т.п. Народ! А чего шумим?! Пойдите в начале почитайте презентацию Ермакова В.В., потом прочитайте протокол заседания. Все эти материалы можно получить прямо с сайта РСПП, пройдя регистрацию. А сейчас получается на всех сайтах крики, визги и слюни и ни о чем. Такое впечатление, что истерия поддерживается специально. Вопрос только – для чего и для кого?
Искренне Ваш. Билли.
Tags: skayp, skip, skipe, skype, VoIP, БиЛайн, буря, Ермаков, запрет, МагаФон, мега, МТС, паника, программа, серть, СОРМ, сотовая, стакан
Posted in Andron, TV, Toaly, technorati, Голосование, Краснодар, НЛО, Обовсем, Операционные системы, Сотовая связь, Ухачуха, юмор | 2 Comments »
Четверг, Июнь 18th, 2009
Коллега увидел оформление мною командировочных расходов и очень сильно захотел получить такой вот замечательный код, так сказать hit (hits) сезона. Честно говоря я его давным давно вытащил откуда-то из Интернета и не помню какой добрый человек его написал и выложил, знал бы разместил бы ссылку на его сайт. Но коли бесплатно его в свое время получил, то бесплатно и выкладываю для скачивания (одним файлом можно его скачать тут - Скрип для перевода в рубли прописью) Идея довольно простая - есть число, необходимо представить его прописью и добавить слово рублей. С копейками мне работать не приходится, поэтому ставится всегда “00 коп.”, если кого-то не устраивает - дорабатывайте, на свой вкус.
Прикручивается он к Excel довольно просто и на то как это сделать есть масса описаний в Интернете, поэтому размещаю сам текст (еще раз спасибо неизвестному доброму человеку за его написание):
Attribute VB_Name = “Module1″
Function propis(SourceDigits As Currency) As String
Dim STRNG As String, CHAR, Result As String, Prom As String
Dim i, STRNG_len As Long
Dim SourceDigTail As Currency
SourceDigTail = (SourceDigits - Int(SourceDigits)) * 100
SourceDigits = Int(SourceDigits)
STRNG = SourceDigits
STRNG_len = Len(STRNG)
For i = 1 To 9 - STRNG_len Step 1
STRNG = “0″ & STRNG
Next i
For i = 9 To 9 - STRNG_len + 1 Step -1
CHAR = Mid(STRNG, i, 1)
If CHAR = “” Then GoTo end_c
If i = 2 Or i = 5 Or i = 8 Then
If CHAR = “1″ Then
CHAR = Mid(STRNG, i, 2)
Select Case CHAR
Case “10″
Prom = “десять ”
Case “11″
Prom = “одиннадцать ”
Case “12″
Prom = “двенадцать ”
Case “13″
Prom = “тринадцать ”
Case “14″
Prom = “четырнадцать ”
Case “15″
Prom = “пятнадцать ”
Case “16″
Prom = “шестнадцать ”
Case “17″
Prom = “семьнадцать ”
Case “18″
Prom = “восемьнадцать ”
Case “19″
Prom = “девятнадцать ”
End Select
Else ‘ If char Not = 1
Select Case CHAR
Case “0″
Prom = “”
Case “2″
Prom = “двадцать ”
Case “3″
Prom = “тридцать ”
Case “4″
Prom = “сорок ”
Case “5″
Prom = “пятьдесят ”
Case “6″
Prom = “шестьдесят ”
Case “7″
Prom = “семьдесят ”
Case “8″
Prom = “восемьдесят ”
Case “9″
Prom = “девяносто ”
End Select
End If
End If
If i = 1 Or i = 4 Or i = 7 Then
Select Case CHAR
Case “0″
Prom = “”
Case “1″
Prom = “сто ”
Case “2″
Prom = “двести ”
Case “3″
Prom = “триста ”
Case “4″
Prom = “четыреста ”
Case “5″
Prom = “пятьсот ”
Case “6″
Prom = “шестьсот ”
Case “7″
Prom = “семьсот ”
Case “8″
Prom = “восемьсот ”
Case “9″
Prom = “девятьсот ”
End Select
End If
If i = 3 Or i = 6 Or i = 9 Then
If i = 9 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “рублей ” & Result
GoTo end_c
End If
If i = 3 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “миллионов ” & Result
GoTo end_c
End If
If i = 6 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “тысяч ” & Result
GoTo end_c
End If
Select Case CHAR
Case “0″
Prom = “”
Case “1″
If i = 6 Then
Prom = “одна ”
Else
Prom = “один ”
End If
Case “2″
If i = 6 Then
Prom = “две ”
Else
Prom = “два ”
End If
Case “3″
Prom = “три ”
Case “4″
Prom = “четыре ”
Case “5″
Prom = “пять ”
Case “6″
Prom = “шесть ”
Case “7″
Prom = “семь ”
Case “8″
Prom = “восемь ”
Case “9″
Prom = “девять ”
End Select
End If
Select Case i
Case 3
Select Case CHAR
Case “1″
Result = “миллион ” & Result
Case “2″, “3″, “4″
Result = “миллиона ” & Result
Case “5″, “6″, “7″, “8″, “9″
Result = “миллионов ” & Result
Case “0″
If STRNG_len > 6 Then
Result = “миллионов ” & Result
End If
End Select
Case 6
Select Case CHAR
Case “1″
Result = “тысячa ” & Result
Case “2″, “3″, “4″
Result = “тысячи ” & Result
Case “5″, “6″, “7″, “8″, “9″
Result = “тысяч ” & Result
Case “0″
If STRNG_len > 3 Then
Result = “тысяч ” & Result
End If
End Select
Case 9
Select Case CHAR
Case “1″
Result = “рубль ” & Result
Case “2″, “3″, “4″
Result = “рубля ” & Result
Case “0″, “5″, “6″, “7″, “8″, “9″
Result = “рублей ” & Result
End Select
End Select
Result = Prom & Result
end_c:
Next i
Result = Format(Mid(Result, 1, 1), “>”) & Mid(Result, 2)
propis = Result & Format(SourceDigTail, “00″) & ” коп.”
End Function
Вот и весь макрос. Если кто-то желает что-то написать на эту тему - пишите вот по этому адресу: mail@key-vip.com
А вот тут похожее обсуждение, того же макроса http://www.liveinternet.ru/users/lyuciena/post39732232/
Если будут силы, чуть позже выложу Excel файл, в котором это применяется при заполнении командировки и написании авансового отчета. А может вообще отдельный ТОП (TOP) ик организую. “В помощь EXEL истам”
Всегда Ваш.
Tags: "10, 100, 11, 12, 13, 14, 15, 16, 17, 18, 19, 200, Bas, Excel, hit, hits, macros, Microsoft, top, байск, бесплатно, бухгалтерия, восемьдесят, восемьнадцать, восемьсот, двадцать, две, двенадцать, двести, девяносто, девятнадцать, девятьсот, десять, макрос, миллион, миллиона, миллионов, один, одиннадцать, одна, преобразование, программирование, пропись, пятнадцать, пятьдесят, пятьсот, рублей, рубли, рубль, рубля, семьдесят, семьнадцать, семьсот, скачать, сорок, сто, текст, три, тридцать, тринадцать, триста, тысяч, тысячa, тысячи, цифра, четыре, четыреста, четырнадцать, число, шестнадцать, шестьдесят, шестьсот, язык
Posted in Andron, Apache Hadoop, Cisco, England, Kozel, Lama, Philips, Pussy, TOP 100, animal, bugs, clothing, email, hosting, hotel, humor, no sex, phone, Авторы, Бесплатно, Обовсем | No Comments »
Четверг, Апрель 3rd, 2008
Сегодня прибыло два новых автора на проекте: VGG (Василий) и Andron (Андрей, понятное дело). Andron работает оператором, снимает свадьбы, монтирует видео. У Василия тоже интересная профессия, о которой он расскажет сам, если представится это возможным.
От лица группы товарищей - большой привет и Добро пожаловать!
Tags: ass
Posted in Andron, VGG, Новые авторы | 4 Comments »