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

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

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

مثلا عندى العدد 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)

أضرب الرقم اللي ع اليمين بـ 100 بيطلع معك رقم صحيح

جرب هذا الكود :

كود :

       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)

وعدله بما يناسب شغلك..

ظني ان المطلوب شيء يخص النص.

هل هذا المقصود؟

نورت الصفحة أستاذي
نعم هكذا كان قصد السائل

(09-09-22, 10:18 AM)aymen_libya كتب : [ -> ]
(08-09-22, 09:12 PM)سعود كتب : [ -> ]ظني ان المطلوب شيء يخص النص.

هل هذا المقصود؟
لكن في حالة أدخلت رقم صحيح مثلا 123
سوف يظهر خطأ
اريده يظهر في خانه صفر وآخري 123

يظهر خطا لان الكود لصيغة الرقم بمشاركتك الاولى !!!
افهم الكود وقم باعادة صياغته ليناسب التنسيق المطلوب.

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

وهذا كل الكود لا حاجة للمرفق:

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 

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

(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

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

(09-09-22, 12:29 PM)سعود كتب : [ -> ]ايش فيه المنتدى ؟؟؟
احاول اجاوب ماقدرت؟؟؟
على كل حال كنت سالت عن صيغة الرقم اللذي تستخدمه حتى اجهز كود لكن خلاص جهزته و سارفعه ان شاء الله تعالى.

إن الله مع الصابرين..
المهم ما تشد ع شعر راسك.. ولا تقز ع سنانك..

مرينا بهالشعور كثيير ..

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

aymen_libya

Taha Okla

Taha Okla

سعود

أبو خالد الشكري

سعود

سعود

سعود

Taha Okla