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

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


Выпуск # 744

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


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

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

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

Форумы Kbyte.Ru

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

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

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

Введенные числа для арифметического решения и логики(с правой стороны),
синхронно выводиться на левые textBox-сы binary.

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

Доброго времени суток,форумчане!
Понаблюдал я за тем,как моя супруга мучается с угадыванием слов в игре на "Одноклассниках",
в которой предлагается разгадать смысл двух картинок.В текстовых полях расположен
массив символов(букв),который участвует в формировании двух слов,являющимися синонимами,
а так-же, смыслом тех двух картинок.На первый взгляд,мне показалось,что я могу ей помочь запросто!
Но,приступив к написанию приложения,облегчающего поиск нужных слов с заданным набором
букв,я наткнулся на ряд не знакомых мне функций и методов.Из выше сказанного вырисовывается
вопрос:Как на основе набора символов найти в текстовом файле(русский словарь,162500 слов)
слова,в которых и сожержатся те символы? Слова могут иметь разное количество знаков.

Начал с данного материала:
 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Копируем строки текстового файла в textbox
        Try
            Dim fileReader As New System.IO.StreamReader("Words.txt", System.Text.Encoding.GetEncoding(1251))
            'Dim str() As String
            Do While fileReader.Peek >= 0
                TextBox3.Lines = fileReader.ReadToEnd.Split("   ".ToCharArray, 1)
            Loop
            fileReader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        TextBox4.Text = TextBox3.Lines.Length & vbTab & "строк"
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        '1 вариант --------------------------------------------------------------------------------------
        'Читаем содержимое файла в массив
        Dim Lines() As String = IO.File.ReadAllLines("Words.txt", System.Text.Encoding.GetEncoding(1251))
        'запрашиваем искомый набор символов.
        Dim SurName As String = InputBox("Введите слово для поиска", DefaultResponse:="авскимт")
        ' Если ничего не ввели, выходим из процедуры
        If SurName.Length = 0 Then Exit Sub
        'Перебираем все строки массива
        For i As Integer = 0 To Lines.GetUpperBound(0)
            'Если в соответствующей строке есть хоть одна буква
            If Lines(i).IndexOfAny(SurName.ToCharArray, 0) <> -1 Then
                TextBox5.Text = Lines(i) 'Добавляем эту строку к текстовому полю
            End If
        Next
        '2 вариант---------------------------------------------------------------------------------------------
        'Dim _text As String = "В строке найти слова, в которых есть нужные символы и вывести эти слова в другое текстовое поле"
        'Dim words As String
        'Dim _split() As String = _text.Split(" ")
        'For Each words In _split
        '    ' If words.Length Mod 2 = 0 Then
        '    If words.Contains(TextBox6.Text) Then   'текстовое поле с набором искомых символов
        '        TextBox5.Lines = words.Split(" ")
        '    End If
        '    'End If
        'Next
    End Sub

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

Ответ #1 @Shark1 11.09.2013 21:33
Доброго времени суток,форумчане!
Понаблюдал я за тем,как моя супруга мучается с угадыванием слов в игре на "Одноклассниках",
в которой предлагается разгадать смысл двух картинок

налей ей коньячка и проблема разрешится ...

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

Ответ #2 @Scryaga 12.09.2013 05:15
Shark1,я вполне разделяю твою иронию,и твой ответ можно было бы принять за правильный и на этом
успокоиться,но я,всё-таки, надеялся на ответ по теме.На данный момент главным занятием для меня
является строительство,и для того,что-бы развеяться,я частенько прибегаю к возможности оградиться
от всего и планомерно и углублённо изучать такой прекрасный(на мой взгляд) язык программирования,
коим является BASIC.Во всех самоучителях,которые были мною изучены(громко сказано!)даются весьиа
поверхностные материалы,а по-сему,мне очень интересно обращаться на форум со своим вопросом.
Для уточнения я могу переформулировать свой вопрос:Какими методами искать слова в текстовом файле,
если искомое слово,к примеру,состоит из пяти символв и должно иметь буквы,представленные в случайном
порядке(их количество может быть больше пяти).
В коде,который я представил выше,ищется всего-лишь одно слово,что не удовлетворяет моей задаче.
Если кто подскажет,в каком направлении рыть,буду признателен.

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

Ответ #3 @Crash666 12.09.2013 08:24
Scryaga, я думаю вам поможет моя сарая тема. Там правда еще есть подсветка текста, но я думаю вы в силах изменить код под себя.
Клик

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

