Script Yes or No Question avec Timeout

Code Script

' Accéder à WScript.Shell

set wshshell = CreateObject("WScript.Shell")

' posez la question et attendre 5 secondes pour avoir la réponse:

ask = "Vous êtes un homme ou une femme?"

timeout = 5

title = "Test psychologique!"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

MsgBox "OK, Bienvenue Madame!"

elseif result = true then

MsgBox "Vous avez pris beaucoup de temps pour décider!!!!!!!"

else

MsgBox "Ok, Bienvenue Monsieur!"

end if

Exemple D’illustration

* Le script vous demande si vous êtes un Homme ou Une Femme

*Si la réponse est OUI, le Script vous dit « Bienvenue Monsieur »

*Si La réponse est NON, le script vous dit « Bienvenue, Madame »

*Si vous dépassez plus de cinq secondes pour répondre, le script vous signale que avez pris beaucoup de temps pour répondre :

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:

do

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