طلب مساعدة في تحويل كود

اخي العزيز السلام عليك

باي لغة كتبت هذه الاكواد تبدو غريبه بعض الشيء وبعض حروفها لا تبدو انكليزيه

وماهو الوين دفلوب

ولو توضح ايضا ماذا تريد ان يعمل الكود لك

فربما هناك طريقة اخرى بغير هذا الاكواد التي طرحتها

مع التحية

rebouh كتب:

السلام عليكم و كل عام و الجميع بألف خير

إخواني الأفاضل لدي كود معمول بـ WINDEV للتحكم في فتح Tourniquet (الأبواب الدوارة) و أود مساعدتي في ترجمته إلى FoxPro و لكم مني جزيل الشكر

و السلام عليكم

السلام عليكم

اخي العزيز عودة حميدة ان شاء الله

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

ونستطيع التحكم بها من خلال هذة اللغة الساحر VFP

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

وهي موجود اما بالبرامج الاصلية او المواقع الرسمية لها

مثل اجهزة السكنر والكاميرات والطابات وغيرها من اجهزة البصمة

اتمنى اني اوصلت لك طريقة البسيطة للاتصال مع الاجهزة في هذة اللغة VFP

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

السلام عليكم

شكرا جزيلا على الرد السريع

هذا كود أرسله لي صديق و هو بلغة WIN DEV على ما أظن تعتمد على اللغة الفرنسية و هذا الكود يتحكم في TOURNIQUET كما توضح الصورة المرفقة و أتمنى المساعدة في تحويل الكود للفوكس

السلام عليكم

الكود متعلق بمنافذ الكمبيوتر ( Serial Port )

بصراحة الكود مش واضح تماما أو انك لم تقم بوضعه كاملا ووالله أعلم، طبعا دون التطرق للفرنسية

المهم هذا ليس ترجمة حرفية للكود ولكنه يوضوح طريقة انشاء عنصر اتصال بالمنافذ، تحديد المنفذ المطلوب،...

* انشاء عنصر اتصال بالمنفذ

oCom = CREATEOBJECT("MSCommLib.MsComm.1")

WITH oCom

* تحديد خصائص المنفذ

            	.CommPort=1

            	.Settings='9600,n,8,2'

* فتح المنفذ اذا كان مقفلا

            	IF .Portopen = .F.

                            	.Portopen=.T.

            	ENDIF

            	IF .Portopen=.T.

                            	MESSAGEBOX("المنفذ مفتوح الان سيتم اقفاله قبل الخروج",0,"...")

                            	oCom.Portopen=.F.

                            	WAIT WINDOW NOWAIT "تم اقفال المنفذ"

            	ENDIF

ENDWITH

والباقي عندك

مع التحية

سلامي للاخ عبد الله

والى الاخ العزيز كاتب الموضوع بصراحة الامر مزعج قليلا ويحتاج الى الجهاز لغرض ضبطة مع الاعدادات للبرنامج والسرعات الذي يجب ان تحدد

مثل نقل البيانات وسرعة البتات اي ان الامر مرهق مع وجود الجهاز سوف ازودك بموقع جميل يفيدك ويفيد من لدية مثل هذة المواضيع كثيرا ويبين الاعدادات و كيفية العمل بها

لان الموضوع مزعج ويحتاج الى جدال متواصل ويجب توفير الجهاز نفسة او نفس الطراز عند المتحاوررين لغرض الوصول للعمل الجيد

الموقع هو mscomm واتمنى متابعة الشرح جيدا واي استفسار نحن معاك

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

ملاحظة : الملف الموجود يفيد لغة بيسك ولكن يفيدك مع الكود المذكور من الاخ شادو من اعدادات ولاحاجة لذكر طريقة اخرى بسبب ان طريقة الاخ شادو جميله وسهلة وانا دائما ما اعتمد هذة الطريقة

السلام عليكم

شكرا إخواني على التواصل و بعد :

هذا الكود لصديق كمت ذكرت سابقا و هو معمول بلغة WINDEV و على ما أضن فهو كامل و هو شغال بهذه اللغة و أريد أن أجربه بالفوكس أو بالأحرى معرفة كيفية التحكم بـ SERIAL PORT

و السلام عليكم

Shadowz كتب:

السلام عليكم

الكود متعلق بمنافذ الكمبيوتر ( Serial Port )

بصراحة الكود مش واضح تماما أو انك لم تقم بوضعه كاملا ووالله أعلم، طبعا دون التطرق للفرنسية

المهم هذا ليس ترجمة حرفية للكود ولكنه يوضوح طريقة انشاء عنصر اتصال بالمنافذ، تحديد المنفذ المطلوب،...

* انشاء عنصر اتصال بالمنفذ

oCom = CREATEOBJECT("MSCommLib.MsComm.1")

WITH oCom

* تحديد خصائص المنفذ

            	.CommPort=1

            	.Settings='9600,n,8,2'

* فتح المنفذ اذا كان مقفلا

            	IF .Portopen = .F.

                            	.Portopen=.T.

            	ENDIF

            	IF .Portopen=.T.

                            	MESSAGEBOX("المنفذ مفتوح الان سيتم اقفاله قبل الخروج",0,"...")

                            	oCom.Portopen=.F.

                            	WAIT WINDOW NOWAIT "تم اقفال المنفذ"

            	ENDIF

ENDWITH

والباقي عندك

مع التحية

rebouh كتب:

السلام عليكم

شكرا إخواني على التواصل و بعد :

هذا الكود لصديق كمت ذكرت سابقا و هو معمول بلغة WINDEV و على ما أضن فهو كامل و هو شغال بهذه اللغة و أريد أن أجربه بالفوكس أو بالأحرى معرفة كيفية التحكم بـ SERIAL PORT

و السلام عليكم

السلام عليكم اخي العزيز

الكود تبع الاخ شادو شغال ويقوم باغلاق وفتح البورت والاخ واضعة كاافتراضي هو البورت رقم واحد كما مبين في الكود .CommPort=1 قم بتغيير البورت ليكون بورت الجهاز كاان يكون اثنان او عشرة

وافضل لو انك تجعل اعدادته افتراضية وتحويل السرغة الى واحد اي يكون الكود الاعدادات يساوي .Settings='9600,n,8,1' والكود شغال وانا جربتة على الطابعات

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

السلام عليكم

شكرا جزيلا على التواصل.

سوف أقوم بتجربته و أتمنى أن تنجح العملية و شكرا.

السلام عليكم

إخواني الكرام لقد جربت الكود لكنه لا يعمل و إليكم الرسائل المرجعة .

أتمنى أن أجد لديكم الحل مع العلم أنه SERIAL PORT.

و شكرا مسبقا

MESSAGE.rar

هل قمت بنسخ كامل الكود الموجود في مشاركتي السابقة - يظهر من الصور أن جزء من الكود مفقود

يبدأ الكود بــ

oCom = CREATEOBJECT("MSCommLib.MsComm.1")
With oCom
.....
.....

مع العلم بأن الكود شبه مطابق للكود الخاص بك، حيث لم ألحظ ارسال لأي أوامر أخرى في مثالك

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

السلام عليكم

أخي الكريم شكرا على الرد .

فيما يخص رسالة الخطأ على ما أظن فهناك مكتبة DLL أو OCX يجب تعريفها أولا ليتم التنسيق بين الحاسوب و Tourniquet .

و شكرا جزيلا على التواصل و أتمنى أن ينجح الأمر معي هذه المرة.

و السلام عليكم.