Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Выпуск # 642Друзья! Прошло совсем мало времени с момент последнего выпуска, и вот уже новый! Удивительно, как быстро летит время в Интернете, сколько всего нового происходит ежедневно, да что там, ежесекундно. И Kbyte.Ru в этом плане не исключение, на сайте столько всего произошло, столько всего, что многое даже и не влезло в этот выпуск! И кто только придумал ограничения скорости интернет-соединения и объемов писем! Эх..., благо на сайте есть живая лента событий, которая не даст потеряться среди гущи
событий. Содержание выпускаЧитайте в этом выпуске:
Исходные кодыNotepadDelphi: Готовые решения @IIIypuk 19.05.2011 19:41 Блокнот на Delphi 7. В программе реализованы диалоги открытия и сохранения файла, а также очистки формы. Есть поддержка комментариев.К данном исходному коду прилагаются файлы примеров. Скачать. Эффект МатрицыVisual
Basic .NET: Разное @[i]Pro 17.05.2011 11:44 Красивый эффект "падающих буков".Module Module1 Sub Main(ByVal args As String()) Console.Title = "Matrix" Console.ForegroundColor = ConsoleColor.DarkGreen Console.WindowLeft = InlineAssignHelper(Console.WindowTop, 0) Console.WindowHeight = InlineAssignHelper(Console.BufferHeight, Console.LargestWindowHeight) Console.WindowWidth = InlineAssignHelper(Console.BufferWidth, Console.LargestWindowWidth) #If readkey Then Console.WriteLine("Hit any key to continue") Console.ReadKey() #End If Console.CursorVisible = False Dim width As Integer, height As Integer Dim y As Integer() Dim l As Integer() Initialize(width, height, y, l) Dim ms As Integer While True Dim t1 As DateTime = DateTime.Now MatrixStep(width, height, y, l) ms = 10 - CInt(DirectCast((DateTime.Now - t1), TimeSpan).TotalMilliseconds) If ms > 0 Then System.Threading.Thread.Sleep(ms) End If If Console.KeyAvailable Then If Console.ReadKey().Key = ConsoleKey.F5 Then Initialize(width, height, y, l) End If End If End While End Sub Dim thistime As Boolean = False Sub MatrixStep(ByVal width As Integer, ByVal height As Integer, ByVal y As Integer(), ByVal l As Integer()) Dim x As Integer thistime = Not thistime For x = 0 To width - 1 If x Mod 11 = 10 Then If Not thistime Then Continue For End If Console.ForegroundColor = ConsoleColor.White Else Console.ForegroundColor = ConsoleColor.DarkGreen Console.SetCursorPosition(x, inBoxY(CInt(y(x) - 2 - (l(x) / 40 * 2)), height)) Console.Write("B") Console.ForegroundColor = ConsoleColor.Green End If Console.SetCursorPosition(x, y(x)) Console.Write("D") y(x) = inBoxY(y(x) + 1, height) Console.SetCursorPosition(x, inBoxY(y(x) - l(x), height)) Console.Write(" "c) Next End Sub Private Sub Initialize(ByRef width As Integer, ByRef height As Integer, ByRef y As Integer(), ByRef l As Integer()) Dim h1 As Integer Dim h2 As Integer = CInt((InlineAssignHelper(h1, CInt((InlineAssignHelper(height, Console.WindowHeight)) / 2))) / 2) width = Console.WindowWidth - 1 y = New Integer(width - 1) {} l = New Integer(width - 1) {} Dim x As Integer Console.Clear() For x = 0 To width - 1 y(x) = m_r.[Next](height) l(x) = m_r.[Next](h2 * (If((x Mod 11 <> 10), 2, 1)), h1 * (If((x Mod 11 <> 10), 2, 1))) Next End Sub Dim m_r As New Random() Private ReadOnly Property R() As Char Get Dim t As Integer = m_r.[Next](10) If t <= 2 Then Return CChar(("0"c & m_r.[Next](10))) ElseIf t <= 4 Then Return CChar(("a"c & m_r.[Next](27))) ElseIf t <= 6 Then Return CChar(("A"c & m_r.[Next](27))) Else Return CChar(CChar(CStr((m_r.[Next](32, 255))))) End If End Get End Property Public Function inBoxY(ByVal n As Integer, ByVal height As Integer) As Integer n = n Mod height If n < 0 Then Return n + height Else Return n End If End Function Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T target = value Return value End Function End Module XOR EncryptionVisual Basic .NET: Криптография, защита данных @[i]Pro 16.05.2011 13:53 Пример использования шифрования текста алгоритмом XORPublic Function xor_encrypt(ByVal text As String, ByVal key As String) As String Dim i As Short Dim KeyChar As Integer Dim Result As String = "" Try KeyChar = Asc(key) For i = 1 To Len(text) Result &= Chr(KeyChar Xor Asc(Mid(text, i, 1))) Next Catch ex As Exception MsgBox(ex.Message) End Try Return Result End Function Статьи по программированиюОтображение ошибок в стиле QIP или MSNОкна и формы: Visual Basic .NET @[i]Pro 19.05.2011 16:17 Небольшой обзор на тему создания красивых окон вывода информации пользователю в стиле QIP, ICQ или MSN.Все статьи по программированию Новости мира ITВ России стартовали продажи смартфона Samsung Galaxy S IIВ России стартовали продажи Android-смартфона Samsung Galaxy S II. О старте продаж было объявлено на мероприятии, проведенном в Москве. Рекомендованная стоимость Galaxy S II составляет 31990 рублей. Новинка придет на смену первому поколению Galaxy S, продающемуся в России с июля 2010 года. 19.05.2011 11:16 · Категория: Железо · Источник: Lenta.ru До конца этого года на рынке появятся около десятка планшетов на базе чипов IntelIntel в до конца этого года вместе с партнерами из среды производителей аппаратного обеспечения презентует более десятка планшетных компьютеров, работающих на базе процессоров Intel. Значительная часть планшетов будет анонсирована на июньской выставке Computex на Тайване. При помощи данных продуктов сама Intel надеется расширить конкуренцию с британской ARM Holdings.
Ожидается, что одним из первых на Computex будет показан планшет производства Asustek Computer. 19.05.2011 11:15 · Категория: Железо · Источник: CyberSecurity.ru В "Шереметьево" задержали груз контрабандных iPhone 4Таможенники в аэропорту "Шереметьево" пресекли попытку нелегально ввезти в Россию из Дубая партию смартфонов iPhone 4. Аппараты были обнаружены в багаже пассажирки, следовавшей через таможенную зону по "зеленому коридору". Партия состояла из 150 смартфонов общей стоимостью более четырех миллионов рублей. 19.05.2011 11:14 · Категория: Железо · Источник: Lenta.ru 99% смартфонов на базе Android потенциально подвержены утечке данныхНезависимые эксперты говорят, что более 99% смартфонов на базе Android потенциально подвержены утечке данных в случае кражи аппарата, так как хранят львиную долю персональных данных пользователей в онлайне и автоматически получают к ней доступ. Данные могут утечь, например, в случае входа злоумышленников на сервис Google Calendar под учетной записью пользователя.
Немецкие ИТ-специалисты из Университета города Ульм говорят, что заинтересовались особенностями работы Android с идентификационными данными. По их словам, многие данные, связанные с авторизацией пользователей, Android-устройства передают автоматически. Это в обычных условиях удобно для пользователей, но в случае кражи аппарата это преимущество превращается в серьезную уязвимость. 18.05.2011 12:22 · Категория: Безопасность · Источник: CyberSecurity.ru RuTube будет передавать видео через сеть доставки контента Level 3Российский видеопортал RuTube подключил услугу CDN (доставка и дистрибуция контента) у одной из крупнейших мировых телекоммуникационных компаний Level 3. В сообщении портала указывается, что RuTube начал использовать CDN (Content Delivery Network) услуги Level 3 в апреле 2011 года. CDN позволяет передавать данные пользователю по кратчайшему сетевому маршруту, что особенно важно для «тяжелого» контента, каким является видео. Во время предварительного тестирования сеть CDN Level 3 справилась с пиковыми объёмами трафика, определенного для теста, — до 20 Гбит в секунду. По итогам тестирования RuTube зафиксировал увеличение числа досмотров видео на RuTube, а также рост просмотров рекламных пост-роллов (ролик, загружаемый после основного видео) на 15%. 18.05.2011 12:21 · Категория: Бизнес в IT · Источник: CyberSecurity.ru
Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей: Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter. Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты. Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT. |
В избранное | ||