使用Win10 IoT+树莓派控制蜂鸣器

可以上手实战了，今天，我们来写一个蜂鸣器程序，熟悉一下如何用Windows 10 IoT控制针脚。

上图是树莓派2的针脚定义，我们本次要用到一个3.3V电源针脚作为蜂鸣器供电正极和一个GPIO针脚作为蜂鸣器的负极。因此，蜂鸣器也是必要的：

将蜂鸣器正极（可以通过面包板）连接到 “3.3V PWR” 针脚（1号针脚），将负极连接到 “GPIO 5”针脚（29号针脚）。

接下来开始写程序来控制蜂鸣器每隔0.5秒发出长达0.5秒的蜂鸣（以VB.Net为例）：
新建一个按钮，并双击它，在代码最开头插入一个空行，输入：

Imports Windows.Devices.Gpio

在按钮的Click事件里添加如下代码：

'定义针脚
Dim pin As New GpioPin
'定义GPIO控制器
Dim gpio = GpioController.GetDefault()
'选择控制第29针脚（让GPIO控制器打开29针脚）
pin = gpio.OpenPin(29)
'无限循环
While True
        '在29针脚设置低电平
        pin.Write(GpioPinValue.Low)
        '在29针脚设置针脚驱动模式为输出
        '这样就在29针脚输出了一个低电平（0V），现在蜂鸣器正极一端是3.3V，负极一端是0V，蜂鸣器发声
        pin.SetDriveMode(GpioPinDriveMode.Output)
        '主线程停止执行500毫秒（0.5秒）
        System.Threading.Thread.Sleep(500)
        '在29针脚设置高电平
        pin.Write(GpioPinValue.High)
        '在29针脚设置针脚驱动模式为输出
        ''这样就在29针脚输出了一个高电平（3.3V），现在蜂鸣器正极一端是3.3V，负极一端是3.3V，没有电位差，蜂鸣器停止发声
        pin.SetDriveMode(GpioPinDriveMode.Output)
        '主线程停止执行500毫秒（0.5秒）
        System.Threading.Thread.Sleep(500)
End While