Facebook
From fdsf, 2 Weeks ago, written in Plain Text.
This paste is a reply to d from ddsdd - view diff
Embed
Download Paste or View Raw
Hits: 124
  1. # Importer les données depuis le fichier CSV
  2. $csvData = Import-Csv -Path "./donnees.csv" -Delimiter ';'
  3.  
  4. # Créer des dictionnaires pour les données des octaves et des durées
  5. $octaves = @{
  6.     '1' = @{}
  7.     '2' = @{}
  8. }
  9.  
  10. $durees = @{}
  11.  
  12. # Remplir les dictionnaires avec les données du fichier CSV
  13. foreach ($row in $csvData) {
  14.     if ($row.Octave -eq '1') {
  15.         $octaves['1'][$row.Note] = [int]$row.Frequence
  16.     } elseif ($row.Octave -eq '2') {
  17.         $octaves['2'][$row.Note] = [int]$row.Frequence
  18.     } else {
  19.         $durees[$row.DureeNote] = [int]$row.Duree
  20.     }
  21. }
  22.  
  23. # Parcourir les données pour jouer les notes ou les pauses
  24. foreach ($row in $csvData) {
  25.     # Déterminer l'octave
  26.     $octaveData = $octaves[$row.Octave]
  27.  
  28.     # Déterminer la note ou la pause
  29.     if ($row.Note -eq 'pause') {
  30.         $note = 'pause'
  31.     } else {
  32.         $note = $octaveData[$row.Note]
  33.     }
  34.  
  35.     # Déterminer la durée
  36.     $duree = $durees[$row.DureeNote]
  37.  
  38.     # Jouer la note ou la pause
  39.     switch ($note) {
  40.         'pause' {
  41.             Start-Sleep -Milliseconds $duree
  42.         }
  43.         default {
  44.             Write-Host "La note est $note et la durée est $duree"
  45.             [System.Console]::Beep($note, $duree)
  46.         }
  47.     }
  48. }
  49.  

Replies to Re: d rss

Title Name Language When
Re: Re: d dfq text 2 Weeks ago.