[R] Problème pour déclarer/initialiser un array

[ConnorMcLeod]

Bonjour,

Je débute sur AutoIt et je rencontre déjà un problème pour déclarer un tableau :

► Afficher le textetableau

Code : Tout sélectionner

Dim $Notes[12][8] =
[
    [32.70, 65.41, 130.81, 261.63, 523.25, 1046.50, 2093.00, 4186.01],
    [34.65  69.30, 138.59, 277.18, 554.37, 1108.73, 2217.46, 4434.92],
    [36.71, 73.42, 146.83, 293.66, 587.33, 1174.66, 2349.32, 4698.64],
    [38.89, 77.78, 155.56, 311.13, 622.25, 1244.51, 2489.02, 4978.03],
    [41.20, 82.41, 164.81, 329.63, 659.26, 1318.51, 2637.02, 5274.04],
    [43.65, 87.31, 174.61, 349.23, 698.46, 1396.91, 2793.83, 5587.65],
    [46.25, 92.50, 185.00, 369.99, 739.99, 1479.98, 2959.96, 5919.91],
    [49.00, 98.00, 196.00, 392.00, 783.99, 1567.98, 3135.96, 6271.93],
    [51.91, 103.83, 207.65, 415.30, 830.61, 1661.22, 3322.44, 6644.88],
    [55.00, 110.00, 220.00, 440.00, 880.00, 1760.00, 3520.00, 7040.00],
    [58.27, 116.54, 233.08, 466.16, 932.33, 1864.66, 3729.31, 7458.62],
    [61.74, 123.47, 246.94, 493.88, 987.77, 1975.53, 3951.07, 7902.13]
]

La console dit "(17,20) : ERROR: syntax error", la ligne 17 étant la 1ère ligne du code précédent.

Je passe très certainement à côté de quelque chose...
Je pense pourtant avoir bien suivi l'exemple donné sur le tutoriel du zéro : http://fr.openclassrooms.com/informatiq ... ableaux-13

Merci d'avance.

[mikell]

2 bricoles
- y avait une virgule oubliée à la 2ème ligne
- quand on fait un retour à la ligne dans une expression, faut mettre un underscore

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

Dim $Notes[12][8] = _
[ _
    [32.70, 65.41, 130.81, 261.63, 523.25, 1046.50, 2093.00, 4186.01], _
    [34.65, 69.30, 138.59, 277.18, 554.37, 1108.73, 2217.46, 4434.92], _
    [36.71, 73.42, 146.83, 293.66, 587.33, 1174.66, 2349.32, 4698.64], _ 
    [38.89, 77.78, 155.56, 311.13, 622.25, 1244.51, 2489.02, 4978.03], _
    [41.20, 82.41, 164.81, 329.63, 659.26, 1318.51, 2637.02, 5274.04], _
    [43.65, 87.31, 174.61, 349.23, 698.46, 1396.91, 2793.83, 5587.65], _
    [46.25, 92.50, 185.00, 369.99, 739.99, 1479.98, 2959.96, 5919.91], _
    [49.00, 98.00, 196.00, 392.00, 783.99, 1567.98, 3135.96, 6271.93], _
    [51.91, 103.83, 207.65, 415.30, 830.61, 1661.22, 3322.44, 6644.88], _
    [55.00, 110.00, 220.00, 440.00, 880.00, 1760.00, 3520.00, 7040.00], _
    [58.27, 116.54, 233.08, 466.16, 932.33, 1864.66, 3729.31, 7458.62], _
    [61.74, 123.47, 246.94, 493.88, 987.77, 1975.53, 3951.07, 7902.13] _
]

_ArrayDisplay($Notes)

[ConnorMcLeod]

Merci, j'ai pu monter ma gamme
(j'ai honte pour la virgule, j'avais pourtant vérifié, soupçonnant une erreur de ce type)

► Afficher le textegamme

Code : Tout sélectionner

#include <WinAPI.au3>

Enum $Do, $Re = 2, $Mi = 4, $Fa = 5, $Sol = 7, $La = 9, $Si = 11

Dim $Notes[12][8] = _
[ _
    [32.70, 65.41, 130.81, 261.63, 523.25, 1046.50, 2093.00, 4186.01], _
    [34.65,  69.30, 138.59, 277.18, 554.37, 1108.73, 2217.46, 4434.92], _
    [36.71, 73.42, 146.83, 293.66, 587.33, 1174.66, 2349.32, 4698.64], _
    [38.89, 77.78, 155.56, 311.13, 622.25, 1244.51, 2489.02, 4978.03], _
    [41.20, 82.41, 164.81, 329.63, 659.26, 1318.51, 2637.02, 5274.04], _
    [43.65, 87.31, 174.61, 349.23, 698.46, 1396.91, 2793.83, 5587.65], _
    [46.25, 92.50, 185.00, 369.99, 739.99, 1479.98, 2959.96, 5919.91], _
    [49.00, 98.00, 196.00, 392.00, 783.99, 1567.98, 3135.96, 6271.93], _
    [51.91, 103.83, 207.65, 415.30, 830.61, 1661.22, 3322.44, 6644.88], _
    [55.00, 110.00, 220.00, 440.00, 880.00, 1760.00, 3520.00, 7040.00], _
    [58.27, 116.54, 233.08, 466.16, 932.33, 1864.66, 3729.31, 7458.62], _
    [61.74, 123.47, 246.94, 493.88, 987.77, 1975.53, 3951.07, 7902.13] _
]

PlaySound($Do);
PlaySound($Re);
PlaySound($Mi);
PlaySound($Fa);
PlaySound($Sol);
PlaySound($La);
PlaySound($Si);
PlaySound($Do, 4);

Func PlaySound($note, $hauteur = 3, $duree = 500, $diesebemol = 0)
    _WinAPI_Beep($Notes[$note][$hauteur], $duree)
EndFunc

A tout hasard, est-ce qu'il y'a une directive pour changer cet underscore en un autre caractère ? ( '\' par exemple !! )

[mikell]

Comment, nouveau et tu veux déjà révolutionner Autoit ?
Non, cet underscore est une convention non modifiable :

Code : Tout sélectionner

$oIE=ObjCreate("Shell.Explorer.2")
$gui = GUICreate("tout droit du fichier d'aide", 600, 300, -1, -1, -1, 0x80) 
$gX = GUICtrlCreateObj($oIE, 0, 0, 600, 300)
GUISetState()
$oIE.Navigate("mk:@MSITStore:" & StringRegExpReplace(@Autoitexe, '(.+)\\[^\\]+', "$1") _  
    & "\AutoIt3.chm::/html/intro/lang_comments.htm")
While GuiGetMsg()<>-3
Wend