Facebook
From dfq, 4 Weeks ago, written in Plain Text.
This paste is a reply to Re: d from fdsf - go back
Embed
Viewing differences between Re: d and Re: Re: d
Importer les données depuis Lire le fichier CSV
$csvData = Import-Csv -Path "./donnees.csv" -Delimiter ';'

# Créer des dictionnaires pour les données des octaves et des durées
$octaves = @{
    '1' = @{}
    '2' = @{}
}

$durees = @{}

# Remplir les dictionnaires avec les données 
contenu du fichier CSV
foreach ($row in $csvData) 
converti en hexadécimal
$hexData = Get-Content -Path "Convert_FichierExe.txt" -TotalCount 1

# Convertir la première ligne en décimal
$decimalData = [System.Convert]::ToInt64($hexData, 16)

# Convertir le décimal en binaire
$binaryData = [System.Convert]::ToString($decimalData, 2)

# Regrouper les valeurs binaires en blocs de 64 bits
$blocLength = 64
for ($i = 0; $i -lt $binaryData.Length; $i += $blocLength) 
{
    if ($row.Octave -eq '1') {
        $octaves['1'][$row.Note] 
$bloc [int]$row.Frequence
    } elseif ($row.Octave -eq '2') {
        $octaves['2'][$row.Note] = [int]$row.Frequence
    } else {
        $durees[$row.DureeNote] = [int]$row.Duree
    }
}

# Parcourir les données pour jouer les notes ou les pauses
foreach ($row in $csvData) {
    # Déterminer l'octave
    $octaveData = $octaves[$row.Octave]

    # Déterminer la note ou la pause
    if ($row.Note -eq 'pause') {
        $note = 'pause'
    } else {
        $note = $octaveData[$row.Note]
    }

    # Déterminer la durée
    $duree = $durees[$row.DureeNote]

    # Jouer la note ou la pause
    switch ($note) {
        'pause' {
            Start-Sleep -Milliseconds $duree
        }
        default {
            
$binaryData.Substring($i, [Math]::Min($blocLength, $binaryData.Length - $i))
    
Write-Host "La note est $note et la durée est $duree"
            [System.Console]::Beep($note, $duree)
        }
    }
"Bloc $([Math]::Ceiling(($i + 1) / $blocLength)): $bloc"
}

Replies to Re: Re: d rss

Title Name Language When
Re: Re: Re: d fd text 4 Weeks ago.