分类
折腾

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

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

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

IMG_0638

将蜂鸣器正极(可以通过面包板)连接到 “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     

“使用Win10 IoT+树莓派控制蜂鸣器”上的2条回复

发表评论

电子邮件地址不会被公开。 必填项已用*标注