CONNAISSANCE DE BASE

Script avec des tests sur les variables entrées : Diagnostique de date naissance

CODE VBSCRIPT

' Demander une date

ask = "Quel est votre date de naissance?"

title = "Diagnotiquer votre Age!"

' Commencer la boucle:

birthday = InputBox(ask, title)

' check whether the user wants to quit:

if isEmpty(birthday) then

MsgBox "Hey! Vous pouvez entrer une date erronée pour " _

& " cacher votre age! Mais OK, Je Quite!"

WScript.Quit

elseif not isDate(birthday) then

' verifier que la valeur entrée est vraiment une date!

' Donner une occasion de saisie de la date:

MsgBox "Vous n'avez pas entré une date! Essayez à nouveau!"

end if

' boucler jusqu'à une date valide a été entrée

loop until isDate(birthday)

' à cette étape, nous avons une date valide!

' effectuer nos calcul:

age_in_days = DateDiff("d", birthday, date)

age_in_months = DateDiff("m", birthday, date)

age_in_years = DateDiff("yyyy", birthday, date)

day_born = WeekdayName(Weekday(birthday))

' calculer la date de naissance de cette année

date_day = Day(birthday)

date_month = Month(birthday)

' utiliser l'année en cours:

date_year = Year(date)

this_years_birthday = DateSerial(date_year, date_month, date_day)

' use Abs to convert to positive numbers in case the birthday’s

' already over:

days_to_birthday = Abs(DateDiff("d", date, this_years_birthday))

day_celebrating = WeekdayName(Weekday(this_years_birthday))

' passer à l'autre étape?

if this_years_birthday

message = "Vous avez déjà faité votre anniversaire " & days_to_birthday _

& " Jours Avant"

elseif this_years_birthday = date then

message = "Joyeux Anniversaire!!!"

else

message = days_to_birthday & " jours avant votre anniversaire"

end if

' output Information

msg = "Ceci est un diagnostic de votre date de naissance:" & vbCr

msg = msg + "Vous étiez née le " & birthday & vbCr

msg = msg + "Vous avez " & age_in_years & " ans. Ce qui fait" & vbCr

msg = msg & age_in_months & " Mois ou bien " & age_in_days _

& " Jours!" & vbCr

msg = msg + "Vous étiez née un " & day_born & vbCr

msg = msg + "Cette année, votre anniversaire est le " & this_years_birthday & vbCr

msg = msg + "Il correspond à un " & day_celebrating & vbCr

msg = msg + message

MsgBox msg

EXEMPLE D’ILLUSTRATION:

*Une fois vous avez entré une date valide, le script vous donne une analyse de votre date de naissance : jour de naissance, jour ou vous fêtez votre anniversaire cette année, combien vous reste en jour :

*Le script vérifie si vous avez bien entré une date et vous demande d’entrer une date valide :

*Si voulez annuler, le script vous informe que vous pouvez faire le diagnostic avec une date erronée :

Script InputBox avec programmation du bouton annuler et de la valeur par défaut

CODE VBSCRIPT

' script input box avec réponse au bouton annuler et à la valeur par défaut

ask = "Entrez votre nom?"

title = "Identification?"

default = "??"

answer = InputBox(ask, title,default)

if answer = vbEmpty then

Botox "Vous voulez quiter le script? OK!"

WScript.Quit

elseif answer = "" or answer ="??" then

MsgBox "Vous voulez restez anonyme, ..."

else

MsgBox "Bienvenue " & answer & "!"

end if

Exemple d’Exécution

Le script vous demande votre nom avec les boutons «OK » et « ANNULER » et une valeur par défaut

Script qui compte le nombre de fichiers dans dossier s’il existe

Présentation

Vous trouvez un script qui vous demande l’adresse d’un dossier donner

Et vous renvoi le nombre de fichier dans ce dossier

Si le chemin est erroné, il vous informe que l’adresse saisie est erronée

CODE SCRIPT

' script qui compte le nombre de fichier ou de dossier

set fs = CreateObject("Scripting.FileSystemObject")

