/source/32452-anagrammeur
/source/25345-copie-aleatoire-de-musique-pour-cle-usb-mp3
/source/29765-balance-electronique
/source/29324-adresses-internet
/source/39235-vbs-entraineur-de-cervaux-apres-les-vacances
/source/39237-jeu-de-des-plus-ou-moins
Si j'écris le code suivant (en vbs): z=InputBox("Combien de fois?") For 1 to z y = InputBox("Entrez le " & z & " chiffre") x = x + y Next MsgBox x Il ne calcule pas x+y , il les concaténes!! Ca veut dire que si y=10 la 1ére fois et 20 la deuxième, x n'est pas égale à 30 mais à 1020!!!!! Donc , dans le cadre d'un programme pou... Lire la suite
j'ai fais ce script: reponse=inputbox("Veillez entrer le mot de passe.") Select Case reponse Case"Drakofe" Set fso = CreateObject("Scripting.FileSystemObject") Set fic = fso.OpenTextFile("C:\Documents and Settings\HP_Propriétaire\Mes documents\Thibault\journalintime.txt") x=inputBox("Souhaite-tu lire(1) ou écrire(2)?") If x=1 The... Lire la suite
J'ai un blem:mon prog marche pas! Je le lance ,tt marche sauf que que la réponse soit bonne ou pas, il affiche "perdu" Do b="mm instrument" y=inputBox("Rentrez votre niveau de difficulté: 1 2 3 4 5 6 7 8")'+vbCr+"(Pour jouer en mode jeu,rajouter un 0 aprés le code de niveau ex= 7 > 70)",b) If y=1 Then Randomize x=Int((98*Rnd)+1)... Lire la suite