Nombre de Case variable?

Rubriques generale concernant SpiderBasic
jph
Messages : 68
Inscription : dim. 17/juil./2022 16:02

Nombre de Case variable?

Message par jph »

Bonjour,

Je voudrais vous demander un conseil ou une idée. Je cherche un moyen de faire l'équivalent de ça:

Code : Tout sélectionner

Procedure TimerEvent()
  Static a
  a = a + 1
  
  If a_count = 0
    a = 1
  EndIf
  
  Debug "a = " + a
  
  Select a
    Case 1
        PlaySound(#Sound6)
    Case 30
        PlaySound(#Sound0)
    Case 60
        PlaySound(#Sound0)
    Case 90
        PlaySound(#Sound0)
    Case 91
        PlaySound(#Sound1)
        RemoveWindowTimer(#Window_3, 0)
        a = 0
  EndSelect

  a_count = a
  
EndProcedure
Mais je voudrais pouvoir avoir un nombre de conditions Case variable dynamiquement en fonction des choix de l'utilisateur. Dans cet exemple c'est 4 Case, mais je voudrais que ça puisse varier dynamiquement lors de l'exécution du programme.

Est-ce que quelqu'un a une idée sur la façon dont je pourrais faire ça? Je précise que c'est en SpiderBasic et pas en PureBasic. Merci d'avance.
jph
Messages : 68
Inscription : dim. 17/juil./2022 16:02

Re: Nombre de Case variable?

Message par jph »

C'est bon. Je pense avoir trouvé une façon de procéder pour résoudre le problème. J'ai un peu honte d'avoir posé la question car c'était assez simple en fait.
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Nombre de Case variable?

Message par Ar-S »

Alors ? Comment as tu procédé ? C'est intéressant de voir une solution plutôt qu'un unique problème.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
jph
Messages : 68
Inscription : dim. 17/juil./2022 16:02

Re: Nombre de Case variable?

Message par jph »

Ar-S a écrit : sam. 27/avr./2024 23:05 Alors ? Comment as tu procédé ? C'est intéressant de voir une solution plutôt qu'un unique problème.
Ben... En fait, je m'aperçois que ce que j'ai fait ne fonctionne pas. Et de toutes façons, ça n'a pas d’intérêt car ça équivaut à utiliser un If. Donc ça n'apporte rien que du déjà connu. Mais je vais quand-même essayer de me debugger et si j'y arrive je posterai la solution qui utilise Select/Case/EndSelect.
Répondre