البحث في المنتدى

بسم الله الرحمن الرحيم اهلا ومرحباً بالسادة القائمين علي المنتدي وجميع الأعضاء واتشرف بأن أقدم لكم برنامج الصادر والوارد واتمني ان ينال اعجاب حضراتكم ولطلب البرنامج يرجي كتابة الايميل في تعليق اسفل الفيديو داخل اليوتيوب حتي نتمكن من الارسال الشرح من خلال اللينك التالي https://www.youtube.com/watch?v=6bwyAVCu79Y&t=19s

كيف يمكن فى VB6 كتابة الكسر فى صورة بسط ومقام(لا بهذه الشرطة المائلة 4/7) كيف يمكن ذلك عن طريق الأدوات وخصائصها   أو عن طرق الكود؟ (لا عن طريق عمل تكست للبسط وآخر للمقام وثالث للخط بينهما) وان لم يمكن ذلك  فى VB6 فكيف يمكن فى الأكسيس 2003 أو اكسيل 2003 ولكم ألف شكر  

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

السلام عليكم لم استطع اضافة الموضوع في قسم الاسئلة . لم يظهرلي سوى هذا القسم وقسم مشاريع الاعضاء . فأرجومن المشرفين النقل للمكان المناسب ---------------------------------------------------------------------------------- من المعلوم أن هذا الكواد يحول لغة الكتابة للعربي LOADKEYBOARdlayout('00000401',klf_activate); لكنه يعمل فقط فس نفس الفورم وحتى انه لا يعمل في كل مكنوات الفورم مثل dbgrid , edit فكيف الحل لكي يعمل الكود في جميع اجزاء البرنامج منذ فتحه الى اغلاقه؟

ارجو المساعدة في إضافة صور للموظف مع مساحة تخزين قليلة

