Discussion :

[barbican82]

Bonjour,

je continue mon apprentissage powershell et je bute sur une boucle

L'exercice consiste à traduire des phrases en morse.

Dans un premier temps, j'utilise -replace pour remplacer les lettres par des points et des traits.
Cela fonctionne bien.

Dans un second temps, je dois émettre des bips correspondant aux point et traits, c'est là que ça se corse.

J'utilise

Code :

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

 foreach($lettre in $phrsae1)

Cette "fonction" ne pose pas de problème pour le premier point mais ne fonctionne pas pour le second.

Lorsque j'entre une "phrase" contenant une seule lettre, le son joué correspond bien à la traduction de la lettre en . et _.
SI je mets deux lettres, il ne se passe rien.
La boucle lettre par lettre ne se fait pas et même le son correspondant à la première n'est pas "joué".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
$phrase1 = $phrase0.ToUpper()
foreach ($letter in $phrase1){
if ($letter -eq  "A"){[console]::beep(500,300)+[console]::beep(500,600)}`
elseif ($letter -eq  "B"){[console]::beep(500,600)+[console]::beep(500,300)+[console]::beep(500,300)+[console]::beep(500,300)}`
elseif ($letter -eq  "C"){[console]::beep(500,600)+[console]::beep(500,300)+[console]::beep(500,600)+[console]::beep(500,300)} `
elseif ($letter -eq  "D"){[console]::beep(500,600)+[console]::beep(500,300)+[console]::beep(500,300)} `
elseif ($letter -eq  "E"){[console]::beep(500,300) }`
elseif ($letter -eq  "F"){[console]::beep(500,300)+[console]::beep(500,300)+[console]::beep(500,600)+[console]::beep(500,300)}`
elseif ($letter -eq  "G"){[console]::beep(500,600)+[console]::beep(500,600)+[console]::beep(500,300)}`
........
elseif ($letter -eq  "Z"){[console]::beep(500,600)+[console]::beep(500,600)+[console]::beep(500,300)+[console]::beep(500,300)}
}

[cerede2000]

Je te propose ceci

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
$morses = @{'A'='.-';'B'='-...';'C'='-.-.';'D'='-..';'E'='.';'F'='..-.';'G'='--.';'H'='....';'I'='..';'J'='.---';'K'='-.-';'L'='.-..';'M'='--';'N'='-.';'O'='---';'P'='.--.';'Q'='--.-';'R'='.-.';'S'='...';'T'='-';'U'='..-';'V'='...-';'W'='.--';'X'='-..-';'Y'='-.--';'Z'='--..';'1'='.----';'2'='..---';'3'='...--';'4'='....-';'5'='.....';'6'='-....';'7'='--...';'8'='---..';'9'='----.';'0'='-----'}

$mot = 'BONJOUR BENJAMIN COMMENT VA TU AUJOURD4HUI'
foreach($letter in $mot.ToCharArray()) {
	if ($morses.ContainsKey([string]$letter)) {
		write-host -NoNewline "$letter : "
		write-host $morses[[string]$letter]
		foreach($m in $morses[[string]$letter].ToCharArray()) {
			if($m -eq '.') { [console]::beep(500,300) }
			if($m -eq '-') { [console]::beep(500,600) }
		}
	} else {
		write-host "$letter : "
	}
	Start-Sleep -m 300
}

[barbican82]

Bonjour,

c'est super, ça fonctionne.

Par contre, je voudrais bien savoir pourquoi ma boucle ne fonctionne pas.

[cerede2000]

Regarde ce que j'ai fais pour le parcours des lettres de ma variable $mot :

Code :

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

1
2
$mot = 'SOS TOTO'
foreach($letter in $mot.ToCharArray()) {

[barbican82]

re,

Ok, j'ai compris.

merci

[cerede2000]

Pour le fun
Adapté avec les standards du morse :

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
$morses = @{'A'='.-';'B'='-...';'C'='-.-.';'D'='-..';'E'='.';'F'='..-.';'G'='--.';'H'='....';'I'='..';'J'='.---';'K'='-.-';'L'='.-..';'M'='--';'N'='-.';'O'='---';'P'='.--.';'Q'='--.-';'R'='.-.';'S'='...';'T'='-';'U'='..-';'V'='...-';'W'='.--';'X'='-..-';'Y'='-.--';'Z'='--..';'1'='.----';'2'='..---';'3'='...--';'4'='....-';'5'='.....';'6'='-....';'7'='--...';'8'='---..';'9'='----.';'0'='-----'}
$dureeTI = 200

$mot = 'BONJOUR CA VA ?'
foreach($letter in $mot.ToCharArray()) {
	if ($morses.ContainsKey([string]$letter)) {
		write-host -NoNewline "$letter : "
		write-host $morses[[string]$letter]
		foreach($m in $morses[[string]$letter].ToCharArray()) {
			if($m -eq '.') { [console]::beep(500, $dureeTI) }
			if($m -eq '-') { [console]::beep(500, 3 * $dureeTI) }
			Start-Sleep -m $dureeTI
		}
	} else {
		write-host "$letter : "
		if ($letter = ' ') { Start-Sleep -m (7 * $dureeTI) }
		else { Start-Sleep -m (3 * $dureeTI) }
	}
}

A savoir la durée des TI et des TAAH, l'espacement entre chaque symbole, chaque lettre et chaque mots