تقييم الموضوع :
  • 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 ك ب / التحميلات : 8)
الرد }}}}
تم الشكر بواسطة: ممدوح
#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
الرد }}}}
تم الشكر بواسطة: أبو عمر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 92 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 52 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 63 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 173 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 295 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 74 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 79 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 87 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 80 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,114 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان

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


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