CREARE PROGRAMMA A GIORNI TRIAL




cliccare my project > settings> primo nome normalmente con exdate(Date)(User), 2° registred(boolean);(USer) ( false)

sul form1.load:  label3.text= DateTime.Now
my.settings.exdate = datetime.now.addsecond(30)  <---- Variabile
label4.text= my.settings.exdate
if datetime.now > my.settings.exdate then
form2.show '( messaggio trial finito)
end sub
public sub resfreshtime
label3.text= datetime.now

aggiungere timer: enable= true interval= 100
dentro timer: resfreshtime

aggiungere form x imputbox
aggiungere bottone
dim serial as string
serial = imputbox("Enter Serial", "Serial", "NUMERO SERIALE", , )
my.settings.registred= = true
form2.show
me.close

andare su my project, applicazion, ultima lst box scegliere 2a voce


PER SALVARE, CIOè APRIRE SENZA OGNI VOLTA METTERE SERIALE, METTERE QUESTO CODICE  NEL FORUM1.LOAD
if my.settings.registred= true then
form2.show
me.close
end if
label3.text= datetime.now
if my.settings.exdate = nothing then
my settings.exdate= DateTime.Now.addseconds(30)