مشکل با یک برنامه ID caller

[shahmahi]

بچه ها تو این برنامه از MScomm استفاده شده و من تا قبل از اینکه ویندوزمو عوض کنم از این برنامه استفاده میکردم و درست کار میکرد ولی نمیدونم چرا از وقتیک ویندوز سیستم رو عوض کردم دیگه هیچ کدوم از پورتهای کامپیوتر رو نمیشناسه کسی بلده راهنماییم کنه ممنون میشم :چشمک:

[ameri110]

اگه شما اطلاعاتی در باره پورت ها دارید چرا مطلبی قرار نمیدید ؟
من فکر می کنم شما کامپوننت ها رو اضافه نکردید
--------------
شاید هم اگه MSComm1 رو پاک کنید و یک بار دیگه بسازید درست شه

[shahmahi]

این برنامه کامپوننت خاصی نداره، mscoom1 رو پاک کردم و دوباره ساختم ولی فرقی نکرد.
یک فایل pdf دارم که MScomm ونحوه کار با پورتها رو آموزش داده شاید به دردتون بخوره.

[shahmahi]

بابا یک شیر مرد یا یک شیر زن پیدانمیشه منو راهنمایی کنه :ناراحت:

[vbhamed]

سلام

1 - به Control Panel->Phone & Modem يك سري بزنيد و سالم بودن تنظيمات و پورت ها رو چك كنيد
2 - ويژوال بيسيك رو حذف دوباره نصب كنيد

[shahmahi]

سلام

1 - به Control Panel->Phone & Modem يك سري بزنيد و سالم بودن تنظيمات و پورت ها رو چك كنيد
2 - ويژوال بيسيك رو حذف دوباره نصب كنيد

سلام
من به Phone & Modem سر زدم و همه چیز درست بود، اخه مشکل دیگه اینه که من از کدهای برنامه که ضمیمه کردم توی یک برنامه که مال خودمه استفاده کردم که توی اونجا هم پورت مودم رو نمیشناسه و عملا برنامم کار نمیکنه اکه برنامه دیگه ای شبیه این دارین ممنون میشم معرفی کنید.

درضم این مدالتون باعث مباهاته

[vbhamed]

سلام

اگر مي تونيد اون تيكه از برنامه يا اون فرم رو بزاريد تا بشه بررسي كرد
مخصوصا فايل vbp پروژه

[shahmahi]

سلام

اگر مي تونيد اون تيكه از برنامه يا اون فرم رو بزاريد تا بشه بررسي كرد
مخصوصا فايل vbp پروژه

سلام

تمام کدهایی که من تو برنامم استفاده کردم مشابه برنامه ای که تو پست اول ضمیمه کردم هستش. راستش دوباره به Phone & Modem رفتم و دست کاری کردم حالا MScoom فعال میشه ولی شماره طرف نمی افته . اگه درباره MScomm و تنظیماتش اطلاعات مفیدتری دارید ممنون میشم بدوم :چشمک:

[HjSoft]

سلام ، جدا از Mscomm شما ميتونيد از Kdtele يا Tapiex استفاده كنيد تا امكانات بيشتري به شما بدهند .

[shahmahi]

سلام ، جدا از Mscomm شما ميتونيد از Kdtele يا Tapiex استفاده كنيد تا امكانات بيشتري به شما بدهند .

سلام
ممنون از راهنمایی، ولی من از Kdtele يا Tapiex تاحالا استفاده نکردم. قوربون دستت شما که ماشاالله حرفه ای هستید چند تا نمونه برنامه هم اگه دارید واسم بزارید.
ممنونتون میشم :چشمک:

[HjSoft]

دوست عزيز ، اگر كامپوننت Kdtele رو دانلود كنيد ، خودش تا دلتون بخواد مثال و در هر زباني داره . شما دانلود كن نتونستي باهاش كار كني ، سوال كن .
موفق باشيد .

[vbhamed]

سلام

اگر كالر آي دي رو برنگردونه چند تا دليل داره

اگر مودم شما كالر آي دي رو ساپورت كنه در 90% موارد كالر آي دي مودم شما با مخابرات منطقه سازگار نيست

اگر ويندوز خودش مودم رو شناخته باشه و شما به صورت دستي از روي سي ديش نصبش نكرده باشين قسمت كالر آي دي ممكنه فعال نشه

كد فعال ساز كالر آي دي كه به مودم فرستاده ميشه چند تا هست از جمله

At+vcid=1
at#‎cid=1
at#‎ccid=1و غيره كه مي تونيد جستجو كنيد

