[a_abdullah]

(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$
لكن نحاول نستنتج الأكواد المناسبة للدراسة

مشششككور ماتقصر وخيرك سابق 
هذا المنهج اللي ندرسه موجود بالرابط ان شاء الله اكون سويت شي تستفيد منه 
http://fac.ksu.edu.sa/nalhirabi/course-material/165761