سورس برنامه نویسی ، آموزش ، قالب وردپرس ، اسکریپت ، گرافیک ، آموزش کاربردی، دانلود رایگان ، قالب

تبليغات شما در داده باران
تبلیغات در داده باران

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۱

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۱Reviewed by داده باران on Oct 2Rating:

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید

تعداد مشخص اجرا

شرح برنامه : می خواهیم برنامه ای بنویسیم که دارای تعداد مشخص اجرا باشد . یعنی کاربر فقط بتواند پنج بار این برنامه را اجرا کند و در هر بار اجرای آن پیغامی مبنی بر تعداد باقیمانده دفعات اجرا برای کاربر نمایش داده شود و هنگامی که این تعداد به پایان رسید پیغامی نمایش داده شود که دیگر کاربر نمی تواند این برنامه را اجرا نماید . مانند برنامه هایی که دارای قفل یا به اصطلاح رجیستری هستند .

_ برای این کار شما فقط کافی است کدهای زیر را در Form_Load برنامه خود قرار دهید :

Private Sub Form_Load()
Dim RunCount As String
RunCount = GetSetting(“Test”, “Setting”, “RunCount”)
If Val(RunCount) > 5 Then
MsgBox “مهلت اجرای این برنامه به پایان رسیده است”, vbOKOnly, “”
End
Else
MsgBox “شما فقط” & (Str(4 – Val(RunCount)) & ” بار دیگر میتوانید از آن استفاده کنید” & “”), vbOKOnly + vbInformation, “”
SaveSetting “Test”, “Setting”, “RunCount”, Str(Val(RunCount) + 1)
End If
End Sub

حال فایل exe از برنامه خود بسازید و آن را اجرا نمایید

حتما بخوانید  دانلود سورس نمایش سورس یک وبسایت و ذخیره آن روی کامپیوتر
لينك كوتاه اين مطلب : http://www.dadebaran.ir/?p=603

رمز فايل : DADEBARAN.IR




تبلیغات در داده باران
ارسال دیدگاه

قبل از نوشتن دیدگاه به نکات زیر توجه کنید:
    » نظراتی که با تایپ فارسی نباشند تایید نخواهند شد
    » نظرات تبلیغاتی اسپم محسوب میشوند و IP شخص مسدود خواهد شد.

پاسخ دهید

نکته: نظر شما در انتظار بررسی است و پس از تایید مدیریت در سایت نمایش داده میشود..