17-10-13, 06:42 PM
اخي الكريم sherif khalid انا شاكرة لك ...لكن اذا ممكن طلب اخر بدون زحمة دا اواجه مشكلة بالبرنامج والاستدعاء اتمنى اذا قدرت تنطيني برنامج كامل لان صعوبة كبيرة عندي ...وممنونه
الصفحات : 1 2
17-10-13, 06:42 PM
18-10-13, 12:09 AM
السلام عليكم اخى على
هذة شرح الاكواد الاخيرة وليست الفنكشنز لانها مفهومة على ما اظن
اظن ان الشرح واضح جدا
وانا تحت امر اعضاء المنتدى فى اى وقت
[attachment=383]
هذة شرح الاكواد الاخيرة وليست الفنكشنز لانها مفهومة على ما اظن
كود :
انشاء خاصية من نوع 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اظن ان الشرح واضح جدا
وانا تحت امر اعضاء المنتدى فى اى وقت
اختى العزيزة شذا
انا تحت امرك فى اى وقت
السورس فى المرفقات
انا تحت امرك فى اى وقت
السورس فى المرفقات
[attachment=383]
الصفحات : 1 2