درخواست کمک در برنامه نویسی ویژوال بیسیک آقا فقط 2 روز وقت دارم

[Ship Storm]

یه برنامه هست اگه تونستید کمکم کنید دستتون دردنکنه:
اول از این لینک بگیریدش حجمش خیلی کمه 11 کیلوبایته:
کد:
http://www.2shared.com/file/2697209/80b1fb11/111.html
این برنامه تو فرم 1 وقتی دکمه چک رو میزنی که یوز نیم و پسورد رو چک کنهاین عمل رو انجام میده ولی یه جاش ایراد داره که یوزر نیم رو وقتی پیدا کرد با پسورد های یوزر نیم های دیگه هم ویتونه وارد بشه.
مشکل دوم هم در فرم 2 هستش زمانی که میخواهیم پسورد قدیمی رو عوض کنیم و جدید رو ثبت کنیم دیتا بیس خوب کار نمیکنه پسورد رو ثبت میکنه تو دیتا بیسمون ولی تو فرم 1 که میخواهیم ورود رو انجام بدیمعمل ورود انجام نمیگیره.این برنامه به خوبی کار میکرد فقط زمانی که اومدیم عضو گیری رو بصورت نامحدود کردیم خراب شدو دیگه درست کار نمیکنهمقایسه یوزر نیم و پسوردها دچار مشکل شده حذف یوزر قدیمی هم دچار مشکل شده
ممنون میشم تو این زمینه راهنماییم کنید.
با تشکر

 

[Ship Storm]

آقا یه نظر سنجی هم نوشتم هی ایراد میگیره هر کدام از عزیزان که وارد هستند تو این زمینه لطف کنند راهنمایی کنند که ایرادش کجاست
ببینید:
کد:
http://www.2shared.com/file/2698487/.../Project1.html

 

[Ship Storm]

نحوه غیر فعال کردن دکمه exitbutton در ویژوال بیسیک چجوریه دوستان دکمه های بالای فرم رو میگم ها مثلا برای Maxbuttin و SmallButton داریم که غیر فعال یا فعال بشن ولی برای exitbutton چنین رویدادی نداریم باید چکارکنیم؟
از خاصیت controlbox نمیخوام استفاده کنم چون دکمه های smallbutton رو هم حذف میکنه.

 

[Ship Storm]

برنامه نظر سنجی رو خودم بعد از 6 ساعت کار نوشتم حالا فقط مونده اون دیتا بیسه که کمکم کنید
ممنون

 

[Ship Storm]

آقا چرا کسی کمک نمیکنه یکی به داد ما برسه داره دیر میشه

 

[Khepele Sibilo]

نحوه غیر فعال کردن دکمه exitbutton در ویژوال بیسیک چجوریه دوستان دکمه های بالای فرم رو میگم ها مثلا برای Maxbuttin و SmallButton داریم که غیر فعال یا فعال بشن ولی برای exitbutton چنین رویدادی نداریم باید چکارکنیم؟
از خاصیت controlbox نمیخوام استفاده کنم چون دکمه های smallbutton رو هم حذف میکنه.

كد زير رو توو form unload بنويسين

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

 

[Khepele Sibilo]

آقا چرا کسی کمک نمیکنه یکی به داد ما برسه داره دیر میشه

كمي صبر بايد ...

ديشب تا 4 صبح روو يك چيزي كار ميكردم!‌وقت نشد اينجا هم سر بزنم،اما در كل بخش برنامه نويسي اونقدر سوت و كور شده (شايد مشكل وسط امتحانات بودنه!‌) كه من حتي هنوز دلم نيومده به C‌و DELPHI و PHP هم يه سري بزنم!!‌ اومدم جواب سوالهاي اينحا رو تكميل كنم! ديدم اونقدر سوالها قديميه كه اگه جواب بدم دعوام مي كنن
امااولا يك چند دقيقه صبر داشته باشين!

دوما من قوانين اينجا رو نمي دونم،اما معمولا توو فرومهاي ديگه تاكيد مي كنن هر سوال توو قسمت مجزا پرسيده شده! نه اينكه توو يك تاپيك چند تا سوال ...

(بشينم دانلود كنم ببينم جواب بقيه سوال ها رو مي دونم و وقت دارم يا نه )

 

[Khepele Sibilo]

برنامه دوم لينكش ناقصه

براي برنامه اول هم ببخشيد!
اين برنامه كار هم ميكنه ؟
از كجا اومده

راستش خيلي Bug ديدم! خيلي ...

از همون خط اولش كه با
If txt_find Or txt_find2 = Empty Then

شروع ميشه تا ...

 

[Ship Storm]

