برنامج VBCODE
شكرا مرة اخرى لادارة المنتدى لحذفهم الملف الذى قد نوهت عنة
شكرا لكم
تحياتى,,,
:D
وَقُل رَّبِّ زِدْنِي عِلْماً
بارك الله فيك
فهو كود جميل من اخ كريم
ولكن كيف عرض الجمل بالتتالى (بدون الضغط على التالى) ؟
وشكرا لك.....،
الظاهر ان المصريين بيحنو لبعض
اخى الكريم محمود على بالنيبة للبرنامج عند كل تشغيل يظهرلك معلومة مختلفة
ولكنى وضعت زر التالى لكى تعرف عدد المعلومات المسجلة بالملف
يوجد مع البرنامج ملف تكست تستطيع ان تكتب بة ما تشاء وكل ما هو مكتوب بهذا الملف يتم عرضة بالبرنامج فى كل مرة تشغل فيها البرنامج ولكن بصورة عشوائية
تحياتى,,,
:cool:
وَقُل رَّبِّ زِدْنِي عِلْماً
بسم الله الرحمن الرحيم
اخي عرفه نقف كلنا عاجزين عن شكر مجهوداتك الثمينه
ولو اني بمسخها شوي
عن البرنامج الثاني
عند فتحه يرسل الانذار التالي FILE IS MISSING OR NOT REGISTERED
اخى العزيز erxmms
هل ممكن ان توضح لى اسم البرنامج بالظبط الذى ظهرت بة هذة الرسالة
تحياتى’’’
ارجو ان ترد على بسرعة نظرا لسفرى الضرورى
وَقُل رَّبِّ زِدْنِي عِلْماً
برجاء اخى الكريم توضيح اسم البرنامج الذى ظهر لك فية هذا الخطأ
ارجو الاسراع فى الرد لمعالجة ذلك إن كان هناك خطأ بالبرنامج
انا موجود
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
اخى الكريم عرفة
جزاك الله كل خير ولى طلب بسيط ورخم حبتين :D
كنت اريد كود عمل نسخة احتياطية من قاعدة البيانات واسترجاعها من فضلك
لاننى اريده بشدة
وجزاك الله خيرا
وَقُل رَّبِّ زِدْنِي عِلْماً
اخى الكريم osos.bg
هذا مثال من الاخ سمير يوضح كيفية عمل نسخة احتياطية لقاعدة البيانات وكيفية استرجاعها
ارجو انا اكون وفيت بطلبك
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
اخى عرفة
جزاك الله خيرا ولى سؤال اخر
بالنسبة لكود الذى يجعل البرنامج فترة مؤقته 30 يوم فى الكود رقم 54 هل اضع مؤقت ام لا؟
وما هى الخطوات بالضبط
وجزاك الله خيرا
أشكر اخي عرفة الله قدرك ونفع الله المنتدى بعلمك با الأعضاء الأخرين وإدارة المنتدى والمشرفين شكرااااااااااااااااااااااااااااااااااا
اقتباسكاتب الرسالة الأصلية : osos.bgاخى عرفة
جزاك الله خيرا ولى سؤال اخر
بالنسبة لكود الذى يجعل البرنامج فترة مؤقته 30 يوم فى الكود رقم 54 هل اضع مؤقت ام لا؟
وما هى الخطوات بالضبط
وجزاك الله خيرا
ضع الكود فى حدث التحميل للفورم هكذا:
Private Sub Form_Load()
Dim startdate As String
Dim differenceofdate
Dim TRACEDATE As String
Dim newdate
Dim chk
If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1"
ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then
MsgBox "شكراً لستخدامك هذا البرنامج " & Chr(10) + Chr(1) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك "
End
Else
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "")
chk = DateDiff("d", CDate(TRACEDATE), Now)
If chk < 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED.
MsgBox "لم يتم العثور على تاريخ النظام لديك !! " & Chr(10) + Chr(13) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود"
End
Else
startdate = GetSetting(App.Title, "Startup", "Started", "")
differenceofdate = DateDiff("d", startdate, Now)
If differenceofdate <> 0 Then
lblcnt.Caption = differenceofdate + 1
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
End If
If differenceofdate = 0 Then
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
End If
End If
End If
End Sub
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
جزيت خيرا(gift)
مثال يوضح كيفية تشفير ملف صوتى او ملف فيديو ويتم تشفير منطقة تعريف الملف وهى منطقة مهمة جدا حيث انة لايمكن تشغيل الملف اذا قمت بتغير تعريف الملف
اليكم البرنامج
وَقُل رَّبِّ زِدْنِي عِلْماً
:(
ارجو منكم ابداء ارائكم فى برامجى التى قدمتها لكم
حتى الان قدمت لكم حوالى اربعة برامج تقريبا ولم اسمع منكم
رأيكم فى هذة البرامج هل هى جيدة ام لا لان رأيكم يهمنى جدا
وسيترتب علية اشياء كثيرة
كنت اتمنى ان اضع تصويت ولكن تقريبا المنتدى مانع ذلك
على العموم انا فى انتظار أرائكم
ولكم منى الف تحية,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
وَقُل رَّبِّ زِدْنِي عِلْماً
جزاك الله خيرا يا أخي العزيز
كم استفدت من مشاركتك هذه
مواطن مصري مقيم بالمملكه السعودية
محمد جامع
الأخ عرفه
أريد أن أسئل سؤلا
هل أستطيع أن أعمل password صوتيه في vb عل سبيل المثال بدل كلمة المرور أن تكون كلمة تكون جمله صوتيه أو صوره معيته
وكذلك هل يمكن أن يقوم الحاسب بمقارنة صورتين بعضهما البعض كـأن تكون الصوره pasword
إن استطعت في كتابة كود يون جزاك الله خيرا ويكون هدية العيد منك لي
وكل عام وأنت بخير
نلتقي على صعيد عرفات إن شاء الله ;)
السلام عليكم ورحمة الله وبركاتة
اخى الكريم محمد جامع اهلا بك وكل عام وانت بخير والامة الاسلامية جميعا بخير
سؤالك هذا جميل جدا ولكنى لم اجربة من قبل ولكنى سأحاول وإن توصلت لنتيجة سأخبرك
ويمكنك لو مستعجل على الاجابة طرح سؤالك بالمنتدى
هناك عمالقة بهذة اللغة الجميلة فى هذا المنتدى الجميل
يستطيعون ان يفتوك
وشكرا لك
اخوك عرفة,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
جزاك الله ألف خير على هذا البرنامج المفيد جداً جداً
ولكن لدي ملاحظة بسيطة وهي اضافية
وهي: ياليت إنك تسوي زر أوامر يحتوي على كود لنسخ الكود الموجود في التكست وياليت إنك تحط تحديث له على هذا المنتدى بمشاركاتك الحلوة
بالعلم والإيمان نبني أمتنا ونعيد عزتنا
السلام عليكم
اخى الكريم عاشق الجنان
انا بالفعل احدث البرنامج ولو عمل رجوع للصفحة السابقة ستجد الاصدار الثانى من البرنامج بعد التحديث
وهذا رابط تحميل النسخة الاخيرة
http://www.arabteam2000.com/vb/attachment....s=&postid=94450
تحياتى
وَقُل رَّبِّ زِدْنِي عِلْماً
أخي عرفة جزاك الله كل خير وبلغك الله منازل الشهداء...
لي سؤال حول الكود رقم 30 والذي أسميته أنت:
"ما عليك إلا استخدام هذا الكود البسيط"
فماذا يعمل هذا الكود وكيف نستخدمه؟؟؟
طبعاً أتكلم عن برنامج vbcode
وجزاك الله كل خير
وسؤال ثاني لو سمحت...
هل يمكن أن أجعل أداة النص TextBox لها خاصية الإكمال التلقائي؟؟؟
مثل الموجود في الإكسبورر؟؟
يعني لو كتبت اليوم كلمة وغداً أردت أن أكتب كلمة مشابهة فأول ما أكتب أول حرف يكمل لي الباقي, هل ذلك ممكناً بدون استخدام List Box ؟
هذا الموضوع مغلق.