Informations sur les disques durs montés sur votre système

Code:: rem ============================================================================
rem Info_Disc
rem ============================================================================
dim i,n

picture 10 : full_space 10 : 2d_target_is 10 : print_target_is 10
font_bold 10 : font_size 10,12 : font_name 10,"arial"
caption 0,"Info_Disc"
for i = asc("A") to asc("Z")
   if disk_exists(chr$(i)) > 0 then n = n + 1 : Info_Disc(chr$(i),n)
next i
end
rem ============================================================================
SUB Info_Disc(d$,i)
   dim_local taille,libre,rapport,g
   g = 1000/power(1024,3)
   taille = int(disk_kilo_size(d$) * g * 1000) : taille = taille/1000
   libre = int(disk_kilo_free(d$) * g * 1000) : libre = libre /1000
   rapport = 1-libre/taille

   2d_fill_color 255,255,255 : print_locate 20,50+60*(i-1) : print d$ + ":"
   2d_fill_color 200,150,050 : 2d_rectangle 50,50+60*(i-1),450,70+60*(i-1)
   2d_fill_color 050,150,200 : 2d_rectangle 50,50+60*(i-1),450*rapport,70+60*(i-1)
   2d_fill_color 255,255,255 : print_locate 45,80+60*(i-1)

   print str$(libre) + " Go libres sur " + str$(taille) + " Go"
   print_locate 20,20 : print "Informations sur les " + str$(i) + " disques durs montés sur votre système"
END_SUB
rem ============================================================================

EDIT
Suite à la remarque de MiniBug, pour les chiffres après la virgule, j’ai édité le code pour en tenir compte.

Bonjour Papydall !

Merci pour cette astuce, elle est géniale. Wink

J'avoue que je n'ai jamais utilisé ces fonctions dans Panoramic ! Embarassed

Par contre les nombres après la virgule, ça pique un peu les yeux... Laughing

Mais bon, on peut toujours changer en Mo ou Ko et mettre des espaces dans le formatage des valeurs,
ou réduire la précision après la virgule. Bref, c'est un détail...

En tous cas, aujourd'hui j'aurai appris quelque chose grâce a Papydall !
Et pour cela, BRAVO !

Bonjour à tous !

Merci Papydall pour ce partage ! cheers

Testé avec succès !
Source toujours efficace avec une précision chirurgicale !

Voilà un très bon exemple pratique d'application des fonctions :
- disk_exists
- disk_kilo_size
- disk_kilo_free

Comme a dit Minibug : BRAVO !

Bonjour tout le monde et merci, les amis.
Comme vous avez pu constater, il n’y a rien d’extraordinaire.
Il fallait tout simplement y penser ! scratch

A+

EDIT :

Suite à la remarque de MiniBug, pour les chiffres après la virgule, j’ai modifié le code ci-haut pour en tenir compte.

Bonjour à tous !

@Papydall

Je chipote :
Je suggère l'ajout d'une condition quand il n'y a qu'un seul disque dur pour éviter cette anomalie d'affichage :

Spoiler:

@ Marc
Grace à ta chipoterie (qui n’en est pas une, mais une remarque pertinente) j’ai remédié au minibug (Salut notre ami Minibug !) que tu as mentionné.
Voici le code modifié

Code:: rem ============================================================================
rem Info_Disc
rem ============================================================================
dim i,n

picture 10 : full_space 10 : 2d_target_is 10 : print_target_is 10
font_bold 10 : font_size 10,12 : font_name 10,"arial"
caption 0,"Info_Disc"
for i = asc("A") to asc("Z")
if disk_exists(chr$(i)) > 0 then n = n + 1 : Info_Disc(chr$(i),n)
next i
end
rem ============================================================================
SUB Info_Disc(d$,i)
dim_local taille,libre,rapport,g
g = 1000/power(1024,3)
taille = int(disk_kilo_size(d$) * g * 1000) : taille = taille/1000
libre = int(disk_kilo_free(d$) * g * 1000) : libre = libre /1000
rapport = 1-libre/taille

2d_fill_color 255,255,255 : print_locate 20,50+60*(i-1) : print d$ + ":"
2d_fill_color 200,150,050 : 2d_rectangle 50,50+60*(i-1),450,70+60*(i-1)
2d_fill_color 050,150,200 : 2d_rectangle 50,50+60*(i-1),450*rapport,70+60*(i-1)
2d_fill_color 255,255,255 : print_locate 45,80+60*(i-1)

print str$(libre) + " Go libres sur " + str$(taille) + " Go"
print_locate 20,20
if i = 1
print "Informations sur l'unique disque dur monté sur votre système"
else
print "Informations sur les " + str$(i) + " disques durs montés sur votre système"
end_if
END_SUB
rem ============================================================================

Résultat:

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

Tu m'as encore grillé au poteau papydall !

Bon, c'est pas le tout:

