Приветствую вас, любители высоких технологий! Вот и очередной выпуск рассылки. За неделю на сайте появилось много новых и интересных материалов, некоторые из которых вы сможете увидеть в этом выпуске.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.
Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.
Форумы Kbyte.Ru
На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.
Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.
Может кто-нибудь знает? Не могу найти. Редактор в моем VB 6.0 уж очень
неудобный - колесиком не прокручивается и без прочих удобств. Заранее благодарен.
Среда Visual Basic STUDIO’2010 Professional Разбираю пример "XML", поставляемый со STUDIO'2010 Создал свой проект "XML_my" В моём проекте в процедуре загрузки Только 4 строки завршаются правильно, т.е. в контроле "CheckedListBox" выведены 4 строки, как показано на снимке. Почему остальные строки не
выводятся? Для остальных строк кода выводится сообщение "Окно списка содержит слишком много элементов." При выполнении оператора For Each xmlTask As Task In taskList ?
В процедуре Private Sub MainForm_Load() Имеется 18 строк, только 4 образуют массив, где искать Размер массива = 4, а не 18 ? Или как?
Public Class MainForm
Private taskList As List(Of Task)
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Заполните коллекцию частных задач
taskList = New List(Of Task)
taskList.Add(New Task(My.Resources.cmdLoadXmlFile, AddressOf loadAndDisplayXML))
taskList.Add(New Task(My.Resources.cmdLoadXmlString, AddressOf loadXmlString))
taskList.Add(New Task(My.Resources.cmdTestForChildNodes, AddressOf testForChildNodes))
taskList.Add(New Task(My.Resources.cmdIterateAllNodes, AddressOf iterateAllNodes))
taskList.Add(New Task(My.Resources.cmdDetermineNodeType, AddressOf determineNodeType))
taskList.Add(New Task(My.Resources.cmdListAllElementNodes, AddressOf listAllElementNodes))
taskList.Add(New Task(My.Resources.cmdListElementsByTag, AddressOf listElementsByTag))
taskList.Add(New Task(My.Resources.cmdSelectNodes, AddressOf selectNodes))
taskList.Add(New Task(My.Resources.cmdSelectNode, AddressOf selectSingleNode))
taskList.Add(New Task(My.Resources.cmdNavigateRelatedNodes, AddressOf navigateRelatedNodes))
taskList.Add(New Task(My.Resources.cmdRetrieveAttributes, AddressOf retrieveAttributes))
taskList.Add(New Task(My.Resources.cmdCreateXML, AddressOf createXML))
taskList.Add(New Task(My.Resources.cmdAddOrDeleteElements, AddressOf addDeleteElements))
taskList.Add(New Task(My.Resources.cmdAddOrDeleteAttributes, AddressOf addDeleteAttributes))
taskList.Add(New Task(My.Resources.cmdModifyElement, AddressOf modifyElement))
taskList.Add(New Task(My.Resources.cmdModifyAttribute, AddressOf modifyAttribute))
taskList.Add(New Task(My.Resources.cmdValidXml, AddressOf validXML))
taskList.Add(New Task(My.Resources.cmdParseErrors, AddressOf parseErrors))
' Загрузите список задач в список
xmlTasks.Items.Clear()
For Each xmlTask As Task In taskList ' Окно списка содержит слишком много элементов.
xmlTasks.Items.Add(xmlTask, False)
Next
End Sub
' { здесь расположены процедуры, свойства, функции }
End Class
А как быть с уникальностью, т.е. эти 14-значные номера не должны повторяться ? А есть алгоритм или готовая программа, которая может генерить и записывать Guid коды в файл ? Дело в том, что из подручных средств программирования для
генерации есть только Excel.
В Visual Basic For Application, тогда лучше первый вариант, со случайными числами. Примерно так (код не проверял):
Randomize Timer ' включаем генератор случайных чисел
Dim chars As String
chars = "0123456789" 'символы, которые допустимо использовать в номере купона
Dim i As Integer
Dim j As Integer
Dim result As String
For i = 1 To 100'генерируем 100 номеров
tryAgain:
Dim newNumber As String
newNumber = ""
For j = 1 To 14 'до 14 символов
newNumber = newNumber & Mid(chars, Int((Len(chars) - 1) * Rnd()), 1)
Next
'проверяем уникальность
If InStr(1, result, newNumber) <> -1 Then GoTo tryAgain
'если номер уникальный, добавляем в результат
result = result & newNumber & vbCrLf
Next
Вот попробовал написать програмку (исходник во вложении на WPF, само приложение найдете по пути:WpfApplication4\WpfApplication4\bin\Debug\WpfApplication4.exe).
Правда
есть один нюанс : 1000 ключей сгенерируется примерно за 16 секунд , а при желаемом колличестве ключей 10 000 000 время ожидания может затянуться примерно до 4-х часов ...
P.S. Забыл на кнопку сохранить добавить события, но думаю это не так важно ...
Ну я думаю из
названия понятно что мне нужно. Но всё таки я еще разжую. В Cheat Engine Есть функция Speed Hack Которая ускоряет процесс, одна она не показывает не адреса, да вообще нечего не показывает. Как можно было бы сделать тоже самое средствами vb.net
Смартфон Galaxy S5, новый «флагман» Samsung, получит сканер отпечатков пальцев, сообщили СМИ. С помощью отпечатка пользователь сможет снимать с аппарата блокировку, запускать приложения и входить на сайты. Сканер будет совмещен с «домашней» кнопкой, которая находится под экраном телефона.
В Набережных Челнах вступил в силу приговор владельцу торрент-трекера ironclub.tv Антону Елесину. Елесин осужден на два года условно. Иск к молодому человеку подали представители Российской антипиратской организации. Суд призвал Елесина виновным в нанесении ущерба в размере 2,1 миллиона рублей.
20.02.2014 11:51 · Категория: Бизнес в IT · Источник: Lenta.ru
Агентство национальной безопасности и Британский центр правительственной связи в режиме реального времени следили за посетителями сайта WikiLeaks. Представители американских и британских спецслужб собирали сведения об IP-адресах компьютеров, с которых пользователи заходили на сайт WikiLeaks.
Использование лазерных систем коммуникаций для передачи больших объемов информации на огромных расстояниях было до недавнего времени научной фантастикой, однако на прошлой неделе исследователи из Лаборатории реактивного движения НАСА в Калифорнии продемонстрировали прототип системы, которая работает на базе лазерных лучей и может передавать данные на очень высоких скоростях.
В НАСА говорят, что традиционно лазеры могут передавать данные лишь очень небольшими временными отрезками, поэтому в течение такого отрезка нужно передать как можно больше данных.
Специально для этого был создан «лазерный массив на чипе» (Array on a Chip), размером 1,5 на 3 см, который способен самостоятельно находить получателя информации, когда таких получателей несколько, а также передавать ему данные в инфракрасном лазерном спектре при помощи лазерных фотонов, кодирующих данные. В НАСА говорят, что здесь чувствительность приемника и получателя столь велика, что они могут обмениваться данными с точностью до единого фотона светового излучения.
Как говорят инженеры космического ведомства, светопоглощение сейчас используется преимущественно в цифровых камерах, однако там CMOS- или CCD-датчики таковы, что они не могут улавливать попадающий в них свет с точностью до фотона, тогда как в новой системе особенность именно в поглощении с точностью до фотона.
Блокировка интернет-провайдером «Билайн» нескольких блогов на LiveJournal вызвала проблемы с доступом ко всему блогохостингу. При попытке зайти на сайт у ряда пользователей отображается сообщение, что ресурс «заблокирован по решению органов государственной власти». Об ограничении доступа к сайту другими операторами не сообщалось.
18.02.2014 12:50 · Категория: Бизнес в IT · Источник: Lenta.ru
Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.
Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др. Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.