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

تحويل رقم به رقم عشرى إلى رقم صحيح

مغلق
بدأه enjyshahin في 23 يوليو 2007 · 11 رد · 1,307 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الأخوة الكرام

عندى رقم به ارقام عشريه مثل (10.25 ) واريد ان أجعله (1025) أى بدون ارقام عشرية

فهل من طريقة للتحويل

شكرا لكم

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

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

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

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

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#2

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

#3

NOTHING IMPOSSIBLE

تم تعديل هذه المشاركة بواسطة loverman في 23 يوليو 2007 في 07:30

نحن اليمانيون يا طه تطير بنا الى روابي العلا أرواح أنصارِ

اذا تذكرت عمارا ومبدأه فأفخر بنا اننا أحفاد عمارِ

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

فليرضى عني الناس أو فليسخطوا انا لم أعد أأبى لغير رضـــاك

اللهم ارحم المسلمين والمسلمات المؤمنين والمؤمنات الأحياء منهم والأموات

#4

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

الدوت نت يعتمد على Math كمرجع لجميع دوال الرياضيات ،، أما بالنسبة لطريقتك فلا يوجد ما يدعمها في هذا المرجع ..

لذلك أعتقد أن الطريقة الأفضل هي أخذ المتغير كنص وتقسيمه باستخدام المثود split ومن ثم قراءة الاعداد فقط ثم ارجاعه الى الرقم :

   Dim x As String = TextBox1.Text
		Dim y() As String
		y = x.Split(".")

		Dim i As Int16
		Dim myStr As String
		For i = 0 To y.Length - 1
			myStr = myStr & y(i)
		Next

		TextBox1.Text = myStr
#5

السلام عليكم

الاخت الكريمة

اول حل : ممكن بالضرب فى 100

ثاني حل : LEFT و Right

Left(10.25,2)+Right(10.25,2)lllllllllllllllllllllllllll

Microsoft Certified DataBase Administrator MCDBA

#6

الأخت العزيزة

حاولي باستخدام الدالة

val

#7

an expert Scoool

thank u 4 your an idea ,i realy get the same idea but u r the first ,again thank u any way.

I hope 2 be Friends 4 Ever.

نحن اليمانيون يا طه تطير بنا الى روابي العلا أرواح أنصارِ

اذا تذكرت عمارا ومبدأه فأفخر بنا اننا أحفاد عمارِ

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

فليرضى عني الناس أو فليسخطوا انا لم أعد أأبى لغير رضـــاك

اللهم ارحم المسلمين والمسلمات المؤمنين والمؤمنات الأحياء منهم والأموات

#8

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

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

dim int as integer

int=Cint(textbox1.text.replace(".",""))
messagebox.show(int.tostring)

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

والسلام عليكم

WindowsApplication1.rar

نحن اليمانيون يا طه تطير بنا الى روابي العلا أرواح أنصارِ

اذا تذكرت عمارا ومبدأه فأفخر بنا اننا أحفاد عمارِ

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

فليرضى عني الناس أو فليسخطوا انا لم أعد أأبى لغير رضـــاك

اللهم ارحم المسلمين والمسلمات المؤمنين والمؤمنات الأحياء منهم والأموات

#9

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

الأخوة الأفاضل

شكرا لكم جميعا على الإهتمام

ان شاء الله سأجرب ما طرحته واخبركم بالنتيجة

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

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

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

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

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#10

السلام عليكم

جربي القيمة المطلقة Absolute value على النحو التالي

 Dim i As String = "11,22,33"
		Dim x As Integer = Math.Abs(CInt(i))
		Console.WriteLine(x)
		Console.Read() 'Return 112233

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#11

مما تعلمناه أن دالة abs تعمل على تحرير العدد من الاشارة السالبة فقط ..

ولكن لم يخطر في بالي يوما أنها تعمل على ازالة الفواصل ،،

ربما لأنه لم تتطرق الي مسألة مثلها من قبل ..

مجددا والى الابد ..

Nobody can beat you..

#12

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

أخى الفاضل Scool

شكرا على إهتمامك ولكن طلب منى الكود الذي يجعل الرقم به رقم عشرى إلى رقم صحيح مثل ما ذكرته من قبل أى أجعل رقم

i.e 120.50 to be 12050 and vise versa 12050 to be 120.50

وهذا المطلوب يكون بحفظ الرقم بدون فصله عشريه في قاعدة البيانات وارجعها من قاعدة البيانات بالفصلة العشرية

وشكرا لك أخى loverman واخى الشهاب الخارق وشكرا لجميع من ساعدنى

اتمنى ان اكون قد اوضحت الفكرة واتمنى ان اجد لديكم الحل

تم تعديل هذه المشاركة بواسطة enjyshahin في 25 يوليو 2007 في 23:55

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

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

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

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

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

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

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