+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : دالة تقوم بفصل العدد الصحيح (/showthread.php?tid=42406)
دالة تقوم بفصل العدد الصحيح - aymen_libya - 08-09-22
السلام عليكم ورحمة الله
أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف
مثلا عندى العدد 98675.98
المطلوب
98675 تنفصل وتتحط فى تكست بوكس
و 98 تنفصل وتتحط فة تكست بوكس
أرجو أن يكون السؤال واضح
هدا حلي لسؤال
لكن رقم علي يمين يظهر 0.98
Dim num as double
num=val(Textbox1.text)
Textbox2.text=num-Math.floor(num)
Textbox3.text=Math.floor(num)
RE: سؤال - Taha Okla - 08-09-22
أضرب الرقم اللي ع اليمين بـ 100 بيطلع معك رقم صحيح
RE: سؤال - Taha Okla - 08-09-22
جرب هذا الكود :
كود :
Dim n As Double = 999.8
Dim A As Integer = Int(n)
Dim S As Integer = (n - A) * 100
MsgBox(n & vbNewLine & A & vbNewLine & S)وعدله بما يناسب شغلك..
RE: سؤال - سعود - 08-09-22
ظني ان المطلوب شيء يخص النص.
هل هذا المقصود؟
RE: سؤال - أبو خالد الشكري - 08-09-22
نورت الصفحة أستاذي
نعم هكذا كان قصد السائل
RE: سؤال - سعود - 09-09-22
(09-09-22, 10:18 AM)aymen_libya كتب :(08-09-22, 09:12 PM)سعود كتب : ظني ان المطلوب شيء يخص النص.لكن في حالة أدخلت رقم صحيح مثلا 123
هل هذا المقصود؟
سوف يظهر خطأ
اريده يظهر في خانه صفر وآخري 123
يظهر خطا لان الكود لصيغة الرقم بمشاركتك الاولى !!!
افهم الكود وقم باعادة صياغته ليناسب التنسيق المطلوب.
RE: سؤال - سعود - 09-09-22
ايش فيه المنتدى ؟؟؟
احاول اجاوب ماقدرت؟؟؟
على كل حال كنت سالت عن صيغة الرقم اللذي تستخدمه حتى اجهز كود لكن خلاص جهزته و سارفعه ان شاء الله تعالى.
وهذا كل الكود لا حاجة للمرفق:
PHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Function splitter() As String
Return Regex.Match(TextBox1.Text, "[\.|\,|;|\||/]{1,1}").Value
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim l As Integer = 0
Panel1.Controls.Clear()
If TextBox1.Text.Trim = "" Then Exit Sub
Dim group As Integer = Split(TextBox1.Text, splitter).Count
For i As Integer = 0 To (group - 1)
Dim txtbox As New TextBox
With txtbox
.Name = "txtb" & i
.Font = TextBox1.Font
.Width = 75
.Top = 0
.Left = l
.TextAlign = HorizontalAlignment.Center
.Text = Split(TextBox1.Text, splitter)(i)
Panel1.Controls.Add(txtbox)
End With
l += (txtbox.Width + 10)
Next
Label1.Text = Panel1.Controls.Count
End Sub
End Class
RE: سؤال - سعود - 09-09-22
(09-09-22, 04:09 PM)aymen_libya كتب :(09-09-22, 12:29 PM)سعود كتب : ايش فيه المنتدى ؟؟؟
احاول اجاوب ماقدرت؟؟؟
على كل حال كنت سالت عن صيغة الرقم اللذي تستخدمه حتى اجهز كود لكن خلاص جهزته و سارفعه ان شاء الله تعالى.
وهذا كل الكود لا حاجة للمرفق:
يتم توليد مربعات نص وفق الخانات الموجودةPHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Function splitter() As String
Return Regex.Match(TextBox1.Text, "[\.|\,|;|\||/]{1,1}").Value
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim l As Integer = 0
Panel1.Controls.Clear()
If TextBox1.Text.Trim = "" Then Exit Sub
Dim group As Integer = Split(TextBox1.Text, splitter).Count
For i As Integer = 0 To (group - 1)
Dim txtbox As New TextBox
With txtbox
.Name = "txtb" & i
.Font = TextBox1.Font
.Width = 75
.Top = 0
.Left = l
.TextAlign = HorizontalAlignment.Center
.Text = Split(TextBox1.Text, splitter)(i)
Panel1.Controls.Add(txtbox)
End With
l += (txtbox.Width + 10)
Next
Label1.Text = Panel1.Controls.Count
End Sub
End Class
ارقام عشريه او صحيحه
مثلا 12.60
12 و 60
مثلا 123
123 و 0
مثلا 0.777
0 و 777
تم الحل اخي الكريم الكود اللي كتبته بمشاركتي ما قبل هذه فيها ماوصفت.
RE: سؤال - Taha Okla - 09-09-22
(09-09-22, 12:29 PM)سعود كتب : ايش فيه المنتدى ؟؟؟
احاول اجاوب ماقدرت؟؟؟
على كل حال كنت سالت عن صيغة الرقم اللذي تستخدمه حتى اجهز كود لكن خلاص جهزته و سارفعه ان شاء الله تعالى.
إن الله مع الصابرين..
المهم ما تشد ع شعر راسك.. ولا تقز ع سنانك..
مرينا بهالشعور كثيير ..