الصفحة الرئيسية 

FAQs ( 25 / 5 / 2000 ) أسئلة وأجوبتها25 / 5 / 2000

إذا كان لديك استفسار، عن لغة الفيجول بيسك Visual Basic فلا تترد فى إرسالة لنا وسنجيب عليه إن شاء الله في أقرب فرصة، وجزاك الله كل خير على ما تقدمة من نصيحة أو استفسار.

كيف يمكنني تحويل تاريخ ميلادي لهجري عن طريق الفيجول بيسك؟ كيف يمكنني تغيير لغة الكتابة برمجياً من خلال الفيجول بيسك؟ ما هي النصائح الذهبية التي تنصحنا بها لزيادة مستوانا في البرمجة؟

Elzohry@hotmail.com

كيف يمكنني تحويل تاريخ ميلادي لهجري عن طريق الفيجول بيسك؟

كثيراً ما نقوم نحن العرب بتصميم برنامج ونحتاج لعرض التاريخ الهجري به بدلاً من الميلادي، وخاصة إذا كان البرنامج يوزع بدول الخليج العربي المستخدمة لهذا النوع من التقويم.

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

معادلة التحويل هي:  التاريخ الميلادي = التاريخ الهجري * 0.970227 + 621.5774  ، مع ملاحظة أن الإختبار ليس في تطبيق هذه المعادلة ولكن عن طريق تحويل التاريخ بالأشهر والأيام والسنة الميلادية إلى اليوم والشهر والسنة الهجرية.

إذا كنت قليل الهمة، وتفضل السهل فها هو إجراء بسيط يمكنك تطبيقه على فيجول بيسك 6 يقوم بتحويل التاريخ الميلادي إلى هجري باليوم والشهر والسنة:

Function ConvertDateString(ByRef StringIn As String) As String
    Dim SavedCal As Integer
    Dim d As Date
    Dim s As String
    SavedCal = Calendar
    VBA.Calendar = 0
    d = CDate(StringIn)
    VBA.Calendar = 1
    s = CStr(d)
    ConvertDateString = Format(s, "Long Date")
    VBA.Calendar = SavedCal
End Function

إذا أردت تحويل التاريخ 25/5/2000 إلى مقابلة الهجري فقم بإستدعاء الإجراء كما يلي، حيث ستكون قيمة المتغير HijriDate  هي الممثلة للتاريخ الهجري الناتج من التحويل.

HijriDate = ConvertDateString("25/5/2000")

 إلى أعلى

كيف يمكنني تغيير لغة الكتابة برمجياً من خلال الفيجول بيسك؟

هل قمت من قبل بتصميم برنامج عربي، وبه إمكانية البحث عن مجموعة من العناصر العربية، وكثيراً ما فوجئت بأن مؤشر الكتابة يكون مستعد للكتابة بالإنجليزية وتحول الكتابة للعربي عن طريق الضغط على Alt + Rt Shift ، هل تعلم أن بعض المبتدئين لا يعرف كيفية تحويل لوحة المفاتيح للكتابة بالعربي، أو بمعني أدق يفضل أن يقوم البرنامج يتحويل لغة المفاتيح تلقائياً تبعاً لما يتم البحث عنه.

الآن ومن خلال هذا الركن ستتعلم المزيد من الأفكار الإحترافية، قم بكتابة الدوال التالية في الموديول Module :

Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Sub ArabicKeyboard(language As String)
 Select Case LCase(language)
  Case "a"
    dd = GetKeyboardLayout(0)
    If dd = "67699721" Then d = ActivateKeyboardLayout(1, 0)
  Case "e"
    dd = GetKeyboardLayout(0)
    If dd <> "67699721" Then d = ActivateKeyboardLayout(0, 0)
  End Select
End Sub

إذا أردت تحويل الكتابة إلى عربي فقم بإستدعاء الإجراء كما يلي :

call  ArabicKeyboard("a")

وإذا أردت الكتابة بالإنجليزية فقم بإستداعء الإجراء كما يلي:

call  ArabicKeyboard("e")

 إلى أعلى

ما هي النصائح الذهبية التي تنصحنا بها لزيادة مستوانا في البرمجة؟

النصيحة الأولى التي نوجهها لكل طالب علم هي عدم اليأس، والزمان كفيل بزيادة قوتك البرمجية، اجتهد ولا تترك فرصة للتعلم إلا وتغتنمها.

البرامج المطلوب إتقانها لأي مبرمج:

• Windows 9x, 2000

• MS Word 9x, 2000

• MS Access 9x, 2000

• PSP

• Corel Photopaint

• Adobe Photoshop

• Sound Forge 4.0

• MP3 compressor

 البرامج السابقة يجب على أي مبرمج إتقانها كاسمه، فهي تستخدم في كل برنامج تفكر في تصميمه.

يجب على أي مبرمج زيادة دارة معارفة من المبرمجين حتى يتبادل معهم المعلومات والنصائح والكتب المختلفة.

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

قم بتسجيل المعلومات الجديدة التي تتعلمها بطريقة منظمة، لا تكتفي بتسجيلها على الكمبيوتر فيجب أن تمتلك منها نسخة ورقية، فلا ندري هل سيكون الكمبيوتر متاحاً في كل الأوقات أم لا.

توجد الكثير من البرامج التعليمية العربية، ولكن لا تهتم بها كثيراً فمعظمها لن تستفيد منه، حاول الإطلاع على البرنامج قبل شراءه، لا تتردد في الحصول على برنامج تعليمي أجنبي فمعظمها محترم، وفكر كثيراً قبل سحب دفتر شيكاتك لشراء برنامج أو كتاب عربي لتعليم البرمجة. ولا تنسي أن الشركات العربية تهتم بالدعاية دون الإهتمام بالمحتوي وكثيراً ما ترى اسماء على برامج لا تحمل من الإسم أي شئ.

 إلى أعلى