المجتمع من المرأة

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

SCADA SYSTEM أنظمة السكادا

هي اختصار لنظام التحكم الاشرافي واِقتناص البيانات (

Supervisory Control and DataAcquisition )

وهي تشير إلى أنظمة التحكم الصناعي، وهي نظام حاسوبي للمراقبة والتحكم في العمليات، وتتغير طبيعة هذه العمليات

طبقا للأنظمة المعده لها .

التطبيقات:- 

العمليات الصناعية بكامل اختلافاتها، من تصنيع، وإنتاج، وتوليد كهرباء، وتكرير.. إلى آخره.

– یعتبر كوسیلة مُرَاقَبَة وتحكم بمحطات الطاقة الكھربائیة ومحطات

• الاتصالات والتحكم بالأجھزة المستخدمة في محطات النفط والغاز وتنقیة الماء وتقوم ھذه الأنظمة بنقل البیانات إلى قلب النظام والذي ھو عبارة

• عن حاسب رئیسي یتلقى الأوامر من عدد مِن الوحداتِ الطرفیة البعیدةِ أو المتحكمات المنطقیة المبرمجة .یقوم النظام بجمع المعلومات فمثلا عند حدوث تسرب على خط أنابیب أو تغیر درجة الحرارة أو الضغط عن قیم معینة في نظام ما وتنتقل إلى موقع مركزي ویقوم بدوره بإصدار إنذار وإرسال رسائل تبین حالة النظام والأعطال التي یتعرض لھا.

نظام الــــسكادا أجزاء 

أجزاء نظام الــــسكادا

التي تقوم بنقل المعلومات إلى الوحدة المركزیة ونقل PLC أو RTUs

الأوامر إلى التجھیزات

نظام رادیو أو ھاتف أو أقمار صناعیة لتأمین الاتصال بین الوحدات

المركزیة والمناطق الموزعة البعیدة عن مراكز التنسیق

غالبا ما تتكون أنظمة السكادا من هذه الإنظمة الفرعية:

واجهة استخدام للألة Human-machine interface or HMI‏ وهي أداة تقدم بيانات مُعالجة لمدير العمليات في واجة استخدام الألة ومن خلال هذه البيانات المعالجة يقوم مدير العمليات بالمراقبة والتحكم في العمليات.

نظام المراقبة العمومي عن طريق الحاسوب، يقوم بتجميع البيانات عن العمليات ويقوم بإرسال أوامر للتحكم فيها إيضا

أكواد فيجوال بيسك

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

هذي أكواد فيجوال بيسك أرجو من أهنا تفيدكم :

1) أكواد الحافظة....

الحافظة في الفيجوال بيسك تأخذ الأسم Clipboard ، حيث يتم ربط توابع معينة بهذا

الكائن لكي تتم أوامر الحافظة...سأكتب الأكواد على فرض أن لدينا صندوق نص اسمه 

txtMyText... 

*** كود القص:

Clipboard.clear

Clipboard.SetText txtMyText.SelText

txtMyText.SelText=""

إن المنهج Clear يقوم بتفرغة كل محتويات الحافظة... كما يقوم الأمر SetText بإضافة النص المحدد إلى الحافظة... و إذا أردنا معرفة ما تحملة العبارة التالية txtMyText.SelText فهي تحمل قيمة النص المحدد... أي أن SelText تشير إلى النص المحدد...

ثم في العبارة الأخيرة، نحذف النص المحدد لكي تتم عملية القص...

*** كود النسخ: 

Clipboard.clear

Clipboard.SetText txtMyText.SelText

هذا الكود يماثل تماما الكود السابق، لكن الفرق أننا لا نقوم بحذف النص المحدد و الذي نود نسخه...

*** كود اللصق: 

txtMyText.SelText=ClopBoard.GetText( )

إن العبارة ClipBoard.GetText() تحمل قيمة النص الموجود في الحافظة.... و نحن نأمر الجهاز في هذا الكود بوضع قيمة الحافظة مكان النص المحدد...

2) كود الأحداث المعلقة:

من المؤكد أنكم تتسائلون " ما هي الأحداث المعلقة؟ "، أنا سأشرح لكم...

إن بعض البرامج تحتوي على Loop أي حلقة ... و لهذه الحلقة أشكال كثيرة، أشهرها و 

أكثرها شيوعا:

For I=0 to 100

.......

.....

.......

if I=100 then I=0

next I

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

أعرف أنكم لم تفهموا، سأوسع الشرح...

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

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

يوجد تابع خاص لهذه المشكلة و هو DoEvents... عند وضع هذا التابع ضمن الحلقة، فإنه ينفذ الحدث الذي قمت به، ثم يكمل تنفيذ الحلقة....

3) كود تنفيذ أي برنامج عن طريق الفيجوال بيسك:

إذا أردت أن تشغل إي برنامج في جهازك عن طريق الفيجوال بيسك، اكتب العبارة التالية....

Dim A

