J'ai téléchargé sur PureArea la librairie LEDGADGET qui comporte quelque commande pour simuler un affichage à LED. Aucune explication n'est fourni au sujet des commande de cette Lib. A priori c'est inutile puiqu'un exemple est fourni. Et pourtant

Voici l'exemple:
Code : Tout sélectionner
initLED()
#WindowWidth = 390
#WindowHeight = 350
If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, #PB_Window_MinimizeGadget, "")
If CreateGadgetList(WindowID(0))
led=LEDgadget(0,50,50,75,200,0,#led_vertical,#led_bars)
LEDswitch(1,150,50,80,20,"2 State",#Led_2state)
LEDswitch(2,150,80,100,20,"3 State LED",#led_3state)
LEDswitch(3,150,110,100,20,"On/Off Red",#OnOff_Red)
LEDswitch(4,150,140,110,20,"On/Off Green",#OnOff_green)
LEDswitch(5,150,170,100,20,"On/Off Blue",#OnOff_blue)
LEDswitch(6,150,200,110,20,"On/Off Yellow",#OnOff_yellow)
EndIf
Repeat
setLEDstate(0,Random(100))
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
End
Bien sur on voit dans le listing :
Code : Tout sélectionner
Select EventGadgetID()
Case led
EndSelect
J'ai donc essayé ceci:
Code : Tout sélectionner
Select EventGadgetID()
Case led
Beep_(1000,25)
EndSelect
Mais il ne se passe rien.
j'ai aussi essayé Case #Led_2state
Idem

Quelqu'un se serait il servi de cette librairie ?
Merci pour Votre Aide.
J'ai failli intituler mon post (A LED !)