آقا دستت دردنکنه ممنون
فقط یه چیزی اون قسمتی که میگی خيلي Bug ديدم! اگه همون Or txt_find2 رو برداری دیگه Bug نمیده مشکل تو مقایسه بین یوزر ها هستش که دچار مشکل شده فقط توروخدا اگه میتونید درستش کنید ممنون میشم کمکم کنید

 

[Ship Storm]

اين برنامه كار هم ميكنه ؟
از كجا اومده

برنامه ها رو خودم نوشتم

برنامه دوم لينكش ناقصه

برنامه نظر سنجی رو درستش کردم الان به خوبی کار میکنه و درصد نظرات رو بخوبی بیان میکنه فقط فکر کنم 30 تا دستور IF توش کار رفته بعلاوه 27 تا متغیر اون هم برای 2 تا سوال؟
درضمن لینکش هم خراب نیست شما احتمالا لینک رو کپی کردی توی ادرس بار اینترنت اکسپلورتون شما روی لینک کلیک کنید هیچ مشکلی نداره.
فقط اون برنامه دیتا بیس مونده که اگه جواب بده دیگه کار تمومه یکی از دوستان تو فروم های دیگه برای حل مشکل این برنامه چنین گفت:

شما باید در هنگام اجرای متد FindFirst به جای استفاده از 2 شرط متوالی باید از 1 شرط کامل در 1 دستور استفاده کنید .. یعنی باید در هنگام نوشتن شرط FindFirst هم باید یوزر نیم رو گک کنید و هم پسورد رو ...

ممنون و با تشکر

 

[Khepele Sibilo]

ممنون به خاطر راهنماييتون درباره رفع ايون اشكال كه گفتم! اما من خودم 12 ساله برنامه نويسم :happy:
من هم از بيحوصلگي يكيش رو حذف كردم اما اگه خواستين به جاش :
If ((txt_find= Empty) Or (txt_find2 = Empty)) Then
بزارين
بيشتر منظورم اين بود كه وقتي خط اول برنامه اينطوري شروع مي شه،به بقيه اون هم اعتماد دارين ؟ چون من فقط الان همين يك موضوع رو رفع كردم،‌لازمه بقيه اش هم خونده بشه ؟

http://khepelesibilo.persiangig.com/vb password.rar

 

[Khepele Sibilo]

راستي،چندين ساله توو فرومهاي مختلفم! پس مطمئن باشين لينك برنامه دومتون لااقل براي من ناقص نمايش داده ميشه!

 

[Ship Storm]

آقا دستت دردنکنه یه دنیا ممنون داره جواب میده خیلی هم عالیه یکم روش کار کردم و یکم تغیرات دادم روش همه چیز به خوبی انجام میشه فقط یکجای دیگه مونده که اگه درست شه تمومه کار.
ببینید وقتی ما New Account میکنیم اکانت به خوبی ایجاد میشه ولی تو صفحه اصلی که میخواهیم وارد شیم وقتی یوزر و پسوردی رو که جدیدا ساختیم رو وارد میکنیم میگه چنین یوزری وجود نداره در صورتی که در دیتا بیس ما این یوزر درست شده و موجود هستش به محض اینکه برنامه رو میبندیم و دوباره اجرا میکنیم یوزر جدید که ساختیم کار میافته و دیگه مشکلی نداره .برای این یه تیکه اگه چاره ای پیدا کنید ممنون میشم یعنی برای شناخت یوزر جدید برنامه باید یکبار بسته بشه و دوباره اجرا بشه.
ببینید:
http://www.2shared.com/file/2705214/8b5ecfb2/111.html

 

[Khepele Sibilo]

اولا پيشنهاد ميكنم TAB INDEX كنترل هاتون رو مرتب كنين، استفاده از برنامه رو راحتتر مي كنه
دوما فقط 2 تا DATA فرم يكتون كافيه، توو بقيه فرم ها با اونها به اين شكل كار كنين
form1.Data1.Recordset.AddNew

 

[Khepele Sibilo]

يك چزي مثل اين كه ميزارم اما فقط يك قسمتش رو عوض كردم، فقط تغيير پسوورد،‌بقيه رو مثل اين درست كنين

http://khepelesibilo.persiangig.com/vb password 2.rar

 

[Ship Storm]

اقا مرتضی به دادم برس که قسمت change وقتی میخواهیم یوزر و پسورد رو عوض کنیم عوض میشه ولی یوزر و پسورد قبلی هم باقی میمونه

 

[Khepele Sibilo]

من كه گفتم توو اين برنامه فقط توو فرم اضافه كردن يوزر تغيير رو دادم، همونطور كه توو اين فرم جاي DATA روي فرم،از DATA فرم اصلي استفاده كردم،توو اين هم همينكار رو بكنين! DATA هاي روي فرمهاي ديگه رو پاك كنين و فقط با اون 2 تا كه روو فرم اصلي هست كار كنين!

 

[Ship Storm]

آقا برنامه رو نوشتم درست شدش