Ответ #4 @Алексей Немиро 12.09.2013 11:48
Как на основе набора символов найти в текстовом файле(русский словарь,162500 слов)
слова,в которых и сожержатся те символы?
Можно использовать регулярные выражения, например:
^([кбайт-[цуенгшщзхъфывпролджэячсмиью]+)\b
^ - с начала строки
(искать-(исключая)) - символы в квадратных скобках
+ - не менее одного символа
\b - до конца слова


Либо листать слова по одному и проверять, подходит оно под шаблон или нет:
Dim words As New List(Of String)'это может быть просто массив
words.Add("кбайт")
words.Add("перебайт")
words.Add("байт")

Dim result As New List(Of String)
For Each word As String In words
  If Regex.IsMatch(word, "^([кбайт-[цуенгшщзхъфывпролджэячсмиью]+)$", RegexOptions.IgnoreCase) Then
     result.Add(word)'слово подходит, добавляем в результат
  End If
Next
MsgBox(String.Join(vbCrLf, result.ToArray())
(код vb не проверял)

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

Добавить свой ответ в эту тему
Запрос @capetownn 10.09.2013 14:03
Имеемя 2 запроса:
"SELECT COUNT(*) FROM [Pensioner]"
И
"SELECT * FROM [Pensioner] WHERE IsNull(Address)"
Как их объединить, чтобы за одно выполнение
Были выбраны записи и помещены, допустим, в DataGridView
А их число помещено в переменную
Dim
returnValue As integer

Мой вариант неправильный:
"SELECT COUNT(*) FROM [Pensioner] WHERE IsNull([Address])"
СПАСИБО!

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

Ответ #1 @Алексей Немиро 10.09.2013 14:23
Если MS Access, не уверен, но может сработает такой вариант:
SELECT *, 
  (SELECT COUNT(*) FROM [Pensioner] WHERE IsNull([Address])) AS unaddress_count
FROM  [Pensioner]
В SQL Server по-любом сработает.

Если Access и этот вариант не сработает, то придется делать два запроса.
Либо, можно сделать один запрос, данные загнать в DataSet и из него уже выдергивать из таблиц (коллекция Tables).

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

Ответ #2 @capetownn 11.09.2013 17:53
Тип базы Access, НЕ сработало. Ошибки в тексте
запроса НЕТ, однако не то. Перепробовал около 9 вариантов
на основе Вашего текста.

Я предполагал, что одним запросом можно убить 2 зайца.
Найденные строки выводятся в DGV.
Нет ли примера в цикле построчно прочитать таблицу с выводом в DGV?
Допустим в таблице 100 000 строк.

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

Ответ #3 @Алексей Немиро 11.09.2013 18:14
Проверил. Access (2007) понимает вложенные запросы, т.е. мой пример должен работать.
Я предполагал, что одним запросом можно убить 2 зайца.
Так и происходит. На выходе будет одна таблица, результат запроса SELECT COUNT(*) FROM... будет в поле unaddress_count (имя можно установить любое, см. вложенный запрос).
Нет ли примера в цикле построчно прочитать таблицу с выводом в DGV?
Строки содержатся в свойстве Rows, их количество можно получить из свойства Count:
MsgBox(DataGridView1.Rows.Count)

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

Добавить свой ответ в эту тему
Всем привет.
Может кто встречал такую программу для таблиц стилей которая оптимизирует сам файл css.
Например в файле css есть
.header 
{
  height:30px;
  line-height:30px;
  vertical-align:middle;
}
...
очень много строк
....
div#header
{
  height:30px;
  line-height:30px;
  position:absolute;
}

но после обработки программы файл выглядел бы вот так
.header, div#header
{
  height:30px;
  line-height:30px;  
}
.header{
  vertical-align:middle;
}
...
очень много строк
....
div#header
{
  position:absolute;
}
что бы программа вот таким способом оптимизировала css.

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

Нашел ошибку в буковке "U", для языка ESPERANSO.

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

Как-то показывал это приспособление.
Немного добавил.Немного изменил.
Будьте ко мне снисходительны,к <чайнику>...

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

Gen @i32 08.09.2013 10:07
Решил сделать кучку ключей..(надеюсь это не криминал..А то все что связано с перебором кажется плохо...)
Маска что то не катит..(Вернее не вывести в текстбокс..)
Как бы тут 2 функции..но не катит не одна..Меня интересует маска..Вернее количество строк после..
Imports
System.Text
Public Class Form1
    Dim w As IO.StreamWriter
    Dim r As IO.StreamReader
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Label1.Text = 0
        If TextBox2.Text = "" Then
            MsgBox("пусто")
            Return
        End If
        System.Text.Encoding.GetEncoding("windows-1251")
        Dim a As String
        While ListBox1.Items.Count < TextBox2.Text 'количество строк
            a = Key2()
            ' a = GenerateCode()
            ListBox1.Items.Add(a & " ")'иначе в листбоксе будет колбасня.
            Label1.Text = ListBox1.Items.Count
        End While
    End Sub
    Public Function Key() As Object
        Const nathu As String = "abcdefghijklmnopqrstuvwxyz"
        Const sikandar As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const nandwani As String = "1234567890"
        Dim totalequivalent As String
        Dim i As Short
        'Dim strname As Object
        ' strname = TextBox1.Text
        ' totalequivalent = TextBox4.Text
        totalequivalent = sikandar & nandwani & nathu
        For i = 1 To CInt(62)
            Key = Key & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
        Next i
    End Function
    Public Function GenerateCode() As Object
        Dim intrnd As Object
        Dim intstep As Object
        Dim strname As Object
        Dim intnamelength As Object
        Dim intlength As Object
        Dim strinputstring As Object
        strinputstring = TextBox4.Text
        '  strinputstring = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        intlength = Len(strinputstring)
        intnamelength = 7
        Randomize()
        strname = TextBox1.Text
        For intstep = 1 To intnamelength
            intrnd = Int((intlength * Rnd()) + 1)
            strname = strname & Mid(strinputstring, intrnd, 1)

        Next
        GenerateCode = strname
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If ListBox1.Items.Count = 0 Then
            MessageBox.Show("ПУСТО", "Gen", MessageBoxButtons.OK)
        Else
            Dim save1 As New SaveFileDialog()
            save1.Filter = "Текстовые документы (*.txt)|*.txt"
            If save1.ShowDialog() = DialogResult.OK Then
                Dim i As Integer
                w = New IO.StreamWriter(save1.FileName)
                For i = 0 To ListBox1.Items.Count - 1
                    w.WriteLine(ListBox1.Items.Item(i), System.Text.Encoding.GetEncoding(1251))
                Next
                w.Close()
                '  ListBox1.Items.Clear()
            End If
        End If

    End Sub
    Public Function Key2() As Object
        Const nathu As String = "abcdefghijklmnopqrstuvwxyz"
        Const sikandar As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const nandwani As String = "1234567890"
        Dim totalequivalent As String
        Dim i As Short
        Dim strname As Object
        strname = TextBox1.Text
        totalequivalent = sikandar & nandwani & nathu
        For i = 1 To CInt(TextBox3.Text)
            strname = strname & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
        Next i
        Key2 = strname
    End Function
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox4.Text = ""
        Dim a As String
        While TextBox4.Text.Count < 62 'количество строк
            a = Key()
            ' ListBox2.Items.Add(a.ToString())
            TextBox4.AppendText(a)
            '  ListBox1.SelectionMode = SelectionMode.MultiExtended
            'Label1.Text = ListBox1.Items.Count
        End While
    End Sub
End Class

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

Ответ #1 @i32 08.09.2013 10:19
Понял что сильно много написал..
Проще...
intnamelength = 7
Как мне это вывести в текстбокс..?
Спасибо..

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

Ответ #2 @Crash666 08.09.2013 11:06
Можешь из функции вернуть значение в текст бокс если я все правильно понял
А хотя записываешь в массив результаты, а потом берешь из него 62 строчки и выводишь
Пишешь отдельно
Dim val as integer = -1
Dim mass(61) as String


Потом в генераторе пишешь
' код генерации
 val = val + 1
mass(val) = GenKey
Заполнили массив потом
For i = 0 to 61
val = val + 1
TextBox4.AppnedText(mass(val))
или так
For i = 0 to 62
TextBox4.Text = TextBox4.text & vbcrlf & a
Next
Вроде так

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

Ответ #3 @Алексей Немиро 08.09.2013 12:17
12 строчка:
System.Text.Encoding.GetEncoding("windows-1251")
Бесполезная. Ничего не делает.
strname = strname & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
тоже самое что и:
strname &= strname & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
strname &= Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
Mid - функция из VB 6.0, лучше использовать функцию Substring из .NET:
totalequivalent.Substring(Int((Rnd() * Len(totalequivalent)) + 1), 1)
Rnd - функция из VB 6.0, ко всему прочему будет работать плохо, часто будут выпадать одни и те же значения, т.к. нет оператора Randomize, например: Randomize Timer, чтобы числа были более случайными, отталкиваясь от текущего времени.
Но лучше использовать Random из .NET:
Dim rnd As New Random(Now.Millisecond)
Dim num As Integer = rnd.Next(0, 1000)'в переменной num будет случайное число от 0 до 1 000 (диапазон может быть любым)
Dim rnd As New Random(Now.Millisecond)
Dim num As Integer = rnd.Next(0, totalequivalent.Length)'от 0 до размера строки totalequivalent

53 строка:
GenerateCode = strname
по .net-овски:
Return strname
87 строка:
Key2 = strname
Return strname

В остальном, как я понимаю, нужно сгенерировать N паролей?

Если все их нужно вывести в TextBox, то текстовое поле, видимо, должно быть многострочным: Multiline = True, ScrollBars = Both (или Vertical):
TextBox22.Text.Multiline = True
TextBox22.ScrollBars = ScrollBars.Both
И добавлять строки в этот TextBox:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Label1.Text = "0"'строка, а не число
        If String.IsNullOrEmpty(TextBox2.Text) Then 'String.IsNullOrEmpty - проверит не только на "", то и на Nothing и String.Empty, что ни одно и тоже
            MsgBox("пусто")
            Return
        End If
        '<s>System.Text.Encoding.GetEncoding("windows-1251")</s>'бесполезная строчка, удаляем
        '<s>Dim a As String</s>' лучше в цикл засунуть, ибо переменная за его пределами не используется
        Dim max As Integer = CType(TextBox2.Text, Integer) 'явная типизация минимизирует число логических (самых коварных) ошибок
        While ListBox1.Items.Count < max 'количество строк
            Dim a As String = Key2()
            ' a = GenerateCode()
            ListBox1.Items.Add(a & " ")'иначе в листбоксе будет колбасня.
            TextBox22.Text &= a & vbCrLf ' добавляем пароль в текстовое поле: пароль + перевод строки
            Label1.Text = ListBox1.Items.Count.ToString() 'ToString необязательно, но это тоже явная типизация, лучше чтобы вошло в привычку
        End While
    End Sub

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

Ответ #4 @Алексей Немиро 08.09.2013 12:21
Crash666:
Заполнили массив потом
С массивом, можно еще проще:
String.Join(разделитель, массив)
TextBox4.Text = String.Join(vbCrLf, mass)

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

Ответ #5 @i32 08.09.2013 12:57
Спс.Загрузили..Сразу не разобрать...Хотя я что то про "7" - Это был основной впр.
Не заметил..В функции GenerateCode()
Количество строк после маски..Вывести в текстбокс..В маем варианте возможно?

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

Добавить свой ответ в эту тему · В теме есть еще 16 ответов. Смотреть все ответы.
Мне необходимо создавать картинку не с фиксированными размерами вот код с которым программа нормально работает
  Sub KARTINKA1(ByVal X As Integer, ByVal Y As Integer)
        X *= 10
        Y *= 10
        Dim KARTINA As New Bitmap(1000, 1000) 'создаем картинку
        Dim GRAFIKA As Graphics = Graphics.FromImage(KARTINA) 'создаем рисовалку
        GRAFIKA.Clear(Color.White) 'Очищаем картинку и окрашиваем в белый цвет
        ' Создание пера для рисования им фигур
        Dim Перо_сетка = New Pen(Color.Blue)
        Dim Перо_оси = New Pen(Color.Red, 4)
        Dim Перо_треугольник = New Pen(Color.Black, 3)
        GRAFIKA.DrawLine(Перо_сетка, 0, 0, 1000, 1000) ' рисуем диагональную линию
        KARTINA.Save("image.png") 'сохраняем (файл будет в папке с программой)
    End Sub

Но если я изменяю строчку
        Dim KARTINA As New Bitmap(X, Y) 'создаем картинку
то компилятор начинает ругаться (ArgumentException не обработан - "Недопустимый параметр)
а мне необходимо чтобы я мог программно задавать размеры картинки

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

Ответ #1 @Алексей Немиро 07.09.2013 17:50
X и Y - это что? Координаты?
При создании картинки нужно указывать ширину и высоту, которые должны быть больше нуля.

Dim w As Integer = 1000 ' ширина
Dim h As Integer = 1000 ' высота
Dim pic As New Bitmap(w, h) 

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

Ответ #2 @Дерепа Алексей 07.09.2013 18:04
Огромное спасибо , теперь понятно почему у меня ничего не получалось я по ошибке передавал в процедуру одно из значений равное "0"

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

Добавить свой ответ в эту тему
Здравствуйте!
Подскажите, пожалуйста, как сделать следующее.
Известен Handle формы. Как при нажатии на кнопку в другой форме сделать, чтобы первая становилась поверх остальных (выходила на передний план)?

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

Ответ #1 @Crash666 07.09.2013 15:48
Ну если VB.net то можно включить быстро Topmost и сразу выключить
Form2.TopMost = True
Form2.TopMost = False
еще вроде можно так
Form2.activiti() 'я пишу так по памяти, но вроде правильно написал
Еще можно попробовать что то вроде
Form2.GetFocus() ' Или вроде этого

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

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

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

Исходные коды

TimeControl

Visual Basic .NET: Интерфейс @Shark1 07.09.2013 17:21
Пример создания пользовательского элемента управления (аналоговые часы) в Windows Presentation Foundation.

К данном исходному коду прилагаются файлы примеров. Скачать.

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

Все исходные коды

Вакансии в IT

Инженер-программист С++

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

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

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

Разработчик MS Dynamics AX

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

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

Россия, Ростов-на-Дону | Работа в офисе | 70 000,00 KBP

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

Россия, Ростов-на-Дону | Работа в офисе

Программист на Erlang

Россия, Екатеринбург | Работа в офисе

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

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

Инженер программист

Россия, Ростов-на-Дону | Работа в офисе | 50 000,00 KBP

Программист

Россия, Екатеринбург | Работа в офисе | 55 000,00 KBP

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

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

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

Fujitsu разработала новое поколение фемтосот для LTE

Японский компьютерный гигант Fujitsu говорит о разработке фемтосот нового поколения, которые способны бороться с радиопомехами и почти вдвое увеличить реальную скорость передачи данных в сетях LTE.

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

В Fujitsu говорят о разработке нового поколения фемтосот, которые способны автоматически подстраиваться под окружающую среду и не мешать друг другу, а также базовым сотовым станциям и радиооборудованию, подключаемому только к макро-сотам. Изюминка новых фемтосот в том, что они делают три полезных вещи:

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

В Fujitsu планируют показать новые фемтосоты на практике в рамках IEEE International Symposium on Personal, Indoor and Mobile Radio Communications (PIMRC2013) в Лондоне на этой неделе.

12.09.2013 11:57 · Категория: Железо · Источник: CyberSecurity.ru

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

Новое беспроводное зарядное устройство работает на расстоянии до 10 метров

Еще один ИТ-стартап утверждает, что ему удалось добиться прорыва в области беспроводной передачи электричества. Компания Ossia говорит о создании 2,4-гигагерцевого передатчика, способного заряжать устройства на расстоянии до 10 метров. Демонстрация новинки прошла на конференции TechCrunch Disrupt.

В компании говорят, что созданный зарядный прибор способен передавать заряд около 1 ватт на расстояние 10 метров без света, проводов, электромагнитных помех и сквозь стены. В компании ожидают, что коммерческие версии их продукта появятся в 2015 году.

Еще одной изюминкой гаджета является то, что от одного передатчика можно заряжать до 3000 устройств-приемников сразу. Особенность гаджета в том, что он полагается для передачи электричества на антенны, а не на специальные трансмиттеры и отражатели, что позволяет наделить передаваемую мощность теми же характеристиками, что и радиоволны.

12.09.2013 11:56 · Категория: Железо · Источник: CyberSecurity.ru

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

Британская разведка объявила конкурс для хакеров

Британский Центр правительственной связи объявил в Сети конкурс, победители которого получат возможность стать частью команды центра, занимающейся криптографией и кибербезопасностью. К участию в конкурсе приглашаются математики, программисты, хакеры, а также все те, кто «может заниматься математикой дни напролет».

12.09.2013 11:55 · Категория: Программирование · Источник: 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 если иное не указано отдельно.


В избранное