Qres.htm changer la r�solution de votre
�cran en 1 click
rtfedit.htm un traitement de texte
avec correcteur orthographique multilingue et gratuit
birthday.htm pour ne plus jamais oublier
l'anniversaire d'un ami
ckill.htm pour arreter un programme
MyTwitter.htm Update Twitter
Status
facebookDesktop.htm un chat
pour facebook
playlistmaker.htm faites vos playlist
m3u vous m�me
cpfr.htm les codes postaux et les d�partements
de France
MyAlarm.htm Alarme vocale
voici quelques autres de mes r�alisations en Visual Basic .Net
ces programmes sont sous licence GPL
et sont pr�sent�s sous forme de code source
vous les trouverez ainsi que beaucoup d'autres sur
http://www.codes-sources.com/
dont je suis un menbre
actif
archivage au format "zip"
cr�ation de zip
ouverture et affichage des nom de fichiers
,ajout , supression de fichiers dans un zip
extraction d'un fichier ,de plusieurs fichiers ,de tous les fichiers d'un zip,
cr�ation d'archives autoextractible
+ 2 petits utilitaires en ligne de commandes dont les sources sont de microsoft
( zip , unzip )
prog pour faire un backup copie toute une arborescence de fichiers vers un autre
disque ( sans �craser ceux qui sont les meme que dans l'arborescense source )
lister les drives du systeme dans un combobox
faire un log des erreurs et l'afficher en fin de traitement =>
http://www.vbfrance.com/codes/BACKUP-SIMPLE-100-LIGNES_47918.aspx
'comment faire un backup en moins de 100 lignes de
code sans fioritures une form 1 combobox 2 boutons
Public Class
Form1
Dim x As
Integer
''' <summary>
''' on charge les drives d
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub
Form1_Load(ByVal sender
As System.Object ,
ByVal e As System.EventArgs)
Handles MyBase .Load
Try
For x = 0 To
My.Computer.FileSystem.Drives.Count
ComboBox1.Items.Add(My.Computer.FileSystem.Drives.Item(x))
Next
Catch ex As
Exception
End Try
End Sub
''' <summary>
''' c'est le coeur du programme srcdir est un r�pertoire
''' destDrive est un disque
''' </summary>
''' <param name="srcdir"></param>
''' <param name="destDrive"></param>
''' <remarks></remarks>
Private Sub
backup(ByVal srcdir
As String , ByVal
destDrive As String )
Dim src, dest, log
As String
log = String .Empty
For Each
file As String
In My.Computer.FileSystem.GetFiles(srcdir, FileIO.SearchOption.SearchAllSubDirectories,
"*.* ")
src = file
dest = Replace(file, IO.Path.GetPathRoot(srcdir), destDrive)
Try
If IO.File.Exists(dest)
Then
If Date .Compare(My.Computer.FileSystem.GetFileInfo(src).LastWriteTime,
My.Computer.FileSystem.GetFileInfo(dest).LastWriteTime) = 0
Then
'le fichier est le m�me � 99,999%
Else
'overwrite
My.Computer.FileSystem.CopyFile(src, dest, True )
End If
Else
'copy
My.Computer.FileSystem.CopyFile(src, dest, False )
End If
Catch ex As
Exception
log = log & Now.ToShortDateString & "
" & Now.ToLongTimeString & ". " &
Now.Millisecond & ex.Message & vbCrLf
End Try
If ProgressBar1.Value = 99
Then ProgressBar1.Value = 1
ProgressBar1.Value = ProgressBar1.Value + 1
Application.DoEvents()
Next
If log = String .Empty
Then
' MsgBox("Pas d'erreurs", MsgBoxStyle.Information)
Else
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\"
& Today.ToLongDateString & ".log", log,
True)
If MessageBox.Show("il
y a eu des erreurs, " & vbCrLf & "voulez
vous voir le log maintenant? ", Application.ProductName, MessageBoxButtons.YesNo,
MessageBoxIcon.Error ) = Windows.Forms.DialogResult.Yes
Then
Process.Start("notepad.exe ", Application.StartupPath
& "\" & Today.ToLongDateString &
".log")
End If
End If
End Sub
''' <summary>
''' pour s�lectionner la source du backup
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub
Button1_Click(ByVal sender
As System.Object ,
ByVal e As System.EventArgs)
Handles Button1.Click
Try
Dim fdb As
New FolderBrowserDialog
If fdb.ShowDialog = Windows.Forms.DialogResult.OK
Then
Label1.Text = fdb.SelectedPath
Label2.Text = Replace(Label1.Text, "C:\", ComboBox1.SelectedItem.ToString)
End If
Catch ex As
Exception
Label2.Text = "Selectionner un drive et recommencer "
End Try
End Sub
''' <summary>
''' c'est parti maintenant qu'on a toutes les infos
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub
Button2_Click(ByVal sender
As System.Object ,
ByVal e As System.EventArgs)
Handles Button2.Click
ProgressBar1.Style = ProgressBarStyle.Marquee
ProgressBar1.Value = 1
backup(Label1.Text, ComboBox1.SelectedItem.ToString)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Value = 100
End Sub
End Class
agenda tout simple qui utilise un fichier pour chaque jour en lieu et place d'une
base de donn�es
petits trucs utiles :
multiline textbox dont le texte s'enregistre sur une seule ligne dans le fichier.
utiliser la date comme nom de fichier
MULTI FORMAT IMAGE CONVERTER
ouvrir : 1st Publisher(*.art) |*.art|Canon Digital(*.crw)|*.crw|Cursor(*.cur)|*.cur|DR
Halo(*.cut)|*.cut|DICOM(*.dcm)|*.dcm|Kodak Digital(*.dcr)|*.dcr|Icon(*.ico)|*.ico|MATLAB(*.mat)|*.mat|Minolta
digital(*.mrw)|*.mrw|Nikon Digital(*.nef)|*.nef|Olympus digital(*.orf)|*.orf|Seattle
Works(*.pwp)|*.pwp|Scitex (*.sct)|*.sct|Seattle Works(*.sfw)|*.sfw|PSX TIM(*.tim)|*.tim|WordPerfect(*.wpg)|*.wpg|Gimp(*.xcf)|*.xcf|Sigma
Digital(*.x3f)|*.x3f"
ouvrir et enregistrer : "AVS X(*.avs)|*.avs|Bitmap(*.bmp)|*.bmp|ZSoft(*.dcx)|*.dcx|DIB(*.dib)|*.dib|HDR(*.exr)|*.exr|FAX(*.fax)|*.fax|Flexible(*.fits)|*.fits|JPEG(*.jp2)|*.jp2|JPEG(*.jpc)|*.jpc|JPEG(*.jpg)|*.jpg|JPEG(*.jpeg)|*.jpeg|ImageMagick(*.miff)|*.miff|MONO(*.mono)|*.mono|MultiNetGraphics(*.mng)|*.mng|MTV(*.mtv)|*.mtv|Magick
Vector(*.mvg)|*.mvg|On The Air(*.otb)|*.otb|Visual Schnauzer(*.p7)|*.p7|PALM(*.palm)|*.palm|Portable
Bitmap(*.pbm)|*.pbm|Photo CD(*.pcd)|*.pcd|Photo CD(*.pcds)|*.pcds|ZSoft(*.pcx)|*.pcx|PALM
DB(*.pdb)|*.pdb|Portable floatMap(*.pfm)|*.pfm|PortableGrayMap(*.pgm)|*.pgm|Personal
Icon(*.picon)|*.picon|QuickDraw(*.pict)|*.pict|Portable Network(*.png)|*.png|Portable
Network(*.png8)|*.png8|Portable Network(*.png24)|*.png24|Portable Network(*.png32)|*.png32|Portable
Pixmap(*.ppm)|*.ppm|Photoshop(*.psd)|*.psd|Pyramid TIFF(*.ptif)|*.ptif|IRIX rgb(*.sgi)|*.sgi|Scalable
Vector(*.svg)|*.svg|Truevision(*.tga)|*.tga|TIFF(*.tiff)|*.tiff|Raw Text(*.txt)|*.txt|Vicar
Raster(*.vicar)|*.vicar|Khoros(*.viff)|*.viff|Wireless bitmap(*.wbmp)|*.wbmp|X icons(*.xbm)|*.xbm|X
Pixmap(*.xpm)|*.xpm|X Dump(*.xwd)|*.xwd"
enregistrer : "PAM(*.pam)|*.pam|HP PCL(*.pcl)|*.pcl|ImageMap(*.shtml)|*.shtml"
la librairie Magicknet est indispensable au fonctionnement de ce programme
http://midimick.com/magicknet/MagickNet.zip
image viewer est un simple viewer d'image avec quelques fonctions int�ressantes
;
lecture et �criture dans les formats habituels( jpg,gif,tif,png
lecture et �criture Portable Pixel Map (*.ppm)
�criture en Adobe PDF (*.pdf)
Resize, rotation,flip,wallpaper changer, inversion des couleurs,convertit en niveau
de gris, undo
simple soft de reconnaissance vocale, synth�se vocale.
il lit � votre place, il �crit ce que vous lui dicter.
ce n'est pas parfait mais �a fonctionne
VOCAL CITATION
Utilisation d'un Ms Agent pour lire un texte,
rapporter une erreur
donner une expliquation sur la marche � suivre.
Contr�le de l'apparence d'une application.
Utiliser les animations de Ms Agent,
Lire une ligne al�atoire dansun fichier en connaissant le nombre de lignes du fichier.
Emettre un son syst�me � l'ouverture et � la fermeture de l'application
RANDOMPASSWORDGENERATOR
g�n�rateur al�atoire de mots de passe:
ce programme cr�e 100 mots de passe al�atoire puis en choisit un de fa�on al�atoire
LA PHOTOCOPIEUSE
un programme simple qui permet de scanner et d'imprimer
une page A4 en un seul click,
permet aussi la sauvegarde dans un fichier avec la date et l'heure dans le nom du
fichier ( en 1 seul click )
( jour mois ann�e heure minutes secondes )
pour s'assurer de ne jamais avoir 2 fichiers qui portent le m�me nom
SPEAKING TODOLIST
todo list utilisant la technologie Microsoft agent et qui parle en fran�ais
http://www.microsoft.com/msagent/downloads/user.aspx#core
http://www.microsoft.com/msagent/downloads/user.aspx#tts
selectionner le fran�ais si vous ne l'avez pas encore...
MyShop
�Georges Gillard 2008
Mesure d'audience ROI statistique webanalytics par