+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] أرجو المساعدة في فكرة برنامج الرد الآلي من خلال الخط الأرضي (/showthread.php?tid=1247)
أرجو المساعدة في فكرة برنامج الرد الآلي من خلال الخط الأرضي - MAG - 14-12-13
مشكلتي عند أستقبال المكالمة يتم تشغيل الصوت لثانيتين ويتوقف
PHP كود :
Dim fileByte As Byte()
Dim offset As Integer = 44
Dim fileByte() As Byte = My.Computer.FileSystem.ReadAllBytes("C:\v.wav")
' set buffer size
modemPort.WriteBufferSize = 8000
' set timeout
modemPort.ReadTimeout = 2000
modemPort.Open()
' initialize modem
modemPort.Write("ATZ" & vbCrLf)
' enable DTR
modemPort.DtrEnable = True
' Voice mode
modemPort.Write("AT+FCLASS=8" & vbCrLf)
' txtPhone.text has the phone number to call
modemPort.Write("ATA" & vbCrLf)
' 16 bit 8 khz PCM
modemPort.Write("at+vsm=0" & vbCrLf)
' disable silence detection
modemPort.Write("AT+VSD8,0" & vbCrLf)
' hardware flo control
modemPort.Write("AT+FLO=2" & vbCrLf)
' enter voice transmit data state
modemPort.Write("AT+VTX" & vbCrLf)
modemPort.Write(fileByte, offset, fileByte.Length - offset)
' hang up
modemPort.Write("ATH" & vbCrLf)
RE: أرجو المساعدة في فكرة برنامج الرد الآلي من خلال الخط الأرضي - kslawy - 15-12-13
السلام عليكم ورحمة الله وبركاته
ربما لأن ReadTimeout بيساوي ثانيتين (2000)
PHP كود :
' set timeout
modemPort.ReadTimeout = 2000
حاول تزيده الي ارقم أعلى (5000 فما فوق) .
RE: أرجو المساعدة في فكرة برنامج الرد الآلي من خلال الخط الأرضي - MAG - 15-12-13
سلام الله عليك ورحمته وبركاته
هلا بالأستاذ الغالي
وأشكرك على المساهمة الجميلة وجعلها الله في ميزان حسناتك
أستاذي أكتشفت المشكلة وكانت في تنسيق ملف الصوت حيث كان Audio sample rate=44100 وتم تعديلها إلى 8000 ومشى الحال ولاكن أثناء الإستماع في أصوات مزعجة بشكل متقطع ولم أعرف السبب
مع خالص تحياتي لك