| Вопрос: С новым годом 2006!!!!!! | Добавлено: 26.12.05 02:40 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
| Ответы | Всего ответов: 54 |
|
Номер ответа: 31 Автор ответа:  SerJ Вопросов: 24 Ответов: 332 |
Профиль | | #31 | Добавлено: 28.12.05 16:11 |
|
Прогу то выложить не проблема - не так много я и времени то на неё потратил. другое дело что мне лень её оптимизировать
Так не оптимизируй - кинь мне на почтовик, а я доделаю 8\ |
||
|
Номер ответа: 32 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #32 | Добавлено: 28.12.05 17:44 |
|
Вот весь код.
pic - это пикчербокс без краёв, свойства короче сами подгоните field - большой текстбокс, со шрифтом Courier New (9) и обоими прокрутками. я её оптимизировал и теперь она работает раз в 10 быстрее (убрал нах Me.Refresh из цикла  ))
Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Dim i As Long Dim j As Long Dim c As Long Dim s As String Dim Colors(0 To 17) As String Dim r As Long, b As Long, g As Long, z As Long Private Sub Form_Load() Colors(0) = " " Colors(1) = "`" Colors(2) = "." Colors(3) = "," Colors(4) = ":" Colors(5) = "=" Colors(6) = "&" Colors(7) = "]" Colors(8) = "5" Colors(9) = "9" Colors(10) = "  "
Colors(11) = "A" Colors(12) = "B" Colors(13) = "@" Colors(14) = "H" Colors(15) = "N" Colors(16) = "M" Colors(17) = "M" Show For j = 0 To pic.Height - 1 For i = 0 To pic.Width - 1 DoEvents c = GetPixel(pic.hdc, i, j) r = c Mod 256 g = (c And &HFF00) \ &H100 b = c \ 65536 c = r c = c + g c = c + b c = c \ 3 If c < 0 Then c = 0 If c > 255 Then c = 255 c = Round((255 - r) / 16) s = s & Colors(c) Next i s = s & vbNewLine Next j Field.Text = s End Sub короче не забудьте кормить прогу только серыми картинками и ужимайте их по вертикали (особинности шрифта) |
||
|
Номер ответа: 33 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #33 | Добавлено: 28.12.05 17:46 |
|
а блин.... тока щас заметил. вот этот код:
g = (c And &HFF00) \ &H100 b = c \ 65536 c = r c = c + g c = c + b c = c \ 3 If c < 0 Then c = 0 If c > 255 Then c = 255 весь фтопку и без него идёт неплохо |
||
|
Номер ответа: 34 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #34 | Добавлено: 28.12.05 23:50 |
|
Не совсем нравится
s = s & Colors(c)
Можно перед циклом сделать s = Space$(pic.Width * pic.Height)
а в цикле Mid(s, 1 + i + j * pic.Width) = Colors(c)
|
||
|
Номер ответа: 35 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #35 | Добавлено: 29.12.05 04:32 |
| один хрен работает меньше чем за секунду. да и если уже заниматься агресивной оптимизацией, можно и картинку в 2Д массив без цикла влепить | ||
|
Номер ответа: 36 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #36 | Добавлено: 29.12.05 08:24 |
| С наступающим НОВЫМ 2006 ГОДОМ, уважаемые форумяне!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | ||
|
Номер ответа: 37 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #37 | Добавлено: 29.12.05 16:23 |
|
Бёрда Киви? интересно это псевдоним или призвание ))
|
||
|
Номер ответа: 38 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #38 | Добавлено: 29.12.05 16:52 |
|
Бёрд - это вроде с англицкого "птица"...
А киви - не птица, а фрукт... Какие-то у него нестыковочки
|
||
|
Номер ответа: 39 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #39 | Добавлено: 30.12.05 07:29 |
| кажысь есть такая птица Киви | ||
|
Номер ответа: 40 Автор ответа:  POSTВопросов: 14 Ответов: 269 |
Web-сайт: Профиль | | #40 | Добавлено: 30.12.05 11:44 |
|
http://www.membrana.ru/articles/interview/2003/04/09/191000.html
Виртуальный персонаж, родившийся как побочный продукт дефолта 1998 года с одной главно функцией - "удивляться окружающему миру". Сначала это был просто адрес электронной почты, потом на веб-сайте www.computerra.ru появилось постоянное место жительства - еженедельная колонка "Кивино гнездо", откуда комментировались неординарные события в области науки, компьютерных технологий, защиты информации и деятельности спецслужб.
Ныне Бёрд обозревает новости в бумажных журналах издательского дома "Компьютерра", однако и гнездо его тоже получило материальное воплощение - в данной книге, собравшей наиболее интересные, на взгляд автора, онлайновые публикации. Книги: Книга о странном Гигабайты власти. Информационные технологии между свобой и тоталитаризмом http://www.bestseller.ru/kivi.htm |
||
|
Номер ответа: 41 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #41 | Добавлено: 30.12.05 12:06 |
|
Всех поздравляю, каждому по подарку:
http://igrushka.kz/magazin/igrushka_kz_2006.jpg |
||
|
Номер ответа: 42 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #42 | Добавлено: 30.12.05 16:24 |
|
Вот и я появился..
Что я могу сказать?! ЗДРАВЛ!!!! ВСЕМ!!!! |
||
|
Номер ответа: 43 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #43 | Добавлено: 30.12.05 18:12 |
| Надо будет почитать... | ||
|
Номер ответа: 44 Автор ответа: POSTВопросов: 14 Ответов: 269 |
Web-сайт: Профиль | | #44 | Добавлено: 31.12.05 00:28 |
|
эх.. последние часы...
Всех участников форума и их близких с наступающим 11111010110 годом !!! |
||
|
Номер ответа: 45 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #45 | Добавлено: 31.12.05 09:21 |
|
а у меня только 30-е
|
||