در كل استفاده از كالر آي دي مودم اعتبار زيادي نداره و بهتره از دستگاههاي كالر آي دي استفاده بشه

[shahmahi]

سلام

اگر كالر آي دي رو برنگردونه چند تا دليل داره

اگر مودم شما كالر آي دي رو ساپورت كنه در 90% موارد كالر آي دي مودم شما با مخابرات منطقه سازگار نيست

اگر ويندوز خودش مودم رو شناخته باشه و شما به صورت دستي از روي سي ديش نصبش نكرده باشين قسمت كالر آي دي ممكنه فعال نشه

كد فعال ساز كالر آي دي كه به مودم فرستاده ميشه چند تا هست از جمله

At+vcid=1
at#‎cid=1
at#‎ccid=1و غيره كه مي تونيد جستجو كنيد

در كل استفاده از كالر آي دي مودم اعتبار زيادي نداره و بهتره از دستگاههاي كالر آي دي استفاده بشه


سلام

مطالبی رو که گفتید مفید بود و من ازتون تشکر میکنم ولی هنوز مشکل من رفع نشده.

مودم من کالر آیدی رو ساپورت میکنه و فکر کنم با مخابرات منطقه هم مشکلی نداشته باشه چون تا قبل از اینکه ویندوزم رو عوض کنم درست کار میکرد.

درمورد شناختن مودم باید بگم که، مودمم رو پاک کردم و دوباره از روی CD نصبش کردم. ولی بازم مشکلم حل نشد.

شاید اگه کدها رو ببینید بتونید مشکل منو حل کنید:
این کدیه که در یک تایمر با Enabled = Trueو Interval=1000 نوشته شده:


Private Sub Timer3_Timer()
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim xx As String
Dim b1 As String
Dim b2 As String
Dim t_time As String
Dim t_date As String
Dim t_nmbr As String
If MSComm1.InBufferCount >= 1 Then
a1 = MSComm1.Input
Text5 = Text5 & a1
Text6 = Text6 & a1
If InStr(1, Text6, "OK") <> 0 Then

Label1.Caption = "اتصال موفق"
Sett = 0
Text6 = ""
ElseIf InStr(1, Text6, "ERROR") <> 0 Then
Label1.Caption = "خطا در اتصال"

Sett = 0
Text6 = ""
End If
a2 = a1

If InStr(1, a2, "NMBR") <> 0 Then
t_nmbr = Right(a2, Len(a2) - InStr(1, a2, "NMBR") + 1)
If InStr(1, t_nmbr, Chr(13) & Chr(10)) <> 0 Then
t_nmbr = Left(t_nmbr, InStr(1, t_nmbr, Chr(13) & Chr(10)) - 1)

End If

a3 = t_nmbr
If Len(a3) <> 0 Then

a3 = Right(a3, Len(a3) - InStr(1, a3) - 6)

xx = "1"
End If
End If
End If
If xx = "1" Then
Label9.Caption = a3
End Sub

اینم کدیه که در MScoom نوشته شده :


Private Sub MSComm1_OnComm()
On Error Resume Next
If MSComm1.CommEvent Then
Text5 = Text5 & MSComm1.Input
If InStr(1, Text5, "اتصال موفق") <> 0 Then Label1.Caption = Text5
End If
End Sub

وقتی برنامه رو اجرا میکنم داخل Label1 مینویسه خطا در اتصال، و داخل Text5 مینویسه ERROR و Label9، لیبلی هست که قراره شماره تماس گیرنده توش نشون داده بشه.

[vbhamed]

سلام

با يك برنامه ديگه از برنامه هاي معروف مثل Advanced Call Center و غيره تست كنيد ببينيد اونا درست كار مي‌كنن يا نه
اگر درست بودن اونموقع روي برنامه خودتون كار كنيد

ضمنا در كد بالا من نديدم At+vcid=1 يا بقيه چيزا رو به مودم فرستاده باشيد

[shahmahi]

سلام

با يك برنامه ديگه از برنامه هاي معروف مثل Advanced Call Center و غيره تست كنيد ببينيد اونا درست كار مي‌كنن يا نه
اگر درست بودن اونموقع روي برنامه خودتون كار كنيد

ضمنا در كد بالا من نديدم At+vcid=1 يا بقيه چيزا رو به مودم فرستاده باشيد

باعرض سلام و خسته نباشید به شما دوست عزیز

کاری رو که گفتی رو انجام میدم ببینم چی میشه.

ببخشید یادم رفته بود این کدیه که در روال Form_Load نوشته شده :

