Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры


Выпуск # 762

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


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

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

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Форумы Kbyte.Ru

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

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

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

Может кто-нибудь знает? Не могу найти.
Редактор в моем VB 6.0 уж очень неудобный - колесиком не прокручивается и без прочих удобств.
Заранее благодарен.

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

Ответ #1 @Алексей Немиро 20.02.2014 14:29
Visual Basic 6.0 совсем устаревший, последний релиз был в 1998 году. Кроме Microsoft его никто наверное не разрабатывал, точнее не имеет права делать.

Пора переходить на Visual Basic .NET :)
Последние версии Visual Studio уже очень далеко ушли от того, что было в прошлом веке.

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

Ответ #2 @Полуэкт 20.02.2014 14:44
Добавить свой ответ в эту тему
Среда 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-значные уникальные номера для подарочных сертификатов ?
Нужно их сгенерить 10 миллионов.

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

Ответ #1 @Алексей Немиро 16.02.2014 11:25
Использовать случайные числа, точнее массив чисел (символов) из которого выбирать значения случайным образом.

Реализация будет зависеть от языка программирования.

Обычно функции для генерации случайных чисел называются Random или Rnd.


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

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

Ответ #2 @Алексей Немиро 16.02.2014 13:15
Кстати, если в номерах могут быть не тоьько числа, но и буквы, то проще сделать Guid и отрезать от него кусок нужного размера.

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

Ответ #3 @archa 16.02.2014 15:07
А как быть с уникальностью, т.е. эти 14-значные номера не должны повторяться ?
А есть алгоритм или готовая программа, которая может генерить и записывать Guid коды в файл ?
Дело в том, что из подручных средств программирования для генерации есть только Excel.

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

Ответ #4 @Алексей Немиро 16.02.2014 15:31
В 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

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

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

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

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

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

Добавить свой ответ в эту тему · В теме есть еще 38 ответов. Смотреть все ответы.


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

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

Speed hack @Dr. Crash 14.02.2014 22:50
Ну я думаю из названия понятно что мне нужно. Но всё таки я еще разжую. В Cheat Engine Есть функция Speed Hack Которая ускоряет процесс, одна она не показывает не адреса, да вообще нечего не показывает. Как можно было бы сделать тоже самое средствами vb.net

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

Ответ #1 @Алексей Немиро 14.02.2014 23:24
Если не знать как это работает, то никак :)

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

Ответ #2 @Dr. Crash 15.02.2014 11:17
Хорошо, как узнать как это работает??:)

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

Ответ #3 @i32 15.02.2014 11:23
А что узнать??

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

Ответ #4 @Dr. Crash 15.02.2014 17:51
Работу со значениями и адресами другой программы

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

Ответ #5 @Алексей Немиро 15.02.2014 19:46
Скорее всего придется использовать WinAPI.

Для чтения есть функция ReadProcessMemory.

Вот пример обертки в классе VB .NET.

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

Добавить свой ответ в эту тему

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

Вакансии в IT

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

Россия, Красноярск | Работа в офисе | 80 000,00 KBP

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

Россия, Красноярск | Удаленная работа | 35 000,00 KBP

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

Россия, Красноярск | Удаленная работа | 40 000,00 KBP

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

Россия, Красноярск | Работа в офисе | 45 000,00 KBP

Web-мастер

Россия, Красноярск | Работа в офисе | 40 000,00 KBP

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

Россия, Новосибирск | Работа в офисе | 25 000,00 KBP

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

Россия, Новосибирск | Работа в офисе | 40 000,00 KBP

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

Россия, Новосибирск | Работа в офисе | 50 000,00 KBP

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

Россия, Новосибирск | Работа в офисе | 70 000,00 KBP

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

Россия, Новосибирск | Работа в офисе | 45 000,00 KBP

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

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

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

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

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

20.02.2014 11:53 · Категория: Железо · Источник: Lenta.ru

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

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

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

20.02.2014 11:51 · Категория: Бизнес в IT · Источник: Lenta.ru

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

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

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

19.02.2014 11:08 · Категория: Безопасность · Источник: Lenta.ru

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

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

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

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

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

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

18.02.2014 12:52 · Категория: Железо · Источник: CyberSecurity.ru

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

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

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

18.02.2014 12:50 · Категория: Бизнес в IT · Источник: Lenta.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.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.


В избранное