الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

قديم 02-01-2009, 10:12 AM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
Mnn يمكنك من التحكم بالماوس من الكيبورد


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

اما بعد :
اليوم حضرت لكم برنامج
و البرنامج مبرمج بلغة --AutoIt --xx


البرنامج يمكنك من تحريك الفارة ( الماوس ) من لوحة التحكم ( الكيبوورد )
كيفية استخدام البرنامج :
للدهاب الى اعلى اضغط عل الرقم 8
للدهاب الى اسفل اضغط عل الرقم 2
للدهاب الى اليمين اضغط عل الرقم 6
للدهاب الى اليسار اضغط عل الرقم 4
للضغط على الزر الايمن للماوس اضغط على 3
للضغط على الزر الايسر للماوس اضغط على 1
و كما تلاحضون يمكنك الاستغناء عن الماوس مع هدا البرنامج لان فيه كل خاصيات الماوس


و الان ساقوم بشرح الكود سورس
في البداية هناك
#include <Misc.au3>
Opt("TrayAutoPause",0)
السطر الأول هو استدعاء المكتبة Misc
وبها عدة اوامر ودالات .

والسطر الثاني Opt("TrayAutoPause",0)
هي وضع البرنامج في حالة تثبيت
و ادا لم تستعمل التتبيت سيشتغل البرنامج للحضات تم سيتوقف .

و في هده الاسطر
HotKeySet("{NUMPAD1}", "m1")
HotKeySet("{NUMPAD3}", "m3")
HotKeySet("{NUMPAD2}", "m2")
HotKeySet("{NUMPAD4}", "m4")
HotKeySet("{NUMPAD6}", "m6")
HotKeySet("{NUMPAD8}", "m8")


في تلك الاسطر وضعنا HotKeySet و هي تستعمل للتحكم في لوحة التحكم اي الكيبوورد
ثم "{NUMPAD1}" هي الزر 1 الدي يوجد في الكيبوورد
ثم "m1" وضعنا على ان m1 هي NUMPAD1 .
و دلك هو الحال بالنسبة للاسطر الاخرى .
ثم
$speed = 30
استعملنا الرمز $ لتعريف Speed
و هي السرعة و التي اعطيناها 30 .
ثم
While 1
Sleep(100)
Wend
(0 Sleep (10
تعني ايقاف لمدة 100 م
يليسوكند mlsecond


ثم
Func m1()
HotKeySet("{NUMPAD1}")
MouseDown("left")
While _IsPressed(61)
Sleep(100)
WEnd
MouseUp("left")
HotKeySet("{NUMPAD1}", "m1")
EndFunc
Func m1 ()
هي دالة و قد عرفناها ب m1 و يمكن للدالة ان تاخد اي اسم لكننا عرفنا الزر 1 على انه m1
و في While_IsPressed (61) تعني عندما يضغط على الزر 1 .
Sleep (100)
تعني ايقاف لمدة 100 م
يليسوكند mlsecond
و
MouseUp ("left")
تعني عند الضغط على الزر1 الدي يوجد في اليسار تقوم بعمل مثل عندما تضغط بالزر الايسر للفارة .
و Endfunc
تعني نهاية الدالة

ثم
Func m3()
HotKeySet("{NUMPAD3}")
MouseDown("right")
While _IsPressed(63)
Sleep(100)
WEnd
MouseUp("right")
HotKeySet("{NUMPAD3}", "m3")
EndFunc
نفسها التي تعمل دور الزر الايسر للماوس
و لكن هده مختصة بالزر الايمن للماوس
ثم
Func m2()
$pos = MouseGetPos()
MouseMove($pos[0], $pos[1] + $speed, 1)
EndFunc

Func m4()
$pos = MouseGetPos()
MouseMove($pos[0] - $speed, $pos[1], 1)
EndFunc

Func m6()
$pos = MouseGetPos()
MouseMove($pos[0] + $speed, $pos[1], 1)
EndFunc

Func m8()
$pos = MouseGetPos()
MouseMove($pos[0], $pos[1] - $speed, 1)
EndFunc

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


achraf.mouni غير متواجد حالياً  
قديم 02-01-2009, 10:41 AM
  #2
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي

جيد لا بل رائع شكرااااااااااااااااااااااااااا اااااااااااااااااااااااااااااا اااا
اااااااااااااااااااااااااااااا اااااااااااااااااااااا
اااااااااااااااااااااااااااااا اااا
اااااااااااااااااااا
اااااااا
اااا
اا
ا
تقبل احتراماتي و تقديري الخالص اخ اشرف بارك الله فيك
__________________





°°if we say we do°°
شذى الروح غير متواجد حالياً  
قديم 02-01-2009, 10:50 AM
  #3
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

شكرا ........بارك الله فيك اختي شذى على مرورك الطيب ..مرورك شرفني
achraf.mouni غير متواجد حالياً  

الكلمات الدلالية (Tags)
التحكم, الكيبورد, بالماوس, يمكنك

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
تحكم في الصورة بالماوس,,,,جميلة جدا جدا فرح01 منتدى الصور 2 23-03-2010 11:06 PM
التحكم بالماوس من الكيبورد achraf.mouni أنظمــة التشغيــل 12 20-04-2009 07:14 PM
برنامج جميل ومسلي يخرج أصواتا رائعه عند الكتابه على الكيبورد أو الضغط بالماوس + شرح lgida3 منتدى البرامج العام 2 09-01-2009 05:06 PM
برنامج جميل ومسلي يخرج أصواتا رائعه عند الكتابه على الكيبورد أو الضغط بالماوس zailaf منتدى البرامج العام 2 23-06-2008 03:19 PM


الساعة الآن 06:54 AM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir