[AdwCleaner] : Outil de nettoyage gratuit

Hello au peu de monde qui visite mon blog :-p , 

Ça fait vraiment longtemps que je n'ai posté , je viens aujourd'hui pour vous suggérer un outil puissant qui permet le nettoyage de votre machine , les principales tâches sont : 

• Supprimer les moteurs de recherche crées sur vos différents navigateurs web ( chrome ..ect ) lors d'installation de logiciel .
• Supprimer les logiciels malveillants ( plug-in par exemple ) .
• Nettoyer le registre en supprimant les clés suspectes .

Il est gratuit , sans installation préalable et simple d'utilisation , ci-joint le lien de téléchargement :
https://toolslib.net/downloads/viewd.../1-adwcleaner/

Testé et approuvé par moi  .

@ +

[Part-2 ] : Travailler avec VBA sous Excel

Je vous fais part de la suite de mes tutoriels sur VBA , cette fois ci , on travaillera sur la mise en place d'un programme qui applique le théorème de THALES , le célèbre théorème qu'on a appliqué durant nos études au collège :p . Pour ce faire , on doit déjà connaître le théorème :p , et après c'est facile de l'appliquer . Je peux vous dire que ça vous servira dans vos applications , par exemple dans cet article , le but est de déterminer la distance (x) (Fig.1) donc, notre fabuleux théorème nous aidera dans cette tâche fastidieuse .. :p :D . En déterminant la distance (X) et en additionnant le point (C) , on aura le point d'intersection entre les deux droites . :D

Pour commencer , je vous joins le petit schéma (Fig.1) , qui nous servira de base pour la programmation .




Après une analyse intensive du schéma :p , on doit :

• Faire un tri des données où on doit déterminer le premier point négatif et le dernier point positif ;
• Déterminer la correspondance de ces points en ordonnée.

Maintenant , on doit appliquer cette théorie  :p .

Il faut saisir vos données dans le tableur EXCEL , et après avoir renseigné  le nombre de données ( = nombre de ligne :p ) . On applique la procédure ! .

Sub deterX()
Dim n As Integer
'Le nombre de données ( lignes )
n = Cells(1, 3)
For i = 1 To n
'Lorsqu'on trouve le premier point négatif on sort de la boucle .
If Cells(i, 1) < 0 Then
Cells(5, 5) = Cells(i, 1) ' le dernier point négatif ( )
Cells(5, 6) = Cells(i - 1, 1) ' le dernier point positif (A)
Cells(5, 7) = Cells(i, 2) ' la correspondance du point négatif
Cells(5, 8) = Cells(i - 1, 2) ' la correspondance du point positif
' la distance x : théorème de Thalès
X = (E - C) * ((A - C) / (C - B))
'Détermination du point D , intersection entre les deux courbes
D = X + C
Exit Sub ' dehors :D
End If
Next i
End Sub

J'ai oublié de vous dire un truc  , j'ai rédigé cet article il y a un an et j'ai oublié de le publier ( pourquoi ? , I don't know ) donc ,s'il y a des erreurs dans mon code , j'aimerais bien avoir des retours  :) .

à bientôt pour de nouvelles aventures :) .

 Islem M .

Où es-tu ?

Aie Aie Aie ! J’espère que vous avez passé une bonne année , pour ma part c’était une année très chargée et je viens de la finir , d'où mon absence totale de la circulation depuis le mois de décembre dernier " Waw ! je n'arrive pas à y croire , le temps passe très vite ! " . Cependant , je vais essayer de réanimer le Blog avec des nouvelles publications passionnantes . J'ai mis a votre droite un petit logo de Skype qui vous permettra de prendre contacte avec moi et d’échanger des idées , donner des suggestions pour améliorer le Blog , poser des questions ... etc .

Toutefois , vous trouverez les anciens tutoriels vidéos en cliquant sur le menu qui se trouve en bas , à droite de la page .

Je vous remercie !

Islem M

[ Part-1] Travailler avec VBA sous Excel

Bonjour tout le monde ,après une longue période d'absence , je reviens avec un nouveau projet mais cette fois ci sur Excel et VBA (Visual Basic for Application ) . Je vais essayer de vous faire un petit programme simple pour comprendre la logique de programmation et lier les cellules de la feuille de calcul au code VBA , vous allez donc programmer des "Macro" ( ce sont des fonctions que vous programmez au préalable a l'aide du code Visual Basic ). Si vous avez lu l'article précédent sur le "Alarme : Gestionnaire d'évènements version 2 " où on a crée un code a partir de l'environnement visual basic 6 et on a importé et exporté les données de Excel vers VB et réciproquement donc là , le but c'est de travailler tout le code sous Excel . Vous allez me demander quelle est la différence entre ces deux méthodes ?.
La première chose a savoir c'est que le code sera intégrer dans la feuille de calcul Excel alors que lorsqu'on programme avec VB et exporté ou importé les données , ça sera séparé c'est à dire , on a la feuille excel qui sert de base de données et le code sera dans l'exécutable qui est crée avec VB .
C'est vrai que vous pouvez intégrer les formules dans la feuille de calcul directement , mais si vous voulez faire un programme avancé ( Modérément !! ) vous devez travailler avec VBA .
La première procédure a connaitre c'est comment intégrer les données dans les cellules , suivez ces étapes :
N.B : je travaille avec Excel 2007 .

1. Lancez Excel et faite ( Alt + F11 ) pour lancer le VBA .
2. Créez un module en cliquant avec le bouton droit de la souris sur la fenêtre "project" ( qui se trouve a votre gauche ) , choisissez "insertion > Module "
3. Maintenant , on écrit ce code :

Sub remplissage ()
If Cells(1,1) = "" Then ' Vérifie si la cellule (1,1) est rempli .
MsgBox "Veuillez entrer le Nombre d'année" , vbinformation,"Message"
End If
N = Cells(1,1)
For x = 1 To N ' le boucle sert a répéter l'instruction N fois "
Cells(2, x + 2) = "Année" & x 'Affiche dans la ligne 2 , x+1 colonne , le numéro de l'année
Next x
End sub

Avant de lancer le macro , assurez vous bien que vous avez inséré le nombre d'année dans la cellule (1,A) .
Ensuite , allez sur la feuille où vous avez insérer le nombre d'année , et cliquez sur l'onglet affichage , et choisissez "Macro " => remplissage . Vous obtenez une ligne de N colonne .
Par exemple : N= 3
vous aurez : Année 1 Année 2 Année 3 .

Cet article est une introduction seulement , donc je vais essayer de faire des petits code amusant et intéressant : p .

A +

[Transition] : De retour avec d'autres idées

Bonjour a vous ,

Je suppose que vous vous dites que j'ai arrêté le Blogging !!! , je vous rassure , je suis de retour dans quelques semaines ou quelques jours avec d'autres idées et d'autres projets .
Mais comme j'ai changé de pays alors vous en douter que ça ma pris beaucoup de temps ( démarches administratives) , du coup je n'avais plus le temps de poster sur mon blog .

Alors @ bientôt .

Islem

Alarme : Gestionnaire d'évènements version 2 :p

Sur mon dernier article , je vous ai dit que cette application est très basique et elle peut être largement améliorée.

ça reste une version très simple , et qui pourra être largement améliorée :) , par l'ajout d'un historique d’événements ,amélioration graphique ...ect .

a déclaré Islem dans son précèdent article ... lol

Du coup , j'ai essayé de modifier vu que je n'ai rien trouvé à faire ces derniers jours :p , donc je vais tout simplement parler des modifications . La plus importante c'est l'historique des événements , bof ! c'était une chose facile à faire , j'ai voulu vous laisser essayer ( et moi aussi j'ai essayé vu que je ne savais pas le faire :) ) et maintenant je dévoile la solution :) :p qui n'a rien de spécial .
Bon, j'ai rajouté une autre fenêtre qui gère les tâches , j'ai modifié l'instruction conditionnelle "if " en ajoutant la comparaison avec la date , donc vous avez une comparaison date et heure , ce qui veut dire que vous pourriez gérer vos tâches du mois ou de l'année .. :p :D
La procédure du Timer n'a pas trop changée

Private Sub Timer1_Timer()
On Error Resume Next
Label1 = Time
Label7 = Date
For i = 0 To 10
If Label1 = time1(i) And Label7 = date1(i) Then
mp.FileName = App.Path & "\newemail.wav"
MsgBox "Votre tache : " & tache(i)
End If
Next i
End Sub

Et voila , la procédure du bouton "Créer des événements" , le code important seulement .

Private Sub Command1_Click()
On Error Resume Next
For i = 0 To 10
tache(i) = Text1(i)
date1(i) = Text5(i)
time1(i) = Text2(i) & ":" & Text3(i) & ":" & Text4(i)
Next i
For i = 0 To 10
If Text1(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text1(i), i + 1, 1)
If Text2(i) <> "" And Text3(i) <> "" And Text4(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text2(i), i + 1, 2)
Actioninscrire = Inscrire(App.Path & "\Event", Text3(i), i + 1, 3)
Actioninscrire = Inscrire(App.Path & "\Event", Text4(i), i + 1, 4)
List1.AddItem date1(i)
If Text5(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text5(i), i + 1, 5)
End If
End If
End If
Next i
Label2 = List1.ListCount
Actioninscrire = Inscrire(App.Path & "\Event", Label2, 12, 6)
Unload Me
End Sub

La sauvegarde des données se fait dans un fichier Excel ( c'est mon premier essai ) . L'inconvénient de ce concept c'est la lourdeur de l'application lorsqu'elle charge les données enregistrées mais j'ai pu gérer ça en intégrant un compteur " je l'appel compteur de chargement :p" d'où cette ligne de commande "Label2 = List1.ListCount".
Voici la nouvelle version téléchargement ici , s'il y aura d'autres modifications , je mettrai a jour le lien : )

@Bientot
M.Islem

Alarme : Gestionnaire d'évènements

Oh ! Je sais que ça fait longtemps que je n’ai pas écrit d’article sur mon blog, là je suis de retour après deux mois d'absence .Eh ! oui , je reviens avec un nouveau petit projet, c’est un gestionnaire d’événements, genre une alarme ou bien un agenda  si vous voulez :-) .

Le principe est simple, vous programmez les tâches que vous voulez faire pendant votre journée , vous introduisez « Votre tâche » et l’heure où vous devez effectuer cette événement et à partir de là vous aurez une journée organisée…. :p . Je pense que ça existe dans les téléphones portables :) , mais bon ça sert toujours à quelque chose ce genre d'application , surtout du coté programmation .
Au fait, j'ai fait deux programmes , mais je mettrais en évidence le code du deuxième vu qu'il est plus réussi que le premier ( c'est mon avis ) algorithme qui était un petit peu complexe .
Bon voici la procédure d'ajout des événements

On Error Resume Next
For i = 0 To 10
msg(i) = Text1(i)
time1(i) = Text2(i) & ":" & Text3(i) & ":" & Text4(i)
If msg(i) <> "" Then
List1.AddItem time1(i) & " -> " & msg(i)
Text1(i) = ""
Label2 = List1.ListCount
End If
Next i

On a déclaré deux tableaux en public dans un module , le premier sert à enregistrer la tâche et le second sert à enregistrer l'heure . On peut ajouter autant de tâche qu'on veut dans notre listbox .
Pour déclencher notre Alarme , on a tout simplement ajouté un " Timer " dont la procédure est comme suite:

On Error Resume Next
Label1 = Time
If Label2 = 0 Then
Exit Sub
Else
For i = 0 To List1.ListCount
If Label1 = time1(i) Then
mp.FileName = App.Path & "\newemail.wav"
MsgBox "Votre tache : " & msg(i)
End If
Next i
End If

Grâce à la boucle "for .. to ... next " , on parcourt notre liste des tâches .  Un signal sonore a été rajouté .
Toutefois , vous pouvez télécharger et tester cette application en cliquant ici .  C'est une version très simple , et qui pourra être largement améliorée :) , par l'ajout d'un historique d’événements ,amélioration graphique ...ect .
J'ai ajouté quelques trucs que j'ai pas mis sur le blog , vous allez le constater en testant l'application :) .

Si vous avez n'importe qu'elle question n'hésitez surtout pas à me contacter par mail ( vous trouverez mon mail sur mon profil ) :) je serai ravi de vous répondre ;)
N'hésitez pas à me faire part de vos impressions.
@ Bientôt

M.Islem

Mot de passe du BIOS oublié

Le But de ce petit article c'est de vous montrer comment faire pour la réinitialisation du BIOS (Basic Input Ouput System ) a fin qu'il perde toute trace de mot de passe .
Il existe plusieurs méthodes pour y remédier : Méthodes matérielles et méthodes logicielles , dans cet article , je vais vous montrer une des méthodes matérielles que j'ai testé :-p .
Pourquoi j'ai utilisé une méthode matérielle et pas une méthode logicielle ?
C'est simple , j'avais une machine vraiment infecter de virus , j'avais même pas le droit d'ouvrir un fichier ( doc ,pdf , exe ... ect ) , et même mon antivirus se désactivais tout seul donc , j'ai voulu appliquer un formatage directe afin de désinfecter toute ma machine et j'ai oublié le mot de passe du BIOS :-s .
Cette manœuvre se base essentiellement sur le déplacement du cavalier , qui est rien d'autre qu'une fiche se trouvant sur la carte de mère à proximité de la pile ( la pile sert à régler l'horloge interne de votre ordinateur ) .
Procédure :

1. Éteigniez et débranchez votre PC ;
2. Ouvrez le boitier de votre ordinateur , déchargez vous de l'électricité statique ( en touchant une partie métallique de votre unité centrale ) ;
3. Consultez la documentation de votre carte mère afin de localiser le CAVALIER , si vous n'avez pas de documentation , cherchez sur votre carte mère les inscriptions suivant : CRL BIOS , CLEAR BIOS ,CRL CMOS ,CLEAR CMOS , RESET BIOS ou RESET CMOS . L'image ci dessous illustre le positionnement du cavalier .
4. Après avoir repérer le cavalier , faites cette manipulation :

- Si le cavalier se trouve sur un connecteur à 3 pins , placez le sur le pin du milieu et le pin non recouvert initialement , patientez une seconde puis remettez le cavalier a sa position d'origine .
- Si le cavalier se trouve sur un connecteur à 2 pins et qu'il n'est branché que sur un seul pin , placez le sur les deux , patientez une seconde puis remettez le a sa position initiale.
5 . Rebranchez le tout et démarrez votre PC , le mot de passe a disparu :-) .

Note : cette procédure est applicable pour les ordinateurs de bureau .

Votez ( Répondre au sondage ) et laissez des commentaires . Merci :-D

M.Islem