MC 1000播放声音

最新推荐文章于 2021-02-27 00:28:10 发布

ChinaString

最新推荐文章于 2021-02-27 00:28:10 发布

阅读量617

点赞数

CC 4.0 BY-SA版权

文章标签： integer class function string

本文链接：https://blog.youkuaiyun.com/ChinaString/article/details/2842038

本文介绍了一个用于控制 Symbol 音频设备的公共类 PublicClassDeviceAudio，该类包括初始化音频设备、播放音调和 WAV 文件等功能。通过选择不同的音频类型（标准音频或模拟音频），该类能够适配多种 Symbol 音频设备。

   Public Class DeviceAudio
		Private MyAudioController As Symbol.Audio.Controller = Nothing
		Public Function InitAudio() As Boolean
			If MyAudioController Is Nothing Then
				Dim MyDevice As Symbol.Audio.Device = Symbol.StandardForms.SelectDevice.Select(Symbol.Audio.Controller.Title, Symbol.Audio.Device.AvailableDevices)
				If (MyDevice Is Nothing) Then
					Return False
				Else
					Select Case (MyDevice.AudioType)
						Case Symbol.Audio.AudioType.StandardAudio
							MyAudioController = New Symbol.Audio.StandardAudio(MyDevice)
						Case Symbol.Audio.AudioType.SimulatedAudio
							MyAudioController = New Symbol.Audio.SimulatedAudio(MyDevice)
						Case Else
							Throw New Symbol.Exceptions.InvalidDataTypeException("Unknown Device Type")
					End Select
					If (System.Convert.ToInt32(Me.MyAudioController.BeeperVolumeLevels) > 0) Then
						Me.MyAudioController.BeeperVolume = Me.MyAudioController.BeeperVolumeLevels - 1
					End If
				End If
				Return True
			Else
				Return False
			End If
		End Function
		Public Sub KillAudio()
			If MyAudioController Is Nothing Then
				Return
			Else
				MyAudioController.Dispose()

MyAudioController = Nothing

			End If
		End Sub
		Public Sub PlayTone(ByVal Duration As Integer, ByVal Frequency As Integer)
			MyAudioController.PlayAudio(Duration, Frequency)
		End Sub
		Public Sub PlayWav(ByVal Filename As String)
			MyAudioController.PlayWaveFile(Filename)
		End Sub
	End Class