الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حفظ وتعديل كلمة المرور فى ملف

مغلق
بدأه sally.ksa في 28 ديسمبر 2007 · 15 رد · 1,134 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي بروجكت تسليمه 29 ديسمبر 2007 يعني يوم السبت

الله يخليكم احتاج مسااعده

Final project

Use sequential file to save password and change it then save the new password

In form 1: welcome massage appear in the form and two commands one to continue to other form and the other to exit from the program

Form 2: must have a place to enter the user password. Then he can click on OK button. If the password is correct then he can go to form4, if he enter incorrect password, a message must appear tell the user that the password not correct and he have to try again.

and the user can change his password by click on other button, if he enter correct password then he can move to form3 to change his password, and a massage must appear if he enter incorrect password tell him that the password incorrect and he have to try again. And other button to exit from the program.

form3: the form must have place to enter the new password and other to confirm the password. If he clicks on OK button, massage must appear to tell the user that the password changed correctly and move him to form2. If he didn't change the password correctly, massage must appear "different password, try again".

Form 4: Add an image as a logo to the company, and vertical and horizontal scroll bar. Show the word Visual Basic on label which the user can change its color and any thing related to font by using common dialog.

progress.gif
#2

إذا قمنا بتصميم كل هذا لك فما الذي ستفعله أنت ؟

هل كل ما ستقوم به في المشروع هو تسليم المشروع ؟ ههههههههه

ابدأ بتنفيذ المشروع بنفسك وإذا استعصى عليك أمر اسأل فيه لكن لا تطلب من أحد أن يقوم بتنفيذ المشروع كله لك

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#3

:(

يعني ما حتساعدني

انا سويت كل الفورمات

عندي مشكله في فورم 2

وفورم 3

وهوا طريقة حفظ وتغيير الباسوورد ب ال sequential file فقط

#4

لا تؤاخذني اخي العزيز

انا نسخت الكلام كله عشان بس اسهل عليكم واخليكم بالصورة

ليس الا

اكرر اسفي

:) :) :) :)

#5

هل يمكن أن تكتب كود الفورم 2 والفورم 3 وتحدد ما هي المشكلة بالضبط

وأنا إن شاء الله سوف أساعدك

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#6

انا حاولت اكتبه ولا اشتغل

سويت sequential file

وحاولت استخدم الاف ستيتمنت

زي كذا

private sup command1_click()

dim pass1 as sting

open "I:\filename6.text" for output as #1

write #1, "1234"

close #1

end sub

هذا عشان احفظ الباسوورد form2

.....................

dim pass as string

if Dir ("I:\filename6.txt")<> "1234" then

open "I:\filename6.txt" for Input as #2

...

close #2

msgbox "password changed correctly "

form2.show

upload me

else

msgbox "different password, try again"

end if

end sub

....................

طبعا هذيمحاولة من محاولات عديدة

وجميعها بائت بالفشل :(

استاذي بالجامعه اعطاني البروجكت بعد محاظرة ال sequential file مباشرة

وانا لسى مو مستوعبتها كويس

يا ليت تساعدني

ولك من الف الشكر والتقدير

#7

الجزء الاول form 2

والتاني form3

#8

Try this code

Private Sub Command1_Click()

Open "c:\password" For Random As #1

Get #1, , password$

Close #1

If (Text1.Text = password$) Then

Form3.Show

Form2.Hide

Else

Text1.Text = ""

MsgBox "Password incorrect try again"

End If

End Sub

you should make textbox to enter the password in

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#9

اكيد حيشتغل الكود اللي كتبته

بس انا ابغى بطريقة ال sequential file

اعتقد لازم تكون فيه قاعدة بيانات

ما ادري اذا عندك فكره

#10

and this code for form load

Private Sub Form_Load()

Open "c:\password" For Random As #1

Get #1, , password$

If (password$ = "") Then Put #1, , "1234"

Close #1

End Sub

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#11

Open "c:\password" For Random As #1

For Random ما اخذتها :S

اخذت

For output

For append

For Input

حيسألني الدكتور كيف جبتها

الا اخذتها :unsure:

sorry

لا ما اخذتها

مررره سوري

:blink:

#12

try this

Private Sub Command1_Click()

Open "c:\password" For Input As #1

Input #1, password$

Close #1

If (Text1.Text = password$) Then

Form3.Show

Form2.Hide

Else

Text1.Text = ""

Label2.Caption = "Password incorrect try again"

End If

End Sub

Private Sub Form_Load()

If Dir("c:\password") = "" Then

Open "c:\password" For Output As #1

Write #1, "1234"

Close #1

End If

End Sub

تم تعديل هذه المشاركة بواسطة باسم الموجي في 28 ديسمبر 2007 في 12:04

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#13

ما اشتغل معايا

يقللي

file not found

غيرت الباث وخليته ع اليو اس بي

وبرضه

#14

لقد كتبت في البداية

If Dir("c:\password") = "0"

لإختبار ما إذا كان الملف غير موجود وهذا خطأ الصواب

If Dir("c:\password") = ""

من أقوال الأئمة

الإمام علي بن أبي طالب -رضي الله عنه-: "الناس ثلاثة : فعالم رباني ، ومتعلم على سبيل النجاة ، وهمج رِعاع غوغاء أتباع كل ناعق ، يميلون مع كل ريح ، لم يستضيئوا بنور العلم ، ولم يلجئوا إلى ركن وثيق".

الإمام مالك -رحمه الله- : " لن يصلح آخر هذه الأمة إلا بما أصلح به أولها ".

الإمام الأوزاعي -رحمه الله- : " عليك بآثار من سلف وإن رفضك الناس وإياك وآراء الرجال وإن زخرفوه لك بالقول ".

الإمام الفضيل بن عياض -رحمه الله- : " عليك بطرق الهدى و لا يضرك قلة السالكين و إياك و طرق الضلالة ولا يغرك كثرة الهالكين ".

علامة الزمان الإمام الألباني -رحمه الله- : " إن الخلاص إلى أيدي هؤلاء الشباب يتمثل في أمرين لا ثالث لهما ؛ التصفية والتربية ".

وكل خير في اتباع من سلف وكل شر في ابتداع من خلف

#15

اشتغل معايا :clapping:

هذا form2 اشتغل

تسلملي والله

.....

يجي form3

وتغير كلمة المرور

#16

بلييييز يا جماعة

احد يكمل معايا :(

هذا الموضوع مغلق.

مواضيع مشابهة