السلام عليكم ورحمة الله تعالى وبركاته
اعضاء المنتدى الكرام
كل عام وانت جميعا بخير
مرفق ملف لاستخراج البيانات من الرقم القومى
يعمل جيدا دون اى اخطاء بلغه VB.net
وعليكم السلام ورحمة الله وبركاته
اخي الكريم اسمح لي بهذه الكلمات وان لم تعجبك لاترد .... فاحذفها مباشرة لاني لا احب ان ازعج احد لكني احب ابداء راي ارى فيه منفعة .
افتح صفحة لاحدى مواقع التحويل من vb to csharp واضف لمشروع جديد الكلاسات والموديولات والفورمات واحدة تلو الاخرى بعد اتمام كل كلاس انتقل للاخر.
وابدا بالبحث عن vb to c# converter
عند التوقف عند كل خطوة اذكر تفاصيل تلك الخطوة .
لان عدم ذكر التفاصيل سنعود بك الى الخطوة الاولى وبهذا لن تحصل على المطلوب بشكل سريع.
أرجو والله ان لا تنزعج مما كتبته الان.
والسلام عليكم ورحمة الله وبركاته
(25-07-19, 09:24 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اخي الكريم اسمح لي بهذه الكلمات وان لم تعجبك لاترد .... فاحذفها مباشرة لاني لا احب ان ازعج احد لكني احب ابداء راي ارى فيه منفعة .
افتح صفحة لاحدى مواقع التحويل من vb to csharp واضف لمشروع جديد الكلاسات والموديولات والفورمات واحدة تلو الاخرى بعد اتمام كل كلاس انتقل للاخر.
وابدا بالبحث عن vb to c# converter
عند التوقف عند كل خطوة اذكر تفاصيل تلك الخطوة .
لان عدم ذكر التفاصيل سنعود بك الى الخطوة الاولى وبهذا لن تحصل على المطلوب بشكل سريع.
أرجو والله ان لا تنزعج مما كتبته الان.
والسلام عليكم ورحمة الله وبركاته
مافيش ازعاج ولا حاجه استاذي الفاضل
لو فيه رابط لموقع يناسب ما تقوله ارجو ارفاقه
وشكرا ليك
إقتباس :لو فيه رابط لموقع يناسب ما تقوله ارجو ارفاقه
وشكرا ليك
كتبت لك رابط للبحث واول نتيجة رائعة .
ان كان قصدك تحويل مشروع كامل من لغة لاخرى فهنا لا اعلم انه يوجد ولم اقصده اصلا .
التحويل يكون جيد وممتاز للاجراءات تنسخ اجراء واحد متكامل بدون نقص وتلصقه ويقوم بتحويله بعد نقر الزر المسؤول عن ذلك.
انت الان لديك خبرة من موضوعك السابق.
ولا اظنه صعب عليك اكمال المشروع.
على كل حال اعطيتك طريقة من الطرق اللي استخدمها ويستخدمها غيري.
إقتباس :لو فيه رابط لموقع يناسب ما تقوله ارجو ارفاقه
وشكرا ليك
كتبت لك رابط للبحث واول نتيجة رائعة .
ان كان قصدك تحويل مشروع كامل من لغة لاخرى فهنا لا اعلم انه يوجد ولم اقصده اصلا .
التحويل يكون جيد وممتاز للاجراءات تنسخ اجراء واحد متكامل بدون نقص وتلصقه ويقوم بتحويله بعد نقر الزر المسؤول عن ذلك.
انت الان لديك خبرة من موضوعك السابق.
ولا اظنه صعب عليك اكمال المشروع.
على كل حال اعطيتك طريقة من الطرق اللي استخدمها ويستخدمها غيري.
للاسف جربت الموقع والنتيجه فيها اخطاء كثيره
دا كود داخل مدييول لغه VB.net
ومفروض انه يتغير ل سي شارب
كود :
Function GetMohafza(ByVal RakamKomy As String) As String
Dim MOhfza As String
Dim cod As String
cod = Mid(RakamKomy, 8, 2)
Select Case cod
Case "01"
[MOhfza] = "القاهرة"
Case "02"
[MOhfza] = "الاسكندرية"
Case "16"
[MOhfza] = "الغربية"
Case "33"
[MOhfza] = "مطروح"
Case "24"
[MOhfza] = "المنيا"
Case "18"
[MOhfza] = "البحيرة"
Case "25"
[MOhfza] = "أسيوط"
Case "27"
[MOhfza] = "قنا"
Case "17"
[MOhfza] = "المنوفية"
Case "12"
[MOhfza] = "الدقهلية"
Case "15"
[MOhfza] = "كفر الشيخ"
Case "26"
[MOhfza] = "سوهاج"
Case "13"
[MOhfza] = "الشرقية"
Case "14"
[MOhfza] = "القليوبية"
Case "22"
[MOhfza] = "بنى سويف"
Case "24"
[MOhfza] = "المنيا"
Case "19"
[MOhfza] = "الاسماعيلية"
Case "21"
[MOhfza] = "الجيزة"
Case "28"
[MOhfza] = "أسوان"
Case "29"
[MOhfza] = "الاقصر"
Case Else
[MOhfza] = "unknown"
End Select
GetMohafza = MOhfza
End Function
Function Gender(ByVal RakamKomy As String) As String
Dim cod As Integer
cod = Mid(RakamKomy, 13, 1)
If cod Mod 2 = 0 Then
Gender = "أنثى"
Else
Gender = "ذكر"
End If
End Function
Function BirthDate(ByVal RakamKomy As String) As Date
Try
Dim centry As Integer = Mid(RakamKomy, 1, 1)
Dim BYear As String = IIf(centry = 2, 19, IIf(centry = 3, 20, 21)) & "" & Mid(RakamKomy, 2, 2)
Dim BMonth As String = Mid(RakamKomy, 4, 2)
Dim BDay As String = Mid(RakamKomy, 6, 2)
BirthDate = CDate(BDay & "/" & BMonth & "/" & BYear)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Function Calcday(ByVal vDate1 As Date, ByVal vdate2 As Date)
Dim vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
Calcday = vDays '& "يوم "
End Function
Function CalcMonth(ByVal vDate1 As Date, ByVal vdate2 As Date)
Dim vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vMonths = vMonths Mod 12
CalcMonth = vMonths '& "شهر "
End Function
Function Calcyear(ByVal vDate1 As Date, ByVal vdate2 As Date)
Dim vYears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12
Calcyear = vYears '& "سنه "
End Function
إذا كان رقم ترتيب رمز النوع (ذكر/أنثى) هو الثالث عشر فتصحيح الخطأ يكون cod == 1
أخي ابراهيم
Substring يبدأ ترقيم الترتيب من 0 بخلاف Mid الذي يبدأ ترقيم الترتيب من 1
لهذا كان رقم الترتيب لرمز النوع 12 وليس 13 لأنني استخدمت Substring وليس Mid
أخي أحمد
إذا كان هناك استفسار آخر في الكود فأخبرني
Est3lam.zip (الحجم : 46.12 ك ب / التحميلات : 69)
Est3lam.zip (الحجم : 46.12 ك ب / التحميلات : 69)
سلام عليكم روحمة الله عندي مثال قديم ولا اعرف ان كان هو نفس الفكره وكذا لا اعرف من صممه