Компьютерные программы и прочий софт.

Форум » » Компьютерные программы и прочий софт. » Ответить

Компьютерные программы и прочий софт.

Iskander: По теме.

Ответов - 12

Закорецкий: marat пишет: Ну, вы наверное в курсе, что есть такие программки, которые преобразуют текст в звук - установите и слушайте, если проблемы с чтением. Про "звук" в "текст" слышал ("Горыныч" называется). А наоборот - чё-то не попадались. "Графику" в "текст" - да, сам пользуюсь периодами.

Px: Таких программ куча, для иностранных языков в первую очередь на базе инструментария Microsoft Speech API, для озвучивания песен наиболее популярен Vocaloid, русскоязычных поменьше, но тоже достаточно, поиском находятся на раз

Закорецкий: http://www.i.com.ua/~zhistry2/imagesk/astrlab.rar - программа просмотра солнечной системы (сверху, сбоку, по планетам, по их спутникам и т.д.). Старенькая, но "шаред".

Закорецкий: http://www.opera.com/browser/ - Загрузить на шару новую "Оперу"-10

Закорецкий: Макрос для WORD, расписывающий суммы в числах словами. И выделяющий ПДВ (НДС). Сам сочинял. Ставил на все, включая Word-2002. На 2003 поставить не смог, сколько не бился. Видимо, надо почитать инструкцию. На 2007 не ставил. ====================== Public Sub DecToTxt() Dim A2 As String, D1 As String, A3 As String, W1 As Double Dim PDV As Double, D2 As String, KJ As Integer A3 = "А ничего не выбрано!! Или выбран один символ, а это не переводится!! Или выбрано не число!!" If Len(Selection) > 1 Then A2 = Selection If Val(A2) > 0 Then Call TRANSSUM(A2, D1, "K") KJ = InStr(A2, ","): If KJ > 0 Then Mid$(A2, KJ, 1) = "." W1 = Val(A2) PDV = W1 * 0.2 A2 = Str(PDV) Call TRANSSUM(A2, D2, "K") Selection = D1 & ", у тому числі ПДВ" & " " & D2 Else MsgBox (A3) End If Else MsgBox (A3) End If End Sub ================== '----------------------------------------------------------------- Public Sub TRANSSUM(A1 As String, D1 As String, PR1 As String) 'Процедура переписывания чисел до 99999999.99 строкой слов 'PR1 - Признак "K"-с коп., "O"-с 00 коп, "N" -без коп. ' Пример вызова: Call TRANSSUM(A2, D11, "K") Dim KB1 As Integer, TA1 As String, KC1 As Long, DC1 As Integer, DS1 As String Dim dd1 As String, D21 As String, D22 As String, D3 As String, D4 As String Dim D5 As String, D6 As String, D7 As String, D8 As String, BB1 As String Dim JB1 As Integer, JB2 As Integer, I1 As Integer, FL1 As Integer, PCH1 As String Dim KJ As Integer, DLC As Integer, KBD As Integer Dim FLGNUL As Boolean, dd2 As Single dd2 = Val(A1) If dd2 < 1 Then FLGNUL = True Else FLGNUL = False KJ = InStr(A1, "."): If KJ > 0 Then Mid$(A1, KJ, 1) = "," KJ = InStr(A1, ",") If KJ < 1 Then A1 = A1 + ",00" KJ = InStr(A1, ",") KBD = InStr(A1, ","): DLC = Len(A1) If DLC - KBD = 1 Then A1 = A1 & "0" KB1 = InStr(A1, ",") - 1 JB1 = 0: FL1 = 0 For I1 = 1 To KB1 TA1 = Mid$(A1, I1, 1) Select Case TA1 Case " ", "0": Mid$(A1, I1, 1) = " " Case Else FL1 = 1 End Select If FL1 = 1 Then Exit For Next I1 For I1 = KB1 To 1 Step -1 If Mid$(A1, I1, 1) <> " " Then JB1 = JB1 + 1 Else Exit For Next I1 TA1 = Mid$(A1, 1 + (KB1 - JB1), KB1 - (KB1 - JB1)): KC1 = Val(TA1) If KC1 > 99999999 Then D1 = "Сумма больше 99 999 999! Нет трансформации !!": Exit Sub If KC1 < 10 Then '-----0.00 DC1 = KC1: GoSub KODODIN: DS1 = dd1 ElseIf KC1 > 9 And KC1 < 20 Then '-----00.00 DC1 = KC1: GoSub KODDVA: DS1 = D21 ElseIf KC1 > 19 And KC1 < 100 Then '-----00.00 BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1): GoSub KODDVAB BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1): GoSub KODODIN DS1 = D22 + dd1 ElseIf KC1 > 99 And KC1 < 1000 Then '-----000.00 BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1): GoSub KODTRI BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D3 + D21 End If ElseIf KC1 > 999 And KC1 < 10000 Then '-----0 000.00 BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1): GoSub KODCHET BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1) If DC1 > 0 Then GoSub KODTRI Else D3 = "" BB1 = Mid$(TA1, 3, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D4 + D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D4 + D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D4 + D3 + D21 End If ElseIf KC1 > 9999 And KC1 < 100000 Then '-----00 000.00 JB2 = 2: BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1) If DC1 > 1 Then GoSub TRIKOD1: D5 = D22 + D4: D22 = "" Else GoSub TRIKOD2: D5 = D21 + "тисяч ": D21 = "" End If BB1 = Mid$(TA1, 3, 1): DC1 = Val(BB1) If DC1 > 0 Then GoSub KODTRI Else D3 = "" BB1 = Mid$(TA1, 4, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D5 + D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D5 + D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D5 + D3 + D21 End If ElseIf KC1 > 99999 And KC1 < 1000000 Then '-----000 000.00 JB2 = 3: BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1): GoSub KODTRI: D6 = D3: D3 = "" BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub TRIKOD: D5 = D6 + D4 ElseIf DC1 > 1 Then GoSub TRIKOD1: D5 = D6 + D22 + D4: D22 = "" Else GoSub TRIKOD2: D5 = D6 + D21 + "тисяч ": D21 = "" End If BB1 = Mid$(TA1, 4, 1): DC1 = Val(BB1): GoSub KODTRI BB1 = Mid$(TA1, 5, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D5 + D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D5 + D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D5 + D3 + D21 End If ElseIf KC1 > 999999 And KC1 < 10000000 Then '-----0 000 000.00 JB2 = 4: BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1): GoSub KODSEM BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1): If DC1 > 0 Then GoSub KODTRI: D6 = D3: D3 = "" BB1 = Mid$(TA1, 3, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub TRIKOD: D5 = D6 + D4 ElseIf DC1 > 1 Then GoSub TRIKOD1: D5 = D6 + D22 + D4: D22 = "" Else GoSub TRIKOD2: D5 = D6 + D21 + "тисяч ": D21 = "" End If BB1 = Mid$(TA1, 5, 1): DC1 = Val(BB1): GoSub KODTRI BB1 = Mid$(TA1, 6, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D7 + D5 + D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D7 + D5 + D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D7 + D5 + D3 + D21 End If ElseIf KC1 > 9999999 And KC1 < 100000000 Then '----00 000 000.00 JB2 = 5: BB1 = Mid$(TA1, 1, 1): DC1 = Val(BB1) If DC1 > 1 Then GoSub KODDVAB: BB1 = Mid$(TA1, 2, 1): DC1 = Val(BB1): GoSub KODSEM D8 = D22 + D7: D22 = "" Else BB1 = Mid$(TA1, 1, 2): DC1 = Val(BB1): GoSub KODDVA: D8 = D21 + "миллионов ": D21 = "" End If BB1 = Mid$(TA1, 3, 1): DC1 = Val(BB1): If DC1 > 0 Then GoSub KODTRI: D6 = D3: D3 = "" BB1 = Mid$(TA1, 4, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub TRIKOD: D5 = D6 + D4 ElseIf DC1 > 1 Then GoSub TRIKOD1: D5 = D6 + D22 + D4: D22 = "" Else GoSub TRIKOD2: D5 = D6 + D21 + "тисяч ": D21 = "" End If BB1 = Mid$(TA1, 6, 1): DC1 = Val(BB1): GoSub KODTRI BB1 = Mid$(TA1, 7, 1): DC1 = Val(BB1) If DC1 = 0 Then GoSub DVAKOD: DS1 = D8 + D5 + D3 + dd1 ElseIf DC1 > 1 Then GoSub DVAKOD1: DS1 = D8 + D5 + D3 + D22 + dd1 Else GoSub DVAKOD2: DS1 = D8 + D5 + D3 + D21 End If End If GoSub PECH: D1 = Trim(DS1) '& " грн." If UCase$(PR1) = "O" Then D1 = D1 & " коп. 00" ElseIf UCase$(PR1) = "K" Then If Len(A1) >= KJ + 2 Then TA1 = Mid$(A1, KJ + 1, 2) Else TA1 = Right$(A1, 2) End If D1 = A1 & " (" & D1 & ") грн. " & TA1 & " коп." End If Exit Sub KODODIN: Select Case DC1 Case 0: If FLGNUL Then dd1 = "нуль" Else Return Case 1: dd1 = "одна " Case 2: dd1 = "дві " Case 3: dd1 = "три " Case 4: dd1 = "чотири " Case 5: dd1 = "п'ять " Case 6: dd1 = "шiсть " Case 7: dd1 = "сiм " Case 8: dd1 = "вiсiм " Case 9: dd1 = "дев'ять " End Select Return KODDVA: Select Case DC1 Case 10: D21 = "десять " Case 11: D21 = "одинадцять " Case 12: D21 = "дванадцять " Case 13: D21 = "тринадцять " Case 14: D21 = "чотирнадцять " Case 15: D21 = "п'ятнадцять " Case 16: D21 = "шiстнадцять " Case 17: D21 = "сiмнадцять " Case 18: D21 = "вiсiмнадцять " Case 19: D21 = "дев'ятнадцять " End Select Return KODDVAB: Select Case DC1 Case 2: D22 = "двадцять " Case 3: D22 = "тридцять " Case 4: D22 = "сорок " Case 5: D22 = "п'ятдесят " Case 6: D22 = "шiстдесят " Case 7: D22 = "сiмдесят " Case 8: D22 = "вiсiмдесят " Case 9: D22 = "дев'яносто " End Select Return KODTRI: Select Case DC1 Case 1: D3 = "сто " Case 2: D3 = "двiстi " Case 3: D3 = "триста " Case 4: D3 = "чотириста " Case 5: D3 = "п'ятсот " Case 6: D3 = "шiстсот " Case 7: D3 = "сiмсот " Case 8: D3 = "вiсiмсот " Case 9: D3 = "дев'ятсот " End Select Return KODCHET: Select Case DC1 Case 0: D4 = "тисяч " Case 1: D4 = "одна тисяча " Case 2: D4 = "двi тисячі " Case 3: D4 = "три тисячі " Case 4: D4 = "чотири тисячі " Case 5: D4 = "п'ять тисяч " Case 6: D4 = "шiсть тисяч " Case 7: D4 = "сiм тисяч " Case 8: D4 = "вiсiм тисяч " Case 9: D4 = "дев'ять тисяч " End Select Return KODSEM: Select Case DC1 Case 0: D7 = "мiльйонiв " Case 1: D7 = "один мiльйон" Case 2: D7 = "два мiльйона " Case 3: D7 = "три мiльйона " Case 4: D7 = "чотири мiльйона " Case 5: D7 = "п'ять мiльйонiв " Case 6: D7 = "шiсть мiльйонiв " Case 7: D7 = "сiм мiльйонiв " Case 8: D7 = "вiсiм мiльйонiв " Case 9: D7 = "дев'ять мiльйонiв " End Select Return DVAKOD: BB1 = Mid$(TA1, JB1, 1): DC1 = Val(BB1): GoSub KODODIN Return DVAKOD1: GoSub KODDVAB: BB1 = Mid$(TA1, JB1, 1): DC1 = Val(BB1): GoSub KODODIN Return DVAKOD2: BB1 = Mid$(TA1, JB1 - 1, 2): DC1 = Val(BB1): GoSub KODDVA Return TRIKOD: BB1 = Mid$(TA1, JB2, 1): DC1 = Val(BB1) If DC1 > 0 Then GoSub KODCHET Else If D6 <> "" Then D4 = "тисяч " End If Return TRIKOD1: GoSub KODDVAB: BB1 = Mid$(TA1, JB2, 1): DC1 = Val(BB1) If DC1 > 0 Then GoSub KODCHET Else D4 = "тисяч " Return TRIKOD2: BB1 = Mid$(TA1, JB2 - 1, 2): DC1 = Val(BB1): GoSub KODDVA Return PECH: '---- Первую букву - большую ----- Return PCH1 = Mid$(DS1, 1, 1) Select Case Asc(PCH1) Case 224 To 255: Mid$(DS1, 1, 1) = Chr$(Asc(PCH1) - 32) End Select Return End Sub '---------------------------------------

Закорецкий: Для пользования макросом выше - разместить в VBA, сделать для его вызова кнопку (в WORDe-2003 не смог). Потом набирается число, выделяется оно и нажимается на кнопку вызова макроса "DecToTxt".

Закорецкий: Внимание! На днях столкнулся с проблемой вирусов. "Доктор Вебер" "взял" только один файл из подозрительной кучи, которые возникли в папке "C:\WINDOWS\system32\" Вероятный список по моим данным там же на 4/03/2010: B0O0jKx.exe Jrp19zf.exe MgFkVIp.exe 0NjMGtR.exe w5lMwnZ.exe lIQsug9.exe dti7fNb.exe GO4lIdg.exe 1Md9Zzv.exe uLQwtsb.exe ZBzo9ez.exe 4YLmFLl.exe 2Pi5ZYk.exe 5g0bpol.exe IirGmJU.exe Возможно, распространяются с какими-то играми, в т.ч. которые "крякаются" каким-то "Взломщиком Alawar". Проблема в том, что сам взломщик заражен. Его "Вебер" определяет. Но откуда взялась еще куча ехе-файлов в "C:\WINDOWS\system32\", которых он не видит - пока не знаю. Последствия заражения: глохнут открытия разных окон. По крайней мере под включенным "Спайдером" "Вебера". Сам "Спайдер" заводится очччень медленно. Глохнет вывод звука. Глохнет выход в Интернет. Нет реакции в окне "Выключить компьютер" и т.д.

Caterpillar: Кто-нибудь уже ставил себе Photoshop CS5?

Закорецкий: Caterpillar пишет: Кто-нибудь уже ставил себе Photoshop CS5?Сколько я не пытался изучить Фотошоп, жуткое меню постоянно возвращает меня к моей старенькой программе iPhotoDeluxe под Win-3.1. В открытом виде занимает 1 (одну) дискету. Jene пишет: А кагбэ предполагается, что все должны купить МС Офис, и не ниже чем 2007? Я знаю про всякие конверторы, про OpenOffice, но не проще все-таки в текстовую табличку свести или в html? Как-то на диске с софтом нашел конвертор формата Word-2007 для предыдущих Word-ов. Поставил. Создает в списке форматов "Word-2007". Но в Excel не было добавления. Я скачал конвертор с сайта Майкрософт ( FileFormatConverters.exe ), начал ставить, а он говорит - "У вас уже стоит одна версия, второй раз НЕ надо". Так я запустил Excel-XP и он открыл Excel-2007. Еще на том диске была программа "от наших китайских товарищей", которая заменяет меню Word-2007 на вид как в предыдущих версиях.

Alex123654: симсы в помощь http://4sims.ru

Закорецкий: Книгоморфиус. По необъяснимой причине тысячи талантливых индивидов выкладывают в Сеть оцифрованные книги в каком-нибудь хитрожопом формате, вроде odt, pdf или prc. Радарка замоталась искать уникальные кодировщики под каждый нестандарт, который умудряются подцепить ее друзья. И нашла 2epub.com – сладкую таблетку против горе-вылкдывальщиков (яд кураре, впрочем, тоже эффективен!). Прямо на сайте можно конвертировать книги из форматов doc, epub, fb2, html, lit, lrf, mobi, odt, pdb, pdf, prc, rtf, txt в epub, fb2, lit, lrf и mobi – то есть, привести их в гарантированно читабельный вид (epub, fb2, lit, lrf, mobi открываются на 99% мобильных девайсов). Слово «полезный» не полно отражает суть этого сайта – он буквально незаменим! 2ePub "Описаловка формата "ePub" на русском"

Закорецкий: Компьютерный стол

полная версия страницы