aboode1

السلام عليكم طيب مافي مشكلة اريد كيفية وضع كلمة مرور اذا كانت صحيحة فانها تنفذ الاوامر 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 مثلا if text2= "00…

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

عم يعطيني خطاء في السطر readPin = Inp(888) والله يجزيك الخير ويفتح لك ابواب رحمته

السلام عليكم طيب بالنسبة لبرنامج انا شغلت 1 و 6 و 5 في برنامجك اذا ضغط اول يعمل واذا ضغطت 6 يطفئ 1 انا بدي يشتغل الاثنان اعرف ان هناق في قيم عبارة عن 11111111 ولكن عم يحدث تغيرات مثل عم نشغل 1 ونشغل 8 وكان مثلا 6 و 3 شغال وبدنا نطفئ 1 و 3 وهاكذ

طيب مثلا select case if text1="05" then case "قوم باختبار المنفذ الاول اذا كان شغال اتركه واذا كان لا يععمل فا ابقيه على حاله " cse "قوم باختبار المنفذ الثاني اذا كان شغال اتركه واذا كان لا يععمل فا ابقيه على حاله " ز ز ز cse "قوم باختبار المنفذالخامس اذا كان …

السلام عليكم المغزا عندما اطفئ اي منفذ محدد تبقى المنافذ الاخرى في حالتها سواء اكانت شغالة ام لا في المثال عن ضغط 1 يشغل المنفذ 1 (طبعاً في مربع text) وعن ضغط 2 يشغل المنفذ 2 ويطفئ 1 وعن ضغط 3 يشغل المنفذ 3 ويطفئ 1 و2 وهاكذا عندما اضغط على 5 و ؟ و ؟ مثالاً في …