منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

كل عام والجميع بالف خير

حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا

يرجى حذف الموضوع وشكرا Rolleyes

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

عيد سعيد عليك اخى dubai.eig

وعلى الجميع يارب ان شاء الله

يبدو من موضوعك قبل اتمام التعديل بانك حللت المشكلة

انك عملت كما يقال الصعب واتيت على ابسط شئ ووثفت عندها

لديك الكود البسيط المطلوب استخدامه حتى تعم الفائدة على الجميع

اولاً عن طريق استخدام بهذا الشكل

كود :

TextBox1.Text = TextBox1.Text.Replace(Space(1), ",")

وايضاً يمكنك استخدامه بهذا الشكل

كود :

TextBox1.Text = TextBox1.Text.Replace(" ", ",")

فكيلاهما واحد

تحياتى لك

وتمنياتى لك التوفيق

(21-08-18, 11:09 PM)dubai.eig كتب : [ -> ]السلام عليكم ورحمة الله

كل عام والجميع بالف خير

حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا

يرجى حذف الموضوع وشكرا

ياليت لو تركت سؤالك وارفقت بعده الحل

ليستفيد منه الآخرون

(22-08-18, 01:00 PM)عابر سبيل 2 كتب : [ -> ]
ياليت لو تركت سؤالك وارفقت بعده الحل

ليستفيد منه الآخرون

اتفق معاك تماماً اخى عابر سبيل2

تحياتى لك

وتمنياتى لك التوفيق

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

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

راينا الاجابة ولم نرى السؤال؟

ممكن السؤال لكي تعم الفائدة على الجميع حتى وان كان بسيط

تحياتي لكم

(22-08-18, 07:20 AM)elgokr كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته

عيد سعيد عليك اخى dubai.eig

وعلى الجميع يارب ان شاء الله

يبدو من موضوعك قبل اتمام التعديل بانك حللت المشكلة

انك عملت كما يقال الصعب واتيت على ابسط شئ ووثفت عندها

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

كود :

TextBox1.Text = TextBox1.Text.Replace(Space(1), ",")

وايضاً يمكنك استخدامه بهذا الشكل

كود :

TextBox1.Text = TextBox1.Text.Replace(" ", ",")

فكيلاهما واحد

تحياتى لك

وتمنياتى لك التوفيق

اهلا بك استاذي الكريم

صحيح بعد كتابة الموضوع قمت بالبحث وحصلت الطريقه Rolleyes

وهيه اني عندي ارقام عباره عن 30 رقم تقريبا

FE FE E0 94 25 00 00 00 20 14 00 FD

اريد اخذ منهم فقط
8 ارقام وهم

14 20 00 00
ومن بعد ما اخذ الارقام محتاج ارتبهم ليصبحون كذا

14200000

والحل كان

كود :

      retString = txtReceived.Text.Substring(18, 11)

            Dim s00 As String = retString

            Dim left, right, mid, mid2, mid3 As String

            right = s00.Substring(s00.Length - 2, 2)

            mid2 = s00.Substring(6, 2)

            mid = s00.Substring(3, 1)

            mid3 = s00.Substring(4, 1)

            left = s00.Substring(0, 3)

            SetText2(right & "," & mid2 & mid & "," & mid3 & left)

في البداية اخذة 11 رقم من بعد 18 رقم

FE FE E0 94 25 00 00 00 20 14 00 FD

14 20 00 00

كود :

 retString = txtReceived.Text.Substring(18, 11)

ومن ثم قمت بتوزيعهم حسب المطلوب

كود :

     Dim s00 As String = retString

            Dim left, right, mid, mid2, mid3 As String

            right = s00.Substring(s00.Length - 2, 2)

            mid2 = s00.Substring(6, 2)

            mid = s00.Substring(3, 1)

            mid3 = s00.Substring(4, 1)

            left = s00.Substring(0, 3)

            SetText2(right & "," & mid2 & mid & "," & mid3 & left)

ليصبحون في الاخير

14200000

بس واجهتني مشكله في العرض
[attachment=19233]

في NumericUpDown1

اريد العرض يكون كذا

[attachment=19234]

اقصد الفواصل
21,200,000

الكود كذا

كود :

SetText2(right & "," & mid2 & mid & "," & mid3 & left)

الفواصل موجوده بس في العرض ما تطلع

حاولت بس موب راضيه تطلع الفواصل Rolleyes

واشكرك على مرورك الكريم Rolleyes

(22-08-18, 01:00 PM)عابر سبيل 2 كتب : [ -> ]
(21-08-18, 11:09 PM)dubai.eig كتب : [ -> ]السلام عليكم ورحمة الله

كل عام والجميع بالف خير

حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا

يرجى حذف الموضوع وشكرا

ياليت لو تركت سؤالك وارفقت بعده الحل

ليستفيد منه الآخرون

تم واعتذر من الجميع Rolleyes

(22-08-18, 11:23 PM)essawq كتب : [ -> ]
السلام عليكم ورحمة الله وبركاتة

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

راينا الاجابة ولم نرى السؤال؟

ممكن السؤال لكي تعم الفائدة على الجميع حتى وان كان بسيط

تحياتي لكم

تم استاذي الفاضل Rolleyes

فقط لحل هذه المشكلة

حول اداء NumericUpDown الى TextBox

ثم اجعل القيمة التى تم جلبها مسبقان للارقام مثلاً

PHP كود :

TextBox1.text = "11 222 243 00" 

ثم استخدم الكود الموجود بردى السابق

اسفل قيمة المثال الموضح بالرد

تحياتى لك

وتمنياتى لك التوفيق

السلام عليكم

ما حبيت اكتب موضوع جديد لان الاستفسار له علاقه بنفس السؤال هنا

وهو

كيف اضيف رقم في بداية اي ارقام

مثلا textbox في سبع ارقام
9999999

اريد اضيف رقم صفر في بداية الارقام

09999999

كود :

If box.Text.Length = "7" Then

but 0 in Starts With

end if

وشكرا

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

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

مرحباً بك اخى dubai.eig

بخصوص طلبك اليك الطريقة بابسط من ما يكون

اذا كانت الاقام متغيرة اذا كان تتزايد عن العدد او التناقص

وكل ما تحتاجه هو اضافة فقط 0 قبل الرقم فكل ما عليك تطبيق مثل هذا المثال

كود :

       Dim ii As Integer = 65489

        MsgBox("0" & ii)

ولاحظ هنا استخدام & وليس + ويفضل ان تجعل الصفر داخل "" ليتم اعتباره نصي

طيب انت مثلاً بتعمل قيمة مثل مثلاً رقم تليفون

والعدد الاقصي له هو 10 ارقام او 11 مثلاً

فطبيعة الحال عند ادخال الرقم يتم حذفه تلقائي لان الصفر على الشمال لا قيمة له

لكن تريد عند عرضه يظهر 0 فى بداية الرقم فكل ما عليك تطبيق مثل التالى

كود :

       Dim ii As Integer = 65489

        MsgBox(ii.ToString("0000000"))

ضع عدد الاصفار للعدد المطلوب الارقام عرضها

اتمنى ان تكون الصورة وضحت لك كاملاً وان الشرح بسيط

تحياتى لك

وتمنياتى لك التوفيق

الصفحات : 1 2