تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أرجو المساعدة في فكرة برنامج الرد الآلي من خلال الخط الأرضي
#1
مشكلتي عند أستقبال المكالمة يتم تشغيل الصوت لثانيتين ويتوقف

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(fileByteoffsetfileByte.Length offset)

        
' hang up
        modemPort.Write("ATH" & vbCrLf) 
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

ربما لأن ReadTimeout بيساوي ثانيتين (2000)
PHP كود :
' set timeout
 modemPort.ReadTimeout = 2000 

حاول تزيده الي ارقم أعلى (5000 فما فوق) .
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: hoob computer , MAG
#3
سلام الله عليك ورحمته وبركاته
هلا بالأستاذ الغالي
وأشكرك على المساهمة الجميلة وجعلها الله في ميزان حسناتك

أستاذي أكتشفت المشكلة وكانت في تنسيق ملف الصوت حيث كان Audio sample rate=44100 وتم تعديلها إلى 8000 ومشى الحال ولاكن أثناء الإستماع في أصوات مزعجة بشكل متقطع ولم أعرف السبب
مع خالص تحياتي لك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج اعرف اذاى اشفر برنامج فيجول بيسك naderalkeng54 1 30 أمس, 09:35 PM
آخر رد: elgokr
  [سؤال] مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ dametucorazon 3 120 أمس, 11:27 AM
آخر رد: elgokr
  مشكلة في برنامج قواعد بيانات وجداول وحقول من نوع اكسس ابراهيم ايبو 2 111 20-09-18, 07:17 AM
آخر رد: ابراهيم ايبو
  [VB.NET] اريد مساعدة فى برنامج اصنعة فى الفجول بسك naderalkeng54 4 148 18-09-18, 03:04 PM
آخر رد: naderalkeng54
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 139 18-09-18, 01:34 PM
آخر رد: elgokr
  للمرة الثانية بخصوص برنامج تصنيع فى ورشة salah mansour 9 208 15-09-18, 09:50 PM
آخر رد: 911
  كيف اصمم برنامج يتحكم بالفيس بوك؟ samira20 1 64 15-09-18, 10:15 AM
آخر رد: elgokr
  اكواد صنع برنامج للضغط علي زر معين بكثره مثال علي زر c AhmedShawqe 3 111 13-09-18, 03:19 PM
آخر رد: DK-x
  [سؤال] عرض برنامج داخل اخر DK-x 3 77 12-09-18, 09:43 PM
آخر رد: elgokr
Exclamation [سؤال] كيف اصمم برنامج مثل من سيربح المليون DK-x 3 82 12-09-18, 05:08 PM
آخر رد: عبدالله الدوسري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم