Citation

'Déclaration des variables
Dim Total, Question As Integer
Dim Reponse, Nom As String
Dim Points(100) As Integer 'Déclaration du tableau qui contiendra les réponses
'Procédure pour le clic sur le bouton ICI dans la première dia
	Sub Init()
		'Une boîte de dialogue pour demandé le nom
		Nom = ""
		Do While Nom = ""
		Nom = InputBox("Quel est votre Prénom et Nom ?", "Bonjour")
		Loop
		Total = 0 'Le total des points est initialisé
		Question = 2 'La première question porte le numéro 1
		Application.SlideShowWindows(1).View.GotoSlide 3 'Activation de la dia numéro
	End Sub
'Procédure pour le clic sur le bouton de bonne réponse
	Sub Bon()
		Total = Total + 1 'Le total des points est augmenté de 1
		Points(Question) = 1 'Le tableau des réponses est complété
		Reponse = "bonne." 'Cette variable sera utilisée dans le message affiché par DiaSuivante()
		Module1.DiaSuivante 'Appel de la procédure DiaSuivante
	End Sub
'Procédure pour le clic sur le bouton de mauvaise réponse
	Sub Faux()
		Points(Question) = 0 'Le tableau des réponses est complété
		Reponse = "fausse." 'Cette variable sera utilisée dans le message affiché par DiaSuivante()
		Module1.DiaSuivante 'Appel de la procédure DiaSuivante
	End Sub
'Procédure pour le passage à la diapositive suivante
	Sub DiaSuivante()
		Question = Question + 1 'Question suivante
		'Activation de la dia suivante
		Application.SlideShowWindows(1).View.GotoSlide Question + 1
	End Sub
'Procédure pour le clic sur le point d'interrogation de la dernière dia
	Sub Fin()
		Dim xcl As Object 'Déclaration de la variable qui fera référence à Excel
		Dim ExcelNonOuvert As Boolean
		'La boîte de dialogue
			x = MsgBox("Vous avez répondu correctement à " & Total & " questions sur " & Question - 2 & "." _
			& Chr(13) & "Vous avez donc " & Int(Total / (Question - 2) * 100) & "% de réussite." _
			& Chr(13) & "Cliquez sur le bouton OK", , "Fin du questionnaire")
			Fichier = Nom & ".txt"
		'sauvegarde des résultats dans un fichier texte portant comme nom celui de la personne qui a répondu au questionnaire
			Open Fichier For Output Shared As #1
			Write #1, Nom
			For i = 1 To Question - 2
			Write #1, Points(i)
			Next i
			Close #1
	End Sub

• La synchronisation des extensions vient s'ajouter au plugin Sync qui permettait déjà de synchroniser ses favoris, cookies, onglets et plus sur toutes vos machines. Une nouveauté longuement attendu quand on sait que Google Chrome l'offre déjà depuis longtemps!
  
• Amélioration des outils développeurs. Un module d'édition live des CSS a été ajouté.

Liste des changements (traduction de l'anglais par Google Translate) dit :

Citation

• Dans Windows 8 appuyez sur la touche Windows ainsi que R
  
• Taper ici regedit
  
• Une fois l'éditeur de registre ouvert, naviguer jusqu'a la clé RPEnable dans HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
  
• Changer la valeur de cette clé pour 10 pour revenir au menu démarrer classique ou 1 pour l'interface Metro
  
• Fermer l'éditeur de registre et appuyer sur Démarrer. Le menu démarrer classique est de retour!

• 1 gigahertz (GHz) or faster 32-bit (x86) or 64-bit (x64) processor
  
• 1 gigabyte (GB) RAM (32-bit) or 2 GB RAM (64-bit)
  
• 16 GB available hard disk space (32-bit) or 20 GB (64-bit)
  
• DirectX 9 graphics device with WDDM 1.0 or higher driver
  
• Multi-touch display for using the touch based functions

• Rendre Windows XP compatible avec IPv6

• 6x plus rapide que la version 3.6
• Nouvelle interface épurée
• Nouvelles options de gestion pour les onglets
• Et plus!

Citation

Citation

Citation

function copieFichier($Source, $Destination) {
										$Fichier = fopen ($Source, "r");
										$ContenuFichier ='';
										while (!feof($Fichier)) $ContenuFichier .= fread($Fichier, 8192);
										fclose ($Fichier);
										$Fichier = fopen ($Destination, "w+");
										if ( !fwrite($Fichier, $ContenuFichier)) die('Impossible d\'écrire dans le fichier');
										fclose ($Fichier); }

 // EFFACE CAR CODE NON CORRECT ==> Ne pas induire les autres en erreur...

 // STRUCTURE NON REALISTE ==> EFFACE ==> Solution posé ci-dessous

Citation

• pour y écrire un nombre, genre : ... le montant de nos honoraires s'élève à "123,00 €" TTC ;
• pour y écrire du texte, genre : ... en présence de Monsieur "Untel ".