On Error Resume Next
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.PortOpen = True
MSComm1.Output = "at+VCID=1" + Chr(13)
Resume:
If MSComm1.PortOpen = True Then
Label9.Caption = Text8.Text
Else
Label9.Caption = "بدون تماس"
End If

[(سیدشریفی)]

با سلام
من برنامه شما را روي كامپيوتر خودم تست كردم و خوب جواب داد
حتي شماره تلفن را هم نشان ميده (كالر آي دي)

من خودم نيز از برنامه ExceleTel TeleTools استفاده ميكنم و ازش راضي هستم (البته چند تا محدوديت دارد)

[(سیدشریفی)]

ببخشيد يك فكري هم بنظرم رسيد گفتم شايد كارساز باشد
در قسمت تنظيمات مودم كشور مورد نظر معمولا روي United states ميباشد اگر اين گزينه تغيير كند احتمالا مشكل بوجود ميايد چون من در قسمتي از برنامه خودم اين گزينه را تغيير دادم و نتايج مختلفي را تجربه كردم

[shahmahi]

ببخشيد يك فكري هم بنظرم رسيد گفتم شايد كارساز باشد
در قسمت تنظيمات مودم كشور مورد نظر معمولا روي United states ميباشد اگر اين گزينه تغيير كند احتمالا مشكل بوجود ميايد چون من در قسمتي از برنامه خودم اين گزينه را تغيير دادم و نتايج مختلفي را تجربه كردم

ممنون از توجهت ولی من تمام این کار ها رو قبلا کردم و نتیجه ای هم نگرفتم از اون موقع تا حلا 2 3 بار ویندوز سیستمم رو عوض کردم ولی دیگه برنامم کار نکرد. نکته جالبش اینجای که تا قبل از اون کاملا درست بود و مشکلی هم نداشت.:متفکر:

[(سیدشریفی)]

با سلام
يك مورد ديگر اينكه شايد از مركز مخابرات دستگاه خط شمارو عوض كردند چون براي دوستم هم اين اتفاق افتاده بود يكي بود كه نميتوانست با ديال آپ به اينترنت وصل شود و كلي با كامپيوتر و مودم و چيزاي ديگر سروكله زدن آخر معلوم شد ايراد از مخابرات بوده و يكي ديگر كالرآي دي تلفنش از كار افتاد كه با اعلام آن به مخابرات و با تعويض دستگاه خط مورد نظر درست شد
شايد اشكال از مخابرات باشد

من خودم با همين كامپيوترم از فكس خود ويندوز استفاده ميكردم و خوب جواب ميداد اما حالا وقتي شماره فكس را مينويسم موقع شماره گيري يك رقم كم شماره گيري ميشود يعني بجاي مثلا 6 رقم 5 رقم گرفته ميشود

خلاصه اينكه مشكلات يكي دو تا نيست

[DJxxxx]

سلام
اگه ممکنه یه سورس کد با کامپوننتی که میگینو تو یه فایل بزارین برا دانلود
من بد جور نیاز دارم به این سورس کد
یه آیدی کالر اگه شماره رو بندازه کافییه :d
راستش آقا ما داریم یه برنامه می نویسیم
چون نتونستم راه حلی پیدا کنم مجبور شدم سخت افزار اینو بگیرم با کامپوننتش
تبریز که جایی نبود مجبور شدم از یه شرکت مشهدی بخرم یک شنبه می رم مشهد
اگه کسی می تونه این کارو بکنه من هزینه کامپوننت رو میدم
فقط سری که اگه کسی داشت من بلیط هارو کنسل کنم
مر30

[shahmahi]

اگه ممکنه یه سورس کد با کامپوننتی که میگینو تو یه فایل بزارین برا دانلود


دوست عزیز جدیدترین نسخه KDTele رو میتونی از گوگل سرچ کنی و با پرداخت مبلغی تهیش کنی توش به اندازه کافی مثال داره که میتونی استفاده کنی.

بعد یک نکته دیگه که توجه منو جلب کرد شما 2 سال پیش عضو سایت شدی بعد چطوریه که بعد 2 سال این اولین پستیه که دادی.

[DJxxxx]

بعد یک نکته دیگه که توجه منو جلب کرد شما 2 سال پیش عضو سایت شدی بعد چطوریه که بعد 2 سال این اولین پستیه که دادی.
سلام
ممنون از راهنمایی
من مجبور شدم بخرم
قیمت کردم 2 کانالش 80
تا 8 کانالش که 180 تومان هستش
من این آخریرو تهیه می کنم
راستی من امیدهستم همونی که تو iranvb.net مدیر بودم با متین و حسین و بچه ها
الانم رفتم تو بازار و اونو ترجیح می دم به فعالیت در فروم