A = ****l ("programpath",n)

حيث A متغير... و اكتب مكان الــ programpath مسار البرنامج كاملا، و اكتب مكان n رقم من 0 إلى 6، حيث كل رقم له دلالته...

0 تظهر نافذة البرنامج مخفية.

1 تظهر نافذة البرنامج بحجمها الطبيعي و معها التركيز.

2 تظهر النافذة مصغرة و معها التركيز.

3 تظهر النافذة مكبرة و ومعها التركيز.

4 تظهر نافذة عادية و بدون تركيز.

6 تظهر نافذة مصغرة بدون تركيز.

و إن التابع ****l يرجع قيمة عددية تحفظ في المتغير A تشير إلى مقبض النافذة الذي يعترف عليه Windows

ملاحظة: الفائدة من وضع القيمة 0 للمتغير n ، هي لظهور النافذة مخفية، و بالتالي يتم تحميل النافذة في الذاكرة دون أن نراها. و نستغيد من هذه الحالة في تشغيل ملف تنفيذي لكي يؤدي وظائف معينة دون أن يشاهد المستخدم نافذة البرنامج (برامج الفيروسات و التجسس)

4) كود للقيام باتصال هاتفي:

يجب أولا تضمين أداة جديدة و هي MSComm، و ذلك بالخطوات التالية:

* اضغط بزر اليمين على مكان فارغ شريط الأدوات.

* اختر الخيار Components

* اختر الأداة MSComm من القائمة و اضغط على الزر موافق.

* ستظهر لك أداة جديدة لها شكل الهاتف على شريط الأدوات.

بعد تضمين هذه الأداة في النموذج، نسميها على سبيل المثال Comm1....

و إليك الكود: 

Dim PhoneNumber as String

On Error Goto WrongPort

Comm1.CommPort = 1

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

PhoneNumber = "164883"

Comm1.PortOpen = True

Comm1.OutPut = "ATDT" + PhoneNumber + Chr$(13)Sub

WrongPort:

MsgBox "Title", 1048576 + 524288 + 16, "Prompt"

الشرح: 

في السطر الأول: نعرف متغير حرفي و هو PhoneNumber

في السطر الثاني: نضع هذه العبارة بحيث في حال حدوث أي خطأ ( مثلا المودم غير

متصل، أو المنفذ غير صحيح ) ينتقل التنفيذ إلى السطر الثامن حيث

الإجراء . طبعا يمكن تسمة WrongPort كما نشاء.

في السطر الثالث: نحدد البورت الذي سنجري منه الإتصال. يفضل أن تقوم بتجربة البرنامج

عدة مرات بتغيير البورت (1، 2، 3، 4، 5، 6، 7 ) حتى تصل للبورت

الصحيح.

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

شرحها معقد نوعا ما.

في السطر الخامس: نكتب رقم الهاتف المراد طلبه.

في السطر السادس: يفتح البورت الذي حددته.

في السطر السابع: تنتقل البيانات عبر خط الهاتف مع بعض الشيفرات.

في السطر الثامن: ينتهي تنفيذ الأوامر.

في السطر التاسع: يوجد الإجراء الذي ينتقل أليه التنفيذ عند حدوث خطأ.

في السطر العاشر: تظهر رسالة الخطأ التي عنوانها Title و نصها هو Prompt. 

يمكن تغيير هذه القيم كما تشاء.

و الأن تم الإتصال، و ماعليك سوى التكلم عن طريق الهيدفون أو الهاتف.

لقطع الإتصال: ضع الكود التالي:

Comm1.PortOpen = False

حيث يقوم هذا السطر بإغلاق المنفذ.

5) كود لإيقاف تشغيل ويندوز:

ننشئ نافذة جديدة من النوع Module و نكتب فيها السطر التالي:

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags as Long, By Val dwReserved As Long) As Long

و لكن انتبه، اكتبه في سطر واحد، و ليس في سطرين...

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

و اكتب الكود التالي لكل زر:

Dim LonStatus

LonStatus = ExitWindowsEx (Flag, n)

اكتب إحدى الأرقام التالية للمتغير n:

0 لإنهاء كافة العمليات البرمجية.

1 لإيقاف التشغيل.

2 لإعادة التشغيل.

4 ينهي كافة العمليات البرمجية التي لا تستجيب.

بسم الله الرحمن الرحيم

شكرا أخي على هذه المعلومات

بس أنا عندي تعليق بسيط فيما يخص بكود إيقاف ويندوز

هذا الكود شغال كويس بالنسبة لأنظنة ويندوز 98 و Me

لكن فيما يخص ونيدوز XP فإن كود إعادة التشغيل وإيقاف التشغيل سوف يقوم فقط بإخراجك كمستخدم فقط

يعني الجهاز مش عيعمل رستارت ولا يطفئ

وإن شاء الله الآن أضع لكم الكود تبع الإكس بي بحيث يقوم بمهمة الإطفاء وإعادة التشغيل