YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود لجعل البرنامج نسخه تجريبيه

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim GD As String
        Dim retvalue As Object
        retvalue = GetSetting("A", "0", "Runcount")
        GD = CStr(Val(retvalue) + 1)
        SaveSetting("A", "0", "RunCount", GD)
        If CDbl(GD) > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
            MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
            Me.Close()
        End If
    End Sub
End Class

 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع