هم اکنون نیازمند یاری سبزتان هستم

[Ghoghnus]

ممنون از راهنمایی ها و کمکهاتون اما ای کاش اول فایل رو دانلود میکردی
اونوقت نمیپرسیدی " پسورد کجا ؟"

"مگه میشه ادم برنامه کافی نت بنویسه و نتونه............."
آره چرا نشه من که گفتم تازه کارم و اینو خودم تنهایی نوشتم

سلام
فرم logon را باز کنید بعد روی دکمه دابل کلیلک کنید دستورات نمایش داده میشود!

کد:

If Textpassword.Text = "TEST" And use.Text = "TEST" Then
LIST.Show
logon.Hide
Else: L1.Visible = True
End If

حالا مقدار "TEST" را عوض کنید!

کد:

If Textpassword.Text = "پسورد جدید" And use.Text = "نام کاربری جدید" Then
LIST.Show
logon.Hide
Else: L1.Visible = True
End If

البته برنامه شما دوتا اشکال داره!اول اینکه پسورد باید از دیتابیس یا فایل خوانده شود تا امکان ویرایش زمان اجرا پیدا کنید!دوم اینکه نیاز نیست برای هر سیستم یک فرم طراحی بشه!یکی طراحی کنید و شی ازش بسازید و باز کنید!

موفق باشید!

[farzadavr]

ممنون از راهنمایی ها و کمکهاتون اما ای کاش اول فایل رو دانلود میکردی
اونوقت نمیپرسیدی " پسورد کجا ؟"

"مگه میشه ادم برنامه کافی نت بنویسه و نتونه............."
آره چرا نشه من که گفتم تازه کارم و اینو خودم تنهایی نوشتم

سلام
فرم logon را باز کنید بعد روی دکمه دابل کلیلک کنید دستورات نمایش داده میشود!

کد:

If Textpassword.Text = "TEST" And use.Text = "TEST" Then
LIST.Show
logon.Hide
Else: L1.Visible = True
End If

حالا مقدار "TEST" را عوض کنید!

کد:

If Textpassword.Text = "پسورد جدید" And use.Text = "نام کاربری جدید" Then
LIST.Show
logon.Hide
Else: L1.Visible = True
End If

البته برنامه شما دوتا اشکال داره!اول اینکه پسورد باید از دیتابیس یا فایل خوانده شود تا امکان ویرایش زمان اجرا پیدا کنید!دوم اینکه نیاز نیست برای هر سیستم یک فرم طراحی بشه!یکی طراحی کنید و شی ازش بسازید و باز کنید!

موفق باشید!

اول : ممنون که اشتباهاتم رو گوشزد کردین
دوم : همون طور که قبلا هم گفتم من هنوز حتی کار با وی بی رو بلد نیستم چه برسه به دیتا بیس پس به بزرگی خودتون ببخشید
سوم : "اینکه نیاز نیست برای هر سیستم یک فرم طراحی بشه!یکی طراحی کنید و شی ازش بسازید و باز کنید!" چطور باید این کار رو بکنم با عرض شرمندگی این اولین مدلی بود که به ذهنم رسید

با تشکر

[Ghoghnus]

اول : ممنون که اشتباهاتم رو گوشزد کردین
دوم : همون طور که قبلا هم گفتم من هنوز حتی کار با وی بی رو بلد نیستم چه برسه به دیتا بیس پس به بزرگی خودتون ببخشید
سوم : "اینکه نیاز نیست برای هر سیستم یک فرم طراحی بشه!یکی طراحی کنید و شی ازش بسازید و باز کنید!" چطور باید این کار رو بکنم با عرض شرمندگی این اولین مدلی بود که به ذهنم رسید

من پیشنهاد دادم و گوش زد کردم که برید و یاد بگیرید!

کد:

Dim f As New Form2
f.Show

[farzadavr]

با سلام خدمت شما دوستان عزیز
DI DI جان سوالاتی داشتم که اگه جواب بدین ممنون میشم
" ابتدا مقدار تایمر سیستم رو در متغیرمون ذخیره می کنیم . تایمر سیستم یه تابع داخلی هست که ساعت کامپیوتر رو به ثانیه نمایش می ده . مثلا ساعت 1 بامداد میشه 3600 ثانیه"
این همون متنی هست که خودت نوشتی
منظورت چیه ؟ یعنی تایمر ثانیه هایی رو که میشماره با ساعت سیستم همزمان می کنه ؟ " مثلا ساعت 1 بامداد میشه 3600 ثانیه" یعنی چی ؟

TimerDelay = Timer""
کار این دستور چیه ؟

