|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 CREATION DU VERSION SHAREWARE
 Information sur la source
 Description
je recherchais comment pouvoir définir une version shareware car je devais en faire une en exemple pour mon responsable de stage car est oui je suis stagiaires en développeur informatique. j'ai donc crée un programme qui peut compléter n'importe quel autres programmes pour le rendre limités dans le temps. pour ce faire j'utilise donc un fichier texte créer en notepad++, ou bloc notes et je me sert de sa date de création que je récupère dans mon programme et dont je fait la comparaison pour voir si elle n'est pas égale a la date du jour +365 jours. vous pourrez apercevoir également dans ce petit soft que j'utilse le concepteur de curseur intégrer a visual studio 2005 et que je l'appelle au chargement de la fenêtre principale. pondre a toute les questions ainsi qu'a toute les propositions pour pouvoir optimiser mon code désoler de ne pas mettre de zip mais mon programme fait environ 5.52 mo et donc ne peut pas paraitre sur codes sources a bientôt thiery laurent
 Source
le programme s'appelle AlerteMaj v.01:
-------------------------------------------------------------------------------------------------
Imports System.IO
Public Class Bienvenue
Dim date_confirmer As Date
'au démarage du formulaire principal
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'appel du nouveau curseur de souris
Cursor = New Cursor("Cursor1.cur")
'désactivation du bouton quitter
Me.btnquitter.Visible = False
'désactivation du bouton suivant
Me.btnsuivant.Visible = False
'instantion des paramètre de lecture des fichiers
Try
'si il existe config.xmlID est le document de référence
Dim SR As StreamReader = File.OpenText("C:\Program Files\XPSP2\AlertMaj v.O2\config.xmlID.P00000444.txt")
date_confirmer = SR.ReadLine
Catch ex As Exception
'sinon on prend config.xml comme date de référence
Dim Rs As String = File.GetCreationTime("C:\Program Files\XPSP2\AlertMaj v.O2\config.xml.P00000444.txt")
date_confirmer = Rs
End Try
'comparaison de la date du jour avec la date de création du programme
Dim Span As TimeSpan = Now - date_confirmer
'si la date de creation du programme est superieure a 0 alors
If Span.TotalDays > 0 Then
'désactivation du bouton quitter
btnquitter.Visible = False
'activation du bouton suivant
btnsuivant.Visible = True
'remplissage du label message information
Label1.Text = "Bienvenue et merci d'utiliser les programmes concues par I.D.E.E.S."
'remplissage du label date
Label2.Text = "Date d'installation du programme" & date_confirmer
'appel du formulaire
Me.Show()
End If
'si la date de création du programme est supèrieure a 365 jours alors
If Span.TotalDays > 364 Then
'incrematation du label par rapport au nombre de jour qui change constament
Label1.Text = "Fin de validiter du programme veuillez appeller I.D.E.E.S. 06.62.80.47.56"
'désactivation du bouton suivant
btnsuivant.Visible = False
'activation du bouton quitter
btnquitter.Visible = True
'lecture de la date de création du programme
Label2.Text = "Date d'installation du programme" & date_confirmer
'Appel de la fenêtre de mise a jour
Me.Show()
End If
'si l'on arrive a 30 jours de la date de fin du programme alors
If Span.TotalDays >= 330 Then
'incrematation du label par rapport au nombre de jour qui change constament
Me.Label1.Text = "Le programme arrive a expiration dans " & Span.Days - 364 & " jours " & Span.Hours & " heures et " & Span.Minutes & " minutes penser a appeller I.D.E.E.S. 06.62.80.47.56"
'désactivation du bouton quitter
Me.btnquitter.Visible = False
'activation du bouton suivant
Me.btnsuivant.Visible = True
'appel du formulaiire principal
Me.Show()
End If
'si la date de création et superieure a la date du jour alors
If Span.TotalDays < 0 Then
'appel de messagebox pour date anterieure a la date de création du programme
MessageBox.Show("Erreur date du systeme incorecte le programme va se fermer veuillez appelez l'administrateur systeme", "Erreur Fatale !!!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
'activation du bouton quitter
btnquitter.Visible = True
'désactivation du bouton suivant
btnsuivant.Visible = False
End If
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitter.Click
Environment.Exit(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuivant.Click
MessageBox.Show("et la on peut loger le programme")
Environment.Exit(0)
End Sub
End Class
 Conclusion
j'ai était tres content d'avoir un tel défit personnel car je ne suis pas le roi de la programmation et que ce programme allait m'apprendre a gérer des choses que je ne connaissait pas encore. je souhaite en tout cas remercier de tout coeur les menbres de codes sources ici présents: Kevin.Ory, mortalino, fauve, pour avoir répondu a mes questions sur le forums de codes sources et je remercie également le web master ainsi que tout les admin codes sources pour se site qui est tout simplement le site de référence des développeur thiery laurent
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
date du jour [ par lea75 ]
Bonjour à tous,J'aimerais afficher dans 3 textbox la date du jour.Une pour le jour, l'autre pour le mois et pour l'année.J'ai mis dans une variable la
Déclenchement d'évènements à partir d'un TimeSpan [ par ROCHEREAU ]
Bonjour à tous.En tant que débutant je cherche à résoudre le problème suivant:J'entre une date à partir d'un DateTimePicker et une heure en H, M et S
Modifier date du dernier accès à un fichier [ par lilinath ]
Bonjour, Je désire changer la date du dernier accès à un fichier, vidéo. Je n'y arrive pas. Quelqu'un peut il m'aider. Merci pour votre aide,Bonne j
EXTRACTION DE MAIL EN DATE DU JOUR AVEC VBA [ par KWIATKOWSKI ]
Bonjour,Je me permets de vous solliciter sur le sujet suivant:J'extraire des mails par le biais de cette macro, mais je récupere tous les mails or je
Format Date [ par fabricioliking ]
Bonjours,Voila aujourd'hui j'ai un petit problème que je n'arrive décidément pas à résoudre, ' pas d'affolement à mon avis sa n'a rien de bien méchant
Macro Lotus Notes : Date de la veille dans le sujet / selection de cellules excel dans le corps du message [ par cecilesgcib ]
Bonjour,La macro suivante envoi par Email sur Lotus Notes le document excel ouvert.Pour finir ma macro, je rencontre deux problème :1) Dans le champs
Savoir si la date du jour est un lundi par exempel [ par bimone78 ]
Bonjour à tous, Je souhaiterai créer une macro qui me permetrait de comparer si la date d'hier est un "lundi".J'ai regarder avec la fonction AUJOURD'H
Problème date et heure PC [ par dedenet2 ]
Bonjour à tous et à toutes , J'ai un souci sur la date et heure de mon PC. Quand j'ouvre mon PC , j'ai la page de configuration BIOS qui s'affiche. (j
systeme de rappel pour les paiements [ par Fabian123 ]
Bonjour,je ne savais pas trop ou poster, j'espère ne pas m'être trompé...Voilà mon problème:je dois créer un fichier dans lequel j'introduis une base
somme de int avec date de type string [ par spootnic22 ]
salut,je veux faire la somme d'un nombre entier avec une string contenant une date dim nbre as Integerdim sDate as Stringnbre=90sDate="22/10/2008"comm
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|