DIY

Автоматический игрушечный гараж на Ардуино

Автоматический игрушечный гараж своими руками на Ардуино

Привет всем. В данном проекте мы с помощью Ардуино сделаем игрушечный автоматический гараж. Игрушка необычная, и будет очень интересна вашему малышу. Благодаря ультразвуковому датчику HC-SR04 гараж будет автоматически открываться, когда…

Макет ультразвукового дальномера на Arduino и HC-SR04

Как сделать ультразвуковой дальномер на HC-SR04 и Arduino

Предлагается проект дальномера, основанного на ультразвуковом датчике HC-SR04 и Arduino. Показания датчика отображаются на жидкокристаллическом дисплее, а питание осуществляется от батареи на 9 вольт.

Как сделать декоративное панно с подсветкой на Arduino

Предлагается вариант изготовления декоративного панно со светодиодной подсветкой, которая будет управляться с помощью Arduino. На данном панно будет изображено созвездие Большой Медведицы и окружающие его созвездия. Роль звёзд будут исполнять…

Как сделать погодную станцию на Arduino

Предлагается методика изготовления погодной станции для дома или дачи. За основу возьмём плату Ардуино и набор сенсоров: температуры, влажности, давления и датчик углекислого газа. Данные будут выводиться на LCD дисплей,…

Очки виртуальной реальности Google Cardboard

Как сделать очки виртуальной реальности

Сейчас очень популярна технология виртуальной реальности, но пока что она довольно дорогая и не каждому доступна. Об Oculus Rift и многочисленных аналогах слышали, наверное, все. В этой статье вы узнаете…

''' <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