اگه اشتباه گفتم بهم بگین
Label1.Caption = Time ساعت سیستم رو نشون میده
Label2.Caption = Round(Timer - TimerDelay, 2) این تایمر ثانیه شمار با صدم ثانیه : اما اگه لطف کنین و این قسمت رو Round(Timer - TimerDelay, 2 بیشتر باز کنید ر توضیح بدین ممنون می شم
Label3.Caption = Fix(Timer - TimerDelay) اینم مثل قبلی اما بدون صدم ثانیه لطفا اینم بیشتر توضیح بدین
Label4.Caption = Timer اینو نمیدونم پس لطفا حسابی توضیح بدین
ممنون

با سلام خدمت برادر عزیز " Ghoghnus"
راستش من دیروز وقت نکردم راهی که شما برای عوض کردن پسورد گفتید رو خوب بخونم الان تازه خوندم
منظور من از عوض کردن پسورد این نیست که منه برنامه نویس عوضش کنم اون دوستم که این برنامه رو بهش میدم به عنوان کاربر چطور میتونه این پسورد رو عوض کنه اگه میخواستم TEST رو عوض کنم اونو که خودم گذاشته بودم
ممنون

با تشکر

[Ghoghnus]

با سلام خدمت برادر عزیز " Ghoghnus"
راستش من دیروز وقت نکردم راهی که شما برای عوض کردن پسورد گفتید رو خوب بخونم الان تازه خوندم
منظور من از عوض کردن پسورد این نیست که منه برنامه نویس عوضش کنم اون دوستم که این برنامه رو بهش میدم به عنوان کاربر چطور میتونه این پسورد رو عوض کنه اگه میخواستم TEST رو عوض کنم اونو که خودم گذاشته بودم
ممنون

با تشکر

سلام
خب برای اینکه کاربرزمان اجرا بتونه عوض کنه (همانطور که قبلا گفته بودم)باید از فایل یا دیتابیس بخونه پسورد را!برای کار کردن با فایل و یا دیتابیس توی نت مطلب فراوان هست اگر نتونستید تا نمونه کد درست کنم واستون!

موفق باشید

[Di Di]

با سلام خدمت شما دوستان عزیز
DI DI جان سوالاتی داشتم که اگه جواب بدین ممنون میشم
" ابتدا مقدار تایمر سیستم رو در متغیرمون ذخیره می کنیم . تایمر سیستم یه تابع داخلی هست که ساعت کامپیوتر رو به ثانیه نمایش می ده . مثلا ساعت 1 بامداد میشه 3600 ثانیه"
این همون متنی هست که خودت نوشتی
منظورت چیه ؟ یعنی تایمر ثانیه هایی رو که میشماره با ساعت سیستم همزمان می کنه ؟ " مثلا ساعت 1 بامداد میشه 3600 ثانیه" یعنی چی ؟

TimerDelay = Timer""
کار این دستور چیه ؟

اگه اشتباه گفتم بهم بگین
Label1.Caption = Time ساعت سیستم رو نشون میده
Label2.Caption = Round(Timer - TimerDelay, 2) این تایمر ثانیه شمار با صدم ثانیه : اما اگه لطف کنین و این قسمت رو Round(Timer - TimerDelay, 2 بیشتر باز کنید ر توضیح بدین ممنون می شم
Label3.Caption = Fix(Timer - TimerDelay) اینم مثل قبلی اما بدون صدم ثانیه لطفا اینم بیشتر توضیح بدین
Label4.Caption = Timer اینو نمیدونم پس لطفا حسابی توضیح بدین
ممنون

سلام

درو اقع خود ساعت سيستم هم داره از Timer استفاده مي كنه، يعني عدد تايمر رو مي خونه و ثانيه ها رو تقسيم بر 3600

مي كنه تا ساعت بدست بياد و بعد باقيمانده تقسيم رو بر 60 تقسيم مي كنه تا دقيقه بدست بياد و مابقي رو به عنوان ثانيه

نمايش مي ده و اين كار رو در هر ثانيه بارها انجام مي ده

TimerDelay‌اسم يه متغيير هست كه من به دلخواه خودم تعريف كردم و شما مي توني هر اسم ديگه اي براش انتخاب كني

با دستور TimerDelay = Timer من مقدار تايمر رو داخل متغيرم ذخيره مي كنم .

خوب فرض كن الان ساعت يك بامداد هست ،‌پس عدد تايمر بايد چيزي شبيه به اين باشه 3600.15632963 اعداد بعد از مميز

هم نمايش دهنده دقت تايمر هست.

خوب حالا اگر 5 ثانيه بگذره عدد Timer = 3605.53626875 كه اگر اين عدد رو از عدد ذخيره شده در DelayTimer كم كنيم

مي شه : 5.37993912 ، خوب اين عدد همينطور كه به درد نمايش دادن نمي خوره كه،‌ ما ممكنه فقط تا صدم ثانيه رو بخوايم

براي همين از تابع Round استفاده مي كنيم، اين تابع اعداد رو تا هر چند رقم اعشار كه بخوايم نمايش مي ده

Round (5.37993912 , 2 ) = 5.37

عدد 2 تعيين مي كنه تا چند رقم اعشار مي خواهيد نمايش داده شود

FIx (5.37993912) = 5 اين تابع هم عدد رو بدون اعشار رند مي كنه، به اين صورت كه فقط قسمت صحيح عدد رو نمايش مي ده

[farzadavr]

سلام

ممنون

یه سوال دیگه اگه بخوام این نرنامه رو آماده کنم یا به به کس دیگه ای بدم (بدون وی بی)
باید چیکار کنم ؟؟؟؟

[Ghoghnus]

سلام

ممنون

یه سوال دیگه اگه بخوام این نرنامه رو آماده کنم یا به به کس دیگه ای بدم (بدون وی بی)
باید چیکار کنم ؟؟؟؟

سلام
واسش ستاپ بسازید و ستاپ را در اختیار دیگران قرار بدین!


آموزش ساخت ستاپ برای برنامه