• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ahmed_83

اعضاء جدد
  • عدد المشاركات

    19
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة ahmed_83

  1. الى جميع الاخوة والاعضاء في المنتدى ارجو الاجابة على السؤال للحاجة الدائمة لهذا العملية بسب اختلاف دقة الشاشة من حاسبة الى اخرى وبحسبة رغبة المستخدم والتخلص من تغير دقة الشاشة يدواً عماً انا غيرت الشاشة في الفجول بيسك عن طريقة دالة موجوده في الفجول بيسك
  2. شكرا على المجهود الرائع
  3. السلام عليكم اعتقد ان الموضوع مهم لكون يبحث عنة بعض الاعضاء وتكرر السوال عليه اليكم الفكرة هو عبارة عن عرض ملفات خارجية بواسطة عناصر تحكم توفر هذة الخاصية اليكم المثال التالي عبارة عن ملف برنامج قم بالنسخ واللصق في برنامج ثم قم بالحفظ والتشغيل ******************************************************************** تسلم ايدك شي جميل وروعة
  4. السلام عليكم في قسم الاكسس بالمنتدى وجدت برنامج للتفقيط جميل وسهل فقمت باعادة كتابة البرنامج بالفجول فوكس برو tf.rar
  5. برنامج التفقيط

    مشكو ر اخي اسد العراق على المرور البرنامج ليس فيه خطأ رفعتة للفائدة فقط مع التقدير
  6. هل من الممكن ارجاع بيانات ملف بعد استخدام ايعازين delete all pack
  7. السلام عليكم هذا برنامج لحساب السلف في البنوك العراقية salf.rar
  8. السلام عليكم للعمل على ثلاثة حاسبات او اكثر مربوطة شير استعمل الملف بصورة شير مثل SHARED اسم الملف use في حال الاضافة استخدم الدالة ("اسم الملف") FLOCK اسم الملف unlock in وفي حالة التعديل استخدم الدالة ("اسم الملف") RLOCK اسم الملف unlock in و لا تستعمل الايعاز pack بعد الامر delete استخدم الامر set delete on
  9. الروح مشتاقة والقلب بيه حسرة وتدري البعد يازين ما ينحمل صبرة إن شاء الله هم و ينزاح عنك يااسد وترجع الى المنتدى بصحة وسلامة وإن شاء الله البركة بالموجودين
  10. السلام عليكم هذا البرنامج يقوم بحساب الفرق بين أي تاريخين في نفس السنة أو سنتين مختلفتين ويحسب الفرق بعدد الأيام و الاشهر والسنوات DATE.rar
  11. كانت الفكرة على بالي مشكور الأخ أحمد ********************** ماكو فرق إن شاء الله
  12. السلام عليكم هذا البرنامج يقوم بحساب الفرق بين أي تاريخين في نفس السنة أو سنتين مختلفتين ويحسب الفرق بعدد الأيام و الاشهر والسنوات اعتذر عن الرفع اكثر من مرة لان لااعرف كيف امسح الملف المرفق
  13. اشكر الاخوان جزيل الشكر على هذا الرد الرائع و الشافي :thumb_up:
  14. اخي العزيز اسد العراق ان طريقة تبديل ابعاد الشاشة في المثال السابقة شغال لكن ليست طريقة عامة اي على سبيل المثال لو ارد تغير ابعاد الشاشة الى 960*1280 فوجدت في بعض الحاسبات يجب ان تكون قيمة(L) تساوي 67 وفي بعض الحاسبات يجب ان تكون قيمة(L) تساوي 121 الى.... فهل توجد طريقة عامة؟ مع التقدير
  15. اخي الكريم البرنامج غير متصل مع اي ملف موجد عند بداية التشغيل وهذا يعني ان الباسورد مثبت في النظام وبعد تتبعي لليعازات اعتقد انها ناقصة وهذا واضح من صورة ( برنامج ب refox ) لانه ديمو اتمنى رفع برنامج ( refox المسجل) وليس التجريبي لمعرفة كل الايعازات
  16. ************************ اشكرك اخي العزيز اسد العراق على المجهود والمعلومات القيمة واعتذر في التأخير في الرد واتمنى ان تتحملني شوي اكثر لاني عندي بعض الملاحظات على الموضوع وهيه 1 - اخذ ابعاد الشاشة الحالية عند تشغيل النظام 2 - مقارنةابعاد الشاشة الحالية مع الابعاد التي انا اريدها (اي ابعاد انا اختارها لاتكون ثابتة) 3 - اذا كانت ابعاد الشاشة تشابهة الابعاد التي انا حدتها فلا نفعل شي واذا كانت مختلفة نغير ابعاد الشاشة حسب الابعاد الجديد 4 - عند الخروج نعيد ابعاد الشاشة الاصلية كما كانت قبل الدخول. وارجو ان لاكون قد اثقلت عليك في الاسئلة علماً اني قد اشتركت حديثا في المنتدى لاني لقيت المنتدى يحتوي على معلومات قيمة واشخاص لايبخلون في المعلومة وتبادل الخبرات من خلال مشاهدتي لصفحات المنتدى امثال اسد العراق وشادو . واتمنى ان تكون مشاركاتي القادمة اكثر فعالية وفائدة للمنتدى
  17. ********* اشكرك اخي على الرد انا اريد تغير ابعاد الشاشة للوندوز وليس للبرنامج لان تواجهين مشكلة وهية على سبيل المثال عند تصميم برنامج في حاسبة ابعادها1024*1280 وعند نقل البرانمج الى حاسبة اخرى ابعادها اكبر مثل 600*800 تنفقد جزء من التكسات او ازرار الاوامر بسبب كبر الشاشة اتمنى ان اكون وضحت الفكرة وهذا الطريقة في الفجول بيسك وجدتها في النت استخدمتها في احد البرامج ونجحت ولم استطيع تطبيقها في الفجو فوكس Option Explicit Const CCDEVICENAME = 32 Const CCFORMNAME = 32 Const DM_PELSWIDTH = &H80000 Const DM_PELSHEIGHT = &H100000 Const CDS_UPDATEREGISTRY = &H1 Const CDS_TEST = &H2 Const CDS_FULLSCREEN = &H4 Const DISP_CHANGE_SUCCESSFUL = 0 Const DISP_CHANGE_RESTART = 1 Const HWND_BROADCAST = &HFFFF& Const WM_DISPLAYCHANGE = &H7E& Const SPI_SETNONCLIENTMETRICS = 42 Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type 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 Dim f1_lo$, f1_hi$, f1_hg$ Dim aaa As String * 1 Dim bbb As String * 40 Dim f2_lo$, f2_hi$, f2_hg$ Dim f3_lo$, f3_hi$, f3_hg$ Dim zzz As Integer Dim nn_lo_f3 As Integer Dim nn_hi_f3 As Integer Dim nn_hg_f3 As Integer Dim ixlll As Long Public ButtonsAndIcon As Long Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Global part1_running As Integer Global Const SND_SYNC = &H0 Global Const SND_ASYNC = &H1 Global Const SND_NODEFAULT = &H2 Global Const SND_LOOP = &H8 Global Const SND_NOSTOP = &H10 Dim rx% Dim wFlags% Public picno As Integer Global iWidth As Long, iHeight As Long Global Resolution As Boolean Declare Function _ BitBlt Lib "gdi32" _ (ByVal hDestDC As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal xSrc As Long, _ ByVal ySrc As Long, _ ByVal dwRop As Long) As Long Sub s_play(SoundFile As String) On Error Resume Next wFlags% = SND_ASYNC rx% = sndPlaySound(SoundFile$, wFlags%) End Sub Sub Main() iWidth = Screen.Width \ Screen.TwipsPerPixelX iHeight = Screen.Height \ Screen.TwipsPerPixelY If iWidth <> 1024 Or iHeight <> 768 Then Call ChangeRes(1024, 768) Resolution = True Else Resolution = False End If 'game.Show End Sub Public Sub ChangeRes(X As Long, Y As Long) Dim DevM As DEVMODE Dim lResult As Long Dim iAns As Integer lResult = EnumDisplaySettings(0, 0, DevM) With DevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = X .dmPelsHeight = Y End With lResult = ChangeDisplaySettings(DevM, CDS_FULLSCREEN) Select Case lResult Case DISP_CHANGE_RESTART Case DISP_CHANGE_SUCCESSFUL Call ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) Call SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, ByVal 0&) Case Else End Select End Sub