J'ai une erreur bloquante si aucun disque n'est monté dans un lecteur donné.
J'ai une partie de la mémoire vive (64M) qui est déclarée en disque de manoeuvre Z:\RAMDISK. bien pratique pour faire des écritures/lectures temporaires sans aller sur le disque dur.
Et la sub me sort une erreur sur ce disque virtuel (pas de disque monté...) qui fonctionne parfaitement.

Il y a un moyen d'avoir la liste de tous les disques montés sans tester de A à Z:
EXECUTE_WAIT "cmd.exe|/c fsutil fsinfo drives |clip"
-> liste dans le clipboard.

Ce que j'aimerais, c'est obtenir aussi le nom des disques correspondant à leur lettre...

Nombre de messages : 2690 Date d'inscription : 13/09/2009

Ouaaah, et en plus, Papydall fait dans le joli !
J'adore ces batailles d'experts !
Laughing

JL35 a écrit:: J'ai une partie de la mémoire vive (64M) qui est déclarée en disque de manoeuvre Z:\RAMDISK. bien pratique pour faire des écritures/lectures temporaires sans aller sur le disque dur.
Et la sub me sort une erreur sur ce disque virtuel (pas de disque monté...) qui fonctionne parfaitement.

J’ai crée un RAMDISK X : de 1G.
Mon code reconnait bien ce disque, mais il n’affiche pas sa lettre d’identification X : comme les autres disques.
Pourquoi ? Je n’en sais rien.

Informations sur les disques durs montés sur votre système 121

Nombre de messages : 471 Date d'inscription : 29/12/2016

Papydall a écrit:: J’ai crée un RAMDISK X : de 1G

J'ai eu plusieurs fois mon PC ces dernières année qui c'est bien planté.

Je pense que Windows sait ce qu'il fait, mais j'éviterai d'utiliser la lettre "X" comme lecteur.

J'ai constaté plusieurs fois que Windows créé un disque avec cette lettre X pour déporter le boot sur ce disque, en attendant que remettre à niveau Windows. Je ne sais pas si c'est un disque virtuel ou autre, et peut-être que je n'ai rien compris à la chose, mais je l'ai constaté.

Je suppose que Windows a prévu le cas de cette lettre, mais je ne prendrais pas le risque. J'ai peut-être tout faux dans la compréhension de la méthode utilisée, mais personne ne m'a contredit.

Cela dit je vais tenter de repasser en W10 ce Weekend. Manquant d'information lors du plantage avec un clé de licence Windows, j'étais revenu en W7. Mais j'ai toujours eu des problèmes avec cette version, même au départ.

Pour Marc qui me demandais de faire un teste, je le ferais après la transposition.

Oscaribout a écrit:: Je pense que Windows sait ce qu'il fait, mais j'éviterai d'utiliser la lettre "X" comme lecteur.

Après quelques désagréments, je pense aussi que tu as raison : pour plus de confort éviter d’utiliser la lettre "X" comme lecteur.

J’ai modifié mon code pour corriger le mauvais affichage mentionné ci-haut (qui ne dépend pas de la lettre identifiant le lecteur mais de la valeur de la variable rapport)

voici le code corrigé.

Code:: rem ============================================================================
rem Info_Disc
rem ============================================================================
dim i,n

picture 10 : full_space 10 : 2d_target_is 10 : print_target_is 10
font_bold 10 : font_size 10,12 : font_name 10,"arial"
caption 0,"Info_Disc"
for i = asc("A") to asc("Z")
   if disk_exists(chr$(i)) > 0 then n = n + 1 : Info_Disc(chr$(i),n)
next i
end
rem ============================================================================
SUB Info_Disc(d$,i)
   dim_local taille,libre,rapport,g
   g = 1000/power(1024,3)
   taille = int(disk_kilo_size(d$) * g * 1000) : taille = taille/1000
   libre = int(disk_kilo_free(d$) * g * 1000) : libre = libre /1000
   rapport = 1-libre/taille
   if rapport <= 1/9 then rapport = 0.15
   2d_fill_color 255,255,255 : print_locate 20,50+60*(i-1) : print d$ + ":"
   2d_fill_color 200,150,050 : 2d_rectangle 50,50+60*(i-1),450,70+60*(i-1)
   2d_fill_color 050,150,200 : 2d_rectangle 50,50+60*(i-1),450*rapport,70+60*(i-1)
   2d_fill_color 255,255,255
   print_locate 45,80+60*(i-1)
   print str$(libre) + " Go libres sur " + str$(taille) + " Go"
   print_locate 20,20
   if i = 1
   print "Informations sur l'unique disque dur monté sur votre système"
   else
   print "Informations sur les " + str$(i) + " disques durs montés sur votre système"
   end_if
END_SUB
rem ============================================================================

Résultat:

» Volumes montés (suite)
» Quelques informations sur votre PC:
» Infos sur composants et pilotes DirectX sur votre système
» Tester votre réseau local et votre connexion Internet
» Partage d'informations sur Panoramic.