通过Visual Basic 2005进行语音激活 [英] voice activation through Visual Basic 2005
本文介绍了通过Visual Basic 2005进行语音激活的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我想知道我是否可以添加声音来控制温度
导入 System.Speech.Synthesis
公共 类 Form1
昏暗 FromSerialPort_Temp
暗 Thermistor_Temp( 15 ) As 整数
暗 Thermistor_R( 15 ) As 整数
暗 Circuit_Thermistor_R As Double
昏暗结果
Dim 扬声器 As 新 SpeechSynthesizer
私人 子 Form1_Load( ByVal 发件人 As 系统.对象， ByVal e As System.EventArgs)句柄 MyBase .Load
' [Timerspeak.Enabled = True
结束 子
私有 子 ReadSerialPortForTemp()
FromSerialPort_Temp = SerialPort1.ReadExisting
如果 Len(FromSerialPort_Temp)<> 0 然后
' 如果FromSerialPort_Temp不等于空白(已接通电源).
TextBoxVoltage.Text = 0 . 01 * Convert.ToInt16(FromSerialPort_Temp.Substring( 3 )，" ' 如果未读取任何内容并且使用FromSeriaPort_Temp = blank ，则分配"U1000"
结束 如果
结束 子
私有 Sub OpenPort1()
如果 SerialPort1.IsOpen 然后
SerialPort1.Close()
结束 如果
SerialPort1.PortName = "
SerialPort1.BaudRate = 9600
SerialPort1.Parity = System.IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = System.IO.Ports.StopBits.One
SerialPort1.RtsEnable = 真
SerialPort1.Open()
结束 子
私有 Sub ThermistorTable()
Thermistor_Temp( 0 )= -10
Thermistor_R( 0 )= 42506
Thermistor_Temp( 1 )= -5
Thermistor_R( 1 )= 33892
Thermistor_Temp( 2 )= -0
Thermistor_R( 2 )= 27219
Thermistor_Temp( 3 )= 5
Thermistor_R( 3 )= 22021
Thermistor_Temp( 4 )= 10
Thermistor_R( 4 )= 17926
Thermistor_Temp( 5 )= 15
Thermistor_R( 5 )= 14674
Thermistor_Temp( 6 )= 20
Thermistor_R( 6 )= 12081
Thermistor_Temp( 7 )= 25
Thermistor_R( 7 )= 10000
Thermistor_Temp( 8 )= 30
Thermistor_R( 8 )= 8315
Thermistor_Temp( 9 )= 35
Thermistor_R( 9 )= 6948
Thermistor_Temp( 10 )= 40
Thermistor_R( 10 )= 5834
Thermistor_Temp( 11 )= 45
Thermistor_R( 11 )= 4917
Thermistor_Temp( 12 )= 50
Thermistor_R( 12 )= 4161
Thermistor_Temp( 13 )= 55
Thermistor_R( 13 )= 3535
Thermistor_Temp( 14 )= 60
Thermistor_R( 14 )= 3014
Thermistor_Temp( 15 )= 1000
Thermistor_R( 15 )= 1
Dim 计数器 As 整数
昏暗 Temperature_low
昏暗 Temperature_high
昏暗 Resistance_high
昏暗 Resistance_low
昏暗 Rnum1
Dim Rnum2
对于计数器= 0 >到 15
如果 CInt (TextBoxResistance.Text)> = Thermistor_R(Counter)如果计数器<> 0 And 计数器<> 15 然后
Temperature_high =热敏电阻温度(计数器)
Temperature_low = Thermistor_Temp(Counter- 1 )
电阻低=热敏电阻R(计数器)
电阻上限=热敏电阻_R(计数器- 1 )
Rnum1 =电阻过高-TextBoxResistance.Text
Rnum2 =电阻高-电阻低
结果= 2 . 5 + Math.Round(Temperature_low +( 5 * Rnum1/Rnum2)， 1 )
TextBoxTemp.Text =结果& "
退出 用于
结束 如果
如果计数器= 0 >或 Counter = 15 然后
TextBoxTemp.Text = "
退出 用于
结束 如果
结束 如果
下一步
结束 子
私有 子 AcquireTemp()
调用 OpenPort1()
TextBoxVoltage.Clear()
TextBoxResistance.Clear()
TextBoxTemp.Clear()
SerialPort1.WriteLine(" + vbCr)
System.Threading.Thread.Sleep( 150 )
致电 ReadSerialPortForTemp()
如果 Len(TextBoxVoltage.Text)= 0 >然后 ' 等待设备打开'
其他
Circuit_Thermistor_R = 10000 * TextBoxVoltage.Text/( 5 -TextBoxVoltage.Text)
TextBoxResistance.Text = Math.Round(Circuit_Thermistor_R， 0 )
致电 ThermistorTable()
结束 如果
结束 子
私人 子 Timer1_Tick( ByVal 发件人 As 系统.对象， ByVal e As System.EventArgs)句柄 Timer1.Tick
致电 AcquireTemp()
结束 子
私有 Sub BtnStart_Click( ByVal 发件人 As 系统.对象， ByVal e As System.EventArgs) Handles BtnStart.Click
致电 ToStartAP()
结束 子
私有 Sub ToStartAP()
Dim StartAP() As 字节 = { & HFF，& H7和& H3}
调用 OpenPort1()
SerialPort1.Write(StartAP， 0 ，StartAP.Length)
System.Threading.Thread.Sleep( 300 )
TextBox1.Text = "
结束 子
' 私有子Timerspeak_Tick(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理Timerspeak.Tick
' Speak()
' 结束子
' 私人Sub Speak()
' 调用ThermistorTable()
' 如果TextBoxTemp.Text> 26然后
' Speaker.Speak(TextBoxTemp.Text)
' 如果结束
' 结束子
结束 类
解决方案
您可能需要将语音识别添加到您的 ^ ].
hi i wish to know whether can i add voice to control the temperature
Imports System.Speech.Synthesis
Public Class Form1
Dim FromSerialPort_Temp
Dim Thermistor_Temp(15) As Integer
Dim Thermistor_R(15) As Integer
Dim Circuit_Thermistor_R As Double
Dim Result
Dim Speaker As New SpeechSynthesizer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'[Timerspeak.Enabled = True
End Sub
Private Sub ReadSerialPortForTemp()
FromSerialPort_Temp = SerialPort1.ReadExisting
If Len(FromSerialPort_Temp) <> 0 Then
'if FromSerialPort_Temp NOT equal to blank (power connected).
TextBoxVoltage.Text = 0.01 * Convert.ToInt16(FromSerialPort_Temp.Substring(2, 3), 16)
FromSerialPort_Temp = "U1000" 'assign with "U1000" if nothing is read and FromSeriaPort_Temp=blank
End If
End Sub
Private Sub OpenPort1()
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
SerialPort1.PortName = "Com14"
SerialPort1.BaudRate = 9600
SerialPort1.Parity = System.IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = System.IO.Ports.StopBits.One
SerialPort1.RtsEnable = True
SerialPort1.Open()
End Sub
Private Sub ThermistorTable()
Thermistor_Temp(0) = -10
Thermistor_R(0) = 42506
Thermistor_Temp(1) = -5
Thermistor_R(1) = 33892
Thermistor_Temp(2) = -0
Thermistor_R(2) = 27219
Thermistor_Temp(3) = 5
Thermistor_R(3) = 22021
Thermistor_Temp(4) = 10
Thermistor_R(4) = 17926
Thermistor_Temp(5) = 15
Thermistor_R(5) = 14674
Thermistor_Temp(6) = 20
Thermistor_R(6) = 12081
Thermistor_Temp(7) = 25
Thermistor_R(7) = 10000
Thermistor_Temp(8) = 30
Thermistor_R(8) = 8315
Thermistor_Temp(9) = 35
Thermistor_R(9) = 6948
Thermistor_Temp(10) = 40
Thermistor_R(10) = 5834
Thermistor_Temp(11) = 45
Thermistor_R(11) = 4917
Thermistor_Temp(12) = 50
Thermistor_R(12) = 4161
Thermistor_Temp(13) = 55
Thermistor_R(13) = 3535
Thermistor_Temp(14) = 60
Thermistor_R(14) = 3014
Thermistor_Temp(15) = 1000
Thermistor_R(15) = 1
Dim Counter As Integer
Dim Temperature_low
Dim Temperature_high
Dim Resistance_high
Dim Resistance_low
Dim Rnum1
Dim Rnum2
For Counter = 0 To 15
If CInt(TextBoxResistance.Text) >= Thermistor_R(Counter) Then
If Counter <> 0 And Counter <> 15 Then
Temperature_high = Thermistor_Temp(Counter)
Temperature_low = Thermistor_Temp(Counter - 1)
Resistance_low = Thermistor_R(Counter)
Resistance_high = Thermistor_R(Counter - 1)
Rnum1 = Resistance_high - TextBoxResistance.Text
Rnum2 = Resistance_high - Resistance_low
Result = 2.5 + Math.Round(Temperature_low + (5 * Rnum1 / Rnum2), 1)
TextBoxTemp.Text = Result & "C"
Exit For
End If
If Counter = 0 Or Counter = 15 Then
TextBoxTemp.Text = "Out of Range"
Exit For
End If
End If
Next
End Sub
Private Sub AcquireTemp()
Call OpenPort1()
TextBoxVoltage.Clear()
TextBoxResistance.Clear()
TextBoxTemp.Clear()
SerialPort1.WriteLine("U1" + vbCr)
System.Threading.Thread.Sleep(150)
Call ReadSerialPortForTemp()
If Len(TextBoxVoltage.Text) = 0 Then ' wait for the equipment to be turned on '
Else
Circuit_Thermistor_R = 10000 * TextBoxVoltage.Text / (5 - TextBoxVoltage.Text)
TextBoxResistance.Text = Math.Round(Circuit_Thermistor_R, 0)
Call ThermistorTable()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Call AcquireTemp()
End Sub
Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Call ToStartAP()
End Sub
Private Sub ToStartAP()
Dim StartAP() As Byte = {&HFF, &H7, &H3}
Call OpenPort1()
SerialPort1.Write(StartAP, 0, StartAP.Length)
System.Threading.Thread.Sleep(300)
TextBox1.Text = "AP Started"
End Sub
'Private Sub Timerspeak_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerspeak.Tick
' Speak()
'End Sub
'Private Sub Speak()
' Call ThermistorTable()
' If TextBoxTemp.Text > 26 Then
' Speaker.Speak(TextBoxTemp.Text)
' End If
'End Sub
End Class 解决方案
Yes, you can. How you do that depends entirely on your requirements and what you want to do.
You might need to add voice recognition to your code[^].
这篇关于通过Visual Basic 2005进行语音激活的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
