تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة لو تكرمتوا
#1
Exclamation 
صباحكم سعادة .. Heart
هذا السؤال ابغى اعرف طريقة اللوب كيف راح تكون في الليبل تطلع لي النتيجة ..

Write a program that reads an integer number and prints its components. For example: 5628 is component of : 8, 20, 600 and 5000. Note (use mod and \ to  solve this problem). Use do loop while.

الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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 As Integer 0 To s.Length 1
            a
(i) = s.Substring(s.Length i1)
            
Label1.Text &= vbNewLine Val(a(i)) * c
            c 
10

        Next i
       
    End Sub 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: a_abdullah , a_abdullah , ممدوح , ممدوح , جميل علي
#3
(25-10-16, 03:02 PM)أبو عمر كتب :
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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 i1)
 
           Label1.Text &= vbNewLine Val(a(i)) * c
            c 
10

        Next i
       
    End Sub 

الكود صح ولا فيه اي خطأ ماشاء الله بس المشكله في السؤال طالب استخدام ال (mod) و (\) و يبغاها ب do loop while  Huh
الرد }}}}
تم الشكر بواسطة:
#4
عفوا افتكرت انك تسوي برنامج مو تحل واجب
مبدأي في البرمجة كل الطرق تودي لروما
Anyway I have noted this " Note (use mod and \ to solve this problem). Use do loop while.
"
عموما اتغدى واشوف اذا قدرت استخدم mod /
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: ممدوح , جوري
#5
(25-10-16, 03:36 PM)أبو عمر كتب : عفوا افتكرت انك تسوي برنامج مو تحل واجب
مبدأي في البرمجة كل الطرق تودي لروما
Anyway I have noted this " Note (use mod and \ to  solve this problem). Use do loop while.
"
عموما اتغدى واشوف  اذا قدرت استخدم mod /

ماتقصر والله يعطيك العافيه  Heart Heart
وبالعافيه  Tongue
الرد }}}}
تم الشكر بواسطة:
#6
الحل فى المرفقات


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 63.93 ك ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة: ممدوح
#7
(25-10-16, 04:40 PM)noway كتب : الحل فى المرفقات

مارضى يشتغل الكود عشان اشوفه بس فتح معي الرن  Huh
الرد }}}}
تم الشكر بواسطة:
#8
(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.TextThen
            Dim x 
As Integer TextBox1.Text
            Dim y 
As Integer
            Dim n 
As Integer 0
            Dim z 
As Integer
            Do 
While 0
                y 
x Mod 10
                z 
10 n
                Label1
.Text Label1.Text & (z) & " , "
 
               x = (y) / 10
                n 
1

            Loop
        Else
            MessageBox
.Show("Error")
 
       End If 
الرد }}}}
تم الشكر بواسطة: ممدوح , a_abdullah , أبو عمر
#9
هذه مشاركة
كود :
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$
لكن نحاول نستنتج الأكواد المناسبة للدراسة
الرد }}}}
تم الشكر بواسطة: a_abdullah
#10
(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.TextThen
            Dim x 
As Integer TextBox1.Text
            Dim y 
As Integer
            Dim n 
As Integer 0
            Dim z 
As Integer
            Do 
While 0
                y 
x Mod 10
                z 
10 n
                Label1
.Text Label1.Text & (z) & " , "
 
               x = (y) / 10
                n 
1

            Loop
        Else
            MessageBox
.Show("Error")
 
       End If 
يعطيك العافيه وماقصصرت  Heart Heart Heart

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 96 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 524 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 81 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 97 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 66 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 80 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 61 05-05-17, 06:38 PM
آخر رد: محمد بن عطية
  محتاج مساعدة في اكمال الكود bidaya 7 220 04-05-17, 05:14 PM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم