Test de vitesse d'une clé usb

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

J'ai un décodeur TNT qui peut enregistrer sur clé usb, mais de temps en temps il me dit que la vitesse de la clé est insuffisante (il est vrai que j'ai pris n'importe quoi).
D'où l'idée de pouvoir comparer la vitesse de différentes clés (je commence à en avoir quelques unes).
Je me suis inspiré d'un site qui a comparé un certain nombre de clés, les tests consistant en:
- lecture et écriture de 500 petits fichiers de 500 ko chacun.
- lecture et écriture d'un gros fichier de 450 Mo
et on en déduit la vitesse de transfert dans les deux sens, en Mo/seconde.

En fait dans mon programme je crée 500 fichiers texte identiques avec des noms différents, dans le même répertoire, ça fausse certainement le résultat (il aurait fallu des fichiers différents placés dans des répertoires différents), en tout cas il ne faut pas considérer les résultats dans l'absolu, mais de manière relative d'une clé à l'autre.
Pour le gros fichier j'ai simplement pris l'éditeur Panoramic que j'empile autant de fois que nécessaire.
La création de ces fichiers est assez longue (chez moi 2 minutes 1/2).
Le tout est rangé dans un répertoire spécial qui ne contient que ça.

Je fais appel à une ressource externe (un petit programme que j'ai écrit dans un autre langage, je ne sais pas faire en Panoramic): volname.exe, qui donne la liste des volumes montés sur le PC, simplement pour savoir où est la clé usb à tester, je l'ai mis ici: http://www.2shared.com/file/q7ghDgbN/VolName.html

Sinon, pour les tests dont je me suis inspiré:
- transfert gros fichier (1 x 450 Mo): http://www.informanews.net/scripts/test-29-35-comparatif-cles-usb.html#2
- transfert petits fichiers (500 x 500 Ko): http://www.informanews.net/scripts/test-29-36-comparatif-cles-usb.html#2

On peut évidemment tester de cette façon d'autres supports en mémoire flash, par exemple des cartes mémoire, mais toujours pour comparaison relative.

Et maintenant le programme:

Code:: ' Test_Cle.bas test de vitesse d'une clé usb
DIM a$, f$, fs$, fl$, fvol$, pvol$, n$, i%, j%, hl, vol$, lab$, rtest$
DIM t1$, t2$, ts1, ts, tx1, tx2, tx3, tx4, sz
LABEL Cle, Forcle, Netcle, Crefic, Tescle, Temps

' ============================== A AJUSTER ! ==================================
rtest$ = "D:\TEMP": ' répertoire de création des fichiers test sur le PC (700M)
pvol$ = "C:\UTIL\Volname.exe ": ' recherche des volumes montés
fvol$ = "Z:\Vol": ' fichier de manoeuvre (sera supprimé)
fs$ = "C:\Progra~1\Panora~1\Panora~1.exe": ' fichier binaire quelconque (~5M octets)
' ==============================================================================

hl = 200
LIST 10: LEFT 10, 10: WIDTH 10, 570: HEIGHT 10, hl
FONT_NAME 10, "Bitstream Vera Sans Mono": FONT_SIZE 10, 11
ON_CLICK 10, Cle

BUTTON 11: TOP 11, hl+10: LEFT 11, 10: WIDTH 11, 130: CAPTION 11, "Formatage clé"
ON_CLICK 11, Forcle
BUTTON 12: TOP 12, hl+10: LEFT 12, 150: WIDTH 12, 130: CAPTION 12, "Nettoyage clé"
ON_CLICK 12, Netcle
BUTTON 13: TOP 13, hl+10: LEFT 13, 290: WIDTH 13, 130: CAPTION 13, "Création des fichiers test"
ON_CLICK 13, Crefic
BUTTON 14: TOP 14, hl+10: LEFT 14, 430: WIDTH 14, 130: CAPTION 14, "Test clé"
ON_CLICK 14, Tescle

GRID 20: TOP 20, hl+70: LEFT 20, 140: WIDTH 20, 300: HEIGHT 20, 128: HIDE 20
GRID_COLUMN_WIDTH 20, 98
GRID_ROW 20, 5: GRID_COLUMN 20, 3
GRID_WRITE 20,1,2," Écriture: PC -> Clé": GRID_WRITE 20,1,3," Lecture: Clé -> PC"
GRID_WRITE 20,2,1," 500 x 500k": GRID_WRITE 20,3,1," débit (Mo/s)"
GRID_WRITE 20,4,1," 1 x 450M": GRID_WRITE 20,5,1," débit (Mo/s)"

EXECUTE_WAIT "cmd.exe /c " + pvol$ + ">" + fvol$
FILE_LOAD 10, fvol$: FILE_DELETE fvol$

END
' ------------------------------------------------------------------------------
Cle:
IF ITEM_INDEX(10) < 2 THEN RETURN
vol$ = LEFT$(ITEM_INDEX$(10), 2): ' volume
lab$ = RTRIM$(MID$(ITEM_INDEX$(10), 4, 14)): ' label

RETURN

Forcle:
IF ITEM_INDEX(10) < 2 THEN MESSAGE "Monter et sélectionner une clé": RETURN
a$ = " - FORMATAGE RAPIDE DE LA CLE " + vol$ + " " + lab$ + " - " + CHR$(10)
a$ = a$ + "Toutes les données seront effacées !"
IF MESSAGE_CONFIRMATION_YES_NO(a$) <> 1 THEN RETURN
EXECUTE_WAIT "Cmd.exe /c FORMAT " + vol$ + " /Q"
RETURN

Netcle:
IF ITEM_INDEX(10) < 2 THEN MESSAGE "Monter et sélectionner une clé": RETURN
a$ = " - NETTOYAGE DE LA CLE " + vol$ + " " + lab$ + " - " + CHR$(10)
a$ = a$ + "Toutes les données seront effacées !"
IF MESSAGE_CONFIRMATION_YES_NO(a$) <> 1 THEN RETURN
EXECUTE_WAIT "Cmd.exe /c DEL " + vol$ + "\*.*"
RETURN

Crefic:
' Création de 500 fichiers de 500k et d'un fichier de 450M sur [rtest$]
PRINT_LOCATE 10, hl+40: PRINT "Création des fichiers de test en cours, patience..."
a$ = "Au clair de la lune mon ami Pierrot prête-moi ta plume pour écrire "
a$ = a$ + "un mot, ma chandelle est morte ": ' 98 caractères
FOR j% = 1 TO 500
n$ = STR$(j%): n$ = STRING$(4-LEN(n$), "0") + n$
f$ = rtest$ + "F" + n$ + ".txt"
FILE_OPEN_WRITE 1, f$
' 5000 lignes de 98 car. + 0D0A = 500k octets
FOR i% = 1 TO 5000
FILE_WRITELN 1, a$
NEXT i%
FILE_CLOSE 1
NEXT j%
FILEBIN_OPEN_READ 1, fs$: sz = FILEBIN_SIZE(1): FILEBIN_CLOSE 1
j% = INT(450000000/sz)
fl$ = rtest$ + "F450M.bin": ' résultat, environ 450 M
EXECUTE_WAIT "Cmd.exe /c COPY /B " + fs$ + " " + fl$ + " >NUL"
FOR i% = 1 TO j%
EXECUTE_WAIT "Cmd.exe /c COPY /B " + fl$ + "+" + fs$ + " " + fl$ + " >NUL"
NEXT i%
PRINT_LOCATE 10, hl+40: PRINT STRING$(50, " ")
RETURN

Tescle:
IF ITEM_INDEX(10) < 2 THEN MESSAGE "Monter et sélectionner une clé": RETURN
IF FILE_EXISTS(rtest$+"F450M.bin")=0 OR FILE_EXISTS(rtest$+"F0001.txt")=0
MESSAGE "Fichiers de test non créés !": RETURN
END_IF
a$ = " - TEST D'ENVOI DE FICHIERS DU PC VERS LA CLÉ " + vol$ + " " + lab$ + " - " + CHR$(10)
a$ = a$ + CHR$(10)
IF MESSAGE_CONFIRMATION_YES_NO(a$) <> 1 THEN RETURN
FILEBIN_OPEN_READ 1, rtest$ + "F450M.bin": sz = FILEBIN_SIZE(1): FILEBIN_CLOSE 1
sz = sz/1000000: ' taille du fichier créé, en Mo
PRINT_LOCATE 140, hl+50: PRINT "Résultat:"
SHOW 20
' 1) copie des 500 fichiers de 500k du PC vers la clé ( = 250M)
t1$ = TIME$
EXECUTE_WAIT "Cmd.exe /c COPY " + rtest$ + "*.txt " + vol$ + " >NUL"
t2$ = TIME$: GOSUB Temps: tx1 = 250/ts: ' en Mo/s
tx1 = INT(tx1*100): tx1 = tx1/100
GRID_WRITE 20,2,2," "+STR$(ts)+" secondes"
GRID_WRITE 20,3,2," "+STR$(tx1)+" Mo/s"
' 2) copie du fichier de 450M du PC vers la clé
t1$ = TIME$
EXECUTE_WAIT "Cmd.exe /c COPY " + rtest$ + "F450M.bin " + vol$ + " >NUL"
t2$ = TIME$: GOSUB Temps: tx2 = sz/ts
tx2 = INT(tx2*100): tx2 = tx2/100
GRID_WRITE 20,4,2," "+STR$(ts)+" secondes"
GRID_WRITE 20,5,2," "+STR$(tx2)+" Mo/s"

a$ = " - TEST D'ENVOI DE FICHIERS DE LA CLÉ VERS LE PC " + vol$ + " " + lab$ + " - " + CHR$(10)
a$ = a$ + CHR$(10)
IF MESSAGE_CONFIRMATION_YES_NO(a$) <> 1 THEN RETURN
' suppression préalable des fichiers en réception
FILE_DELETE rtest$ + "*.txt"
FILE_DELETE rtest$ + "F450M.bin"
' 3) copie des 500 fichiers de 500k de la clé vers le PC
t1$ = TIME$
EXECUTE_WAIT "Cmd.exe /c COPY " + vol$ + "\*.txt " + rtest$ + " >NUL"
t2$ = TIME$: GOSUB Temps: tx3 = 250/ts: ' en Mo/s
tx3 = INT(tx3*100): tx3 = tx3/100
GRID_WRITE 20,2,3," "+STR$(ts)+" secondes"
GRID_WRITE 20,3,3," "+STR$(tx3)+" Mo/s"
' 4) copie du fichier de 450M de la clé vers le PC
t1$ = TIME$
EXECUTE_WAIT "Cmd.exe /c COPY " + vol$ + "\F450M.bin " + rtest$ + " >NUL"
t2$ = TIME$: GOSUB Temps: tx4 = sz/ts: ' en Mo/s
tx4 = INT(tx4*100): tx4 = tx4/100
GRID_WRITE 20,4,3," "+STR$(ts)+" secondes"
GRID_WRITE 20,5,3," "+STR$(tx4)+" Mo/s"
RETURN

Temps:
ts1 = VAL(RIGHT$(t1$, 2))+60*VAL(MID$(t1$, 4,2))+3600*VAL(LEFT$(t1$,2))
ts = VAL(RIGHT$(t2$, 2))+60*VAL(MID$(t2$, 4,2))+3600*VAL(LEFT$(t2$,2)) - ts1
RETURN

Donc on peut travailler sur la clef usb avec panoramic ?
c'est génial ça !

Interessant comme application, voilà un utilitaire de plus en panoramic Wink

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

On peut évidemment travailler avec Panoramic sur n'importe quel volume de stockage, disques internes ou externes, sur usb ou non, cd ou dvd, mais il faut pour ça connaître la lettre du volume, d'où le petit programme annexe (volname.exe). C'est sous-traité par Windows.
Mais ça ne veut pas dire qu'on peut dialoguer avec n'importe quel périphérique sur usb, c'est seulement avec les volumes de fichiers.

Citation :: Mais ça ne veut pas dire qu'on peut dialoguer avec n'importe quel périphérique sur usb, c'est seulement avec les volumes de fichiers.

heu ?
c'est quoi la différence ?
Je vois que tu arrive à lire et écrire dessus pourtant Wink

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je peux lire et écrire des fichiers, et non pas analyser les signaux, on n'a pas les instructions pour.
On travaille au niveau du fichier, et non de l'octet et encore moins du bit.

C'est une liaison série, mais on n'a pas l'équivalent par exemple des fonctions PARALLELxxx pour le port parallèle, par exemple pour dialoguer avec un dispositif qui serait branché sur usb. L'équivalent des INP() ou OUT du QBasic.

@JL35:
Pour obtenir la liste des volumes connectés, j'ai fait depuis un certain temps une toute petite DLL speciale qui retourne la liste des volumes sous forme de masque binaire en 32 bits:
1 = A:
2 = B:
4 = C:
8 = D:
etc. La valeur retournée est la somme des bits par drive connecté. Cette DLL s'appelle GVL = GetVolumeList et elle est comprise dans la distribution des "DLL's divers" sur mon site. Il y a aussi sa documentation. Elle place aussi une liste textuelle dans le presse-papier, et le programme suivant démontre son utilisation (compris dans la distribution, qui contient aussi une version "stand-alone"):

Code:: label click_1
dim i%
dim handle_DLL%, nom$, funct$, n%,j%

button 1 : top 1,10 : left 1,10 : width 1,200 : caption 1,"Liste dans Presse-Papier" : on_click 1,click_1
memo 3 : top 3,70 : left 3,10 : width 3,600 : height 3,400
font_name 3,"Terminal" : font_size 3,10

end

click_1:
dll_on "GVL.dll"
i% = dll_call0("GetVolumeList")
dll_off
clear 3
item_add 3,clipboard_string_paste$
return

Voici le résultat contenu dans le presse-papier, en cliquant sur le bouton:

Citation :: Disks

Drive R/W Total Bytes Free Bytes Vol Ser Label
--------- --- ---------------- ---------------- -------- -------------
C Fixed R/W 149552459776 112842174464 945272FD ACER
E CDROM <disk missing>
Z Network R/W 20974428160 9582088192 4C0516D3 BOOT

Cette DLL est disponible depuis le 7/11/2010...

ha ok je vois, lire des données par des fonctions fichiers oui mais lire la donnée savoir si c'est 1 ou 0 etc non, c 'est ça ?

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

@Klaus dont acte, d'ailleurs je me demande si je ne l'ai pas déjà utilisée ta dll, mais comme j'avais mon programme, c'est à lui que j'ai pensé. Il renvoie ça dans un fichier:

Ca m'embête toujours d'être obligé de faire appel à une ressource externe, ce serait bien de pouvoir le faire en Panoramic pur, mais bon, il n'est pas fait pour ça je pense.
Mais effectivement, dans mon programme on peut facilement remplacer l'appel à volname.exe par un appel à ta dll, je le recommanderais même, c'est plus simple.

@dragonno ben oui, en gros c'est ça, c'est Windows qui gère les 0 et 1, qui les assemble en octets et en fichiers, nous on n'a accès qu'au niveau fichier.

Ok je te remercie du renseignement Wink

Panoramic gère bien l'entrée/sortie parallèle, peut-être qu'un jour ce sera le cas pour l'USB Wink

Ah bon je savais pas que la CIE faisait des disques locaux, je croyais qu'ils faisaient que des disques amovibles.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Mon LaCie est bien un disque auxiliaire (sauvegarde) sur usb, je ne sais pas trop pourquoi il est détecté comme local... probablement le formatage en NTFS.

Oui, c'est justement ce que je voulais te faire remarquer Wink

J'en ai un aussi, pareil usb.

A ma connaissance, tout disque qui n'est pas relié par une liaison à distance tel que Ethernet, réseau local par Wifi etc, est un disque local. Cela ne fait pas de différence que le disque soit à l'intérieur de la boite sur une pappe IDE, firewire, SCSI ou autre, ou qu'il soit en liaison USB, même avec rallonges, multiplexeurs USB etc. C'est toujours un disque local.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Effectivement, j'ai formaté un petit disque de 10G (sur usb) en FAT32, il est bien trouvé comme disque local.

Oui, FAT16, FAT32, NFTS etc, disquette 3"1.2, CD, DVD, disque USB quelque soit sa capacité - tant que c'est relié électriquement directement à l'ordinateur, c'est un disque local. seuls les disques sur un réseau ne sont pas pris comme disques locaux - dans ce cas, il s'agit de disques locaux d'autres ordinateurs.

Windows XP pro m'affiche pourtant disque amovible comme nom de volume quand je met une clef usb.

Certes, mais c'est quand-même un disque local. Essaie de formater ta clé USB en donnant un label...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

ah oui, les clés usb et cartes mémoire sont disques amovibles, label ou non.

Essaie mon outil GVL: pour une carte mémoire, il affiche "Floppy".

c'est pas logique d'ailleurs de noter flopy pour une carte mémoire, car flopy signifiait le disque souple à l'époque et je vois pas que la carte mémoire soit un disque souple.

Oui, bien sûr. Mais actuellement, les disquettes "souples", les 8" et les 5"1/4, n'existent plus. Et par extension, tous les disque amovibles leur sont associés. Pas beau sur le plan linguistique, mais les Américains ont une certaine tendance à simplifier...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

En fait les logiciels rendent un code que l'on interprète comme on veut, chez moi ça se traduit par "disque amovible", floppy ou ça ce n'est pas bien gênant.

A ce sujet, je viens de me souvenir que dans la mémoire du pc tu peux lire par assembleur la zone où se situe le texte "floppy" et le modifier je crois, je te dirais ça demain quand j'aurais consulté ma doc.

?????????????? Le texte "Floppy" est codé en "dur" dans GVL.dll dont je peux mettre les sources à disposition...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Et puis franchement je ne vois pas trop l'intérêt d'aller modifier les noms de types, on sait quand même bien ce qu'on a branché sur sa machine ! Personnellement ce que je recherche (par programme) c'est le nom du volume (label) pour savoir s'il est monté ou non, pas le type.
Et pour ça je commence par donner un nom spécifique à tous mes périphériques, clés usb ou cartes mémoire ou disques mobiles.

Bon, je vais voir si je peux intégrer cela dans mon outil. A priori, je ne vois pas ce qui me gênerait...

» Savoir la vitesse
» Calculer la vitesse d'un PC
» Vitesse du processeur
» Vitesse et Précipitation...
» calcul temps au Km et vitesse horaire