Problème avec LEDGADGET

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Good07
Messages : 308
Inscription : ven. 23/avr./2004 18:08
Localisation : Hérault 34190 Laroque

Problème avec LEDGADGET

Message par Good07 »

Bonjour.

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 
Et ma question est la suivante. Comment associer une commade à un clic sur une led ?

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 !) :D
Avatar de l’utilisateur
Droopy
Messages : 1151
Inscription : lun. 19/juil./2004 22:31

Message par Droopy »

Pour le Gadget "LEDgadget", il est renvoyé l'id du gadget quand il est créé

Code : Tout sélectionner

ProcedureReturn led()\imagegad
Par contre rien n'est renvoyé quand il créé le "LEDswitch" --> Dur de gérer les évènements avec ça

En fait les évènements sur les "LEDswitch" sont traités en interne à la lib via un CallBack, qui change les couleurs de la Led.

Ce que tu veux faire est possible, mais il faudra modifier la lib ...
Good07
Messages : 308
Inscription : ven. 23/avr./2004 18:08
Localisation : Hérault 34190 Laroque

Message par Good07 »

Ok Merci Droopy :D

C'est pas cool. Je m'étonne que l'auteur n'ait pas pensé à ce genre d'utilisation. A quoi sert d'allumer une Led simplement pour faire joli ?
Avatar de l’utilisateur
Droopy
Messages : 1151
Inscription : lun. 19/juil./2004 22:31

Message par Droopy »

Sans utiliser sa lib, tu peux créer un Imagegadget avec l'image fournie dans sa lib.

Et tu gère les évènements dans ta boucle / change la couleur de la led .
Répondre