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

اريد كود لتوليد ارقام متسلسلة وحروف والسنة

بدأه محمد عبد الرحمن ايمن في 3 نوفمبر 2011 · 6 رد · 2,283 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

هذه اول مشاركة لى عندكم واتمنى المساعدة وبارك الله فيكم جميعا

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

مثالل

xxx.0001.2011

xxx.0002.2011

xxx.0003.2011

xxx.0000.2011

الى

xxx.0010.2011

xxx.0011.2011

xxx.0012.2011

الى .....

xxx.1115.2011

ولى طلب اخر

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

واريد ان يتم طباعة فقط اول كلمة

او

او حرف او خامس حرف بالمسافة

وجزاكم الله خير الجزاء وشكرا لحضرتكم

#2

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

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

WindowsApplication1.zip

.:: Wish to become better and better ::.

#3

اخى الكريم بارك الله فيك وكل عام وانت بخير

جزك الله خيرا على المجهود الذى قمت ببذله

ولكن لدى طلب يا اخى العزيز

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

فسوف اشرحك عن المقصود بالتفصيل

انا بعمل مشروع بيسجل بيانات عملاء بقاعة بيانات

تمام

والمفروض والذى انا اريده بانه بيتم تسجيل رقم تسلسلى( الذى انا اريده وكاتبت الموضوع عنه )

رغم استيطيع ان اجعل ID من داخل قاعدة بيانات وهو سهل لدى ولكن المشكلة فانه سوف يعطينة نتيجة داخل قاعدة بيانات كتالى

1

2

3

4

وانا لا اريد هذا بل اننى اريد التسلسل بيكون بهذا الشكل

xxx.0010.2011

تمام

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

اتمنى ان تكون فاهمتنى

المطوب بالتفصيل

عندما اضغط على زر

يزرعلى

xxx.0000.2011

واضغط على زر مرة اخرى يعطينى

xxx.0003.2011

واضغط على زر مرة اخرى يعطينى

xxx.0004.2011

واتمنى الرقم التسلسلى لا يبدا بالصفر بل قيمة تكتب داخل تيكست بوكس وليكن اذا كاتبت

3

فسوف يتم طباعة

xxx.0004.2011

وهكذا

#4

انا وصلت لحل مؤقت ولاسف الشديد يعطينى النتيجة التى اريدها

Public Class Form1

Public i = 1, last As Integer

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click

last = txtNumber.Text

last += 1

txtResults.Text = ""

txtResults.Text = String.Format("xxx.{0}.{1}{2}", Format(last, "0000"), Year(Now.Date), Environment.NewLine)

End Sub

#5

طيب لدى سؤال اخر

انا لدى تيكست بكس وبيحتوى على هذه البيانات

xxx.0010.2011

فاريد رسالة msgbox تطبع اول 8 هذه الحروف فقط

0010

#6

السلام عليكم

الكود كالتالي

MsgBox Mid("xxx.0010.2011", 5, 4)

* الشرح

أولا تقوم بإدخال النص الذي تريده

ثانيا الرقم 5 هو ترتيب أول حرف تريد البدأ من عنده

ثالثا الرقم 4 عدد الحروف التي تريدها من النص وذلك من ترتيب أول حرف

يعني أنا أريدك أن تأخد من هذا النص من بداية الحرف رقم 5 في هذا النص ثم خد عدد 4 حروف تليه

وإن كنت تستخدم تكست بوكس فالكود كالتالي

MsgBox Mid(Text1.Text, 5, 4)

تم تعديل هذه المشاركة بواسطة Mady-AGC في 4 نوفمبر 2011 في 14:04

1

منحة للخريجين وطلاب الجامعات و المعاهد

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

سبحان الله وبحمده سبحان الله العظيم

#7

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

اخي كان سؤالك عن توليد ارقام متسلسلة ولا اعتقد انك ذكرت اي شيء يتعلق بقاعدة البيانات؟!! مو مشكلة ما عليك الا عند اضافة سجل جديد عمل استعلام يجلب لك عدد السجلات وتضيف عليه واحد من ثم تقوم باستخدام نفس الفكره السابقه

.:: Wish to become better and better ::.

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…