الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية تحديد ال commPort

مغلق
بدأه gaf58 في 10 أغسطس 2004 · 5 رد · 536 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الافاضل

هل اطمع في ان اجد من يصحح لي هزا الكود بطريقة سهلة فانا مازلت مبتدء

انا استعمل هزا الكود في الاتصال التليفوني ولكني فكل مرة اضطر لاختيار البورت من اللستة فهل من طريقة تحدده اتوماتيكالي.

الكود:

--------

Private Sub Command1_Click()

Command1.Visible = False

Command2.Visible = True

'

Dim PhoneNumber As String

On Error GoTo WrongPort

MSComm1.CommPort = Combo1.Text 'قم بتغيير البورت من 1 إلى 8 حتى تصل إلى البورت الصحيح

MSComm1.Settings = "300,n,8,1"

PhoneNumber = Text1

MSComm1.PortOpen = True

MSComm1.Output = "ATDT" + PhoneNumber + Chr$(13)

Exit Sub

WrongPort:

Command2.Visible = False

Command1.Visible = True

If MsgBox(" Port not correct" & vbCrLf & vbCrLf & "Please chick the corrected One manually from list..", vbOKCancel Or vbInformation, "Required suitable port ") = vbOK Then

Text1 = ""

Text1.SetFocus

Else

End

End If

End Sub

Private Sub Command2_Click()

Command2.Visible = False

Command1.Visible = True

MSComm1.PortOpen = False

End Sub

Private Sub Form_Load()

Me.BorderStyle = 3

Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2

Command2.Move Command1.Left, Command1.Top

Command1.Caption = "&Connect"

Command2.Caption = "&Disconnect"

Command2.Visible = False

'========================

Combo1.AddItem "1"

Combo1.AddItem "2"

Combo1.AddItem "3"

Combo1.AddItem "4"

Combo1.AddItem "5"

Combo1.AddItem "6"

Combo1.AddItem "7"

Combo1.AddItem "8"

'

'

For a = 1 To 8

MSComm1.CommPort = a

If MSComm1.PortOpen = False Then

Combo1.Text = MSComm1.CommPort

End If

Next a

' هنا احتاج المساعدة

' الكود السابق يحتاج لتصحيح فهو يختار الرقم الاخير

' تحياتي للجميع

End Sub

Private Sub Form_Unload(Cancel As Integer)

MSComm1.PortOpen = False

End Sub

----------------------

شكرا جزيلا

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#2

يمكنك إستخدام الريجستري في حفظ رقم البورت

بالنسبة للخطأ أخي يا ريت توضح المطلوب من هذا الجزء:

For a = 1 To 8

MSComm1.CommPort = a

If MSComm1.PortOpen = False Then

Combo1.Text = MSComm1.CommPort

End If

Next a

اقتباس
How to get experience without a job, and how to get a job without experience
#3

الاخ الفاضل حمزة

شكرا جزيلا لاهتمامك

For a = 1 To 8

MSComm1.CommPort = a

If MSComm1.PortOpen = False Then

Combo1.Text = MSComm1.CommPort

End If

Next a

بالطبع يمكن الغاء هزا الكود و ندع المستخدم يختار رقم البورةت للمرة الاولي ونسجله في الريجستيرى و سوف لايحتاج لاختيار الرقم مرة اخرى.

ولكن لان معظم مستخدمي الكومبيوتر لا يعلمون ما هو رقم البورت اصلا ، وبالتالي المستخدم سوف يجد البرنامج غير صالح وسوف يهمله ،

الحل هو ان نجد طريقة لتحديد رقم البورت للمستخدم لكي يشعر بفائدة البرنامج ، وهزا يحدث في كل برامج ال dialler

هزا الكود يؤرقني من> فترة

شكرا جزيلا

تحياتي

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#4

عزرا لقد نسيت ان ازكر ان ه>ا الكود يحدد رقم البورت بالرقم الاخير في ال combo وهو 8

For a = 1 To 8

MSComm1.CommPort = a

If MSComm1.PortOpen = False Then

Combo1.Text = MSComm1.CommPort

End If

Next a

فهل من سبيل لجعله يحدد رقم البورت الصحيح ؟؟؟؟؟

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#5 
Private Sub Form_Load()
On Error Resume Next
Me.BorderStyle = 3
Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2
Command2.Move Command1.Left, Command1.Top
Command1.Caption = "&Connect"
Command2.Caption = "&Disconnect"
Command2.Visible = False

'========================
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
'
'
For a = 1 To 8
MSComm1.CommPort = a
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then

    Combo1.Text = MSComm1.CommPort
    Exit Sub
End If
Next a
End Sub

آمل ان يفي هذا بالغرض

اقتباس
How to get experience without a job, and how to get a job without experience
#6

عفوا ظهرت بعض الاخطاء بالكود وهذا هو :

Private Sub Form_Load()
On Error Resume Next
Me.BorderStyle = 3
Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2
Command2.Move Command1.Left, Command1.Top
Command1.Caption = "&Connect"
Command2.Caption = "&Disconnect"
Command2.Visible = False

'========================
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
'
'
For a = 1 To 8
MSComm1.CommPort = a
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then

    Combo1.Text = MSComm1.CommPort
    Exit Sub
End If
Next a

End Sub

اقتباس
How to get experience without a job, and how to get a job without experience

هذا الموضوع مغلق.

مواضيع مشابهة