[shatha alward]

اخي الكريم sherif khalid انا شاكرة لك ...لكن اذا ممكن طلب اخر بدون زحمة دا اواجه مشكلة بالبرنامج والاستدعاء اتمنى اذا قدرت تنطيني برنامج كامل لان صعوبة كبيرة عندي ...وممنونه

[sherif khalid]

السلام عليكم اخى على

هذة شرح الاكواد الاخيرة وليست الفنكشنز لانها مفهومة على ما اظن

كود :

انشاء خاصية من نوع int (واذا لم تكن تعرف ماذا تعنى خاصية يمكنك البحث فى المنتدى
وسوف تعثر على اساسيات اللغة)
Public Property ShiftCount() As Integer
        Get
            Return _shiftCount
        End Get
        Set(ByVal value As Integer)
            _shiftCount = value
        End Set
    End Property

  انشاء اجراء واسناد القيمة (3) الية وهذة القيمة هيا قوة التشفير
    Public Sub New()
        Me.New(3)
    End Sub

  انشاء اجراء لتمرير قيمة التشفير الية والتى بدورها تستخدم فى وظائف التشفير وفك التشفير
    Public Sub New(ByVal shiftCount As Integer)
        Me.ShiftCount = shiftCount
    End Sub

اظن ان الشرح واضح جدا
وانا تحت امر اعضاء المنتدى فى اى وقت

---

اختى العزيزة شذا
انا تحت امرك فى اى وقت
السورس فى المرفقات

  Caesar.rar (الحجم : 58 ك ب / التحميلات : 126)