/ در آموزش ویژوالبیسیک, اشتراک رایگان, ویژوالبیسیک / توسط
آخرین زمان ویرایش:

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

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

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

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

_ برای این کار شما فقط کافی است کدهای زیر را در 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 از برنامه خود بسازید و آن را اجرا نمایید

نوشته های مشابه

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

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

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

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

 ممبر تضمینی تلگرام کانال تلگرام داده باران شارژ آنلاین

نظری بدهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

یک × یک =