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

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

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

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

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

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

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

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

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

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

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

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

نظری بدهید

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

4 × 3 =