;int m  ;(m = Convert.ToInt32(txt_kemet_elmiah.Text)*Convert.ToInt32(txt_tklefat_ezalet_aodwe.Text)*Convert.ToInt32(txt_eladad.Text بيظهرلى خطأ فى كتابة الجملة عند التنفيذ 

السلام عليكم ورحمة الله وبركاته  ارجوا المساعدة وباسرع الوقت  عندي برنامج لطباعة هويات الموظفين حيث اقوم بادخال المعلومات وادارج الصورة على تصميم معين وتصبح الهوية جاهزة  لكن المشكلة انو انا عندي ختم اللالكتروني واحتاج الى ان يضهر فوق الصورة وهو بصيغة PNG ,ولكن عندما ادرج الختم راح تتغير لون خلفية الى بيضاء فيشوه الهوية  مثال مرفق بالملف ارجوا المساعدة  هوية الموظف .rar

كتابة داله IF فى جدول باكثر من شرط واكثر من دالة فى حقل واحد شرح طريقة كتابة الدالة فى جدول  شرح كيفية كتابة اكثر من شرط فى الدالة شرح كيفية كتابة اكثر من دالة فى حقل واحد اخراج قيمة فى جدول بناء على اكثر من معيار اخراج قيمة باكثر من شرط فى جدول https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بطاعته يا اخوتي وددت مساعدتكم بعد التوكل على الله في كتابة اسميRADMANبواسطة الجرافيكس في جافا بالستخدام الاشكال لا text هذا يعني مثلاحرفR نكتبه بشكل مستطيل ونصف دائرة فهل من مساعد؟؟

ارجو المساعدة حيث اننى قمت بانشاء نموذج بحث واود عند كتابة رقم فى حقل الحالية يقوم بكتابة التاريخ ( تاريخ اليوم ) فى حقل التاريخ اتوماتيك وفى حالة مسح القيمة يمسح التاريخ بحقل التاريخ ولكم جذيل الشكر test.mdb

السلام عليكم ورحمة الله وبركاته عندي سؤال حول كيفية اضافة صورة مع حقول الجدول اي مثلا اذا كان عندي جدول لمعلومات موظفين ول موظف تون صورته بالنموذج مرتبطة مع الرقم تتقلب عند الضغط على مفتاح التالي لكل موظف ارجوا الاجابة على سؤالي بالسرعة الممكنة لحاجتي الظرورة له  ولكم مني كل الود ... :) 

السلام عليكم ورحمة الله  لدي مشكلة في عرض الصورة في نموذج  برنامج الارشيف الالكتروني - تظهر هذه المشكلة فقط اثناء تحميل النموذج لاتظهر الصورة  ولكن اذا اعدت اختيار صورة بعد الفتح للنموذج طبعا  تظهر باقي الصور عادي في النموذج نسيت ان انوه ان هذا البرنامج ماخود من احد المواقع ونسيت اسم صاحبه ارجو ان يسامحني جزاه الله كل خير  قمت بتعديل مايلزم ومايناسبني ظهرت هذه المشكلة  ارجو ان اكون قد احسنت الشرح  والسلام عليكم  الارشيف المستندي.rar

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

السلام عليكم ورحمة الله وبركاتة   اشكر كل القائمين على هاذا الصرح المتميز  ارجو ممن ادية القدرة  على مساعدتي في  التعديل على هاذا الكود   في البداية  اود ان اوضح  وضيفة الكود الحالية  عند البحث بين تاريخين  وطباعة التقرير يقوم هاذا الكود بتسجيل التاريخ حسب الاختيار  مثلا لو كان زمن البحث 1/1/ 2014 الي 30/1/2014  عند طباعة التقرير   يعمل الكود  بشكل جيد   بهاذي الصيغة   1/2014 انا اريد ان  تكون الصيغة     يــــــنــــايـــــر 2014 Dim txtmonth_year As String = "شهر " & txtDateFrom.Value.Month() & "من العام" & txtDateFrom.Value.Year Dim txtMY As TextObject = CType(rpt.ReportDefinition.Sections(1).ReportObjects("txtmonthyear"), TextObject) txtMY.Text = txtmonth_year

السلام عليكم   يوجد في المثال مشكلة تظهر عند إغلاق النموذج إذا كان بدون بيانات وهي عبارة عن رسالة خطأ , أرجو المساعده في حلها.   كما أريدإضافة صورة للموظفين لكل موظف ولكن تكون مدمجه في نفس الفورم وليست برابط على مجلد في الجهاز .   وشكراً     Enjaaaz18for fixing.rar

السلام عليكم ممكن احد يعلمنا كيف اضيف حرف س بعد الصادر السري في الباركود مثال رقم الصادر/2343 س الــــتـــاريخ /09/06/1435 ممكن مثال او شرح ضروري ارجوكم

شرح كيفية التقاط الصور لسطح المكتب      https://www.youtube.com/watch?v=_HXidEB9fZ8

السلام عليكم   لدي مثال هنا لجلب صورة لكل موظف ولكن لابد أن تكون الصورة محملة على الجهاز فيحفظ مسارها في جدول , وأريد التعديل عليه بحيث تكون الصورة مدمجة في نفس الفورم بعد جلبها من الجهاز بحيث عند نقل الداتابيس تنتقل كامل الصور بدون القيام بنقل مجلد الصور .   أرجو المساعده في التعديل على هذا المثال windows-1256__صورة موظف.rar

بكل طرق التشفير يبقى هناك نص للبيانات عندما تعترض من قبل العدو يشكك في كونها رسالة مشفرة ويحاول ان يفكها بكل طرق التشفير فمثلا طرق تشفير التي نعرفها مشهورة حاليا يعرفها الجميع ومثلما نستطيع ان نشفر نص بها  يستطيع العدو ان يحاول فك النص بها .حتى طرق تشفير جديدة التي نحن نبنيها لا يعرفها غيرنا يبقى العدو يحاول فكها. الذي نريده نحن ان معترض الرسالة (العدو) لا يشك اصلا بوجود رسالة مشفرة لأننا سنخفيها داخل صورة فلا يفكر اصلا بوجود نص مشفر او نخفيها بصورة بين 100 صورة مرسلة فيصعب على المعترض إيجادها ومن ثم فكها. هناك طرق عديدة لإخفاء نص داخل صورة معينة وأفضلها وضع النص في LSB لكل Gray Scale حيث يمثل هذا البت رقم واحد فقط مثلا اذا كان في Gray Scale معين رقم زوجي يكون LSB صفر واذا فردي يكون واحد أي إننا اذا غيرنا هذا البت بواسطة اخفاء بيانات في داخله  أي تغير في قيمته لا يؤثر على الصورة كثيرا فهو يغير الأضائه بمقدار واحد فقط من اصل 255 أي لا يسبب بأثر واضح يجعل الشخص يشك بوجود نص مشفر داخل الصورة أي مثلا لو كان Gray Scale لموقع معين (161) لو خزنا  في LSB له قيمة (0 ) يصبح  Gray Scaleلهذا الموقع يساوي 160 ولو خزنا فيه (1) يبقى (161 )   خطوات الإخفاء على صورة عادية gray 1.    نقرئ الصورة  الملونة وثم نحولها الى عادية وبعدها نجد ابعاد المصفوفة وتساعدنا ابعاد المصفوفة على اعادة الصورة الى شكلها الاصلي بعد خزن النص في داخلها   Matlab Code 2d gray imagex=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');imageDCE=rgb2gray(x); [r c]=size( imageDCE);        2.    نحول الصورة الى النظام الثنائي(Binary)  حتى نستطيع ان نغير البت الثامن الايمن LSB     Matlab Code 2d gray imageimageBIN=dec2bin( imageDCE);       3.    ندخل النص المرد إخفائه ونحوله الى AScii Code ومنه الى النظام الثنائي ونجد عدد الصفوف وعدد الأعمدة له حتى نستطيع ان ننقل بايتات كل حرف الى داخل البتLSB في الصورة حيث كل بايت من بايتات الحرف سيخزن في البنت الثامن الأيسر لموقع معين في الصورة     Matlab Code 2d gray imagetext='hi';ascm=double(text);binasc=dec2bin(ascm);[rt, ct]=size(binasc);    4.    ألان نخزن كل بت من البتات السبعة من  كل حرف داخل صف من صفوف الصورة في العمود الثامن الذي يمثل LSB ثم ننتقل للبت المقابل في الكلمة الثانية ونستمر حتى اخر حرف ثم نرجع لثاني بت بأول كلمة ثم ثاني بت بثاني كلمة ونستمر. أي كلما ازداد حجم النص ازدادت صعوبة فك شفرة شاهد الصورة  لا يعرف المعترض ماهي بنات الصورة وما هي بتات النص   Matlab Code 2d gray imagefor i=1:1:rt*ct imageBIN(i,8) =binasc(i);   end    بواسطة i نحدد من أي موقع داخل الصورة نبدأ بعملية الإخفاء   5.    ألان أخفينا النص داخل الصورة ألان نحول الصورة من النظام الثنائي الى النظام العشري ونعيد ابعاد المصفوفة الى أبعادها الاولية باستخدام داخلة reshape  ونشاهد ان الصورة تحولت بصيغية رقم واحد نستخدم دالة   uint8 لنعيدها الى صيغة رقم عشري بثمانية بت   Matlab Code 2d gray imageENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));  6.    نقوم برسم الصورة قبل وبعد خزن النص في داخلها       Matlab Code 2d gray imagesubplot(1,2,1) imshow(imageDCE) subplot(1,2,2) imshow(ENCimageDCE)      اعادة النص المشفر من الصورة 1.    نحول الصورة الى صيغة النظام الثنائي   Matlab Code 2d gray image  decriptext=dec2bin(ENCimageDCE);  2.    ناخذ البت الثامن من كل صف ونخزنه في مصفوفة جديدة ونلاحظ انه يجب ان يرسل لنا صاحب الرسالة المشفرة عدد صفوف وعدد اعمدة النص المشفر ومن اين يبدأ التشفير داخل الصورة حتى نستطيع أخراجه   Matlab Code 2d gray image textbin=decriptext(1:rt*ct,8);  3.    نعيد تحجيم المصفوفة النص الى شكلها الأولي بصيغة النظام الثنائي ونحولها من النظام الثنائي الى النظام العشري   Matlab Code 2d gray imageascimessage=bin2dec(reshape(textbin ,rt,ct ) );  4.    نحول البيانات من العشري الى الحروف ونضع علامة (‘) لكي تعرض بشكل صفوف       Matlab Code 2d gray image messageDEc= char(ascimessage)'         كود برنامج الإخفاء وإعادة النصوص كامل لصورة عادية   Matlab Code 2d gray imageclc clearx=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');text='bad friend maked you bad';ascm=double(text);binasc=dec2bin(ascm);[rt, ct]=size(binasc);%we use 2D image tospeed op. imageDCE=rgb2gray(x); %we use one line to relase line of code %imageDCE=imageDCE(1:4,1:4); %saved old shap it convert to one line [r c]=size( imageDCE); % convert image to binaryimageBIN=dec2bin( imageDCE); % cover it to one col 8bit and  row=r*c% imageBIN(:,8)=0; % put zero in all LSB in image for i=1:1:rt*ct imageBIN(i,8) =binasc(i);   end %imageBIN(:,8)=binasc(1:end) % UINT8 Convert to unsigned 8-bit integer. becuse it convert to one bit ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));% ENCimageDCE(1:rt*ct)=0; to show area of hide subplot(1,2,1) imshow(imageDCE) subplot(1,2,2) imshow(ENCimageDCE)% figure %imageBIN(1:rt*ct,:)=0; % ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c )); %imshow(ENCimageDCE) % to sure of encrption binasc(1:8),imageBIN(1:8,8) show that who image is % encripted decriptext=dec2bin(ENCimageDCE); textbin=decriptext(1:rt*ct,8); ascimessage=bin2dec(reshape(textbin ,rt,ct ) ); messageDEc= char(ascimessage)'   كود برنامج الإخفاء وإعادة النصوص كامل لصورة  ملونة     Matlab Code 3d rgbclc clearx=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');text='hi';ascm=double(text);binasc=dec2bin(ascm);[rt, ct]=size(binasc);%we use 2D image tospeed op. %imageDCE=rgb2gray(x); %we use one line to relase line of code// show who image effect by text% imageDCE=imageDCE(1:4,1:4); %saved old shap it convert to one line %[r c]=size( imageDCE);  %if we use 3D image--------------   [r c f]=size( x);   imageBIN=dec2bin( x);   %------------------------ % convert image to binary%imageBIN=dec2bin( imageDCE); % cover it to one col 8bit and  row=r*c% imageBIN(:,8)=0; % put zero in all LSB in image for i=1:1:rt*ct imageBIN(i,8) =binasc(i);   end %imageBIN(:,8)=binasc(1:end) % UINT8 Convert to unsigned 8-bit integer. becuse it convert to one bit ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c,f )); subplot(1,2,1) imshow(x) subplot(1,2,2) imshow(ENCimageDCE)% figure %imageBIN(1:rt*ct,:)=0; % ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c )); %imshow(ENCimageDCE) % to sure of encrption binasc(1:8),imageBIN(1:8,8) show that who image is % encripted decriptext=dec2bin(ENCimageDCE); textbin=decriptext(1:rt*ct,8); ascimessage=bin2dec(reshape(textbin ,rt,ct ) ); messageDEc= char(ascimessage)'     تحميل المقالة من هنا    http://hussienahmmed.blogspot.com/2013/03/hide-text-in-image-by-matlab.html    

السلام عليكم لطفا محتاج كتاب او دروس  تتعلق بالتعامل مع picture box    or     image احتاج التعامل مع الصورة كقيمة بكسل ثم تحلل الى نظام RGB   ارجو المساعدة بالسرعة الممكنة   شكرا

السلام عليكم جميعا باختصار عايز اضيف صورة الى JPanel  بس بشروط ان  انا عامل لكل نوع كلاس بمعنى كلاس مستقل للفريم وكلاس اخر لل JPanel وكلاس اخر لل JButton والنظام عندى ماشى بالطريقة دى JButton  extends Jpanel JPanel externds Jframe يعنى كل شغلى بالوراثة فعايز كود الصورة يكون خاص فقط بالكلاس JPanel يارب اكون وصلت المعلومة

السلام عليكم ورحمة الله وبركاته  قمت بعمل برنامج لكفالات الأيتام ومن ضمنها حقل لرابط لصورة اليتيم ... اسم هذا الحقل txtpic   ولإظهار صورة اليتيم عند طلب بياناته استخدمت هذا الكود :   Form_f_y_t.Soorh2.Picture = IIf(IsNull(txtpic), "", txtpic)لكن عندما لا يجد الصورة في الرابط المحدد او تم نقلها او حذفها او تغير اسمها في هذه الحالة تظهر رسالة الأكسيس :   المطلوب هو إظهار رسالة بديلة عن الرسالة السابقة ... " عفوا لم يتم العثور على صورة اليتيم في المسار المحدد " .   شكرا لكم .  

السلام عليكم إخواني في عندي سؤال أنه كيف نعرض صورة في التقرير بشكل ديناميكي أي أنها ليست صورة ثابتة ولكن في كل مرة نشغل البرنامج نضغط على زر فنستعرض ونحدد صورة ثم يعرض التقرير وتكون الصورة داخل أداة ال Image في التقرير هي نفسها التي حددناها عندما استعرضنا في الجهاز إذا يكون الحل على شكل مرفقات بيكون أحسن للفهم, وشكراً لكم.

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته في البرنامج المرفق للدكتوره ام عهود اريد ظهور صورة كل موظف بجوار اسمه في النموذج المستمر AllEmp zaCaptureWebCamAndScanner.rar

السلام عليكم ورحمة الله وبركاته ​كيف يمكن طباعة التقرير  Report   عندما لا يكون للموظف صورة? zaCaptureWebCamAndScanner.rar