aave

Как управлять источником питания PST-3202 по сети Ethernet

13 Февраль 2016 Published in Компьютеры и программы

Измерительная аппаратура зачастую имеет подключение к COM-порту. Это позволяет удалённо снимать показания или настраивать параметры аппаратуры. Давайте подключимся по сети Ethernet к источнику питания с помощью сервера последовательных портов MOXA NPort 5650i-8-DT, который часто используется на различных предприятиях, и попробуем снимать параметры и задавать настройки источника питания.

Как подготовить и загрузить проект в ПЛИС фирмы Altera

23 Январь 2016 Published in ПЛИС

Подготовим и загрузим в ПЛИС фирмы Altera проект из среды разработки Quartus II.

Удаление посторонней рекламы со своего сайта

Удаление нежелательных скрытых исходящих ссылок со своего сайта

20 Январь 2016 Published in Интернет

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

''' <summary>' ''' Запрещает выделение множества элементов ListViewItem, когда режим выделения – Multiple.' ''' </summary>' ''' <remarks>Реализует поведение снятия выделения по второму клику на элементе, чтобы не нужно было удерживать Ctrl для снятия выделения.</remarks>' Private Sub forbidSelectionButOne(sender As Object, e As MouseButtonEventArgs) Dim lv As ListView = TryCast(sender, ListView) If lv IsNot Nothing Then If lv.SelectedIndex <> getCausesListViewItemIndex(sender, e) Then lv.SelectedIndex = getCausesListViewItemIndex(sender, e) e.Handled = True End If lv.Focus() End If End Sub

''' <summary>' ''' Возвращает индекс элемента списка, который был нажат мышью.' ''' </summary>' Private Function getCausesListViewItemIndex(ByVal sender As Object, e As RoutedEventArgs) As Integer Dim dep As DependencyObject = TryCast(e.OriginalSource, DependencyObject) Do While dep IsNot Nothing AndAlso Not TypeOf (dep) Is ListViewItem dep = VisualTreeHelper.GetParent(dep) Loop If dep Is Nothing Then Return -1 Else Dim lv As ListView = TryCast(sender, ListView) If lv IsNot Nothing Then Dim i As Integer = lv.ItemContainerGenerator.IndexFromContainer(dep) Return i Else Return -1 End If End If End Function