[الماجيك مسعد]

(27-06-20, 12:31 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم هذه بطريقة الـ If وهي ليست معقدة كما تقول  وقد جربتها حتى الرقم 9999 وبعدها يتم التصفير من جديد 
الكود عبارة عن جمل if متداخلة

كود :

  Dim aa As Integer = 0
   Dim bb As Integer = 0
   Dim cc As Integer = 0
   Dim dd As Integer = 1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       aa += 1
       If aa = 10 Then
           aa = 0
           bb += 1
           If bb = 10 Then
               bb = 0
               cc += 1
               If cc = 10 Then
                   cc = 0
                   dd += 1
                   If dd = 10 Then
                       dd = 0 ' هنا يتم التصفير والاعادة من جديد
                   Else
                       dd += 1
                   End If
               End If
           End If
       End If
       TextBox1.Text = dd & "." & cc & "." & bb & "." & aa
   End Sub

ممتاز يعمل بنجاح ولكن كنت اتمني الابتعاد عن شروط if اعتقدت انه يوجد طريقة اسهل من الشروط ولكن تسلم ايدك علي كل شئ

---

(27-06-20, 12:53 PM)سامي محمد كتب : أعتقد أن الكود الأسهل هو :

كود :

    Dim S As Single
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        S += 0.001
        If S >= 10 Then S = 0.000
        TextBox1.Text = S.ToString("0.0@0@0").Replace("@", ".")
    End Sub

ممتاز جدا ولكن كيف هيتم ادخل الرقم 1.0.0.0 ل Single