الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

رقم لوحة السيارة

مغلق
بدأه jennya في 28 ديسمبر 2004 · 13 رد · 1,676 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم , انا ضيفه جديده عليكم وعندي ااستفسار اتنى انه الاقي تجاوب من اخواننا

سوالي هو انا عندي تيكست بوكس خاص برقم لوحة السيارة , وانتوا عارفين انه رقم لوحة السياره يكتب كحروف متقطعه , مااعرف كيف اجبر اليوزر يكتبها متقطعه ,انا حصلت هنا في المنتدى كود يكتب لي حروف متقعطه بس احسها طريقه مو كويسه خصوصا انها ماضبطت معي وفوق كذا صار يسوي لي out of stack

اتمنى المساعده حيث اني في بدايات برنامجي ونفسي امشي فيه مراحل متقدمه

ايوه نسيت اقولكم اني استخدم DAO

تحياتي

#2

اولا اهلا بيكي بيننا في هذا الصرح العلمي الرائد ، والذي اثبت بعطاء اعضاءه قدرته علي تقديم كل ماهو قيم ومفيد .

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

المهم .انه يوجد جزء نص واخر رقم مع وجود قواطع اي فواصل بين الارقام .

الحل العملي والصحيح لمثل هذه الحالة هي استخدام الاداة Masked Edit قومي بعملية تنزيلها علي نموذج العمل كما هو موضع في الصور :

comp.jpg

ثم حدديها من بين الاداوات المختلفة كما هو مبين في الصور

mask.jpg

ثم في خصائص الاداة اكتبي التنسيق المطلوب مع العلم بان الاشارة # تعني بانها لن تسمح للمستخدم سوي ادخال رقم اما اذا كتبتي اي رقم او حرف فسيكون ثابت لا يمكن تغيرة في وقت التشغيل . اما اذا وضعتي في التنسيق الاشارة ؟ فانها تعني بانه سيسمح للمستخدم بكتابة حرف .

prop.jpg

وعند التشغيل سيكون الشكل النهائي كما هو موضح سيكون الحرف الاول حرف P ثابت لا يمكن تغييره بالاضافة الي القواطع . اما الاشارات # فتحولت الي امكنة يكتب قيها المستخدم ارقامه .

run.jpg

تحياتي لكي :blink:

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

اخبريني باخر التطورات تحياتي :blink:

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#4

مساء الخيررررررررررررررر , مرررررررررررررررسي اخ بروف , اوكي انا راح اجرب طريقتك وان شالله تضبط ,, انا كان عندي فكره عن الايديت بوكس بس كنت استخدم # واقول ياربي ليه مايسمح لي اكتب حرف بس انت ماشالله ماقصرت شرحتها مضبوط

وبالنسبه لارقام لوحات السيارات عندنا في السعوديه تاخذ هالنمط

أ ب ج 1 1 1 او ب ر و 5 4 8 وهكذا

مرسي مره ثانيه اخوي ,,,

#5

واووووووووووووووو ضبطت معي , الله يوفقك دنيا واخررره اخوي...... ومانستغنى :D

#6

أختي الكريمة

لماذا لا تضعي ستة Text Box وتستخدمي الخاصية maxlength و تستخدمي الأحداث setffocus

و lostfocus

ستجدين أنها طريقة مجدية فعلا

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

شكرا

#7

;) :D

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#8

السلام عليكم ........

أشكر الأخت جنيه (jennya) على طرح الموضوع

حيث أن لي محاولات في هذا الموضوع وقد واجهتني بعض المشاكل وخاصة عند مايكون رقم اللوحة يتظمن الحرف (هـ) حيث أن هذ الحرف يتكون من جزأين وهما ( ه & ـ ) أرجو من الأخ بروف (prof_1982) والأخوان الأفاضا إعطائي الحل المناسب أو المعالجة برمجياً ولكم تحياتي

#9

السلام عليكم

عزيزي واخي حامد ،،

لا اعرف ما سبب اصرارك علي وجود الـ( ـ ) مع حرف الـ( ه ) ولماذا لا يكون بدون هذه الشحطة .

علي العموم يمكن حلها برمجيا عن طريق الاتي :

اولا في هذه الحالة يعتبر هذان حرفان وليس حرف واحد ،، اذا سوف تتعقب كود Ascii لحرف الهاء ثم عند وجوده تقوم بادراج الشحطة خلفة مباشرة . وسيصبح في النهاية بالشكل التالي (هـ) وبرمجيا كالتالي :

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 229 Then KeyAscii = 0: Text1.SelText = "هـ": Text1.SelStart = Len(Text1.Text)
    
End Sub

ففي حدث الـText1_KeyPress يتم تنفيذ الكود لمعرفه رقم حرف الهاء وما ان نتلقي الرقم الكودي له نقوم بطباعه الهاء + الشحطة .

ليعمل الكود السابق يتطلب ما يلي :

1- صندوق نص بالاسم الافتراضي Text1 فقط

2- قم بكتابة حرف الهاء وستري انه سيكتبها هـ

تحياتي لك اي سؤال لا تتردد :blink:

تم تعديل هذه المشاركة بواسطة prof_1982 في 29 ديسمبر 2004 في 22:50

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#10

صباح الخير للجميع , اوكي اخوي فري يسعدنا نشاركك برنامجك ونستفيد مع بعض

واشكرك اخوي حامد لانه نبهتني لحرف ال هاء ماجا على بالي ان اليوزر ممكن يحاول يدخل حرف الها

والله يخلي لنا بروف ماقصررررررررررررر , ماشالله عليه :rolleyes:

#11

السلام عليكم

بارك الله فيك أخي بروف وزادك من علمه

ولو تتجمل علينا بمثال نكون لك من الشاكرين .. أخوك/ حامد الحامد

#12

السلام عليكم , صح وان كمان نبغى منك مثال لو سمحت مع التيكست بوكس ومع اداة maskedbox كيف نضبط حرف الهااااااااااااااا

وانا عندي هنا سؤال اضافي :unsure:

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

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

مشكلتي هناا انه ماعرفت كيف انظم العلاقه بين الجدولين( جدول العربات_جدول المصروفات)

وايضا في الفورم ماعرفت اكتب recourdsource بشكل صحيح

جدول العربات = ( التسلسل-رقم اللوحة- نوع العربة-الموديل)

جدول المصروفات(التسلسل-رقم اللوحة--اسم المستلم-رقم السجل المدني-تاريخ الاستلام)

اتمنى ان كلامي مفهوم وواضح مو مخرررررررررررررررربط :(

تحياتي ,

#13

يا اخوان اخباركم؟

معليش بس طولت شوي هذه شاشة ادخال السيارة وقد ازلت منها الكود ولم ابقي سوى كود رقم اللوحة

إن شاء الله ينال اعجابكم

move.rar

#14

صباح الخير , شفت شغلك في التيكست بوكس ماشالله مرتب , ببس برضه مشكلة حرف الهاااا موجوده سواء كان تيكست بوكس او maskedbox

:(

هذا الموضوع مغلق.

مواضيع مشابهة