Выпуск # 762

Приветствую вас, любители высоких технологий! Вот и очередной выпуск рассылки. За неделю на сайте появилось много новых и интересных материалов, некоторые из которых вы сможете увидеть в этом выпуске.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.

Содержание выпуска

Читайте в этом выпуске:

• Новые темы на форумах
  • Редактор в VB 6.0
  • Заполните коллекцию частных задач
  • Генерация уникальных номеров
  • Мои "подвиги" с графикой?!
  • Speed hack
• Вакансии в IT
  • Программист 1C
  • РНР - программист (удаленная работа)
  • Разработчик под IOS (удаленная работа)
  • Программист 1С
  • Web-мастер
  • Программист 1С
  • Программист 1С
  • Программист ЗУП, УПП, Бухгалтерия
  • Ведущий программист 1С
  • Программист 1С
• Новости мира IT
  • Galaxy S5 приписали сканер отпечатков пальцев
  • В России вступил в силу первый приговор за интернет-пиратство
  • СМИ рассказали о слежке спецслужб за посетителями сайта WikiLeaks
  • Новая система лазерной связи позволяет передавать большие данные за секунду
  • Блокировка «Билайном» нескольких блогов ограничила доступ ко всему LiveJournal

Форумы Kbyte.Ru

На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.

Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.

Задать свой вопрос прямо сейчас

Заполните коллекцию частных задач @capetownn 17.02.2014 15:03

Среда 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

Спасибо.

[- к содержанию -]

НаборСимволов = "1234567890"
Цикл от 1 до 14
{
  Результат += НаборСимволов[Random(0, НаборСимволов.ДлинаСтроки - 1)]
}

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

Ответ #5 @Shark1 16.02.2014 18:53

Вот попробовал написать програмку (исходник во вложении на WPF, само приложение найдете по пути:WpfApplication4\WpfApplication4\bin\Debug\WpfApplication4.exe).

Правда есть один нюанс : 1000 ключей сгенерируется примерно за 16 секунд , а при желаемом колличестве ключей 10 000 000 время ожидания может затянуться примерно до 4-х часов ...

P.S. Забыл на кнопку сохранить добавить события, но думаю это не так важно ...

[- к содержанию -]

Мои "подвиги" с графикой?! @Akiva 15.02.2014 18:49

Отпишитесь пожалуйста, смогли-ли Вы открыть exe-ник.
Path: Debug.rar -> Debug -> WinPictograma.vb.exe

[- к содержанию -]

Все темы и обсуждения

Вакансии в IT

Программист 1C

РНР - программист (удаленная работа)

Разработчик под IOS (удаленная работа)

Программист 1С

Web-мастер

Программист 1С

Программист 1С

Программист ЗУП, УПП, Бухгалтерия

Ведущий программист 1С

Программист 1С

Все вакансии в IT · Создать резюме

[- к содержанию -]

Новости мира IT

Galaxy S5 приписали сканер отпечатков пальцев

Смартфон Galaxy S5, новый «флагман» Samsung, получит сканер отпечатков пальцев, сообщили СМИ. С помощью отпечатка пользователь сможет снимать с аппарата блокировку, запускать приложения и входить на сайты. Сканер будет совмещен с «домашней» кнопкой, которая находится под экраном телефона.

[- к содержанию -]

В России вступил в силу первый приговор за интернет-пиратство

В Набережных Челнах вступил в силу приговор владельцу торрент-трекера ironclub.tv Антону Елесину. Елесин осужден на два года условно. Иск к молодому человеку подали представители Российской антипиратской организации. Суд призвал Елесина виновным в нанесении ущерба в размере 2,1 миллиона рублей.

[- к содержанию -]

СМИ рассказали о слежке спецслужб за посетителями сайта WikiLeaks

Агентство национальной безопасности и Британский центр правительственной связи в режиме реального времени следили за посетителями сайта WikiLeaks. Представители американских и британских спецслужб собирали сведения об IP-адресах компьютеров, с которых пользователи заходили на сайт WikiLeaks.

[- к содержанию -]

Новая система лазерной связи позволяет передавать большие данные за секунду

Использование лазерных систем коммуникаций для передачи больших объемов информации на огромных расстояниях было до недавнего времени научной фантастикой, однако на прошлой неделе исследователи из Лаборатории реактивного движения НАСА в Калифорнии продемонстрировали прототип системы, которая работает на базе лазерных лучей и может передавать данные на очень высоких скоростях.

В НАСА говорят, что традиционно лазеры могут передавать данные лишь очень небольшими временными отрезками, поэтому в течение такого отрезка нужно передать как можно больше данных.

Специально для этого был создан «лазерный массив на чипе» (Array on a Chip), размером 1,5 на 3 см, который способен самостоятельно находить получателя информации, когда таких получателей несколько, а также передавать ему данные в инфракрасном лазерном спектре при помощи лазерных фотонов, кодирующих данные. В НАСА говорят, что здесь чувствительность приемника и получателя столь велика, что они могут обмениваться данными с точностью до единого фотона светового излучения.

Как говорят инженеры космического ведомства, светопоглощение сейчас используется преимущественно в цифровых камерах, однако там CMOS- или CCD-датчики таковы, что они не могут улавливать попадающий в них свет с точностью до фотона, тогда как в новой системе особенность именно в поглощении с точностью до фотона.

[- к содержанию -]

Блокировка «Билайном» нескольких блогов ограничила доступ ко всему LiveJournal

Блокировка интернет-провайдером «Билайн» нескольких блогов на LiveJournal вызвала проблемы с доступом ко всему блогохостингу. При попытке зайти на сайт у ряда пользователей отображается сообщение, что ресурс «заблокирован по решению органов государственной власти». Об ограничении доступа к сайту другими операторами не сообщалось.

[- к содержанию -]

Все новости

Подпишитесь на тематические 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.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.