تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عملة دالة لاستخراج اسم المحافظة
#1
السادة الافاضل
هناك محافظات وكل نخافظة لها كود
مثلا   المنيا       24
        اسيوط       26
        القاهرة      02

وهكذا

بحيث
if textbox1.text-24   then
msgbox"المنيا"
end if
وهكذا باقي المحافظات

وهي  كثيرة

ممكن عمل دالة بدل ما نستخدم جملة if   بعدد  امحافظات
شكرا

dim  direc as string={}
lما عرفتش اكتب ايه في الاقواس
شكرا
الرد }}}
تم الشكر بواسطة: سعود
#2
يمكن استخدام دالة اواي طريقة غير تكرار    if
الرد }}}
تم الشكر بواسطة: سعود
#3
عدد المحافظات غالبا لا يتعدي 35 محافظة
الأسهل تضعهم في دالة ثابتة مثل الدالة التالية
وتسترجع اسم المحافظة من الكود او العكس
عليك فقط ان تضيف بقية المحافظات الي الدالة


PHP كود :
   Private Function TryGetGovernorateName(code As String) As String
        Dim result 
As String CType(NothingString)
 
       If Not New Dictionary(Of StringString)() From {{"02""Cairo"}, {"03""Alexandria"}}.TryGetValue(coderesultThen
            result 
""
 
       End If
 
       Return result
    End 
Function 

استخدام الدالة
مثلا لاسترجاع اسم محافظة القاهرة
PHP كود :
Dim s As String TryGetGovernorateName("02"
Retired
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , سعود
#4
السّلام عليكم و رحمة الله و بركاته
أظن بكل الإحتمالات ..مصيرها المفضّل مثلما ذكر الأستاذ المحترم " KHODOR1985 "
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: سعود
#5
ملف قاعدة بيانات او ملف نصي بتركيبة بسيطة يفي بالغرض.
ان امكن الاخ تجهيز ملف نصي بالمحافظات و ارقامها ...  الباقي سهل.
الرد }}}
تم الشكر بواسطة:
#6
شكرا لكل الاراء والزملاء وسوف اجرب علي الجهاز لاني رديت من الموبايل

مرة اخري شكرا
الرد }}}
تم الشكر بواسطة:
#7
(24-02-18, 02:34 AM)khodor1985 كتب : مش مشكلتي إذا نفذ من خلال قاعدة بيانات أو ملف نصي، مشكلتي إني طرحت فكرة بهدف المساعدة شكرا ما قلي.اللهم إذا لم يقرأ مشاركتي.

السّلام عليكم و رحمة الله و بركاته
يا أستاذ " KHODOR1985 " .. يا عزيز يا محترم
لو حسبت هذا الحساب .. صدّقني لن تدخل المنتدى أبدًا و تهجره للأبد
تساعد و لا يقدر جميلك
تسأل ولا يعير إهتمام سؤالك
تكتب و لا يرى كلامك
و لذلك تكون نيّة المساعدة خالصة لوجه الله تعالى و لا ينتظر الانسان جزاء و لا شكورا هذا من جهة و من جهة ثانية .. مساعدة الآخرين تعتبر بحد ذاتها تعلّم و تعزيز إمكانيات ..
ثمّ .. " ......... لأخيك سبعين عذرًا "
مجرّد دردشة أخي الكريم
وفّقنا الله و إيّاكم لما فيه خير للجميع
إحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#8
سيدي هذا ليس طبعي ومن لم يشكرالناس لا بشكر الله. مرة اخري شكرا

بالنسبة للملف النصي. كيف اجعل الفيجوال بقراءالملف النصي. وخاصة سوف تبقي فكرة جيدة يستفيد منها الاخرين. اتمني الاجابة ووضع الملف النصي وطريقة القراءةمنه
الرد }}}
تم الشكر بواسطة:
#9
السيد الفاضل
تم استخدام الدالة  ولكن يوجد خطأ  ولم اتوصل اليه
 Dim result As String = CType(Nothing, String)
        If Not New Dictionary(Of String, String)() From {{"02", "Cairo"}, {"03", "Alexandria"}}.TryGetValue(code, result) Then
            result = ""
        End If
        Return result
الرد }}}
تم الشكر بواسطة:
#10
شكرا للجميع
وللعلم  وجدت هذه الدالة ونفعت  وادت الغرض 
واضعها للافادة

 Dim x As New Dictionary(Of String, String)
        x.Add("1", "one")
        x.Add("2", "two")
        x.Add("3", "three")
       
        'MsgBox("Value of 2:" & x.Item("2"))

بالنسبة  للقراءة من ملف نصي
 Dim lines() As String = IO.File.ReadAllLines(Application.StartupPath & "\aaa.text")

        Dim line As String
كيف اجعله يظهر اسم المحافظة  بمعلومية الرقم
02   القاهرة
03   الاسكندرية
شكرا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم