الاخوه الاعزاء
اننى قمت بعمل برنامج لمعرفة كلمة السر لاكسس 97 ولكن واجهتنى مشكله عند التطبيق فعند فتح قاعدة بيانات تاتى كلمة السر وعند فتح قاعدة بيانات جديدة تاتى كلمة السر الجديدة والسابقه معا وهكذا الى مالانهايه
ارجوا من سيادتكم المساعدة فى ايجاد كود يقوم بمسح كلمه السر القديمة بمجرد فتح قاعدة بيانات جديدة وتظهر كلمة السر الجديدة فقط
ومرفق البرنامج للتجربة والتوضبح
الاخواء الاعزاء اسف لاننى لااعرف كيفية وضع البرنامج بالمنتى
برجاء افادنى عن الكود وكيفيه وضع البرنامج
مع الشكر
الأخ الكريم يمكنك ارفاق المشروع عن طريق الضغط على Browse و اختيار الملف و ذلك أثناء كتابه الرد
فوق زر (أضف مشاركة)
ستجد
مرفقات ملف
ربما أرفقت ملف بهذه المشاركة.
حجم الملف الأعظمي : 500k
من هنا يمكنك ارفاق ملف
اما بالنسبه للمشكلة فلا يستطيع احد اجابتك لان السؤال مبهم و غير مفهوم ولا يتضح الا برؤية المشروع :blink:
ارفقه و ان شاء الله اجاوبك
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
الاخ الفاضل/ احمد
اشكرك على الرد
ولكن ما اريد ارفاقه هو برنامج EXE , وقمت بعمل استعراض ولكن البرنامج لايظهر معى
فهل من طريقة لارفاق البرنامج وليس الملف
مع الشكر
اضغطه ب winzip
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
الاخ الفاضل
ضغطت البرنامج ولكن عند فتح استعراض لاتظهر الا الملفات فقط ولايظهر البرنامج المضغوط وجرب بنفسك
ابعتهولى على الايميل و انا ارفعه على المنتدى
midoalx@hotmail.com
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
الاخ الفاض
ارسلت لسيادتك البرنامج على الاميل
وارجوا توضيح الكود المطلوب اذا امكن مع الشكر
هذا البرنامج تم رفعه للمنتدى
لكن سيدى الفاضل لا يمكن اكتشاف الخطأ دون قراءه الكود للاسف .. لاننى لا اعرف مااذا كتبت ليجعل البرنامج هكذا (h)
حاول وضع جزء الكود الخاص بالزر
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
الاخ الفاضل
اسف جدا على الازعاج ولكنى مبيدا فى البرمجه واريد التعلم من سيادتكم
وهذا هو الكود الخاص بزر الامرPrivate Sub Command2_Click ()
zChar = CommonDialog1.FileTitle
mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)
Open zChar For Binary As #1
Seek #1, &H42
For n = 1 To 14
s1 = Mid(mask, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
End If
Next
Close 1
Text2 = lsClave & " كلمة السر هى"
Dim choice As Integer
choice = MsgBox(" هل ترغب فى الخروج من البرنامج ؟", vbYesNo, (" ( انهاء البرنامج)"))
If choice = vbYes Then
End
ElseIf choice = vbNo Then
Text1.Text = ""
Text2.Text = ""
End If
End Sub
-09
الاخ العزيز
اعتقد و الله أعلم ان المشكلة عندك فى هذا السطر :
Text2 = lsClave & " كلمة السر هى"
حيث كما قلت :
اقتباسفعند فتح قاعدة بيانات تاتى كلمة السر وعند فتح قاعدة بيانات جديدة تاتى كلمة السر الجديدة والسابقه معا وهكذا الى مالانهايه
و يمكن ان يكون الحل كالاتى :
ان تقم بأفراغ القيم بالنسبة للـ text2 و lsClave
text2.text=""
lsClave =""
و يمكن ان تضع الاتى قبل البدا فى التعامل مع الكود
و الله أعلم
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
شكرا لك يا اخى الفاضل فقد قمت بعمل المطلوب كما قلت لى وظبط البرنامج
-09
اخى العزيز
لا شكر على واجب و ارجوا ان أكون وفق
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…