[ تمت الإجابة ]اطفاء منفذ معين وابقاء المنافذ الاخرى على حالها

هذا هو ما فهمته من سؤالك :

عند إدخال الرقم 1 في مربع النص ، تريد تشغيل المنفذ الأول فقط وإطفاء البقية وكذلك الحال عند إدخال بقية الأرقام حتى 8 .. أما في حالة إذا كان المنفذ يعمل مسبقًا فإننا نقوم بإطفاءه وحده دون تغيير البقية ، في هذه الحالة يجب أن نعرف ما هي القيم التي على المنافذ ..

هذا هو نفس الكود الذي وضعته أنت بعد اختصاره قليلاً :

Dim digit As Byte
digit = Val(Text1.Text)
If digit <= 8 And digit >= 0 Then
    Text1.Text = ""
    Out Val(888), 2 ^ (digit - 1)
End If

طيب مثلا

select case if text1="05" then

case "قوم باختبار المنفذ الاول اذا كان شغال اتركه واذا كان لا يععمل فا ابقيه على حاله "

cse "قوم باختبار المنفذ الثاني اذا كان شغال اتركه واذا كان لا يععمل فا ابقيه على حاله "

ز

ز

ز

cse "قوم باختبار المنفذالخامس اذا كان شغال اطفئه "

ثend select

كيف الطريقة الى ذلك

يعني كيفية اختبار المنافذ اذا كان يعمل ام لا م ابقائه على حاله

ارجو الرد

السلام عليكم

طيب بالنسبة لبرنامج

انا شغلت 1 و 6 و 5

في برنامجك اذا ضغط اول يعمل واذا ضغطت 6 يطفئ 1

انا بدي يشتغل الاثنان

اعرف ان هناق في قيم عبارة عن 11111111

ولكن عم يحدث تغيرات مثل عم نشغل 1 ونشغل 8 وكان مثلا 6 و 3 شغال وبدنا نطفئ 1 و 3 وهاكذ

قمت ببعض التعديلات في الكود :

Dim digit As Byte
digit = Val(Text1.Text)
If digit <= 8 And digit >= 1 Then
    Dim readPin As Integer
    readPin = Inp(888)
    Out Val(888), (2 ^ (digit - 1)) Xor readPin
    Text1.Text = ""
End If

عم يعطيني خطاء في السطر readPin = Inp(888)

والله يجزيك الخير ويفتح لك ابواب رحمته

أضف الكود التالي في Module1

Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" _
    (ByVal PortAddress As Integer) _
    As Integer

جربت الكود ومشى الحال واصبحت تعمل

الله يجزيك الخير وينصرك على عدوك ويرزقك من حيث لا تحتسب

ان شاء الله حسنة في ميزان حسنات

السلام عليكم

هناك مشكلة ما تزبط معي

اريد ان ادخل كلمة مرور اذا كانت صحيحة فانها تنفذ وتقول تم الادخال

وكذلك عند تفعيل المنفذ يقول تشغيل وعندما اقوم بعدم تفعيل يقول اطفاء

طبعاً اذا كانت كلمة الرور غير صحيحة فانه ينفذ الامر CommandHangup_Click

مثلا

if text2= "001" then

'هذه مشان يخرج صوت من كرت الفاكس باستخدام اداة teletools

'--------------------------------------------------------------

etPlay1.DeviceID = etLine1.WavePlayID

etPlay1.SourceFileName = "c:\welcome.wav"

etPlay1.DeviceActive = True

If Not etPlay1.DeviceActive Then

etPlay1.DeviceActive = True

End If

'-----------------------------------------------------------------

end if

Dim digit As Byte

digit = Val(Text1.Text)

If digit <= 8 And digit >= 1 Then

Dim readPin As Integer

readPin = Inp(888)

Out Val(888), (2 ^ (digit - 1)) Xor readPin

Text1.Text = ""

' ما عم يعمل معي

'هذة مشان اذا تفعل المنفذ يقول تشغيل

'او مشان اذاكان عدم تفعل المنفذ يقول اطفاء

etPlay1.DeviceID = etLine1.WavePlayID

etPlay1.SourceFileName = "c:\on.wav"

etPlay1.DeviceActive = True

If Not etPlay1.DeviceActive Then

etPlay1.DeviceActive = True

End If

End If

etPlay1.DeviceID = etLine1.WavePlayID

etPlay1.SourceFileName = "c:\off.wav"

etPlay1.DeviceActive = True

If Not etPlay1.DeviceActive Then

etPlay1.DeviceActive = True

End If

ملاحظة : عندما ادخل كمة المرور 001 يقوم بتنفيذ الكود السابق مع تشغيل المنفذ الاول انا ما بدي ذلك

يعني كأن كلمة المرور منفصلة

ارجو المساعدة

السلام عليكم

طيب مافي مشكلة اريد كيفية وضع كلمة مرور

اذا كانت صحيحة فانها تنفذ الاوامر

Dim digit As Byte

digit = Val(Text1.Text)

If digit <= 8 And digit >= 1 Then

Dim readPin As Integer

readPin = Inp(888)

Out Val(888), (2 ^ (digit - 1)) Xor readPin

Text1.Text = ""

واذا كانت خطاء تنفذ

CommandHangup_Click

ملاحظة : عندما ادخل كمة المرور 001 يقوم بتنفيذ كلمة المرور ولكن ينفذ الاوامر مع تشغيل المنفذ الاول انا ما بدي ذلك

يعني كأن كلمة المرور منفصلة

ارجو المساعدة

If Text2.Text="001" Then

Dim digit As Byte
digit = Val(Text1.Text)
If digit <= 8 And digit >= 1 Then
Dim readPin As Integer
readPin = Inp(888)
Out Val(888), (2 ^ (digit - 1)) Xor readPin
Text1.Text = ""

Else
CommandHangup_Click 

End If

شكراً على الاجابة ولكن عندي استعصاء

في الصورة عناصر Shape عددها ثمانية .

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

فـ انا ما اعرف وين اضع الكود ارجو المساعدة

Dim digit As Byte

digit = Val(Text1.Text)

If digit <= 8 And digit >= 1 Then

Dim readPin As Integer

readPin = Inp(888)

Out Val(888), (2 ^ (digit - 1)) Xor readPin

Shape4.BackColor = &H80C0FF

Text1.Text = ""

End If

ارجو الرد لان عند مشروع بداية الخامس