| Вопрос: эээээ | Добавлено: 12.04.05 18:57 |
Автор вопроса:  Дмитрий Щапов
|
| Ответы | Всего ответов: 760 |
|
Номер ответа: 646 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #646 | Добавлено: 20.04.05 23:45 |
Вмё блин теперь у меня список страниц не влазит  прикольно. Ещё Sharp Предвидел где то на 11 странице что это будет самый большой топикю. теперь можно гордиться созданной темой
|
||
|
Номер ответа: 647 Автор ответа:  sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #647 | Добавлено: 20.04.05 23:49 |
|
creteave
На русском языке чаще употребляется "креатифф" Звучит!
Сегодня я стал совсем другим человеком (надеюсь, что это именно так).
Что-же так резко поменяло твое мироощущение ? Позволь поинтересоваться...
|
||
|
Номер ответа: 648 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #648 | Добавлено: 20.04.05 23:55 |
|
2sne
Давайте объявим перемирие! Человек хочет обратно в "системщики" |
||
|
Номер ответа: 649 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #649 | Добавлено: 20.04.05 23:58 |
|
Ещё Sharp Предвидел где то на 11 странице...
* Так настрадал предсказамус. Вот только Sharp приложил некое кол-во усилий, дабы сие сбылось... |
||
|
Номер ответа: 650 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #650 | Добавлено: 21.04.05 00:02 |
|
ага... и не только он...
(я про себя говорю, не подумай... хотя ты тоже в долгу не остался) |
||
|
Номер ответа: 651 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #651 | Добавлено: 21.04.05 00:16 |
|
Что-же так резко поменяло твое мироощущение
? Позволь поинтересоваться...Не знаю... Может, это именно из-за алгоритма Base8 (tm), который я сегодня нписал... Просто давненько я не писал нчиего настолько низкоуровневого (в смысле, реалиация каких-то протоколов, форматов), может, именно это меня и изменило... Пока думаю, где может быть полезен этот Base8. Ничего кроме приложения, в которое данные передаются с обычного телефона (нажатием на кнопки телефона во время разговора) на компьютер, на котором установлено Telephony Application мне в голову не пришло... |
||
|
Номер ответа: 652 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #652 | Добавлено: 21.04.05 00:19 |
|
Человек хочет обратно в "системщики"
Шо???? Шо ты сказав???? Не, в системщики я, конечно, не хочу... Не факт, может, все-таки даже заинтерисуюсь асемблером (хотя бы IL - на крайний случай), но все равно теперь я буду по-другому смотреть на программирование.
PS Так, Base8 у меня уже есть, теперь надо писать реализацию SMTP и POP3... |
||
|
Номер ответа: 653 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #653 | Добавлено: 21.04.05 00:23 |
А я блин на делфи пересел... на два дня. Прогу написал, теперь не могу на ВБ перевести. Хз, ворде точ в точ повторяю, ан нет! работает, но неправильно 
|
||
|
Номер ответа: 654 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #654 | Добавлено: 21.04.05 00:25 |
|
На русском языке чаще употребляется "креатифф"
Звучит!Как-то у меня это больше ассоциируется с крякерскими темами. Filezzz Rulezzz Girlzzz Kreatiff А вот именно creative - это именно и есть искусство, я считаю, которое с вышеупомянутыми 4-мя словами не имеет ничего общего
|
||
|
Номер ответа: 655 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #655 | Добавлено: 21.04.05 00:47 |
|
2 CyRax
Сори, я очень рано встал, сейчас уже сил нету, иду спать. Вот мои кодировщики/декодировшики. Нет отрицаю, где-то я мог ошибиться, но все-таки недеюсь, что не ошибся. Public Class Base8
Public Shared Function FromBase8String(ByVal mBytes() As Byte) As String Dim SB As New System.Text.StringBuilder(CInt(mBytes.Length / 8 * 3)) Dim i As Integer For i = 0 To mBytes.GetUpperBound(0) - 8 Step 8 SB.Append(Chr((mBytes(i) - 49) + (mBytes(i + 1) - 49) * 8 + ((mBytes(i + 2) - 49) Mod 4) * 64)) SB.Append(Chr((mBytes(i + 2) - 49) \ 4 + (mBytes(i + 3) - 49) * 2 + (mBytes(i + 4) - 49) * 16 + ((mBytes(i + 5) - 49) Mod 2) * 128)) SB.Append(Chr((mBytes(i + 5) - 49) \ 2 + (mBytes(i + 6) - 49) * 4 + (mBytes(i + 7) - 49) * 32)) Next SB.Append(Chr((mBytes(i) - 49) + (mBytes(i + 1) - 49) * 8 + ((mBytes(i + 2) - 49) Mod 4) * 64)) If mBytes(i + 3) <> Asc("="  Then
SB.Append(Chr((mBytes(i + 2) - 49) \ 4 + (mBytes(i + 3) - 49) * 2 + (mBytes(i + 4) - 49) * 16 + ((mBytes(i + 5) - 49) Mod 2) * 128)) If mBytes(i + 6) <> Asc("=" Then
SB.Append(Chr((mBytes(i + 5) - 49) \ 2 + (mBytes(i + 6) - 49) * 4 + (mBytes(i + 7) - 49) * 32)) End If End If Return SB.ToString End Function Public Shared Function ToBase8String(ByVal mBytes() As Byte) As String Dim SB As New System.Text.StringBuilder(CInt(mBytes.Length / 3 * 8)) Dim i As Integer For i = 0 To mBytes.GetUpperBound(0) - 2 Step 3 SB.Append(Chr(mBytes(i) Mod 8 + 49)) SB.Append(Chr(mBytes(i) \ 8 Mod 8 + 49)) SB.Append(Chr(mBytes(i) \ 64 + (mBytes(i + 1) Mod 2) * 4 + 49)) SB.Append(Chr(mBytes(i + 1) \ 2 Mod 8 + 49)) SB.Append(Chr(mBytes(i + 1) \ 16 Mod 8 + 49)) SB.Append(Chr(mBytes(i + 1) \ 128 + (mBytes(i + 2) Mod 4) * 2 + 49)) SB.Append(Chr(mBytes(i + 2) \ 4 Mod 8 + 49)) SB.Append(Chr(mBytes(i + 2) \ 32 + 49)) Next If mBytes.Length Mod 3 > 0 Then SB.Append(Chr(mBytes(i) Mod 8 + 49)) SB.Append(Chr(mBytes(i) \ 8 Mod 8 + 49)) If mBytes.Length Mod 3 = 1 Then SB.Append(Chr(mBytes(i) \ 64 + 49)) SB.Append("=="
Else SB.Append(Chr(mBytes(i) \ 64 + (mBytes(i + 1) Mod 2) * 4 + 49)) SB.Append(Chr(mBytes(i + 1) \ 2 Mod 8 + 49)) SB.Append(Chr(mBytes(i + 1) \ 16 Mod 8 + 49)) SB.Append(Chr(mBytes(i + 1) \ 128 + 49)) SB.Append("="
End If End If Return SB.ToString End Function End Class |
||
|
Номер ответа: 656 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #656 | Добавлено: 21.04.05 00:47 |
| Если будет непонятно - 49 - код единицы. | ||
|
Номер ответа: 657 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #657 | Добавлено: 21.04.05 00:56 |
|
А я блин на делфи пересел... на два дня. Прогу написал, теперь не могу на ВБ перевести. Хз, ворде точ в точ повторяю, ан нет! работает, но неправильно
Довольно забавно слышать от VB'шника что написал на дельфи программу, и не может ее перевести на свой родной язык )
Как уже показала практика, на VB, если очень хочется, можно перевести практически все, лишь бы msvbvm не мешалась... хотя бы IL
- на крайний случайГоворят, полезно... Сам не пробовал... |
||
|
Номер ответа: 658 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #658 | Добавлено: 21.04.05 01:03 |
| да хз с синтаксисом никаких проблем нет , перевожу как по маслу без единой ошибки так как я считаю, что сами языки (бэйсик и паскаль) знаю в довольно хорошо. Но не работает хоть тресни!!!! там просто всякие операции с матрицами, сдвиги, сложения, хз может там чё то не то. посмотрю попозже | ||
|
Номер ответа: 659 Автор ответа: Standa Oerby ICQ: 235567498 Вопросов: 0 Ответов: 21 |
Web-сайт: Профиль | | #659 | Добавлено: 21.04.05 02:48 |
|
кст.
Креатив пишется как CREATIVE (а не creteave)и читается буквально "криэйтив". т.ч. стади инглиш. 2Cyrax: Ну и сайт у тебя, писюлькин злыдень -*/всем настоятельно советую взглянуть (вход через его инфу). Только осторожно - используйте очки и прививку от чумки. Также может вызвать эпилепсию./* и кстати, я ж тя как человека просил - запость моё письмо. А ты обделался... нехорошо. А за глаза обзываешься. |
||
|
Номер ответа: 660 Автор ответа: Standa OerbyICQ: 235567498 Вопросов: 0 Ответов: 21 |
Web-сайт: Профиль | | #660 | Добавлено: 21.04.05 02:50 |
|
2Artyom:
Однозначно риспект. Жаль тока твоё время. Это бесполезный спор. |
||
Страница: 1 | 2 | 3 | 4 | 5 ..... 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51