(25-10-16, 03:02 PM)أبو عمر كتب :

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim x As Integer = Val(TextBox1.Text)
        Dim c As Integer = 1
        Dim s As String = x.ToString
        Dim a(s.Length) As String
        Label1.Text = ""
        For i As Integer = 0 To s.Length - 1
            a(i) = s.Substring(s.Length - 1 - i, 1)
            Label1.Text &= vbNewLine & Val(a(i)) * c
            c = c * 10

        Next i
       
    End Sub 


(25-10-16, 03:36 PM)أبو عمر كتب : عفوا افتكرت انك تسوي برنامج مو تحل واجب
مبدأي في البرمجة كل الطرق تودي لروما
Anyway I have noted this " Note (use mod and \ to  solve this problem). Use do loop while.
"
عموما اتغدى واشوف  اذا قدرت استخدم mod /

(25-10-16, 04:40 PM)noway كتب : الحل فى المرفقات

(25-10-16, 04:48 PM)a_abdullah كتب :

(25-10-16, 04:40 PM)noway كتب : الحل فى المرفقات

مارضى يشتغل الكود عشان اشوفه بس فتح معي الرن 

(25-10-16, 04:56 PM)noway كتب :

(25-10-16, 04:48 PM)a_abdullah كتب :

(25-10-16, 04:40 PM)noway كتب : الحل فى المرفقات

مارضى يشتغل الكود عشان اشوفه بس فتح معي الرن 

فورم جديد + Label1 +TextBox1 + Button1
دوس على button1 مرتين و اضف الكود التالى

PHP كود :

Label1.Text = ""
        If IsNumeric(TextBox1.Text) Then
            Dim x As Integer = TextBox1.Text
            Dim y As Integer
            Dim n As Integer = 0
            Dim z As Integer
            Do While x > 0
                y = x Mod 10
                z = 10 ^ n
                Label1.Text = Label1.Text & (y * z) & " , "
                x = (x - y) / 10
                n = n + 1

            Loop
        Else
            MessageBox.Show("Error")
        End If 


(25-10-16, 05:07 PM)ممدوح كتب : هذه مشاركة

كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim num As Integer = 5628
       Dim res As String

       Dim i As Integer = 0
       Do
           i += 1
           Dim c As Integer = (num Mod 10 ^ i)
           num -= c
           If c = 0 Then Exit Do
           res &= c & vbNewLine
       Loop

       Label1.Text = res

    End Sub

للأسف سألت عن كتاب Visual Basic 2010 How to program لمن حولي فلم يدرسه أحد منهم
وبحثت عنه في النت فوجدته بمبلغ 140$
لكن نحاول نستنتج الأكواد المناسبة للدراسة