پخش صدای بییب

[reza1373]

سلام دوستان من از این برنامه استفاده کردم ومیخوام فقط تا زمانی شرط برقراره بوق بزنه ولی بعد از برقرار نبودن شرط بازم بوق میزنه :گریه:
If address = "b" Then
System.Media.SystemSounds.Beep.Play()
'Beep()
End If
ممنون میشم اگه ساده منو راهنمایی کنید چون تازه کارم

[hosein320]

میتونی سورستو رو بزاری؟

[reza1373]

بله
Public Class Form1

Dim b As String, data As String, address As String, sing As Single


Private Sub ConnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectToolStripMenuItem.Click
With SerialPort1
.BaudRate = 9600
.Handshake = IO.Ports.Handshake.None
.StopBits = IO.Ports.StopBits.One
.Parity = IO.Ports.Parity.None
.PortName = "Com33"
Try
If .IsOpen = True Then .Close()
.Open()
AddHandler SerialPort1.DataReceived, AddressOf SerialPort1_DataReceived
MsgBox("Connected")
ConnectToolStripMenuItem.Enabled = False
Catch ex As Exception
MsgBox("error:" + Err.Description)
End Try
End With

End Sub

Private Sub reza()

address = Strings.Left(b, 1)
data = Strings.Right(b, 5)
If address = "f" Then TextBox1.Text = data
If address = "v" Then
sing = data / 204.8
TextBox2.Text = sing
End If
If address = "t" Then TextBox3.Text = data
If address = "l" Then PictureBox1.BackColor = ColorTranslator.FromOle(RGB(data, data, data))
If address = "b" Then
System.Media.SystemSounds.Beep.Play()
Picture =
End If


End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
b = SerialPort1.ReadLine
Me.Invoke(New EventHandler(AddressOf reza))
Catch ex As Exception
End Try
End Sub

End Class

[hosein320]

منظورم اینه که کل فایلشو ضمیمه کنید

[reza1373]

میخوام مثل صدای بوق مشغولی تلفن تولید کنم آیا میشه؟

[reza1373]

اینم کلش
http://upload.ugm.ac.id/54FILE.rar

[hosein320]

سورستون که باز نشد
ولی شما میتونین یه تایمر بزارین رو فرم و غیر فعالش کنین
بعد
این کد رو بزارین برای تایمرتون

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static c As Byte
c += 1
If c = 5 Then
c = 0
Timer1.Enabled = False
Else
System.Media.SystemSounds.Beep.Play()
End If
End Sub
و تو این خط این تغییراات رو اعمال کنین

If address = "b" Then
timer1.enabled=true
Picture =
End If

[reza1373]

ممنوون
میخوام برنامه جوری باشه که وقتی ADDRES="B شروع کنه به بوغ زدن یکسره یا ممتد و قتی ADDRES="C" دیگه بوغ نزنه این میشه؟

[reza1373]

آها درست شد ممنوووووووووووووووووووووو ون دوست من

[hosein320]

ممنوون
میخوام برنامه جوری باشه که وقتی ADDRES="B شروع کنه به بوغ زدن یکسره یا ممتد و قتی ADDRES="C" دیگه بوغ نزنه این میشه؟

بله دیگه همین کار رو میکنه
اگه شرط برقرار بود تایمر روشن میشه و بعد از چند بار بوق زدن غیر فعال میشه
مگه مشکل داشت؟

[reza1373]

نه درست شد