Discussion :

[djiga4me]

Bonjour,
Je m'excuse si le titre ne colle pas exactement, j'ai pas trouvé mieux.

Bon voilà, j'essaie d'adapter cette source à mon programme, et comme j'en ai trouvé une autre ailleurs, je comprends mieux comment ça marche.
Alors voilà ma question, dans cette première, ceci est utilisé pour récupérer la lettre du volume :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for Index:=0 to 25 do if ((PData^.dbcv_unitmask shr Index) = 1) then begin DriveLetter:=Chr(65+Index); break; end;

Je comprends qu'il parcours la liste et s'arrête en la trouvant.
---
Mais dans celle là que j'ai trouvé ailleurs, je ne pige pas ce que viens faire ln() et ln(2) et Ord(A) et les ":2:0"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

str(ln(PDEV_BROADCAST_VOLUME( Msg.LParam )^.dbcv_unitmask)/ln(2)+Ord('A'):2:0,GetLettre);

Pouvez vous m'éclairer ?

Merci.

[GoustiFruit]

C'est pour ce genre de situation qu'on recommande toujours de commenter son code...

[SergioMaster]

Je ne penses pas que ce Ln soit un logarithme népérien dans ce cas là je pense qu'il s'agit plutôt d'une sorte de fonction interne

si je me référe au source cité il serait pour toi question de savoir si une clé USB est inséré ?
j'avais fait tout un travail sur ce sujet a propos de l'éjection ici

[ero-sennin]

Salut,

Tu peux aussi t'inspirer de cette discussion.
J'avais fait (avec l'aide de Sergio, Jipeté, et bien d'autres), un petit composant (que tu peux retrouver ici) qui indique les infos d'une clé usb insérée. (Espace occupé, espace libre, la lettre, l'éjection ....).

[djiga4me]

Bonjour,
@GoustiFruit ; effectivement !
@ero-sennin, @SergioMaster :
Merci pour vos réponses, je suis déjà passé par vos sujets sur le forum à ce point c'est ce qui m'a fait avancer.
En même temps, mon but ici est seulement de comprendre cette ligne de code, ça m'intrigue. ln() n'est pas à ce que je comprends une fonction interne.

et le :2:0 m'intrigue aussi.

Merci.

[ero-sennin]

Pour ce qui est du ln, je suis du même avis que Sergio, car je ne comprends vraiment pas ce que viendrait faire un logarithme népérien ici. Quant à la syntaxe 2:0, là je sèche...
Sinon, Ord('A'), renvoie la valeur ordinale de 'A' soit la valeur 65... F1 sur cette fonction t'aurai surement expliqué la chose

[djiga4me]

Salut !
Merci, pour Ord('A'), j'avais bien saisi ! Le Ln(), j'ai collé cette ligne de code dans un projet quasiment vide (à savoir sans autre fonction interne ou autre, j'ai Ctrl-Cliqué et ça me ramène à System.Ln.
Donc !!!
Pour le reste, voilà

[Pascal Jankowski]

Pour faire simple, la fonction logarithme utilisée ici est un logarithme de base 2. Le logarithme de base n est définit ainsi : ln(x)/ln(n)
donc avec n=2 on a ln(x)/ln(2)

Le logarithme de base 2 est intéressant car c’est tout simplement la fonction inverse de la fonction f(x) = 2^x (2 puissance x). Donc utile pour le calcul binaire cela permet de retrouver rapidement la valeur de x connaissant la valeur 2^x. (ie : retrouver l'exposant d'une puissance de 2)

Quant au :2 :0 cela signifie que l’on formate le résultat comme un nombre compris entre 0 et 99 et n’ayant aucune décimale.

[djiga4me]

Merci beaucoup pour votre réponse.
Franchement, c'est une super chose que d'apprendre cette façon de formater les données. Et pour le Ln() ça m'éclaire bien plus.

Merci.

[Pascal Jankowski]

Je tiens tout de même à apporter une précision car ma première explication est quelque peu aride.

Il était simple de retrouver pourquoi utiliser le logarithme de base 2 au regard des deux exemples qui ont été fournis soit.

1) Value shr x = 1, ou x parcours l’ensemble des entiers positifs ou nuls.
2) x = ln(Value)/ln(2)

Les exemples (1) et (2) sont équivalents. En effet partant du principe que Value ne peut avoir qu’un seul bit avec la valeur 1 (tous les autres sont à 0), Value ne peut prendre que les valeurs entières suivantes {1,2,4,8,16,32,64…} soit encore {2^x | x entier positif ou nul}

Pour l’exemple (1) shr est une instruction qui revoit 1 si le x-ème bit de value est 1 donc cela répond bien au problème.

Pour l’exemple (2) il suffit de poser Value = 2^x, puis d’exprimer x en fonction de Value. En passant au logarithme on peut écrire : ln(Value) = ln(2^x) soit encore ln(Value) = xln(2) d’où l’on tire
x = ln(Value) / ln(2)

Ce qui démontre l'équivalence.

[e-ric]

Merci beaucoup pour votre réponse.
Franchement, c'est une super chose que d'apprendre cette façon de formater les données. Et pour le Ln() ça m'éclaire bien plus.

Merci.

Pour le logarithme, c'était pas compliqué, du niveau de la terminale en l'occurence , heureusement que Pascal veille. L'emploi du logarithme est un peu surprenant à première vue, on mélange de l'arithmétique entière et de l'arithmétique réelle, une fonction avec une boucle sur les bits de dbcv_unitmask aurait pu être mise en place à la manière du premier calcul que tu donnais qui est, à mon avis, préférable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
// code adapté de http://msdn.microsoft.com/en-us/library/windows/desktop/aa363249(v=vs.85).aspx
// j'ai pas Delphi sour la patte, à tester
function DriveLetterFromMask(Mask: Integer): Char;
const
  DriveLetters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  Rank: Integer;
begin
  Rank := 0;
  while mask > 1 do
  begin
    mask := mask shr 1;
    Inc(Rank);
  end;  
  Result := DriveLetters[Rank];
End;
...
DriveLetter := DriveLetterFromMask(PData^.dbcv_unitmask);

Pour le formattage, c'est une notation ancienne qui est uniquement maintenue pour des raisons historiques (Pascal d'origine, avant le Turbo), à éviter donc, la fonction Format est plus générale.

@+