Salut à tous en ces temps noir un membre du forum anglais a écrit et publié une petite application
Liens vers la discussion
Les sources peuvent être directement téléchargées et compilées avec Lazarus 2.0.6 et FPC 3.04 iciL'Université Johns Hopkins de Baltimore publie les dénombrements actuels des cas confirmés et récupérés ainsi que des décès dans l'épidémie de Corona pour de nombreux pays. J'ai écrit un petit programme qui télécharge les valeurs des séries chronologiques et les affiche graphiquement dans un TChart. Je sais que de tels programmes peuvent être trouvés sur le Web à de nombreux endroits maintenant, mais avoir les données immédiatement disponibles rend le programme très agile. Et il y a une option pour utiliser une échelle logarithmique pour les données cumulatives qui permet de détecter quand l'augmentation actuellement exponentielle des cas commence à se stabiliser, espérons-le. En maintenant la touche CTRL et le bouton gauche de la souris enfoncés, et en faisant glisser la souris sur les points de données, vous pouvez ajuster une courbe exponentielle aux points de données; Le temps pour doubler le nombre de cas ainsi qu'une estimation du nombre de cas en 1 et 2 semaines sont affichés dans la barre d'état.
Si vous avez des Exceptions à la compilation commentez ces lignes dans le code
En attachement les DLL nécessaires pour windows
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 sa[0] := AnsiDequotedStr(sa[0], '"'); sa[1] := AnsiDequotedStr(sa[1], '"');
coronadll.zip
Courage à tous
[EDIT] Autre solution en cas d'erreur
Remplacez la fonction AnsiDequotedStr
Par celle-ci, à insérer dans le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Function MyDequotedStr(s: string) : String; var i: integer; begin Result :=''; for i:= 0 to length(s)-1 do begin if s[i]<>'"' then result := result + s[i]; end; end;
Partager