[aymen_libya]

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

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

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

[Taha Okla]

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

[Taha Okla]

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

كود :

       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

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

[Taha Okla]

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

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


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