السادة الافاضل
هناك محافظات وكل نخافظة لها كود
مثلا المنيا 24
اسيوط 26
القاهرة 02
وهكذا
بحيث
if textbox1.text-24 then
msgbox"المنيا"
end if
وهكذا باقي المحافظات
وهي كثيرة
ممكن عمل دالة بدل ما نستخدم جملة if بعدد امحافظات
شكرا
dim direc as string={}
lما عرفتش اكتب ايه في الاقواس
شكرا
يمكن استخدام دالة اواي طريقة غير تكرار if
عدد المحافظات غالبا لا يتعدي 35 محافظة
الأسهل تضعهم في دالة ثابتة مثل الدالة التالية
وتسترجع اسم المحافظة من الكود او العكس
عليك فقط ان تضيف بقية المحافظات الي الدالة
PHP كود :
Private Function TryGetGovernorateName(code As String) As String
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
End Function
استخدام الدالة
مثلا لاسترجاع اسم محافظة القاهرة
PHP كود :
Dim s As String = TryGetGovernorateName("02")
السّلام عليكم و رحمة الله و بركاته
أظن بكل الإحتمالات ..مصيرها المفضّل مثلما ذكر الأستاذ المحترم " KHODOR1985 "
تحياتي
ملف قاعدة بيانات او ملف نصي بتركيبة بسيطة يفي بالغرض.
ان امكن الاخ تجهيز ملف نصي بالمحافظات و ارقامها ... الباقي سهل.
شكرا لكل الاراء والزملاء وسوف اجرب علي الجهاز لاني رديت من الموبايل
مرة اخري شكرا
(24-02-18, 02:34 AM)khodor1985 كتب : [ -> ]مش مشكلتي إذا نفذ من خلال قاعدة بيانات أو ملف نصي، مشكلتي إني طرحت فكرة بهدف المساعدة شكرا ما قلي.اللهم إذا لم يقرأ مشاركتي.
السّلام عليكم و رحمة الله و بركاته
يا أستاذ " KHODOR1985 " .. يا عزيز يا محترم
لو حسبت هذا الحساب .. صدّقني لن تدخل المنتدى أبدًا و تهجره للأبد
تساعد و لا يقدر جميلك
تسأل ولا يعير إهتمام سؤالك
تكتب و لا يرى كلامك
و لذلك تكون نيّة المساعدة خالصة لوجه الله تعالى و لا ينتظر الانسان جزاء و لا شكورا هذا من جهة و من جهة ثانية .. مساعدة الآخرين تعتبر بحد ذاتها تعلّم و تعزيز إمكانيات ..
ثمّ .. " ......... لأخيك سبعين عذرًا "
مجرّد دردشة أخي الكريم
وفّقنا الله و إيّاكم لما فيه خير للجميع
إحتراماتي
سيدي هذا ليس طبعي ومن لم يشكرالناس لا بشكر الله. مرة اخري شكرا
بالنسبة للملف النصي. كيف اجعل الفيجوال بقراءالملف النصي. وخاصة سوف تبقي فكرة جيدة يستفيد منها الاخرين. اتمني الاجابة ووضع الملف النصي وطريقة القراءةمنه
السيد الفاضل
تم استخدام الدالة ولكن يوجد خطأ ولم اتوصل اليه
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
شكرا للجميع
وللعلم وجدت هذه الدالة ونفعت وادت الغرض
واضعها للافادة
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 الاسكندرية
شكرا