منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حاشاك أخي ابراهيم

حتى أنا عرفت ذلك بعد تجربة البرنامج وأظهر نتائج خاطئة،
فبحثت فعرفت الفرق بين Mid و Substring فذكرت المعلومة.


أخي ابراهيم
بارك الله فيك

(26-07-19, 02:45 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم 
احي استبدل الرقم في كود الجنس (حدث سهوا) 12 اجعلها 13
هذا الكود

PHP كود :

public static string GetGender(string RakamKomy) {
        int cod = Convert.ToInt32(RakamKomy.Substring(12, 1));
        if (cod == 0)
            return "أنثى";
        else
            return "ذكر";
    } 


احعله هكذا

PHP كود :

public static string GetGender(string RakamKomy) {
        int cod = Convert.ToInt32(RakamKomy.Substring(13, 1));
        if (cod == 0)
            return "أنثى";
        else
            return "ذكر";
    } 


جربت فعلا كلام حضرنك وبردو النتيجه خطأ
ممكن حضرتتك تجرب الكود وتتختبره
هو فى حاله رقم 0 فقط بيتم تغيير لانثى لكن خلاف ذلك كله ذكر
جربت وغيرت 0 ب 1 اصبح  النتيجه رقم 1 انثي وباقى ارقام كلها ذكر
مع العلم ان رقم الفردي كله ذكر والرقم الزوجى انثى
الرقم المتحكم فى الجنس ترتيبه فى الرقم القومى الثالث عشر

أخي عبد المنعم

اعتقدت سابقا أن الرمز يكون إما 0 أول 1 فقط لهذا اكتفيت ب ==

وفي إجابتك الأخيره الموجهة لأخي ابراهيم فهمت منها أنه قد يكون الرمز 2 أو 3 إلى 9 ويتم التمييز بالعدد الفردي والزوجي فقط

وعلى هذا قمت تعديل الكود في المشاركة الأولى لي بتغيير (code == 0) إلى (cod % 2 == 0)
حيث % تعادل Mod في لغة الفيجوال بيسيك


أخي أحمد
إن هناك لديك استفسار في كود مشاركتي الأولى فأخبرني

(27-07-19, 12:15 AM)الحازمي كتب : [ -> ]أخي عبد المنعم

اعتقدت سابقا أن الرمز يكون إما 0 أول 1 فقط لهذا اكتفيت ب ==

وفي إجابتك الأخيره الموجهة لأخي ابراهيم فهمت منها أنه قد يكون الرمز 2 أو 3 إلى 9 ويتم التمييز بالعدد الفردي والزوجي فقط

وعلى هذا قمت تعديل الكود في المشاركة الأولى لي بتغيير (code == 0) إلى (cod % 2 == 0)
حيث % تعادل Mod في لغة الفيجوال بيسيك


أخي أحمد
إن هناك لديك استفسار في كود مشاركتي الأولى فأخبرني

للاسف مازال الخطأ قائم بعد كل الحلول المقدمه حتى الان
التجربه خير برهان
مرفق صوره لتوضيح كيفيه معرفة نوع الجنس ذكر ام انثى 
وكيفيه استخراج الجنس من الرقم القومى
 اتمنى تكون الفكره واضحه

اخي أحمد

سوف أسألك سؤال، لأعرف هل استمر في محاولة إفادتك في هذا الموضوع أم لا!

هل قمت باستخدام الكود كاملا الذي في مشاركتي الأولى بعد التعديل الأخير الذي أشرت إليه في مشاركتي الأخيرة أم لا؟
وبشكل أوضح وأدق، هل رقم الترتيب للنوع هو 12 كما في الكود أو قمت بتغييره؟

بناء على جوابك يكون استمراري!


أخي أحمد
إن أردت أن تستفيد من مشاركاتي فخذ الكود كاملا في كل مرة أقوم بالتعديل عليه وجربه ثم أخبرني

هذا المديول بعد التحويل لا تنسى إضافة هذه المكتبة للمشروع Microsoft.VisualBasic:

(27-07-19, 01:19 AM)الحازمي كتب : [ -> ]اخي أحمد

سوف أسألك سؤال، لأعرف هل استمر في محاولة إفادتك في هذا الموضوع أم لا!

هل قمت باستخدام الكود كاملا الذي في مشاركتي الأولى بعد التعديل الأخير الذي أشرت إليه في مشاركتي الأخيرة أم لا؟
وبشكل أوضح وأدق، هل رقم الترتيب للنوع هو 12 كما في الكود أو قمت بتغييره؟

بناء على جوابك يكون استمراري!


أخي أحمد
إن أردت أن تستفيد من مشاركاتي فخذ الكود كاملا في كل مرة أقوم بالتعديل عليه وجربه ثم أخبرني

اي حل قمت بتجربته  وهذه صوره من دخل الكلاس

ولكن نفس النتيجه

---

(27-07-19, 01:23 AM)asemshahen5 كتب : [ -> ]هذا المديول بعد التحويل لا تنسى إضافة هذه المكتبة للمشروع Microsoft.VisualBasic:

PHP كود :

using Microsoft.VisualBasic;
using System;
using Microsoft.VisualBasic.CompilerServices;

namespace Test_Number
{
    static class Module1
    {
        public static string GetMohafza(string RakamKomy)
        {
            string GetMohafzaRet = default(string);
            string MOhfza;
            string cod;
            cod = Microsoft.VisualBasic.Strings.Mid(RakamKomy, 8, 2);

            switch (cod)
            {
                case "01":
                    {
                        MOhfza = "القاهرة";
                        break;
                    }

                case "02":
                    {
                        MOhfza = "الاسكندرية";
                        break;
                    }

                case "16":
                    {
                        MOhfza = "الغربية";
                        break;
                    }

                case "33":
                    {
                        MOhfza = "مطروح";
                        break;
                    }

                case "24":
                    {
                        MOhfza = "المنيا";
                        break;
                    }

                case "18":
                    {
                        MOhfza = "البحيرة";
                        break;
                    }

                case "25":
                    {
                        MOhfza = "أسيوط";
                        break;
                    }

                case "27":
                    {
                        MOhfza = "قنا";
                        break;
                    }

                case "17":
                    {
                        MOhfza = "المنوفية";
                        break;
                    }

                case "12":
                    {
                        MOhfza = "الدقهلية";
                        break;
                    }

                case "15":
                    {
                        MOhfza = "كفر الشيخ";
                        break;
                    }

                case "26":
                    {
                        MOhfza = "سوهاج";
                        break;
                    }

                case "13":
                    {
                        MOhfza = "الشرقية";
                        break;
                    }

                case "14":
                    {
                        MOhfza = "القليوبية";
                        break;
                    }

                case "22":
                    {
                        MOhfza = "بنى سويف";
                        break;
                    }
                case "19":
                    {
                        MOhfza = "الاسماعيلية";
                        break;
                    }

                case "21":
                    {
                        MOhfza = "الجيزة";
                        break;
                    }

                case "28":
                    {
                        MOhfza = "أسوان";
                        break;
                    }

                case "29":
                    {
                        MOhfza = "الاقصر";
                        break;
                    }

                default:
                    {
                        MOhfza = "unknown";
                        break;
                    }
            }
            GetMohafzaRet = MOhfza;
            return GetMohafzaRet;
        }

        public static string Gender(string RakamKomy)
        {
            string GenderRet = default(string);
            int cod;
            cod =Convert.ToInt32( Microsoft.VisualBasic.Strings.Mid(RakamKomy, 13, 1));
            if ((cod % 2) == 0)
                GenderRet = "أنثى";
            else
                GenderRet = "ذكر";
            return GenderRet;
        }

        public static DateTime BirthDate(string RakamKomy)
        {
            DateTime BirthDateRet = default(DateTime);
            try
            {
                int centry = Conversions.ToInteger(Microsoft.VisualBasic.Strings.Mid(RakamKomy, 1, 1));
                string BYear = Interaction.IIf(centry == 2, 19, Interaction.IIf(centry == 3, 20, 21)) + "" + Microsoft.VisualBasic.Strings.Mid(RakamKomy, 2, 2);
                string BMonth = Microsoft.VisualBasic.Strings.Mid(RakamKomy, 4, 2);
                string BDay = Microsoft.VisualBasic.Strings.Mid(RakamKomy, 6, 2);
                BirthDateRet = Conversions.ToDate((BDay + "/" + BMonth + "/" + BYear));
            }
            catch (Exception ex)
            {
                Interaction.MsgBox(ex.Message);
            }

            return BirthDateRet;
        }

        public static object Calcday(DateTime vDate1, DateTime vdate2)
        {
            object CalcdayRet = default(object);
            int vMonths;
            int vDays;
            vMonths =Convert.ToInt32( DateAndTime.DateDiff("m", vDate1, vdate2));
            vDays =Convert.ToInt32( DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            if (vDays < 0)
            {
                vMonths = vMonths - 1;
                vDays =Convert.ToInt32( DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            }
            CalcdayRet = vDays; // & "يوم "
            return CalcdayRet;
        }

        public static object CalcMonth(DateTime vDate1, DateTime vdate2)
        {
            object CalcMonthRet = default(object);
            int vMonths;
            int vDays;
            vMonths = Convert.ToInt32(DateAndTime.DateDiff("m", vDate1, vdate2));
            vDays = Convert.ToInt32(DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            if (vDays < 0)
            {
                vMonths = vMonths - 1;
                vDays = Convert.ToInt32(DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            }
            vMonths = vMonths % 12;
            CalcMonthRet = vMonths; // & "شهر "
            return CalcMonthRet;
        }

        public static object Calcyear(DateTime vDate1, DateTime vdate2)
        {
            object CalcyearRet = default(object);
            int vYears;
            int vMonths;
            int vDays;
            vMonths = Convert.ToInt32(DateAndTime.DateDiff("m", vDate1, vdate2));
            vDays = Convert.ToInt32(DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            if (vDays < 0)
            {
                vMonths = vMonths - 1;
                vDays = Convert.ToInt32(DateAndTime.DateDiff("d", DateAndTime.DateAdd("m", (double)vMonths, vDate1), vdate2));
            }
            vYears = vMonths / 12;
            CalcyearRet = vYears; // & "سنه "
            return CalcyearRet;
        }
    }
} 


ممكن تطبقه على الملف المرفق لو تكرمت
وجزاك الله خيررا

أخي عبد المنعم

إذا، لم تأخذ الكود كاملا كما طلبت منك،
وقمت بتغيير الرقم 12 إلى 13 وهذا خطأ منك، ولم أطلب منك ذلك،
بالإضافة لعدم وجود code % 2 == 0 كما في تعديلي الأخير


أخي أحمد
أعتذر عن الاستمرار في موضوعك.

---

صورة من ردك الأخير
[attachment=22199]

---

صورة من جهازي
[attachment=22200]

(27-07-19, 01:39 AM)الحازمي كتب : [ -> ]أخي عبد المنعم

إذا، لم تأخذ الكود كاملا كما طلبت منك،
وقمت بتغيير الرقم 12 إلى 13 وهذا خطأ منك.


أخي أحمد
أعتذر عن الاستمرار في موضوعك.

---

صورة من ردك الأخير

استاذي الفاضل  الحازمي
 الفاضل الصوره موضحه انه تم تغيير الرقم كما ذكرت من 12 الى 13 
وايضا للتجربه قمت بتغيير 1 بدلا من صفر ولكن دون فائده
واسف لو كنت تعبت حضرتك معايا