تقييم الموضوع :
  • 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 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: 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 /
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: ممدوح , جوري
#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 ك ب / التحميلات : 48)
الرد }}}
تم الشكر بواسطة: ممدوح
#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] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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