(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:56 PM)noway كتب : [ -> ]يعطيك العافيه وماقصصرت(25-10-16, 04:48 PM)a_abdullah كتب : [ -> ]فورم جديد + Label1 +TextBox1 + Button1(25-10-16, 04:40 PM)noway كتب : [ -> ]الحل فى المرفقات
مارضى يشتغل الكود عشان اشوفه بس فتح معي الرن
دوس على 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$
لكن نحاول نستنتج الأكواد المناسبة للدراسة
