• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Lamyaa

اعضاء
  • عدد المشاركات

    94
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

4 عادي

عن Lamyaa

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. وأنا أبحث في الموضوع وجدت هذا الكود ولكن بلغة php ولا أعلم إن كان يفيد في الفكرة <?php /** * word2uni * This code is a part of aCAPTCHA project, This copyright notice MUST stay intact for use * @package aCAPTCHA * @author Abd Allatif Eymsh * @copyright (c) 2012 * @license http://opensource.org/licenses/gpl-license.php GNU Public License */ function word2uni($word) { $new_word = array(); $char_type = array(); $isolated_chars = array('ا', 'د', 'ذ', 'أ', 'آ', 'ر', 'ؤ', 'ء', 'ز', 'و', 'ى', 'ة'); $all_chars = array ( 'ا' => array( 'middle' => 'ﺎ', 'isolated' => 'ﺍ' ), 'ؤ' => array( 'middle' => 'ﺅ', 'isolated' => 'ﺆ' ), 'ء' => array( 'middle' => 'ﺀ', 'isolated' => 'ﺀ' ), 'أ' => array( 'middle' => 'ﺄ', 'isolated' => 'ﺃ' ), 'آ' => array( 'middle' => 'ﺂ', 'isolated' => 'ﺁ' ), 'ى' => array( 'middle' => 'ﻰ', 'isolated' => 'ﻯ' ), 'ب' => array( 'beginning' => 'ﺑ', 'middle' => 'ﺒ', 'end' => 'ﺐ', 'isolated' => 'ﺏ' ), 'ت' => array( 'beginning' => 'ﺗ', 'middle' => 'ﺘ', 'end' => 'ﺖ', 'isolated' => 'ﺕ' ), 'ث' => array( 'beginning' => 'ﺛ', 'middle' => 'ﺜ', 'end' => 'ﺚ', 'isolated' => 'ﺙ' ), 'ج' => array( 'beginning' => 'ﺟ', 'middle' => 'ﺠ', 'end' => 'ﺞ', 'isolated' => 'ﺝ' ), 'ح' => array( 'beginning' => 'ﺣ', 'middle' => 'ﺤ', 'end' => 'ﺢ', 'isolated' => 'ﺡ' ), 'خ' => array( 'beginning' => 'ﺧ', 'middle' => 'ﺨ', 'end' => 'ﺦ', 'isolated' => 'ﺥ' ), 'د' => array( 'middle' => 'ﺪ', 'isolated' => 'ﺩ' ), 'ذ' => array( 'middle' => 'ﺬ', 'isolated' => 'ﺫ' ), 'ر' => array( 'middle' => 'ﺮ', 'isolated' => 'ﺭ' ), 'ز' => array( 'middle' => 'ﺰ', 'isolated' => 'ﺯ' ), 'س' => array( 'beginning' => 'ﺳ', 'middle' => 'ﺴ', 'end' => 'ﺲ', 'isolated' => 'ﺱ' ), 'ش' => array( 'beginning' => 'ﺷ', 'middle' => 'ﺸ', 'end' => 'ﺶ', 'isolated' => 'ﺵ' ), 'ص' => array( 'beginning' => 'ﺻ', 'middle' => 'ﺼ', 'end' => 'ﺺ', 'isolated' => 'ﺹ' ), 'ض' => array( 'beginning' => 'ﺿ', 'middle' => 'ﻀ', 'end' => 'ﺾ', 'isolated' => 'ﺽ' ), 'ط' => array( 'beginning' => 'ﻃ', 'middle' => 'ﻄ', 'end' => 'ﻂ', 'isolated' => 'ﻁ' ), 'ظ' => array( 'beginning' => 'ﻇ', 'middle' => 'ﻈ', 'end' => 'ﻆ', 'isolated' => 'ﻅ' ), 'ع' => array( 'beginning' => 'ﻋ', 'middle' => 'ﻌ', 'end' => 'ﻊ', 'isolated' => 'ﻉ' ), 'غ' => array( 'beginning' => 'ﻏ', 'middle' => 'ﻐ', 'end' => 'ﻎ', 'isolated' => 'ﻍ' ), 'ف' => array( 'beginning' => 'ﻓ', 'middle' => 'ﻔ', 'end' => 'ﻒ', 'isolated' => 'ﻑ' ), 'ق' => array( 'beginning' => 'ﻗ', 'middle' => 'ﻘ', 'end' => 'ﻖ', 'isolated' => 'ﻕ' ), 'ك' => array( 'beginning' => 'ﻛ', 'middle' => 'ﻜ', 'end' => 'ﻚ', 'isolated' => 'ﻙ' ), 'ل' => array( 'beginning' => 'ﻟ', 'middle' => 'ﻠ', 'end' => 'ﻞ', 'isolated' => 'ﻝ' ), 'م' => array( 'beginning' => 'ﻣ', 'middle' => 'ﻤ', 'end' => 'ﻢ', 'isolated' => 'ﻡ' ), 'ن' => array( 'beginning' => 'ﻧ', 'middle' => 'ﻨ', 'end' => 'ﻦ', 'isolated' => 'ﻥ' ), 'ه' => array( 'beginning' => 'ﻫ', 'middle' => 'ﻬ', 'end' => 'ﻪ', 'isolated' => 'ﻩ' ), 'و' => array( 'middle' => 'ﻮ', 'isolated' => 'ﻭ' ), 'ي' => array( 'beginning' => 'ﻳ', 'middle' => 'ﻴ', 'end' => 'ﻲ', 'isolated' => 'ﻱ' ), 'ئ' => array( 'beginning' => 'ﺋ', 'middle' => 'ﺌ', 'end' => 'ﺊ', 'isolated' => 'ﺉ' ), 'ة' => array( 'middle' => 'ﺔ', 'isolated' => 'ﺓ' ) ); if(in_array($word[0].$word[1], $isolated_chars)) { $new_word[] = $all_chars[$word[0].$word[1]]['isolated']; $char_type[] = 'not_normal'; } else { $new_word[] = $all_chars[$word[0].$word[1]]['beginning']; $char_type[] = 'normal'; } if(strlen($word) > 4) { if($char_type[0] == 'not_normal') { if(in_array($word[2].$word[3], $isolated_chars)) { $new_word[] = $all_chars[$word[2].$word[3]]['isolated']; $char_type[] = 'not_normal'; } else { $new_word[] = $all_chars[$word[2].$word[3]]['beginning']; $char_type[] = 'normal'; } } else { $new_word[] = $all_chars[$word[2].$word[3]]['middle']; $chars_statue[] = 'middle'; if(in_array($word[2].$word[3], $isolated_chars)) { $char_type[] = 'not_normal'; } else { $char_type[] = 'normal'; } } $x = 4; } else { $x = 2; } for($x=4;$x< (strlen($word)-4) ;$x++) { if($char_type[count($char_type)-1] == 'not_normal' AND $x %2 == 0) { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['isolated']; $char_type[] = 'not_normal'; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['beginning']; $char_type[] = 'normal'; } } elseif($char_type[count($char_type)-1] == 'normal' AND $x %2 == 0) { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['middle']; $char_type[] = 'not_normal'; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['middle']; $char_type[] = 'normal'; } } } if(strlen($word)>6) { if($char_type[count($char_type)-1] == 'not_normal') { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['isolated']; $char_type[] = 'not_normal'; } else { if($word[strlen($word)-2].$word[strlen($word)-1] == 'ء') { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['isolated']; $char_type[] = 'normal'; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['beginning']; $char_type[] = 'normal'; } } $x += 2; } elseif($char_type[count($char_type)-1] == 'normal') { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['middle']; $char_type[] = 'not_normal'; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['middle']; $char_type[] = 'normal'; } $x += 2; } } if($char_type[count($char_type)-1] == 'not_normal') { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['isolated']; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['isolated']; } } else { if(in_array($word[$x].$word[$x+1], $isolated_chars)) { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['middle']; } else { $new_word[] = $all_chars[$word[$x].$word[$x+1]]['end']; } } return implode('',array_reverse($new_word)); } ?>  
  2. السلام عليكم ورحمة الله وبركاته أسعد الله أيامكم بكل خير   مؤخراً كنت مضطرة لاستخدام اللغة العربية في برانامج لا يدعم اللغة العربية (ليس قلبا للمحارف العربية إنما إظهار محارف ورموز مجهولة أو علامات استفهام) وقد استخدمت برنامج الوسيط وبرنامج أو رشيد، ولكن واجهتني مشاكل في هذه الخطوط فهناك بعض المحارف المهمة لية موجودة في تلك الخطوط المستخدمة في برنامج الوسيط أو أبو رشيد أو الرسام.   بحثت في الموضوع قليلا محاولة إيجاد حلول تنفع الكتابة بالعربية في البرامج التي لا تدعمها، فتحت أحد الخطوط المستخدمة في تلك البرامج فوجدت أن كل برنامج منها يستخدم خارطة محارف خاصة به والبرانامج الوسيط يقوم يتوليد أحرف أو رموز تشير إلى موقع الحرف في تلك الخريطة من المحارف.   أي أنني لو استطعت تحسس حالة الحرف في مربع النص (موقع الحرف في الكلمة) في أول الكلمة أو وسط الكلمة أو آخر الكلمة أو منفصل لربما يمكن عمل برنامج يعتمد على دالة الاستبدال بحيث يتم استبدال الحرف حسب موقعه برمز الحرف في خارطة المحارف الخاصة بالخط المستخدم.   السؤال الآن بعد المقدمة المملة والطويلة .. كيف يمكن معرفة موقع الحرف في الكلمة ؟ لنفرض أن لدينا جملة (زهرة الحياة) كيف استخلص برمجيا أن حرف (ز) في كلمة زهرة جاء في أول الكلمة وان حرف (هـ) جاء وسط الكلمة دون اتصال مع ما يسبقه وأن حرف (ـر) جاء متصلا مع ما قبله وأن (ة) غير متصله مع ما قبلها .. وهكذا؟   هل هذا ممكن بلغة C# ؟   ولكم خالص الشكر والتقدير  
  3. في هذه الليالي المباركة ليالي شهر رمضان .. دعواتنا للغالية أم عهود بالصحة والعافية والتوفيق والسداد
  4. جزيل الشكر والتقدير لك بالفعل هو ما أردت   بارك الله فيك ووفقك
  5. السلام عليكم ورحمة الله وبركاته   استخدم هذه الكود للتحقق من تعبئة البيانات في الحقول المطلوبة .. وذلك بتغيير خاصية Tag (العلامة) للحقل المراد بوضع كلمة مطلوب مثلاً Dim Ct As control For Each Ct In Me If Ct.Tag = "ãØáæÈ" Then If Not IsNull(Ct) Or Ct <> "" Then Ct.BackColor = vbWhite End If If IsNull(Ct) Or Ct = "" Then MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ" Ct.SetFocus Ct.BackColor = VBred Exit Sub End If End If Next Ct وهو يعمل بشكل رائع .. ولكن السؤال هنا .. كيف يمكن أن أحول هذا الكود ليتحقق من تعبئة حقل موجود في نموذج فرعي subform.accdb
  6. واجهتني نفس المشكلة ووجدت الحل ومن باب المشاركة وفائدة الآخرين أضعه وأعتذر على رفعي للموضوع   https://support.microsoft.com/en-us/kb/839779  
  7.   شكرًا لكما ..   أدعو الله أن يوفقكما ويرزقكما من فضله
  8. السلام عليكم ورحمة الله وبركاته   قمت بكتابة الكود التالي :   ولكن لم أعرف كيف أقوم بتعبئة DataGridView Imports System.DataImports System.Data.OleDbPublic Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ALYASEER\libdata.MDB;Persist Security Info=True;Jet OLEDB:Database Password=5165") Dim ds As New DataSet Dim da As New OleDbDataAdapter("SELECT BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)", conn) da.Fill(ds, "BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)") DataGridView1.DataSource = ??? End SubEnd Class
  9. بالفعل هو ما أردت وزيادة :)   كل الشكر والتقدير لك يا سيدي الكريم   وفقك الله ورحم والديك
  10. السلام عليكم ورحمة الله وبركاته   لدي في قاعدة البيانات ثلاث جداول :   المعلمات الطالبات الأنشطة     هناك علاقة رأس بأطراف بين المعلمة والطالبات ، والطالبات والأنشطة، والمعلمات والأنشطة.   أريد تنفيذ استعلامات ثلاثة:   الأول تحديد الطالبات اللاتي لم يسندن إلى معلمات الثاني: تحديد المعلمات اللاتي لم يسند إليهن طالبات الثالث: تحديد الطالبات التي لم يقدمن أي نشاط   تم إرفاق قاعدة البيانات.   ولكم جزيل الشكر والتقدير     School.rar
  11. اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلاً
  12. من المعروف أنه لا يمكن استخدام مكتبات بيئة البرمجة Net. في الأكسيس، ولكن من خلال البحث توصلت إلى أن هناك إمكانية لاستخدامها من خلال وسيط يتواصل معها بـ COM   انظروا هنا:   http://social.msdn.microsoft.com/Forums/office/en-US/a618b8e2-fe7c-44f2-8dab-d350a216a609/net-framework-mscorlibdll-library-in-access-is-it-possible-?forum=accessdev   هنا الكلاس الخاص بتقويم أم القرى http://msdn.microsoft.com/en-us/library/system.globalization.umalquracalendar%28v=vs.110%29.aspx     هل بالإمكان صنع dll خاصة بتقويم أم القرى؟
  13. ترقيه الاخت الفاضلة زهرة

    أم عهود وما أدراك ما أم عهود   هي أيقونة العطاء وهي أنموذج للقول (خيركم من تعلم العلم وعلمه)   الإشراف بالنسبة إل ىأم عهود تكليف وليس تشريف.   كل الشكر والتقدير للزهرة المتألقة
  14. السلام عليكم ورحمة الله وبركاته   (اعتذار)   أعلم أن الموضوع قديم جداً .. ولكن لأهميته بالنسبة لي   هل أجد لدى أحد ما الأمثلة .. فربما يكون قد حملها أحد ما   أرجو إعادة رفعا مشكورين
  15.   رائع جدا .. ولكن حبذا لو كانت بداية الأسبوع اختيارية أو أن تكون يوم الأحد