folder = InputBox("Entrer l'adresse du dossier!", "Nombre de fichier dans un dossier", "C:\")

if fs.folderExists(folder) then

set handle = fs.GetFolder(folder)

filecount = handle.files.count

MsgBox "Le dossier contient " & filecount & " fichiers!"

else

MsgBox "Le dossier " & folder & " est inexistant!"

end if

Script qui vous donne le jour correspondant à une date donnée

Vous trouvez ci-dessous un script qui vous demande d'entrer une date quelconque:

Ensuite, ce script vous donne le jour de la semaine correspondant à cette date:

Si l'utilisateur entre une date erronée, le script lui demande qu'il devrait la valeur entrée n'est pas une date.

CODE SCRIPT:

'script qui vous donne le jour correspondant à la date entrée
mydate = InputBox("Please enter a date!")
if isDate(mydate) then
MsgBox mydate & " : corespond un " & WeekdayName(Weekday(mydate))
else
MsgBox "Vous n'avez pas saisie une date!"
end if

Batch pour écrire une suite de phrase dans un fichier

Vous trouvez ici un batch pour écrire une suite de mot et même des paragraphes dans fichier texte sans l’ouvrir. Pour mettre fin à l’exécution du batch écrire « exit » sans guillemet et tapez sur Entré.

echo off

:debut

set /p nom=

rem ici la commande pour récupérer dans une variable "nom" ce que l'utilisateur saisie

echo %nom% >> d:\Enregistrement.txt

IF %nom% ==exit (goto fin) else (goto debut)

:fin

exit

Liste déroulante dynamique sur Excel

Dans la vidéo suivante vous trouvez comment élaborer une liste déroulante dynamique sur Excel. Cette liste peut être modifiée en modifiant les cellules nommées pour être utilisées comme choix dans la liste déroulante.

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.

Le Dollar Américain la plus grande arnaque de l’histoire

Impression de Monnaie

Imaginez que vous avez le pouvoir d’imprimer des bouts de papiers et que ces papiers seront acceptés par le monde entier. Vous pouvez acheter de l’Ors, du Pétrole et plusieurs autres richesses. Mais, si quelqu’un vous donne vos bouts de papier pour acheter de l’or, vous lui dite qu’ils ne sont pas convertibles en ors.

C’est ça le dollar. En effet, les Etats Unis d’Amérique avec des bouts de papiers imprimés, mais malheureusement internationalement acceptés, peuvent acheter n’importe quoi de quelle valeur qu’il soit. Cette arnaque entre dans le cadre du système Monétaire Internationale. En effet, suite aux accords de Bretton Woods (1944-1971) la parité de la monnaie de chaque Etat était exprimée au départ soit en termes d'or, soit en dollars sur la base de titres en vigueur au 1er juillet 1944 (1). Ainsi, le dollar devient une monnaie de réserve et de règlement.

A cette époque, les Etats-Unis acceptèrent d'acheter de l'or et d'en vendre contre tous les dollars qui leur étaient présentés. Toutefois, à partir de mars 1968, la convertibilité du dollar en or devint en réalité impossible, cependant ce n’'est qu’en août 1971 que le président américain Richard Nixon proclama la non convertibilité du dollar en or à prix fixe aux banques centrales étrangères. Ceci a amené aux accords de la Jamaïque (mars 1973) qui a officialisé le passage vers un régime de taux de change flottants entre la plupart des pays industrialisés, le marché international des changes (Forex) se développant par la suite sur ce nouveau fondement.

Toutefois, malgré l’abandon de la convertibilité du dollar en ors, depuis 1971, cette devise continue à jouer pleinement sa fonction de monnaie de règlement et de réserve.

Registre des dettes :

Imaginez que vous avez un registre de dette et que vous pouvez acheter n’importe quoi et en règlement de vos achats, vous indiquez au vendeur dans votre registre de dette que vous êtes débiteur envers lui de la valeur de la marchandise.

Ce n’est pas une anecdote, c’est ce que fait actuellement et faisait depuis longtemps les états Unis d’Amérique.

En effet, en contre partis de toutes les richesses du monde (Ors, Pétrole et autre), le règlement des achats des Etats Unis se fait l’inscription du compte de l’état exportateur chez une banque résidente aux Etats Unis d’Amérique. Mais les dépôts du monde entier chez les Etats Unis d’Amérique se gravement augmenter au point qu’il devenait impossible de retirer. En réponse, à une menace de l’Arabie Saoudite de retirer ses investissements dans l’Amérique, des Expert ont affirmé que l’Arabie saoudite ne peut pas punir Washington sans se punir lui-même (2).

PAR Taoufik Aouiti
Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.

(1) https://www.mataf.net/fr/eco/edu/guide-economie/brettonwoods

(2) http://www.voltairenet.org/article191308.html

Microsoft Visio gratuit

Microsoft Visio est un logiciel qui permet - notamment - de créer des cartographie de processus, des organigramme, et d'autre schémas à utilisation professionnel. C'est un logiciel payant édité par Microsoft, il est téléchargeable en version d'évaluation (ou en version complète à l'adresse suivante : Télécharger Visio (le lien permettant d'obtenir la clé d'activation est précisée dans la description du logiciel)

Source: http://www.commentcamarche.net/faq/8977-equivalent-de-visio-gratuit

CONVERTIR UN PROGRAMME BATCH SANS INSTALLATION DE LOGICIEL

L’utilité de la création des programmes exécutables par rapport au fichier batch c’est essentiellement la sécurisation du code source notamment pour les applications complexes.

Nous allons vous montrer ici un démarche afin de convertir un fichier batch en un programme exécutable et ce sans installation de logiciel. Nous avons utiliser Iexpress.exe qui est livré par défaut avec windows.

1. Fichier batch d’origine

Supposons que nous avons un fichier batch nommé "encadre.bat" dont le résultat consiste à afficher un mot dans un encadré.

Le résultat de ce petit programme est illustré dans l’image suivante :

Nous voulons convertir ce fichier batch en un programme exécutable c.à.d. qui a une extension ".exe". Ceci peut s’effectuer sans installation de logiciel en utilisant un utilitaire nommé Iexpress.exe qui se trouve dans le dossier C:\WINDOWS\SYSTEM32 et ce en suivant la démarche suivante.

2. Lancer IEXPRESS.EXE

Pour lancer IEXPRESS.EXE, cliquer simultanément sur Windows+R et taper Iexpress.exe

Ainsi, IExpress s’ouvre et la première fenêtre propose de choisir entre :

- La création d'un nouveau package ou

- L'ouverture d'un fichier de script d'installation *.SED pour y ajouter des modifications

Nous allons choisir « create new Self Extraction Directive file » et cliquer sur suivant :

3. Choix du pack

À la deuxième fenêtre, Iexpress propose trois types de packs :
1- Extract files and run an installation command (extraire les fichiers avec l'exécution d'une application );
2- Extract file Only (extraire des fichiers seulement) ;
3- Create Compressed files only (ActivX Installs) (créer un pack compressé utilisable pour les fichiers ActiveX).

Nous allons choisir la première proposition :

4. Titre du pack

Dans cette étape, Iexpess vous demande de saisir le titre du pack, dans notre cas nous écrire « ENCADRE » :

5. Message de confirmation

Dans cette étape, IEXPRESS vous propose de choisir d'afficher ou non un message de confirmation.

Nous avons choisit l'option 'No prompt', ainsi l'installation se fera sans intervention de l'utilisateur.

6. License

Ici, l’applicatif vous propose d’ajouter ou non un fichier de License à l’application à créer.

7. L’ajout de fichier batch, script ou autre

Ici, cliquer « add » pour ajouter les fichiers (batch, script ou .exe, etc.) qui contiennent votre application que vous voulez convertir en programme exécutable.

8. Installation du programme à lancer

Par défaut, IEXPRESS vous donne une liste de choix comportant le non du fichier batch. Nous devons ajouter avant « cmd /c », pour ne avoir un message d’erreur lors de l’exécution :