[سعود]

السلام عليكم ورحمة الله وبركاته
دالة حساب عدد مرات النقطة

PHP كود :

Function pcount(txt As String) As Integer
        Dim i As Integer = 0
        For Each h As String In txt
            If h = "." Then
                i += 1
            End If
        Next
        Return i

    End Function 


الكود التالي يمنع تكرار النقطة

PHP كود :

Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (e.KeyChar = "." And pcount(TextBox1.Text) <> 0) Then
            e.Handled = True
        End If
    End Sub 


ماهو التعديل المناسب بحيث اسمح فقط للارقام وعلامة او نقطة واحدة فقط!
اعرف char.isnumber  و  Isdigit و  isnumeric
لكن كيف اطبق الفكرة
لم اكن متوقع انها تكون غامضة (لاول مرة اتعامل مع الحدث هذا كنت اكتفي بالازرار اللتي اضعها واتحكم بكل شيء)

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
جرب بهذا الشكل:

PHP كود :

   Private Sub TxtBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtBox1.KeyPress

        If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso (e.KeyChar <> "."c) Then
            e.Handled = True
        End If

        If (e.KeyChar = "."c) AndAlso ((TryCast(sender, TextBox)).Text.IndexOf("."c) > -1) Then
            e.Handled = True
        End If
    End Sub 


[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
مشكور اخي ابو ليلى سباق دائما ماشاء الله
اخي سعود الغالي والطلب رخيص تفضل هذا الكود

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

       If sender.SelectionLength = sender.Text.Length Then sender.Clear()
       If Not (Char.IsControl(e.KeyChar) Or Char.IsNumber(e.KeyChar) Or e.KeyChar = "." And Not sender.Text.Contains(".")) Then e.Handled = True
       If sender.Text.Length = 0 And e.KeyChar = "." Then sender.Text = "0." : sender.SelectionStart = sender.Text.Length : e.Handled = True


   End Sub

[سعود]

بارك الله فيكم جميعا وجزاكم عني كل خير
في الحقيقة كنت اجرب بالسي شارب فصدمت وظننت ان المشكلة بسبب صعوبة السي شارب لكن انصدمت اكثر حين جربت في فيجوال بيسك.
الحمدلله.

[ابراهيم ايبو]

اخي سعود والله انو السي شارب اسهل من الفيجوال 

لانه صارم في التعامل الشيء الوحيد الذي ينفر منه رواد الفيجوال هو اقواس البراكيت

ان تمكنت منه فإن ابواب لغات البرمجة كلها مفتوحة امامك  لان الطريقة واحدة واغلب الدوال متشابهة بين اللغات

[سعود]

(20-04-20, 08:26 PM)ابراهيم ايبو كتب :

اخي سعود والله انو السي شارب اسهل من الفيجوال 

لانه صارم في التعامل الشيء الوحيد الذي ينفر منه رواد الفيجوال هو اقواس البراكيت

ان تمكنت منه فإن ابواب لغات البرمجة كلها مفتوحة امامك  لان الطريقة واحدة واغلب الدوال متشابهة بين اللغات

بعد الخبر هذا
https://www.youtube.com/watch?v=8ZJ0sl7dOhc
نقلا عن مصدر 
احببت ان اعشق سي شارب مثل فيجوال بيسك.
نقلت الكود للسي شارب
احاول قدر الامكان التاقلم.
لي محاولات فيها والله يعين.

[ابو روضة]

(20-04-20, 08:26 PM)ابراهيم ايبو كتب :

اخي سعود والله انو السي شارب اسهل من الفيجوال 

لانه صارم في التعامل الشيء الوحيد الذي ينفر منه رواد الفيجوال هو اقواس البراكيت

ان تمكنت منه فإن ابواب لغات البرمجة كلها مفتوحة امامك  لان الطريقة واحدة واغلب الدوال متشابهة بين اللغات

لكنى أعتقد أن لغة VB.NET أجمل لآنه يكون تركيزك على الوظيفة البرمجية بدون أن تشغل بالك بالأقواس والنقاط والرموز التي تجعل أكواد باقي تكملة برنامجك يبدو كفوازير رمضان أو كأنك تجلس بمسابقة والتى بطبيعة الحال تضيع الكثير من الوقت والجهد بسبب نسيان قوس هنا أو علامة منقوطة هناك.... وهذا رأيى أنا شخصياً لكن لعل هناك أشياء لم أأخذ بالى منها...