تبسيط التحكم الأوتوماتيكى automation باستخدام الفيجوال بيسيك VB والاتصال التسلسلى RS - الصفحة 11

ناصراحمد2 · 01:03 AM

اقتباس المشاركة الأصلية كتبت بواسطة hamadalla31

وعليكم السلام ورحمة الله وبركاته

ضغطت YES فاعطاني هذه الرسالة

ثم ضغطت OK فاعطاني هذه الرسالة

ثم ضغطت OK فلم يعطني شئ
جزاكم الله بكل خير علي المتابعة

السلام عليكم ورحمة الله وبركاتة
اذا كنت تقصد البرنامج الاخير يعطيك هذا الخطا
فهذا احتمال اختلاف نسخ الوندوز او اى احتمالات اخرى
عموما تغاضى عن كل هذا فالامر سهل وبسيط باذن الله
قم بفتح عمل جديد
يتضمن 2 تكست
1 كومبوبوكس
1 بوتن
يمكنك جعل خلفيات التكستات اسود والكتابة اخضر اذا اردت
ويمكنك تركهم كما تشاء
واكيد طبعا الخصائص واضحة
فى الكومبو بكس اجعل التكست اللى علية باسم (اختار بورت )
ويمكنك كتابة A & B كما فى الصور لمجرد اظهار التغيرات

واليك الكود ى

كود:

  

Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.Text
End Sub


Private Sub Command1_Click()

MSComm1.PortOpen = True
MSComm1.Output = Text1.Text
Text2.Text = MSComm1.Input

MSComm1.PortOpen = False


End Sub


Private Sub Form_Load()

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"


End Sub

ويمكنك زيادة الخيارات كما تشاء وبنفس الوتيرة
كمثال

كود:

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"

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

abdewidad · 28-05-2014, 12:50 AM

بارك الله فيك اخي على المتابعة

ناصراحمد2 · 28-05-2014, 12:53 AM

اقتباس المشاركة الأصلية كتبت بواسطة abdewidad

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

اولا وقبل اى شىء الفضل وكل الفضل لله عز وجل ثم لاساتذتنا الذين اضائوا لنا الطريق .
يعجبنى اصرارك ههههههههه
طيب خلينا نفترض ان برامجنا بها اخطاء فماهو الفيصل ؟؟؟
الحل بسيط :
افتح برنامج الميكروسى واستخدمة فى ارسال الحروف للتجربة والتاكد
وان تم الارسال معناها خطا لدينا فى اكوادنا فى الفى بى ..........اوك؟
طيب لو حدث نفس المشكلة ماذا يعنى ؟؟؟
يعنى وهو الاغلب ان الخطا فى الهاردوير وتحديدا فى نوع الماكس
((ماعنديش خبرة فيهم لانى لم اتعامل بشكل عملى معهم ))
ولكن انصح ان تستخدم الماكس المتعارف علية لا اتذكر A & N
وايضا يمكنك البحث عن الامر فى الداتا شت
وفى حال وصلت لحل المشكلة
لا تنسى اضافة السبب و طريقة الحل حتى نستفيد جميعا باذن الله .

abdewidad · 28-05-2014, 01:34 AM

شكرا اخي جزاك الله خيرا ربما الكلمات في حقك قليلة جدا اخي
سوف اقوم باستخدام convertsser usb to rs232 لاني شككت في rs الحاسوب
كاحتمال اخي

كرار العامري · 31-07-2014, 02:29 AM

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

اخواني الاعزاء وبالاخص الاستاذ الفاضل فتح الله عبد العزيز المحترم
ممكن الكود الذي يقوم بقراءة البيانات (اقصد بالبيانات ارقام او نصوص) من منفذ السيريال بالفجوال بيسك
للتوضيح
لنفرض اني قمت بتوصيل GSM Modem الى الحاسوب طبعا عن طريق السيريال بورت
فكيف يمكنني قراءة المسجات التي تصل الى الgsm بالفجوال بيسك 6
وايضا كيف ارسل بيانات عن طريق هذا المنفذ وبنفس اللغة

اكون ممتن لكم اذا تم ارفاق مثال مع الشرح

مرة اخرى كل عام وانتم طيبين

وما توفيقي إلا بالله العلي العظيم

فكروعلم · 31-07-2014, 03:55 AM

شكراً لك وسلمت إيديك

zamalkawi · 31-07-2014, 10:03 AM

اقتباس المشاركة الأصلية كتبت بواسطة F.Abdelaziz

تبسيط التحكم الأوتوماتيكى automation باستخدام الفيجوال بيسيك VB والاتصال التسلسلى RS232

تصحيح بسيط...
التحكم الأوتوماتيكي كمصطلح ليس هو الAutomation
فالتحكم الأوتوماتيكي هو الAutomatic control
أما الAutomation أمر يختلف، وأحد الترجمات العربية له هي كلمة أتمتة (وهي تعريب لكلمة Automation)
لذا وجب التنويه لمنع الخلط

F.Abdelaziz · 01:35 PM

اقتباس المشاركة الأصلية كتبت بواسطة zamalkawi

تصحيح بسيط...

اقتباس المشاركة الأصلية كتبت بواسطة zamalkawi

التحكم الأوتوماتيكي كمصطلح ليس هو الAutomation
فالتحكم الأوتوماتيكي هو الAutomatic control
أما الAutomation أمر يختلف، وأحد الترجمات العربية له هي كلمة أتمتة (وهي تعريب لكلمة Automation)
لذا وجب التنويه لمنع الخلط

أخى الكريم شكرا جزيلا لك :
برجاء الاصطلاع على ما يلى :

الرابط :
http://en.wikipedia.org/wiki/Automation

وجاء به ما يلى :

Automation or automatic control, is the use of various control systems for operating equipment such as machinery, processes in factories, boilers and heat treating ovens, switching in telephone networks, steering and stabilization of ships, aircraft and other applications with minimal or reduced human intervention. Some processes have been completely automated.
The biggest benefit of automation is that it saves labor, however, it is also used to save energy and materials and to improve quality, accuracy and precision.
The term automation, inspired by the earlier word automatic (coming from automaton), was not widely used before 1947, when General Motors established the automation department.[1] It was during this time that industry was rapidly adopting feedback controllers, which were introduced in the 1930s.[2]
Automation has been achieved by various means including mechanical, hydraulic, pneumatic, electrical, electronic and computers, usually in combination. Complicated systems, such as modern factories, airplanes and ships typically use all these combined techniques.

كما ترى :

Automation or automatic control

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

برجاء ، إن أمكن "شرح" كل تعبيير على حدة لنتعرف على الفرق من جهة الوظيفة على الأقل .

مع تمنياتى بدوام التوفيق